diff --git a/SDL/Classes/cFinanzOnlineWebService.vb b/SDL/Classes/cFinanzOnlineWebService.vb index 4e5fe566..74868b31 100644 --- a/SDL/Classes/cFinanzOnlineWebService.vb +++ b/SDL/Classes/cFinanzOnlineWebService.vb @@ -51,6 +51,11 @@ Public Class cFinanzOnlineWebService benid = "WEBserv99" pin = "WEBserv99" uid = "ATU74813856" + Case "UNISPED" + tid = "18778752z632" + benid = "Webmaster1" + pin = "Webmaster1" + uid = "ATU67001200" Case Else 'VERAG: tid = "13390891m005" benid = "WEBserv99" diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index 816dfc17..67cc6c85 100644 --- a/SDL/Fakturierung/cFakturierung.vb +++ b/SDL/Fakturierung/cFakturierung.vb @@ -424,18 +424,20 @@ Public Class cFakturierung rpt.txtBank1.Text = If(FIRMA.Firma_Bankverbindung1, "") & vbNewLine & If(FIRMA.Firma_IBAN1, "") & vbNewLine & If(FIRMA.Firma_BIC1, "").ToString.Trim rpt.txtBank2.Text = If(FIRMA.Firma_Bankverbindung2, "") & vbNewLine & If(FIRMA.Firma_IBAN2, "") & vbNewLine & If(FIRMA.Firma_BIC2, "").ToString.Trim rpt.picVERAG.Size = New SizeF(2.712, 0.61) - Case 22 '"UNISPED" + Case 22 '"UNISPED DE" rpt.txtBank1.Text = If(FIRMA.Firma_Bankverbindung1, "") & vbNewLine & If(FIRMA.Firma_IBAN1, "") & vbNewLine & If(FIRMA.Firma_BIC1, "").ToString.Trim rpt.txtBank2.Text = If(FIRMA.Firma_Bankverbindung2, "") & vbNewLine & If(FIRMA.Firma_IBAN2, "") & vbNewLine & If(FIRMA.Firma_BIC2, "").ToString.Trim rpt.picVERAG.Size = New SizeF(2.712, 0.61) - Case 23 '"UNISPED" + rpt.lblFirma.Text = If(FIRMA.Firma_Bez, "") ' Ohne Ort gewünscht! + Case 23 '"UNISPED ZS" rpt.txtBank1.Text = If(FIRMA.Firma_Bankverbindung1, "") & vbNewLine & If(FIRMA.Firma_IBAN1, "") & vbNewLine & If(FIRMA.Firma_BIC1, "").ToString.Trim rpt.txtBank2.Text = If(FIRMA.Firma_Bankverbindung2, "") & vbNewLine & If(FIRMA.Firma_IBAN2, "") & vbNewLine & If(FIRMA.Firma_BIC2, "").ToString.Trim rpt.picVERAG.Size = New SizeF(2.712, 0.61) Case 20 '"IMEX" If Rechnung.RechnungsLandKz = "TR" Then 'rpt.txtBank1.Text = "Garanti Bank " & vbNewLine & "IBAN:TR84 0006 2001 6040 0009 0987 13 " & vbNewLine & "BLZ Sube.: 1604 - Beykent Ticari - Hesap: 9098713" - rpt.txtBank1.Text = "Garanti Bank " & vbNewLine & "IBAN:TR21 0006 2000 5440 0009 0818 67" & vbNewLine & "BLZ Sube.: 544 - Beykent Ticari - Hesap: 9081867" + ' rpt.txtBank1.Text = "Garanti Bank " & vbNewLine & "IBAN:TR21 0006 2000 5440 0009 0818 67" & vbNewLine & "BLZ Sube.: 544 - Beykent Ticari - Hesap: 9081867" + rpt.txtBank1.Text = "Garanti Bank " & vbNewLine & "IBAN:TR21 0006 2000 5440 0009 0818 67" & vbNewLine & "BLZ Sube.: 544 - Hadimköy Ticari - Hesap: 9081867" rpt.txtBank2.Text = "" Else If hasVK(Rechnung) Then @@ -470,7 +472,7 @@ Public Class cFakturierung End Sub - Shared Sub initRgFirmaSammelRg(ByRef rpt As rptSammelRechnungDruck, FIRMA As VERAG_PROG_ALLGEMEIN.cFirmen, RechnungsNr As Integer, RechnungsLandKz As String, Buchungsjahr As Integer) + Shared Sub initRgFirmaSammelRg(ByRef rpt As rptSammelRechnungDruck, FIRMA As VERAG_PROG_ALLGEMEIN.cFirmen, RechnungsNr As Integer, RechnungsLandKz As String, Buchungsjahr As Object) rpt.lblFirmaOrt.Text = If(FIRMA.Firma_Ort, "") rpt.lblFirmaStrasse.Text = If(FIRMA.Firma_Straße, "") @@ -483,15 +485,20 @@ Public Class cFakturierung rpt.lblUID.Text = If(FIRMA.Firma_UID, "") rpt.lblEORI.Text = If(FIRMA.Firma_EORI, "") + 'Für Vorschau: + If Buchungsjahr Is DBNull.Value Then Buchungsjahr = Now.Year + If Buchungsjahr Is Nothing Then Buchungsjahr = Now.Year + ' Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Select Case FIRMA.Firma_ID - Case 21 '"UNISPED" - rpt.txtBank1.Text = "????" - rpt.txtBank2.Text = "????" + Case 21, 22, 23 '"UNISPED" + rpt.txtBank1.Text = If(FIRMA.Firma_Bankverbindung1, "") & vbNewLine & If(FIRMA.Firma_IBAN1, "") & vbNewLine & If(FIRMA.Firma_BIC1, "").ToString.Trim + rpt.txtBank2.Text = If(FIRMA.Firma_Bankverbindung2, "") & vbNewLine & If(FIRMA.Firma_IBAN2, "") & vbNewLine & If(FIRMA.Firma_BIC2, "").ToString.Trim Case 20 '"IMEX" If RechnungsLandKz = "TR" Then - rpt.txtBank1.Text = "Garanti Bank " & vbNewLine & "IBAN:TR84 0006 2001 6040 0009 0987 13 " & vbNewLine & "BLZ Sube.: 1604 - Beykent Ticari - Hesap: 9098713" + 'rpt.txtBank1.Text = "Garanti Bank " & vbNewLine & "IBAN:TR84 0006 2001 6040 0009 0987 13 " & vbNewLine & "BLZ Sube.: 1604 - Beykent Ticari - Hesap: 9098713" + rpt.txtBank1.Text = "Garanti Bank " & vbNewLine & "IBAN:TR84 0006 2001 6040 0009 0987 13 " & vbNewLine & "BLZ Sube.: 1604 - Hadimköy Ticari - Hesap: 9098713" rpt.txtBank2.Text = "" Else If hasVK(RechnungsNr, Buchungsjahr) Then @@ -517,7 +524,7 @@ Public Class cFakturierung End Sub - Shared Sub initRgFirmaSammelRg_Bericht(ByRef rpt As rptSammelRechnungAnlagenDruck, FIRMA As VERAG_PROG_ALLGEMEIN.cFirmen, RechnungsNr As Integer, RechnungsLandKz As String, Buchungsjahr As Integer) + Shared Sub initRgFirmaSammelRg_Bericht(ByRef rpt As rptSammelRechnungAnlagenDruck, FIRMA As VERAG_PROG_ALLGEMEIN.cFirmen, RechnungsNr As Integer, RechnungsLandKz As String, Buchungsjahr As Object) rpt.lblFirmaOrt.Text = If(FIRMA.Firma_Ort, "") rpt.lblFirmaStrasse.Text = If(FIRMA.Firma_Straße, "") @@ -530,15 +537,20 @@ Public Class cFakturierung rpt.lblUID.Text = If(FIRMA.Firma_UID, "") rpt.lblEORI.Text = If(FIRMA.Firma_EORI, "") + 'Für Vorschau: + If Buchungsjahr Is DBNull.Value Then Buchungsjahr = Now.Year + If Buchungsjahr Is Nothing Then Buchungsjahr = Now.Year + ' Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Select Case FIRMA.Firma_ID - Case 21 '"UNISPED" - rpt.txtBank1.Text = "????" - rpt.txtBank2.Text = "????" + Case 21, 22, 23 '"UNISPED" + rpt.txtBank1.Text = If(FIRMA.Firma_Bankverbindung1, "") & vbNewLine & If(FIRMA.Firma_IBAN1, "") & vbNewLine & If(FIRMA.Firma_BIC1, "").ToString.Trim + rpt.txtBank2.Text = If(FIRMA.Firma_Bankverbindung2, "") & vbNewLine & If(FIRMA.Firma_IBAN2, "") & vbNewLine & If(FIRMA.Firma_BIC2, "").ToString.Trim Case 20 '"IMEX" If RechnungsLandKz = "TR" Then - rpt.txtBank1.Text = "Garanti Bank " & vbNewLine & "IBAN:TR84 0006 2001 6040 0009 0987 13 " & vbNewLine & "BLZ Sube.: 1604 - Beykent Ticari - Hesap: 9098713" + ' rpt.txtBank1.Text = "Garanti Bank " & vbNewLine & "IBAN:TR84 0006 2001 6040 0009 0987 13 " & vbNewLine & "BLZ Sube.: 1604 - Beykent Ticari - Hesap: 9098713" + rpt.txtBank1.Text = "Garanti Bank " & vbNewLine & "IBAN:TR84 0006 2001 6040 0009 0987 13 " & vbNewLine & "BLZ Sube.: 1604 - Hadimköy Ticari - Hesap: 9098713" rpt.txtBank2.Text = "" Else If hasVK(RechnungsNr, Buchungsjahr) Then @@ -656,7 +668,9 @@ Public Class cFakturierung Case 7 : rpt.picVERAG.Image = My.Resources.Atilla_big_med : rpt.Picture1.Image = Nothing Case 11 : rpt.picVERAG.Image = My.Resources.Verag_Customs_Service_GMBH_Logo : rpt.Picture1.Image = Nothing Case 20 : rpt.picVERAG.Image = My.Resources.IMEX_LOGO_simple : rpt.Picture1.Image = My.Resources.aeo_AT_imex - Case 21, 22, 23 : rpt.picVERAG.Image = My.Resources.Unisped_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_AT + Case 21 : rpt.picVERAG.Image = My.Resources.Unisped_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_AT + Case 22 : rpt.picVERAG.Image = My.Resources.Unisped_DE_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_DE + Case 23 : rpt.picVERAG.Image = My.Resources.Unisped_ZS_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_ZS_AT rpt.txtAvisierer.Visible = False : rpt.lblAvisiererUeberschrift.Visible = False : rpt.txtWarenwert.Visible = False : rpt.lblWarenWertUeberschrift.Visible = False Case 17 : rpt.picVERAG.Image = My.Resources.FrontOfficeSUB_Horizontal : rpt.Picture1.Image = Nothing End Select @@ -699,8 +713,13 @@ Public Class cFakturierung rpt.txtGrenze.Text = SQL.getValueTxtBySql("SELECT TOP 1 isnull([Grenzstelle],'') FROM [Filialen] where FilialenNr='" & RECHNUNG.FilialenNr & "'", "FMZOLL") If rpt.txtGrenze.Text = String.Empty Then rpt.txtGrenzeUeberschrift.Visible = False - rpt.lblRechnung_Name1.Text = If(RECHNUNG.RechnungsName_1, "") - rpt.lblRechnung_Name2.Text = If(RECHNUNG.RechnungsName_2, "") + If If(RECHNUNG.RechnungsName_2, "") = "" Then + rpt.lblRechnung_Name1.Text = "" + rpt.lblRechnung_Name2.Text = If(RECHNUNG.RechnungsName_1, "") + Else + rpt.lblRechnung_Name1.Text = If(RECHNUNG.RechnungsName_1, "") + rpt.lblRechnung_Name2.Text = If(RECHNUNG.RechnungsName_2, "") + End If rpt.lblRechnung_Strasse.Text = If(RECHNUNG.RechnungsStraße, "") rpt.lblRechnung_Ort.Text = If(RECHNUNG.RechnungsOrt, "") rpt.lblRechnung_Land.Text = cProgramFunctions.getLandBez_fromISO1Land(RECHNUNG.RechnungsLandKz, "").ToString.ToUpper @@ -884,7 +903,7 @@ Public Class cFakturierung Kopie = False 'Aktualisierung und speichern: If Abrechnugsdaten_AKTUALISIEREN(RECHNUNG, RechnungsDatum) Then - rpt.lblRgNr.Text = addYeartoRgNr(FIRMA.Firma_ID, RECHNUNG.Buchungsjahr) & RECHNUNG.RechnungsNr + rpt.lblRgNr.Text = If(RECHNUNG.RechnungsNr > 0, addYeartoRgNr(FIRMA.Firma_ID, RECHNUNG.Buchungsjahr) & RECHNUNG.RechnungsNr, "Vorschau") rpt.lblRgDatum.Text = CDate(RECHNUNG.RechnungsDatum).ToShortDateString Else MsgBox("Fehler bei der Vergabe der Rg-Nr.!") @@ -1179,15 +1198,22 @@ Public Class cFakturierung - Shared Function getReverseChargeSumme(RechnungsNr As String, RechnungsDatum As Date) As Double + Shared Function getReverseChargeSumme(RechnungsNr As Object, RechnungsDatum As Object, Optional VorschauID As String = "") As Double Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Dim SqlStr = "SELECT SUM(dbo.RechnungsausgangPositionen.SteuerfreierBetrag) AS ReverseChargeSumme FROM dbo.Rechnungsausgang INNER JOIN dbo.RechnungsausgangPositionen ON dbo.Rechnungsausgang.RK_ID = dbo.RechnungsausgangPositionen.RK_ID INNER JOIN dbo.Leistungen ON dbo.RechnungsausgangPositionen.LeistungsNr = dbo.Leistungen.LeistungsNr INNER JOIN dbo.[Länderverzeichnis für die Außenhandelsstatistik] ON dbo.Rechnungsausgang.RechnungsUstIdKz = dbo.[Länderverzeichnis für die Außenhandelsstatistik].LandKz - WHERE (dbo.Rechnungsausgang.RechnungsNr = '" & RechnungsNr & "') AND (dbo.Rechnungsausgang.RechnungsDatum = '" & RechnungsDatum.ToShortDateString & "') AND - (dbo.[Länderverzeichnis für die Außenhandelsstatistik].ReverseCharge = 1) AND (dbo.Leistungen.ReverseCharge = 1)" + WHERE 1=1 " + + If VorschauID = "" Then + SqlStr &= " AND (dbo.Rechnungsausgang.RechnungsNr = '" & RechnungsNr & "') AND (dbo.Rechnungsausgang.RechnungsDatum = '" & CDate(RechnungsDatum).ToShortDateString & "') " + Else + SqlStr &= " AND (dbo.Rechnungsausgang.VorschauID = '" & VorschauID & "') " + End If + + SqlStr &= " AND (dbo.[Länderverzeichnis für die Außenhandelsstatistik].ReverseCharge = 1) AND (dbo.Leistungen.ReverseCharge = 1)" Dim sum = SQL.getValueTxtBySql(SqlStr, "FMZOLL") If sum Is DBNull.Value Or sum = "" Then Return 0 @@ -1245,7 +1271,7 @@ Public Class cFakturierung 'End If Dim VorschauID = "" If vorschau Then - VorschauID = DruckdatumUhrzeit.ToString("dd.MM.yyyy HH:mm:ss.fff") & "_" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "_" & Firma_ID + VorschauID = Now.ToString("dd.MM.yyyy HH:mm:ss.fff") & "_" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "_" & Firma_ID End If If SammelrechungArt = 7 And (AvisoIds IsNot Nothing AndAlso AvisoIds.Count = 0) Then Return False 'Prüfung, ob Daten vorhanden; Abbruch ZB wenn keine AvisoId @@ -1256,8 +1282,10 @@ Public Class cFakturierung Dim Buchungsjahr = cRKSV.getGJ(Rechnungsdatum) 'IIf(Rechnungsdatum.Month = 1, Rechnungsdatum.Year - 1, Rechnungsdatum.Year) - - Dim Aktuelle_RgNr As Integer = getNewRgNr(Firma_ID, Buchungsjahr) 'Nimmt die aktuelle RgNr und zählt eine Pos. hoch. + Dim Aktuelle_RgNr As Integer = -1 + If Not vorschau Then + Aktuelle_RgNr = getNewRgNr(Firma_ID, Buchungsjahr) 'Nimmt die aktuelle RgNr und zählt eine Pos. hoch. + End If DruckdatumUhrzeit = Now.ToString("dd.MM.yyyy HH:mm:ss.fff") @@ -1303,9 +1331,8 @@ Public Class cFakturierung End Select If vorschau Then - ' RG.[VorschauID] = VorschauID + RG.[VorschauID] = VorschauID Else - RG.[RechnungsNr] = Aktuelle_RgNr RG.[Status] = 3 RG.[RechnungsDatum] = Rechnungsdatum.ToShortDateString @@ -1349,7 +1376,7 @@ Public Class cFakturierung Else 'Dim RG_NR = New VERAG_PROG_ALLGEMEIN.cRechnungsnummern(Firma_ID, Buchungsjahr) 'RG_NR.INCREASE_RGNR() 'für die nächste Rechnung - dt = getSAMMELRechnung_Dt(RechnungsNr, DruckdatumUhrzeit, 3) ' 3-_> Anlagen gedruckt + dt = getSAMMELRechnung_Dt(RechnungsNr, DruckdatumUhrzeit, 3, [VorschauID]) ' 3-_> Anlagen gedruckt End If @@ -1414,7 +1441,13 @@ Public Class cFakturierung End Function Shared Function doSAMMELRechnungDruck_Rechnungsdruck_Anlagen(RechnungsNr As Integer, DruckDatumZeit As Date, PrinterName As String, Optional ByRef pathPDF_Anlage As List(Of String) = Nothing, Optional RechnungsdruckArt As Integer = -1, Optional VorschauID As String = "") As Boolean - Dim dt As DataTable = SQL.loadDgvBySql("SELECT RK_ID FROM Rechnungsausgang WHERE Rechnungsausgang.Status IN(3) And CONVERT(datetime,DruckDatumZeit ,104)='" & DruckDatumZeit.ToString("dd.MM.yyyy HH:mm:ss.fff") & "' and RechnungsNr='" & RechnungsNr & "' ORDER BY FilialenNr, AbfertigungsNr", "FMZOLL") + Dim dt As DataTable + If VorschauID = "" Then + SQL.loadDgvBySql("SELECT RK_ID FROM Rechnungsausgang WHERE Rechnungsausgang.Status IN(3) And CONVERT(datetime,DruckDatumZeit ,104)='" & DruckDatumZeit.ToString("dd.MM.yyyy HH:mm:ss.fff") & "' and RechnungsNr='" & RechnungsNr & "' ORDER BY FilialenNr, AbfertigungsNr", "FMZOLL") + Else + SQL.loadDgvBySql("SELECT RK_ID FROM Rechnungsausgang WHERE RechnungsNr is null AND VorschauID='" & VorschauID & "' ORDER BY FilialenNr, AbfertigungsNr", "FMZOLL") + End If + If dt IsNot Nothing Then For Each r In dt.Rows Dim Path = "" @@ -1433,13 +1466,20 @@ Public Class cFakturierung Shared Function doSAMMELRechnungDruck_Rechnungsdruck_Sammelrechnungsbericht_ExcelEvolog(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 dt As DataTable = SQL.loadDgvBySql(" SELECT RechnungsNr,RechnungsKundenNr,Rechnungsausgang.Abfertigungsdatum,Rechnungsausgang.KdAuftragsNr,Rechnungsausgang.AbfertigungsNr,Rechnungsausgang.[LKW Kennzeichen] as Kennzeichen,Abfertigungsarten.Abfertigungsbezeichnung, (SELECT SUM([SteuerpflichtigerBetrag]+[SteuerfreierBetrag]) FROM RechnungsausgangPositionen where RechnungsausgangPositionen.RK_ID=Rechnungsausgang.RK_ID) as Betrag + Dim sqlStr = " SELECT RechnungsNr,RechnungsKundenNr,Rechnungsausgang.Abfertigungsdatum,Rechnungsausgang.KdAuftragsNr,Rechnungsausgang.AbfertigungsNr,Rechnungsausgang.[LKW Kennzeichen] as Kennzeichen,Abfertigungsarten.Abfertigungsbezeichnung, (SELECT SUM([SteuerpflichtigerBetrag]+[SteuerfreierBetrag]) FROM RechnungsausgangPositionen where RechnungsausgangPositionen.RK_ID=Rechnungsausgang.RK_ID) as Betrag 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 Rechnungsausgang.Status IN(3) And CONVERT(datetime,DruckDatumZeit ,104)='" & DruckdatumUhrzeit.ToString("dd.MM.yyyy HH:mm:ss.fff") & "' and RechnungsNr='" & RechnungsNr & "' - ORDER BY Rechnungsausgang.FilialenNr, Rechnungsausgang.AbfertigungsNr", "FMZOLL") + 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" + + + Dim dt As DataTable = SQL.loadDgvBySql(sqlStr, "FMZOLL") If dt IsNot Nothing And dt.Rows.Count > 0 Then @@ -1517,7 +1557,12 @@ Public Class cFakturierung Dim rpt As New rptSammelRechnungAnlagenDruck - Dim dt As DataTable = SQL.loadDgvBySql("Select * FROM Rechnungsausgang WHERE Rechnungsausgang.Status In(3) And CONVERT(datetime,DruckDatumZeit ,104)='" & DruckdatumUhrzeit.ToString("dd.MM.yyyy HH:mm:ss.fff") & "' and RechnungsNr='" & RechnungsNr & "' ORDER BY FilialenNr, AbfertigungsNr", "FMZOLL") + Dim dt As DataTable + If VorschauID = "" Then + dt = SQL.loadDgvBySql("Select * FROM Rechnungsausgang WHERE Rechnungsausgang.Status In(3) And CONVERT(datetime,DruckDatumZeit ,104)='" & DruckdatumUhrzeit.ToString("dd.MM.yyyy HH:mm:ss.fff") & "' and RechnungsNr='" & RechnungsNr & "' ORDER BY FilialenNr, AbfertigungsNr", "FMZOLL") + Else + dt = SQL.loadDgvBySql("Select * FROM Rechnungsausgang WHERE RechnungsNr is null AND VorschauID='" & VorschauID & "' ORDER BY FilialenNr, AbfertigungsNr", "FMZOLL") + End If rpt.DataSource = dt Dim ROW As DataRow = dt.Rows(0) @@ -1558,13 +1603,16 @@ Public Class cFakturierung Case 7 : rpt.picVERAG.Image = My.Resources.Atilla_big_med : rpt.Picture1.Image = Nothing Case 11 : rpt.picVERAG.Image = My.Resources.Verag_Customs_Service_GMBH_Logo : rpt.Picture1.Image = Nothing Case 20 : rpt.picVERAG.Image = My.Resources.IMEX_LOGO_simple : rpt.Picture1.Image = My.Resources.aeo_AT_imex - Case 21, 22, 23 : rpt.picVERAG.Image = My.Resources.Unisped_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_AT + Case 21 : rpt.picVERAG.Image = My.Resources.Unisped_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_AT + Case 22 : rpt.picVERAG.Image = My.Resources.Unisped_DE_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_DE + Case 23 : rpt.picVERAG.Image = My.Resources.Unisped_ZS_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_ZS_AT + Case 17 : rpt.picVERAG.Image = My.Resources.FrontOfficeSUB_Horizontal : rpt.Picture1.Image = Nothing End Select rpt.lblKundenNr.Text = If(ROW("RechnungsKundenNr") > 0, ROW("RechnungsKundenNr"), "") - rpt.lblRgNr.Text = addYeartoRgNr(FIRMA.Firma_ID, ROW("Buchungsjahr")) & ROW("RechnungsNr") - rpt.lblRgDatum.Text = ROW("RechnungsDatum") + rpt.lblRgNr.Text = If(ROW("RechnungsNr") IsNot DBNull.Value, addYeartoRgNr(FIRMA.Firma_ID, ROW("Buchungsjahr")) & ROW("RechnungsNr"), "Vorschau") + rpt.lblRgDatum.Text = If(ROW("RechnungsDatum") IsNot DBNull.Value, ROW("RechnungsDatum"), "Vorschau") 'rpt.lblKundenAuftragsnummer.Text = If(RECHNUNG.KdAuftragsNr, "") 'If rpt.lblKundenAuftragsnummer.Text = String.Empty Then rpt.lblKundenAuftragsnummerUeberschrift.Visible = False @@ -1580,8 +1628,14 @@ Public Class cFakturierung rpt.txtKdAuftragsnummer.Text = If(ROW("KdAuftragsNr") IsNot DBNull.Value, ROW("KdAuftragsNr"), "") - rpt.lblRechnung_Name1.Text = ROW("RechnungsName 1") - rpt.lblRechnung_Name2.Text = If(ROW("RechnungsName 2") IsNot DBNull.Value, ROW("RechnungsName 2"), "") + If If(ROW("RechnungsName 2") IsNot DBNull.Value, ROW("RechnungsName 2"), "") = "" Then + rpt.lblRechnung_Name1.Text = "" + rpt.lblRechnung_Name2.Text = ROW("RechnungsName 1") + Else + rpt.lblRechnung_Name1.Text = ROW("RechnungsName 1") + rpt.lblRechnung_Name2.Text = If(ROW("RechnungsName 2") IsNot DBNull.Value, ROW("RechnungsName 2"), "") + End If + rpt.lblRechnung_Strasse.Text = If(ROW("RechnungsStraße") IsNot DBNull.Value, ROW("RechnungsStraße"), "") rpt.lblRechnung_Ort.Text = If(ROW("RechnungsOrt") IsNot DBNull.Value, ROW("RechnungsOrt"), "") rpt.lblRechnung_Land.Text = cProgramFunctions.getLandBez_fromISO1Land(ROW("RechnungsLandKz"), "").ToString.ToUpper @@ -1867,7 +1921,10 @@ Public Class cFakturierung Case 7 : rpt.picVERAG.Image = My.Resources.Atilla_big_med : rpt.Picture1.Image = Nothing Case 11 : rpt.picVERAG.Image = My.Resources.Verag_Customs_Service_GMBH_Logo : rpt.Picture1.Image = Nothing Case 20 : rpt.picVERAG.Image = My.Resources.IMEX_LOGO_simple : rpt.Picture1.Image = My.Resources.aeo_AT_imex - Case 21, 22, 23 : rpt.picVERAG.Image = My.Resources.Unisped_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_AT + Case 21 : rpt.picVERAG.Image = My.Resources.Unisped_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_AT + Case 22 : rpt.picVERAG.Image = My.Resources.Unisped_DE_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_DE + Case 23 : rpt.picVERAG.Image = My.Resources.Unisped_ZS_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_ZS_AT + Case 17 : rpt.picVERAG.Image = My.Resources.FrontOfficeSUB_Horizontal : rpt.Picture1.Image = Nothing End Select @@ -1878,8 +1935,8 @@ Public Class cFakturierung rpt.txtVermerk.Text = strText rpt.lblKundenNr.Text = If(ROW("RechnungsKundenNr") > 0, ROW("RechnungsKundenNr"), "") - rpt.lblRgNr.Text = addYeartoRgNr(FIRMA.Firma_ID, ROW("Buchungsjahr")) & ROW("RechnungsNr") - rpt.lblRgDatum.Text = ROW("RechnungsDatum") + rpt.lblRgNr.Text = If(ROW("RechnungsNr") IsNot DBNull.Value, addYeartoRgNr(FIRMA.Firma_ID, ROW("Buchungsjahr")) & ROW("RechnungsNr"), "Vorschau") + rpt.lblRgDatum.Text = If(ROW("RechnungsDatum") IsNot DBNull.Value, ROW("RechnungsDatum"), "Vorschau") 'rpt.lblKundenAuftragsnummer.Text = If(RECHNUNG.KdAuftragsNr, "") 'If rpt.lblKundenAuftragsnummer.Text = String.Empty Then rpt.lblKundenAuftragsnummerUeberschrift.Visible = False @@ -1895,8 +1952,14 @@ Public Class cFakturierung rpt.lblLKWId.Text = getLKWID(RechnungsNr, DruckdatumUhrzeit, Rgstatus) rpt.Label24.Visible = (rpt.lblLKWId.Text <> "") - rpt.lblRechnung_Name1.Text = ROW("RechnungsName 1") - rpt.lblRechnung_Name2.Text = If(ROW("RechnungsName 2") IsNot DBNull.Value, ROW("RechnungsName 2"), "") + If If(ROW("RechnungsName 2") IsNot DBNull.Value, ROW("RechnungsName 2"), "") = "" Then + rpt.lblRechnung_Name1.Text = "" + rpt.lblRechnung_Name2.Text = ROW("RechnungsName 1") + Else + rpt.lblRechnung_Name1.Text = ROW("RechnungsName 1") + rpt.lblRechnung_Name2.Text = If(ROW("RechnungsName 2") IsNot DBNull.Value, ROW("RechnungsName 2"), "") + End If + rpt.lblRechnung_Strasse.Text = If(ROW("RechnungsStraße") IsNot DBNull.Value, ROW("RechnungsStraße"), "") rpt.lblRechnung_Ort.Text = If(ROW("RechnungsOrt") IsNot DBNull.Value, ROW("RechnungsOrt"), "") rpt.lblRechnung_Land.Text = cProgramFunctions.getLandBez_fromISO1Land(ROW("RechnungsLandKz"), "").ToString.ToUpper @@ -1922,7 +1985,7 @@ Public Class cFakturierung ' Dies hat zur Folge, dass steuerfreie Rechnungsbeträge für Leistungen, ' die in der Leistungstabelle als ReverseCharge gekennzeichnet sind, ' summiert und auf der Rechnung ausgewiesen werden. - If getReverseChargeSumme(ROW("RechnungsNr"), CDate(ROW("RechnungsDatum"))) > 0 Then + If getReverseChargeSumme(ROW("RechnungsNr"), (ROW("RechnungsDatum")), VorschauID) > 0 Then rpt.txtInfo.Text = "Achtung! Für EU-Kunden! Seit 1.1.2010 unterliegen Leistungen der Anwendung des Reverse Charge Verfahrens. Ãœbergang der Steuerschuld an den Leistungsempfänger." Else : rpt.txtInfo.Text = "" : End If @@ -2108,7 +2171,7 @@ Public Class cFakturierung Return False End Function - Shared Function getSAMMELRechnung_Dt(RechnungsNr As Integer, DruckDatumZeit As DateTime, Status As String) As DataTable + Shared Function getSAMMELRechnung_Dt(RechnungsNr As Integer, DruckDatumZeit As DateTime, Status As String, Optional VorschauID As String = "") As DataTable Dim SQLStr = "SELECT DISTINCT MIN(Rechnungsausgang.RK_ID) as RK_ID,Rechnungsausgang.RechnungsNr, Rechnungsausgang.RechnungsDatum, RechnungsausgangPositionen.LeistungsNr, RechnungsausgangPositionen.Steuerpflichtig, RechnungsausgangPositionen.LeistungsBez, Rechnungsausgang.Status, Rechnungsausgang.DruckDatumZeit ,MIN(Filialen.Speditionsbuch) AS Speditionsbuch, Min(Rechnungsausgang.Abfertigungsdatum) AS AbfertigungsdatumVon, Max(Rechnungsausgang.Abfertigungsdatum) AS AbfertigungsdatumBis, Min(Rechnungsausgang.AbfertigungsNr) AS AbfertigungsNr, Min(Rechnungsausgang.UnterNr) AS UnterNr, Min(Rechnungsausgang.FilialenNr) AS FilialenNr, Min(Filialen.[Name 1]) AS FilialenName1, MIN(Filialen.[Name 2]) AS FilialenName2, Min(Filialen.Straße) AS FilialenStraße, @@ -2133,8 +2196,15 @@ Public Class cFakturierung MIN(Rechnungsausgang.RechnungsLandKz) AS RechnungsLandKz FROM ((Adressen INNER JOIN ((Rechnungsausgang INNER JOIN Filialen ON Rechnungsausgang.FilialenNr = Filialen.FilialenNr) INNER JOIN Steuertabelle ON Rechnungsausgang.Steuerschlüssel = Steuertabelle.Steuerschlüssel) ON Adressen.AdressenNr = Rechnungsausgang.RechnungsKundenNr) INNER JOIN tblFirma ON Rechnungsausgang.Firma_ID = tblFirma.Firma_ID) INNER JOIN RechnungsausgangPositionen ON Rechnungsausgang.RK_ID = RechnungsausgangPositionen.RK_ID - where Status IN (" & Status & ") and CONVERT(datetime,DruckDatumZeit ,104)='" & DruckDatumZeit.ToString("dd.MM.yyyy HH:mm:ss.fff") & "' and RechnungsNr='" & RechnungsNr & "' - GROUP BY Rechnungsausgang.RechnungsNr, Rechnungsausgang.RechnungsDatum, RechnungsausgangPositionen.LeistungsNr, RechnungsausgangPositionen.Steuerpflichtig, RechnungsausgangPositionen.LeistungsBez, Rechnungsausgang.Status, Rechnungsausgang.DruckDatumZeit, Rechnungsausgang.Buchungsjahr, Rechnungsausgang.Währungscode, Rechnungsausgang.Steuerschlüssel, Adressen.LandKz, Adressen.Steuernummer, Rechnungsausgang.Firma_ID, tblFirma.Firma_Firmenbuch, tblFirma.Firma_UID, tblFirma.Firma_EORI, tblFirma.Firma_Bankverbindung1, tblFirma.Firma_BLZ1, tblFirma.Firma_KTO1, tblFirma.Firma_IBAN1, tblFirma.Firma_BIC1, tblFirma.Firma_Bankverbindung2, tblFirma.Firma_BLZ2, tblFirma.Firma_KTO2, tblFirma.Firma_IBAN2, tblFirma.Firma_BIC2, tblFirma.Firma_Ort, tblFirma.Firma_Straße, tblFirma.Firma_Telefon, tblFirma.Firma_Telefax, tblFirma.[Firma_E-Mail], tblFirma.Firma_Webadresse + where 1=1 " + + If VorschauID="" Then + SQLStr &= " AND Status IN (" & Status & ") And Convert(DateTime, DruckDatumZeit, 104) ='" & DruckDatumZeit.ToString("dd.MM.yyyy HH:mm:ss.fff") & "' and RechnungsNr='" & RechnungsNr & "'" + Else + SQLStr &= " AND RechnungsNr is null And VorschauID='" & VorschauID & "' " + End If + + SQLStr &= " GROUP BY Rechnungsausgang.RechnungsNr, Rechnungsausgang.RechnungsDatum, RechnungsausgangPositionen.LeistungsNr, RechnungsausgangPositionen.Steuerpflichtig, RechnungsausgangPositionen.LeistungsBez, Rechnungsausgang.Status, Rechnungsausgang.DruckDatumZeit, Rechnungsausgang.Buchungsjahr, Rechnungsausgang.Währungscode, Rechnungsausgang.Steuerschlüssel, Adressen.LandKz, Adressen.Steuernummer, Rechnungsausgang.Firma_ID, tblFirma.Firma_Firmenbuch, tblFirma.Firma_UID, tblFirma.Firma_EORI, tblFirma.Firma_Bankverbindung1, tblFirma.Firma_BLZ1, tblFirma.Firma_KTO1, tblFirma.Firma_IBAN1, tblFirma.Firma_BIC1, tblFirma.Firma_Bankverbindung2, tblFirma.Firma_BLZ2, tblFirma.Firma_KTO2, tblFirma.Firma_IBAN2, tblFirma.Firma_BIC2, tblFirma.Firma_Ort, tblFirma.Firma_Straße, tblFirma.Firma_Telefon, tblFirma.Firma_Telefax, tblFirma.[Firma_E-Mail], tblFirma.Firma_Webadresse ORDER BY Rechnungsausgang.RechnungsNr, RechnungsausgangPositionen.LeistungsNr, RechnungsausgangPositionen.Steuerpflichtig, RechnungsausgangPositionen.LeistungsBez; " diff --git a/SDL/Fakturierung/frmAbrechnungsMaske.vb b/SDL/Fakturierung/frmAbrechnungsMaske.vb index d7a3a3fd..108b4157 100644 --- a/SDL/Fakturierung/frmAbrechnungsMaske.vb +++ b/SDL/Fakturierung/frmAbrechnungsMaske.vb @@ -181,7 +181,7 @@ Public Class frmAbrechnungsMaske initDGV() End Sub Function checkSrchValues() As Boolean - If MyComboBox2._value = "" Then Return False + 'If MyComboBox2._value = "" Then Return False If cboFirma._value = "" Then Return False Return True End Function diff --git a/SDL/Fakturierung/frmFaktSammelRgDrucken.vb b/SDL/Fakturierung/frmFaktSammelRgDrucken.vb index ee46eb69..1374dc41 100644 --- a/SDL/Fakturierung/frmFaktSammelRgDrucken.vb +++ b/SDL/Fakturierung/frmFaktSammelRgDrucken.vb @@ -226,7 +226,7 @@ Public Class frmFaktSammelRgDrucken Return AvisoIds End Function - Sub doSammelrechnung(ausgabeArt As Integer) + Sub doSammelrechnung(ausgabeArt As Integer, Optional vorschau As Boolean = False) Try If cboFirma._value = "" Then MsgBox("Bitte Firma angeben!") : Exit Sub If txtZeitraumBis.Text = "" Then MsgBox("Bitte Zeitraum-Bis angeben!") : Exit Sub @@ -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) + 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) '-------------- für PDF-Sammel-Rechnung -------------- @@ -348,6 +348,6 @@ Public Class frmFaktSammelRgDrucken End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click - doSammelrechnung(3) + doSammelrechnung(3, True) End Sub End Class \ No newline at end of file diff --git a/SDL/Fakturierung/rptRechnungDruck.Designer.vb b/SDL/Fakturierung/rptRechnungDruck.Designer.vb index d969fc67..941f6edc 100644 --- a/SDL/Fakturierung/rptRechnungDruck.Designer.vb +++ b/SDL/Fakturierung/rptRechnungDruck.Designer.vb @@ -541,7 +541,7 @@ Partial Public Class rptRechnungDruck ' Me.lblFirmaEmail.Height = 0.1181103! Me.lblFirmaEmail.HyperLink = Nothing - Me.lblFirmaEmail.Left = 2.492913! + Me.lblFirmaEmail.Left = 2.697638! Me.lblFirmaEmail.Name = "lblFirmaEmail" Me.lblFirmaEmail.Style = "font-size: 7pt; font-weight: normal; text-align: right; vertical-align: middle; d" & "do-char-set: 1" @@ -553,12 +553,12 @@ Partial Public Class rptRechnungDruck ' Me.lblFirmaWeb.Height = 0.1181103! Me.lblFirmaWeb.HyperLink = Nothing - Me.lblFirmaWeb.Left = 2.492913! + Me.lblFirmaWeb.Left = 2.697638! Me.lblFirmaWeb.Name = "lblFirmaWeb" Me.lblFirmaWeb.Style = "font-size: 7pt; font-weight: normal; text-align: right; vertical-align: middle; d" & "do-char-set: 1" Me.lblFirmaWeb.Text = "www.verag.ag" - Me.lblFirmaWeb.Top = 0.8685042! + Me.lblFirmaWeb.Top = 0.8685043! Me.lblFirmaWeb.Width = 1.436614! ' 'lblRgDatumUeberschrift diff --git a/SDL/Fakturierung/rptSammelRechnungAnlagenDruck.Designer.vb b/SDL/Fakturierung/rptSammelRechnungAnlagenDruck.Designer.vb index aeb200e8..4c2f7023 100644 --- a/SDL/Fakturierung/rptSammelRechnungAnlagenDruck.Designer.vb +++ b/SDL/Fakturierung/rptSammelRechnungAnlagenDruck.Designer.vb @@ -412,14 +412,14 @@ Partial Public Class rptSammelRechnungAnlagenDruck ' 'picVERAG ' - Me.picVERAG.Height = 0.4169292! + Me.picVERAG.Height = 0.5389764! Me.picVERAG.HyperLink = Nothing Me.picVERAG.ImageData = CType(resources.GetObject("picVERAG.ImageData"), System.IO.Stream) Me.picVERAG.Left = 0.01023622! Me.picVERAG.Name = "picVERAG" Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom - Me.picVERAG.Top = 0.1220473! - Me.picVERAG.Width = 2.198425! + Me.picVERAG.Top = 0! + Me.picVERAG.Width = 2.482677! ' 'Label3 ' @@ -522,24 +522,24 @@ Partial Public Class rptSammelRechnungAnlagenDruck ' Me.lblFirmaEmail.Height = 0.1181103! Me.lblFirmaEmail.HyperLink = Nothing - Me.lblFirmaEmail.Left = 2.492913! + Me.lblFirmaEmail.Left = 2.697638! Me.lblFirmaEmail.Name = "lblFirmaEmail" Me.lblFirmaEmail.Style = "font-size: 7pt; font-weight: normal; text-align: right; vertical-align: middle; d" & "do-char-set: 1" Me.lblFirmaEmail.Text = "rechnungsversand@verag.ag" - Me.lblFirmaEmail.Top = 0.7503937! + Me.lblFirmaEmail.Top = 0.7503935! Me.lblFirmaEmail.Width = 1.436614! ' 'lblFirmaWeb ' Me.lblFirmaWeb.Height = 0.1181103! Me.lblFirmaWeb.HyperLink = Nothing - Me.lblFirmaWeb.Left = 2.492913! + Me.lblFirmaWeb.Left = 2.697638! Me.lblFirmaWeb.Name = "lblFirmaWeb" Me.lblFirmaWeb.Style = "font-size: 7pt; font-weight: normal; text-align: right; vertical-align: middle; d" & "do-char-set: 1" Me.lblFirmaWeb.Text = "www.verag.ag" - Me.lblFirmaWeb.Top = 0.8685042! + Me.lblFirmaWeb.Top = 0.868504! Me.lblFirmaWeb.Width = 1.436614! ' 'Label18 diff --git a/SDL/Fakturierung/rptSammelRechnungDruck.Designer.vb b/SDL/Fakturierung/rptSammelRechnungDruck.Designer.vb index de5d47f6..317fae0a 100644 --- a/SDL/Fakturierung/rptSammelRechnungDruck.Designer.vb +++ b/SDL/Fakturierung/rptSammelRechnungDruck.Designer.vb @@ -379,14 +379,14 @@ Partial Public Class rptSammelRechnungDruck ' 'picVERAG ' - Me.picVERAG.Height = 0.4169292! + Me.picVERAG.Height = 0.5389764! Me.picVERAG.HyperLink = Nothing Me.picVERAG.ImageData = CType(resources.GetObject("picVERAG.ImageData"), System.IO.Stream) Me.picVERAG.Left = 0.01023622! Me.picVERAG.Name = "picVERAG" Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom - Me.picVERAG.Top = 0.1220473! - Me.picVERAG.Width = 2.198425! + Me.picVERAG.Top = 0! + Me.picVERAG.Width = 2.482677! ' 'Label3 ' @@ -489,24 +489,24 @@ Partial Public Class rptSammelRechnungDruck ' Me.lblFirmaEmail.Height = 0.1181103! Me.lblFirmaEmail.HyperLink = Nothing - Me.lblFirmaEmail.Left = 2.492913! + Me.lblFirmaEmail.Left = 2.697638! Me.lblFirmaEmail.Name = "lblFirmaEmail" Me.lblFirmaEmail.Style = "font-size: 7pt; font-weight: normal; text-align: right; vertical-align: middle; d" & "do-char-set: 1" Me.lblFirmaEmail.Text = "rechnungsversand@verag.ag" - Me.lblFirmaEmail.Top = 0.7503937! + Me.lblFirmaEmail.Top = 0.7503935! Me.lblFirmaEmail.Width = 1.436614! ' 'lblFirmaWeb ' Me.lblFirmaWeb.Height = 0.1181103! Me.lblFirmaWeb.HyperLink = Nothing - Me.lblFirmaWeb.Left = 2.492913! + Me.lblFirmaWeb.Left = 2.697638! Me.lblFirmaWeb.Name = "lblFirmaWeb" Me.lblFirmaWeb.Style = "font-size: 7pt; font-weight: normal; text-align: right; vertical-align: middle; d" & "do-char-set: 1" Me.lblFirmaWeb.Text = "www.verag.ag" - Me.lblFirmaWeb.Top = 0.8685042! + Me.lblFirmaWeb.Top = 0.868504! Me.lblFirmaWeb.Width = 1.436614! ' 'Label18 diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb index 9ba147e0..c38b08e0 100644 --- a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb +++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb @@ -1455,6 +1455,10 @@ Public Class usrCntlFaktAbrechnung If If(RECHNUNG.Anlage_1, String.Empty) = String.Empty Then RECHNUNG.Anlage_1 = "" Case "19" If If(RECHNUNG.Anlage_1, String.Empty) = String.Empty Then RECHNUNG.Anlage_1 = "" + Case "9" 'Leihgeld + If If(RECHNUNG.Anlage_1, String.Empty) = String.Empty Then RECHNUNG.Anlage_1 = "Auszahlungsquittung" + If If(RECHNUNG.Anlage_2, String.Empty) = String.Empty Then RECHNUNG.Anlage_2 = "Auftrag" + If If(RECHNUNG.Anlage_3, String.Empty) = String.Empty Then RECHNUNG.Anlage_3 = "Passkopie" Case Else If If(RECHNUNG.Anlage_1, String.Empty) = String.Empty Then RECHNUNG.Anlage_1 = "Zollbelege" If If(RECHNUNG.Anlage_2, String.Empty) = String.Empty Then RECHNUNG.Anlage_2 = "Lief.-Rechn." @@ -1497,8 +1501,14 @@ Public Class usrCntlFaktAbrechnung Case 20 : pic.BackgroundImage = My.Resources.IMEX_LOGO_simple pnlTop.BackColor = Color.FromArgb(250, 120, 0) : errCOlor = Color.DarkRed - Case 21, 22, 23 : pic.BackgroundImage = My.Resources.Unisped_logo + 'UNISPED: + Case 21 : pic.BackgroundImage = My.Resources.Unisped_logo pnlTop.BackColor = Color.FromArgb(192, 0, 0) : errCOlor = Color.DarkRed + Case 22 : pic.BackgroundImage = My.Resources.Unisped_DE_logo + pnlTop.BackColor = Color.FromArgb(192, 0, 0) : errCOlor = Color.DarkRed + Case 23 : pic.BackgroundImage = My.Resources.Unisped_ZS_logo + pnlTop.BackColor = Color.FromArgb(192, 0, 0) : errCOlor = Color.DarkRed + Case 24 : pic.BackgroundImage = My.Resources.ambar_simple pnlTop.BackColor = Color.FromArgb(0, 120, 120) : errCOlor = Color.DarkRed 'Case 23 : pic.BackgroundImage = My.Resources.FrontOfficeSUB_Horizontal @@ -2733,6 +2743,7 @@ Public Class usrCntlFaktAbrechnung End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click + saveMe() 'Damit Prüfungen in der Vorschau funktionieren (zT mit DB abhängig -> ReverseCharge) getValues() cFakturierung.doRechnungsDruck(RECHNUNG,, True,,, getPrinterFromParent) End Sub diff --git a/SDL/My Project/Resources.Designer.vb b/SDL/My Project/Resources.Designer.vb index 14416e82..e84b1988 100644 --- a/SDL/My Project/Resources.Designer.vb +++ b/SDL/My Project/Resources.Designer.vb @@ -1683,6 +1683,15 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die ähnelt. + ''' + Friend ReadOnly Property sdfs3sdfsdfsdf() As String + Get + Return ResourceManager.GetString("sdfs3sdfsdfsdf", resourceCulture) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' @@ -1743,6 +1752,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property sgs() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("sgs", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' @@ -2011,6 +2030,36 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property unisped_aeo_DE() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("unisped_aeo_DE", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property unisped_aeo_ZS_AT() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("unisped_aeo_ZS_AT", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property Unisped_DE_logo() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("Unisped_DE_logo", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' @@ -2021,6 +2070,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property Unisped_ZS_logo() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("Unisped_ZS_logo", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' @@ -2152,7 +2211,7 @@ Namespace My.Resources End Property ''' - ''' Sucht eine lokalisierte Zeichenfolge, die 1.1.8.2 ähnelt. + ''' Sucht eine lokalisierte Zeichenfolge, die 1.1.8.3 ähnelt. ''' Friend ReadOnly Property Version() As String Get diff --git a/SDL/My Project/Resources.resx b/SDL/My Project/Resources.resx index 99291fff..c647615b 100644 --- a/SDL/My Project/Resources.resx +++ b/SDL/My Project/Resources.resx @@ -151,6 +151,9 @@ ..\Resources\word.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\pdf1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\mse.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -160,11 +163,14 @@ ..\Resources\liste-logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\fax.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\axxes.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\Plakette1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\RG_ZF.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 ..\Resources\WAI.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -178,6 +184,9 @@ ..\Resources\statistik2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Logo_blue_globe_Horizontal.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\IMEX-LOGO-AEO_sig.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -190,9 +199,6 @@ ..\Resources\uhr_red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\beleg.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\kunden.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -229,6 +235,9 @@ ..\Resources\nurIran.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\warning2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\rechnung1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -244,6 +253,9 @@ ..\Resources\pfeil_oben.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Route5.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\warenkorb1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -259,6 +271,9 @@ ..\Resources\person_default.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Einheitspapier-0735_Position.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\entwurf.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -268,8 +283,11 @@ ..\Resources\email11.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\abc_obu.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Einheitspapier-0735_top.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\flagge_tr.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -301,15 +319,15 @@ ..\Resources\Atilla_big1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\list_new_small2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\Einheitspapier-0777_kurz.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\lorry_motion.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\picboxRotateLeft_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\Route1_IR.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -343,9 +361,6 @@ ..\Resources\Verag-Customs-Service-GMBH-Logo_sig.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\Unisped_logo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\spedbuch.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -388,20 +403,14 @@ ..\Resources\Excel_2013_logo-155x110.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\compose.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\picboxNext_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\handy.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\android-friends.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\plose_big.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\beleg_rot.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\Aviso.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -409,14 +418,11 @@ ..\Resources\cards1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\picboxRotateRight_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\spedbuch1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\toll-collect.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\search.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\flagge_D.gif;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -424,8 +430,8 @@ ..\Resources\VERAG_AEO_MailSig.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\printer21.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\oregon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\Route5_IR.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -433,12 +439,18 @@ ..\Resources\checklist.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\uta.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\data.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\ambar_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\house1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\person.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -490,6 +502,9 @@ ..\Resources\SBG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\beleg_rot1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\sms.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -508,8 +523,8 @@ ..\Resources\person.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\email_big.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\kasse.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\aktiveVeredelung1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -526,9 +541,6 @@ ..\Resources\aviso_messenger.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\beleg_rot.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\dakosy.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -544,8 +556,8 @@ ..\Resources\transp.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\uta.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\android-friends.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\LKW1.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -556,6 +568,9 @@ ..\Resources\logo_mdm.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\plose_1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\Route4_IR.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -565,8 +580,8 @@ ..\Resources\android-add-contact1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\search.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\plose_big.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\pdf_gray.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -583,9 +598,6 @@ ..\Resources\sicherheit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\oregon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\Atilla _sig.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -610,17 +622,14 @@ ..\Resources\passpic_sw.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\today.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\Verag-Customs-Service-GMBH-Logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\Route3.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\Logo_blue_globe_Horizontal.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\compose.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\transfer.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -629,16 +638,19 @@ ..\Resources\email.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - 1.1.8.2 + 1.1.8.3 ..\Resources\axxes.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\Route5.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\toll-collect.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\picboxRotateLeft_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\FA_Graz_EV-Veranlagung_Muster.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + ..\Resources\abc_obu.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\vorauszahlung1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -646,20 +658,23 @@ ..\Resources\info.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - ..\Resources\fax.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\picboxRotateRight_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\aeo_DE.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\SR_EVOLOG.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + ..\Resources\aeo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\Einheitspapier-0735_bottom.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\Einheitspapier-0735_top.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\today.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\android-note12.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -673,14 +688,14 @@ ..\Resources\road.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\Einheitspapier-0735_Position.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\email_big.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\beleg_rot1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Plakette1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\pdf1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\list_new_small2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\pfeil_rechts.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -700,8 +715,8 @@ ..\Resources\plus.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\warning2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\printer21.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\lorry.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -721,8 +736,8 @@ ..\Resources\Verag-Customs-Service-GMBH-Logo2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\IMEX-LOGO_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\beleg.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a VERAGZoll1 @@ -730,8 +745,8 @@ ..\Resources\report.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\kasse.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\IMEX-LOGO_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\moneybag1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -745,14 +760,11 @@ ..\Resources\picboxZoomOut_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\del1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\scanner1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\house1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\del1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\rechnung.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -769,19 +781,25 @@ ..\Resources\flagge_A.gif;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\sgs.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\plose_1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\unisped_aeo_DE.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\SR_EVOLOG.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + ..\Resources\Unisped_DE_logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\FA_Graz_EV-Veranlagung_Muster.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + ..\Resources\Unisped_logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\RG_ZF.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + ..\Resources\unisped_aeo_ZS_AT.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Unisped_ZS_logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + \ No newline at end of file diff --git a/SDL/Reports/Zoll/rptKontrolleLKW_NCTSTR.vb b/SDL/Reports/Zoll/rptKontrolleLKW_NCTSTR.vb index b421a724..9b990c14 100644 --- a/SDL/Reports/Zoll/rptKontrolleLKW_NCTSTR.vb +++ b/SDL/Reports/Zoll/rptKontrolleLKW_NCTSTR.vb @@ -70,7 +70,7 @@ Public Class rptKontrolleLKW_NCTSTR ' If FIRMA = "ATILLA" Then operatorID = "'5','6'" - Dim sqlStr As String = " SELECT isnull(ncts_Befoerderungsmittel_KennzeichenAbgang,'') as Kennzeichen, cast(ncts_Eroeffnung as date) as AnmeldungsDatum,COUNT(*) ,isnull(SUM(nctsSA_AbgabenBetrag),0) as GarantieWert FROM tblNCTS_TR_Sicherheitsangaben inner join tblNCTS_TR on ncts_Id = nctsSA_NctsId " + Dim sqlStr As String = " SELECT isnull(ncts_Befoerderungsmittel_KennzeichenAbgang,'') as Kennzeichen, cast(ncts_Eroeffnung as date) as AnmeldungsDatum,COUNT(*) ,isnull(SUM(nctsSA_AbgabenBetrag),0) as GarantieWert,isnull(SUM(ncts_VERAG_WeiterverrechungSatz),0) ncts_VERAG_WeiterverrechungSatz FROM tblNCTS_TR_Sicherheitsangaben inner join tblNCTS_TR on ncts_Id = nctsSA_NctsId " sqlStr &= " WHERE cast (ncts_Eroeffnung as date) BETWEEN '" & datVon.ToShortDateString & "' AND '" & datBis.ToShortDateString & "'" sqlStr &= " AND nctsSA_GRN IN ( '" & brg_AT & "' , '" & brg_DE & "' , '" & brg_DE_NEU & "' ) " sqlStr &= " AND ncts_status BETWEEN 50 AND 60 " @@ -82,7 +82,7 @@ Public Class rptKontrolleLKW_NCTSTR Me.DataSource = kundenSQL.loadDgvBySql(sqlStr, "FMZOLL", 1000) - Dim sqlStrSUB As String = " SELECT *, isnull(nctsSA_AbgabenBetrag,0) as GarantieWert,isnull(ncts_Befoerderungsmittel_KennzeichenAbgang,'') as Kennzeichen,cast(ncts_Eroeffnung as date) as AnmeldungsDatum FROM tblNCTS_TR_Sicherheitsangaben inner join tblNCTS_TR on ncts_Id = nctsSA_NctsId " + Dim sqlStrSUB As String = " SELECT *, isnull(nctsSA_AbgabenBetrag,0) as GarantieWert,isnull(ncts_Befoerderungsmittel_KennzeichenAbgang,'') as Kennzeichen,cast(ncts_Eroeffnung as date) as AnmeldungsDatum,ncts_VERAG_WeiterverrechungSatz FROM tblNCTS_TR_Sicherheitsangaben inner join tblNCTS_TR on ncts_Id = nctsSA_NctsId " sqlStrSUB &= " WHERE cast(ncts_Eroeffnung as date) BETWEEN '" & datVon.ToShortDateString & "' AND '" & datBis.ToShortDateString & "'" sqlStrSUB &= " AND nctsSA_GRN IN ( '" & brg_AT & "' , '" & brg_DE & "' , '" & brg_DE_NEU & "' ) " sqlStrSUB &= " AND ncts_status BETWEEN 50 AND 60 " @@ -144,17 +144,48 @@ Public Class rptKontrolleLKW_NCTSTR End If + If LIST_NCTSABR IsNot Nothing Then - 'per LKW - For Each l In LIST_NCTSABR.LIST + 'Spezial + Dim SpezialFound = False + Dim AllSpezial = True + If SUB_DATA IsNot Nothing Then + For Each r In SUB_DATA.Rows + If r("AnmeldungsDatum") = Fields.Item("AnmeldungsDatum").Value And r("Kennzeichen") = Fields.Item("Kennzeichen").Value Then + If r("ncts_VERAG_WeiterverrechungSatz") IsNot DBNull.Value And r("ncts_VERAG_WeiterverrechungSatz") IsNot Nothing Then + SpezialFound = True 'Kennzeichen, dass spezial - Dim GarantieWertLKW As Double = CDbl(Fields.Item("GarantieWert").Value) - Select Case l.abrg_artAbrechnung - Case "LKW" - If GarantieWertLKW < l.abrg_GarantiewertBis Then - l._ANZAHL += 1 : Exit For - End If + Dim VERAG_WeiterverrechungSatz As Double = CDbl(r("ncts_VERAG_WeiterverrechungSatz")) + Dim L As New VERAG_PROG_ALLGEMEIN.cAbrechnung_NCTSBrg(-1) + L.abrg_Partner = FIRMA + L.abrg_artAbrechnung = "SPEZIAL" + L.abrg_GarantiewertBis = CDbl(r("GarantieWert")) + L.abrg_bertrag = VERAG_WeiterverrechungSatz + L.abrg_prozent = Nothing + L._ANZAHL = 1 + L._BETRAG = VERAG_WeiterverrechungSatz + + LIST_NCTSABR.LIST.Add(L) + Else + AllSpezial = False ' Es sind nicht alle spezial + End If + + End If + Next + End If + + If Not SpezialFound OrElse Not AllSpezial Then + + 'per LKW + For Each l In LIST_NCTSABR.LIST + + Dim GarantieWertLKW As Double = CDbl(Fields.Item("GarantieWert").Value) + Select Case l.abrg_artAbrechnung + Case "LKW" + If GarantieWertLKW < l.abrg_GarantiewertBis Then + l._ANZAHL += 1 : Exit For + End If 'Case "Versandschein" ' If SUB_DATA IsNot Nothing Then ' For Each r In SUB_DATA.Rows @@ -166,44 +197,49 @@ Public Class rptKontrolleLKW_NCTSTR ' End If ' Next ' End If - Case "%" 'LKW - If GarantieWertLKW < l.abrg_GarantiewertBis Then - l._ANZAHL += 1 - Dim prozent As Double = 0.001 - If l.abrg_prozent IsNot Nothing Then prozent = CDbl(l.abrg_prozent) - l._BETRAG += (CDbl(Fields.Item("GarantieWert").Value)) * prozent - Exit For - End If - End Select + Case "%" 'LKW + If GarantieWertLKW < l.abrg_GarantiewertBis Then + l._ANZAHL += 1 + Dim prozent As Double = 0.001 + If l.abrg_prozent IsNot Nothing Then prozent = CDbl(l.abrg_prozent) + l._BETRAG += (CDbl(Fields.Item("GarantieWert").Value)) * prozent + Exit For + End If + End Select - Next + Next + End If 'per VERSANDSCHEIN - For Each r In SUB_DATA.Rows - 'Dim next_SND = False - If SUB_DATA IsNot Nothing Then - For Each l In LIST_NCTSABR.LIST - 'If Not next_SND Then - Select Case l.abrg_artAbrechnung + If SUB_DATA IsNot Nothing Then + For Each r In SUB_DATA.Rows + 'Dim next_SND = False + For Each l In LIST_NCTSABR.LIST + 'If Not next_SND Then + Select Case l.abrg_artAbrechnung Case "Versandschein" Dim GarantieWertSND As Double = CDbl(r("GarantieWert")) + If r("ncts_VERAG_WeiterverrechungSatz") Is DBNull.Value Or r("ncts_VERAG_WeiterverrechungSatz") Is Nothing Then 'Wenn nicht durch Speziel-Satz verrechnet If r("AnmeldungsDatum") = Fields.Item("AnmeldungsDatum").Value And r("Kennzeichen") = Fields.Item("Kennzeichen").Value Then If GarantieWertSND < l.abrg_GarantiewertBis Then l._ANZAHL += 1 - 'next_SND = True - Exit For + 'next_SND = True + Exit For + End If End If - End If - End Select - ' End If + End If + End Select + ' End If + Next Next End If - Next - End If + End If - 'Abwechselnd grauen und weißen Hintergrund - If (dummycount Mod 2) = 0 Then + + + 'Abwechselnd grauen und weißen Hintergrund + If (dummycount Mod 2) = 0 Then Detail.BackColor = Drawing.Color.White Else Detail.BackColor = Drawing.Color.WhiteSmoke diff --git a/SDL/Reports/Zoll/subrptKontrolleLKW_NCTSTR_Abrechnung.vb b/SDL/Reports/Zoll/subrptKontrolleLKW_NCTSTR_Abrechnung.vb index 365d0da6..56cbb44c 100644 --- a/SDL/Reports/Zoll/subrptKontrolleLKW_NCTSTR_Abrechnung.vb +++ b/SDL/Reports/Zoll/subrptKontrolleLKW_NCTSTR_Abrechnung.vb @@ -43,9 +43,14 @@ Public Class subrptKontrolleLKW_NCTSTR_Abrechnung lblGesamtpreis.Text = "€ " & CDbl(Fields.Item("GESAMTBETRAG").Value).ToString("N2", CultureInfo.InvariantCulture) lblAbrechnugnsart.Text = "per Versandschein" Case "%" - lblEinzelpreis.Text = "" + lblEinzelpreis.Text = "€ " & CDbl(Fields.Item("BETRAG").Value).ToString("N2", CultureInfo.InvariantCulture) lblGesamtpreis.Text = "€ " & CDbl(Fields.Item("BETRAG").Value).ToString("N2", CultureInfo.InvariantCulture) lblAbrechnugnsart.Text = "% vom Sicherheit" + Case "SPEZIAL" + lblGarantieBis.Text = "€ " & CDbl(Fields.Item("GARANTIEBIS").Value).ToString("N2", CultureInfo.InvariantCulture) + lblEinzelpreis.Text = "" + lblGesamtpreis.Text = "€ " & CDbl(Fields.Item("BETRAG").Value).ToString("N2", CultureInfo.InvariantCulture) + lblAbrechnugnsart.Text = "Spezial" End Select diff --git a/SDL/Resources/Unisped_DE_logo.jpg b/SDL/Resources/Unisped_DE_logo.jpg new file mode 100644 index 00000000..beb5fb4d Binary files /dev/null and b/SDL/Resources/Unisped_DE_logo.jpg differ diff --git a/SDL/Resources/Unisped_DE_logo.png b/SDL/Resources/Unisped_DE_logo.png new file mode 100644 index 00000000..114c8977 Binary files /dev/null and b/SDL/Resources/Unisped_DE_logo.png differ diff --git a/SDL/Resources/Unisped_ZS_logo.png b/SDL/Resources/Unisped_ZS_logo.png new file mode 100644 index 00000000..cbd7a661 Binary files /dev/null and b/SDL/Resources/Unisped_ZS_logo.png differ diff --git a/SDL/Resources/Unisped_logo.png b/SDL/Resources/Unisped_logo.png new file mode 100644 index 00000000..e89df416 Binary files /dev/null and b/SDL/Resources/Unisped_logo.png differ diff --git a/SDL/Resources/sgs.png b/SDL/Resources/sgs.png new file mode 100644 index 00000000..e11a9794 Binary files /dev/null and b/SDL/Resources/sgs.png differ diff --git a/SDL/Resources/unisped_aeo_DE.jpg b/SDL/Resources/unisped_aeo_DE.jpg new file mode 100644 index 00000000..3ab5f3f2 Binary files /dev/null and b/SDL/Resources/unisped_aeo_DE.jpg differ diff --git a/SDL/Resources/unisped_aeo_ZS_AT.jpg b/SDL/Resources/unisped_aeo_ZS_AT.jpg new file mode 100644 index 00000000..443759b2 Binary files /dev/null and b/SDL/Resources/unisped_aeo_ZS_AT.jpg differ diff --git a/SDL/SDL.vbproj b/SDL/SDL.vbproj index 752d4634..35df17bb 100644 --- a/SDL/SDL.vbproj +++ b/SDL/SDL.vbproj @@ -2375,6 +2375,12 @@ True Reference.map + + usrCntlSGS_NCTS.vb + + + UserControl + usrCntlTCeZOLL_EZA_Allg.vb @@ -3517,6 +3523,9 @@ usrCntlWelcome.vb + + usrCntlSGS_NCTS.vb + usrCntlTCeZOLL_EZA_Allg.vb @@ -3994,6 +4003,15 @@ + + + + + + + Always + + diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Adressen.vb b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Adressen.vb index 241b1f68..65e85851 100644 --- a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Adressen.vb +++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Adressen.vb @@ -1,6 +1,7 @@ Public Class usrCntlATLAS_ncts_Adressen ' Dim OWNER As Control Dim ncts_OUT As DAKOSY_Worker.cDakosyNCTSOut = Nothing + Dim NCTS_TR As VERAG_PROG_ALLGEMEIN.cNCTS_TR = Nothing 'Sub New(OWNER As Control, ncts_OUT As DAKOSY_Worker.cDakosyNCTSOut) Dim FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Sub New(ncts_OUT As DAKOSY_Worker.cDakosyNCTSOut, FIRMA_DY As String) @@ -10,6 +11,13 @@ Me.FIRMA_DY = FIRMA_DY End Sub + Sub New(NCTS_TR As VERAG_PROG_ALLGEMEIN.cNCTS_TR, FIRMA_DY As String) + InitializeComponent() + 'Me.OWNER = OWNER + Me.NCTS_TR = NCTS_TR + Me.FIRMA_DY = FIRMA_DY + End Sub + Public Sub usrCntlATLAS_ncts_Adressen_Load(sender As Object, e As EventArgs) Handles Me.Load ' usrCntlSumA_Befoerderer.initME() MyComboBox1.Items.Clear() @@ -112,10 +120,135 @@ End Sub + Public Sub setValues(NCTS) ' As DAKOSY_Worker.cDakosyNCTSOut) + + 'usrCntlSumA_Befoerderer.initME() + If NCTS Is Nothing Then Exit Sub + usrCntlHauptverpflichteter.kdFirma.Text = NCTS.ncts_Hauptverpflichteter_Name + usrCntlHauptverpflichteter.txtStrasse.Text = NCTS.ncts_Hauptverpflichteter_StrasseHausnummer + usrCntlHauptverpflichteter.txtPlz.Text = NCTS.ncts_Hauptverpflichteter_PLZ + usrCntlHauptverpflichteter.txtOrt.Text = NCTS.ncts_Hauptverpflichteter_Ort + usrCntlHauptverpflichteter.txtEORI.Text = NCTS.ncts_Hauptverpflichteter_EORI + usrCntlHauptverpflichteter.txtEORINL.Text = NCTS.ncts_Hauptverpflichteter_NLNR + usrCntlHauptverpflichteter.sbLand.SET_VALUE(NCTS.ncts_Hauptverpflichteter_Land) - Public Sub setValues(NCTS As DAKOSY_Worker.cDakosyNCTSOut) + 'usrCntlHauptverpflichteter.txtAnsprechpartner.Text=NCTS.ncts_Hauptverpflichteter_Ansprechpartner ' git es nicht + + usrCntlVersender.kdFirma.Text = NCTS.ncts_Versender_Name + usrCntlVersender.txtStrasse.Text = NCTS.ncts_Versender_StrasseHausnummer + usrCntlVersender.txtPlz.Text = NCTS.ncts_Versender_PLZ + usrCntlVersender.txtOrt.Text = NCTS.ncts_Versender_Ort + usrCntlVersender.txtEORI.Text = NCTS.ncts_Versender_EORI + usrCntlVersender.txtEORINL.Text = NCTS.ncts_Versender_NLNR + usrCntlVersender.sbLand.SET_VALUE(NCTS.ncts_Versender_Land) + 'usrCntlVersender.txtAnsprechpartner.Text=NCTS.ncts_Versender_Ansprechpartner ' git es nicht + + usrCntlEmpfaenger.kdFirma.Text = NCTS.ncts_Empfaenger_Name + usrCntlEmpfaenger.txtStrasse.Text = NCTS.ncts_Empfaenger_StrasseHausnummer + usrCntlEmpfaenger.txtPlz.Text = NCTS.ncts_Empfaenger_PLZ + usrCntlEmpfaenger.txtOrt.Text = NCTS.ncts_Empfaenger_Ort + usrCntlEmpfaenger.txtEORI.Text = NCTS.ncts_Empfaenger_EORI + usrCntlEmpfaenger.txtEORINL.Text = NCTS.ncts_Empfaenger_NLNR + usrCntlEmpfaenger.sbLand.SET_VALUE(NCTS.ncts_Empfaenger_Land) + 'usrCntlEmpfaenger.txtAnsprechpartner.Text=NCTS.ncts_Empfaenger_Ansprechpartner ' git es nicht + + ' usrCntlHauptverpflichteter.txtEORI.Text = NCTS.ncts_ZugelassenerEmpfaenger_EORI + 'usrCntlHauptverpflichteter.txtEORINL.Text = NCTS.ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender + 'usrCntlHauptverpflichteter.sbLand.SET_VALUE(NCTS.ncts_Hauptverpflichteter_Land) + 'usrCntlHauptverpflichteter.txtAnsprechpartner.Text=NCTS.ncts_Hauptverpflichteter_Ansprechpartner ' git es nicht + + usrCntlSumA_Befoerderer.kdFirma.Text = NCTS.ncts_SumA_Befoerderer_Name + usrCntlSumA_Befoerderer.txtStrasse.Text = NCTS.ncts_SumA_Befoerderer_StrasseHausnummer + usrCntlSumA_Befoerderer.txtPlz.Text = NCTS.ncts_SumA_Befoerderer_PLZ + usrCntlSumA_Befoerderer.txtOrt.Text = NCTS.ncts_SumA_Befoerderer_Ort + usrCntlSumA_Befoerderer.txtEORI.Text = NCTS.ncts_SumA_Befoerderer_EORI + usrCntlSumA_Befoerderer.txtEORINL.Text = NCTS.ncts_SumA_Befoerderer_NLNR + usrCntlSumA_Befoerderer.sbLand.SET_VALUE(NCTS.ncts_SumA_Befoerderer_Land) + 'usrCntlSumA_Befoerderer.txtAnsprechpartner.Text=NCTS.ncts_SumA_Befoerderer_Ansprechpartner ' git es nicht + + End Sub + + Public Sub getValues_TR(ByRef NCTS As VERAG_PROG_ALLGEMEIN.cNCTS_TR) + + NCTS.ncts_Hauptverpflichteter_Name = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.kdFirma.Text) + NCTS.ncts_Hauptverpflichteter_StrasseHausnummer = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.txtStrasse.Text) + NCTS.ncts_Hauptverpflichteter_PLZ = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.txtPlz.Text) + NCTS.ncts_Hauptverpflichteter_Ort = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.txtOrt.Text) + NCTS.ncts_Hauptverpflichteter_Land = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.sbLand._value) + NCTS.ncts_Hauptverpflichteter_EORI = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.txtEORI.Text) + NCTS.ncts_Hauptverpflichteter_NLNR = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.txtEORINL.Text) + + + NCTS.ncts_Versender_Name = cProgramFunctions.isLeerNothing(usrCntlVersender.kdFirma.Text) + NCTS.ncts_Versender_StrasseHausnummer = cProgramFunctions.isLeerNothing(usrCntlVersender.txtStrasse.Text) + NCTS.ncts_Versender_PLZ = cProgramFunctions.isLeerNothing(usrCntlVersender.txtPlz.Text) + NCTS.ncts_Versender_Ort = cProgramFunctions.isLeerNothing(usrCntlVersender.txtOrt.Text) + NCTS.ncts_Versender_Land = cProgramFunctions.isLeerNothing(usrCntlVersender.sbLand._value) + NCTS.ncts_Versender_EORI = cProgramFunctions.isLeerNothing(usrCntlVersender.txtEORI.Text) + NCTS.ncts_Versender_NLNR = cProgramFunctions.isLeerNothing(usrCntlVersender.txtEORINL.Text) + 'NCTS.ncts_Versender_TIN = cProgramFunctions.isLeerNothing(usrCntlVersender..Text) + + + NCTS.ncts_Empfaenger_Name = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.kdFirma.Text) + NCTS.ncts_Empfaenger_StrasseHausnummer = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.txtStrasse.Text) + NCTS.ncts_Empfaenger_PLZ = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.txtPlz.Text) + NCTS.ncts_Empfaenger_Ort = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.txtOrt.Text) + NCTS.ncts_Empfaenger_Land = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.sbLand._value) + NCTS.ncts_Empfaenger_EORI = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.txtEORI.Text) + NCTS.ncts_Empfaenger_NLNR = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.txtEORINL.Text) + NCTS.ncts_ZugelassenerEmpfaenger_EORI = cProgramFunctions.isLeerNothing(usrCntlZugelEmpfaenger.txtEORI.Text) + + 'SumA: Beförderer + '-------------------------------- + + NCTS.ncts_SumA_Befoerderer_Name = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.kdFirma.Text) + NCTS.ncts_SumA_Befoerderer_StrasseHausnummer = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtStrasse.Text) + NCTS.ncts_SumA_Befoerderer_PLZ = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtPlz.Text) + NCTS.ncts_SumA_Befoerderer_Ort = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtOrt.Text) + NCTS.ncts_SumA_Befoerderer_Land = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.sbLand._value) + NCTS.ncts_SumA_Befoerderer_EORI = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtEORI.Text) + NCTS.ncts_SumA_Befoerderer_NLNR = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtEORINL.Text) + + If cbxSumABeforderer.Checked Then + NCTS.ncts_SumA_Empfaenger_Name = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.kdFirma.Text) + NCTS.ncts_SumA_Empfaenger_StrasseHausnummer = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtStrasse.Text) + NCTS.ncts_SumA_Empfaenger_PLZ = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtPlz.Text) + NCTS.ncts_SumA_Empfaenger_Ort = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtOrt.Text) + NCTS.ncts_SumA_Empfaenger_Land = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.sbLand._value) + NCTS.ncts_SumA_Empfaenger_EORI = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtEORI.Text) + NCTS.ncts_SumA_Empfaenger_NLNR = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtEORINL.Text) + + NCTS.ncts_SumA_Versender_Name = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.kdFirma.Text) + NCTS.ncts_SumA_Versender_StrasseHausnummer = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtStrasse.Text) + NCTS.ncts_SumA_Versender_PLZ = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtPlz.Text) + NCTS.ncts_SumA_Versender_Ort = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtOrt.Text) + NCTS.ncts_SumA_Versender_Land = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.sbLand._value) + NCTS.ncts_SumA_Versender_EORI = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtEORI.Text) + NCTS.ncts_SumA_Versender_NLNR = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtEORINL.Text) + Else + NCTS.ncts_SumA_Empfaenger_Name = cProgramFunctions.isLeerNothing(usrCntlSumA_Empfaenger.kdFirma.Text) + NCTS.ncts_SumA_Empfaenger_StrasseHausnummer = cProgramFunctions.isLeerNothing(usrCntlSumA_Empfaenger.txtStrasse.Text) + NCTS.ncts_SumA_Empfaenger_PLZ = cProgramFunctions.isLeerNothing(usrCntlSumA_Empfaenger.txtPlz.Text) + NCTS.ncts_SumA_Empfaenger_Ort = cProgramFunctions.isLeerNothing(usrCntlSumA_Empfaenger.txtOrt.Text) + NCTS.ncts_SumA_Empfaenger_Land = cProgramFunctions.isLeerNothing(usrCntlSumA_Empfaenger.sbLand._value) + NCTS.ncts_SumA_Empfaenger_EORI = cProgramFunctions.isLeerNothing(usrCntlSumA_Empfaenger.txtEORI.Text) + NCTS.ncts_SumA_Empfaenger_NLNR = cProgramFunctions.isLeerNothing(usrCntlSumA_Empfaenger.txtEORINL.Text) + + NCTS.ncts_SumA_Versender_Name = cProgramFunctions.isLeerNothing(usrCntlSumA_Versender.kdFirma.Text) + NCTS.ncts_SumA_Versender_StrasseHausnummer = cProgramFunctions.isLeerNothing(usrCntlSumA_Versender.txtStrasse.Text) + NCTS.ncts_SumA_Versender_PLZ = cProgramFunctions.isLeerNothing(usrCntlSumA_Versender.txtPlz.Text) + NCTS.ncts_SumA_Versender_Ort = cProgramFunctions.isLeerNothing(usrCntlSumA_Versender.txtOrt.Text) + NCTS.ncts_SumA_Versender_Land = cProgramFunctions.isLeerNothing(usrCntlSumA_Versender.sbLand._value) + NCTS.ncts_SumA_Versender_EORI = cProgramFunctions.isLeerNothing(usrCntlSumA_Versender.txtEORI.Text) + NCTS.ncts_SumA_Versender_NLNR = cProgramFunctions.isLeerNothing(usrCntlSumA_Versender.txtEORINL.Text) + + End If + End Sub + + + Public Sub setValues_TR(NCTS As VERAG_PROG_ALLGEMEIN.cNCTS_TR) 'usrCntlSumA_Befoerderer.initME() If NCTS Is Nothing Then Exit Sub diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Allg.vb b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Allg.vb index 664b7379..d7200e2a 100644 --- a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Allg.vb +++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Allg.vb @@ -2,6 +2,7 @@ Property NCTS_ART = "T-" Dim NCTS As DAKOSY_Worker.cDakosyNCTSOut = Nothing + Dim NCTS_TR As VERAG_PROG_ALLGEMEIN.cNCTS_TR = Nothing Sub New(NCTS As DAKOSY_Worker.cDakosyNCTSOut) @@ -13,6 +14,15 @@ End Sub + Sub New(NCTS_TR As VERAG_PROG_ALLGEMEIN.cNCTS_TR) + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + Me.NCTS_TR = NCTS_TR + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + + End Sub + Private Sub usrCntlATLAS_NCTS_Load(sender As Object, e As EventArgs) Handles MyBase.Load 'MySearchBox1.initSearchBox(Me.FindForm, "AdressenNr, [Name 1] FROM Adressen", {"[Name 1]", "Ort", "PLZ"}, "", "[Name 1]", "AdressenNr", "AdressenNr") @@ -141,7 +151,7 @@ End Sub - Public Sub getValues(ByRef NCTS As DAKOSY_Worker.cDakosyNCTSOut) + Public Sub getValues(ByRef NCTS) 'As DAKOSY_Worker.cDakosyNCTSOut) NCTS.ncts_ArtAnmeldung = cProgramFunctions.isLeerNothing(NCTS_ART) NCTS.ncts_AbgangsDienststellennummer = cProgramFunctions.isLeerNothing(sbAbgangZollstelle._value) NCTS.ncts_BestimmungsstelleDienststellennummer = cProgramFunctions.isLeerNothing(sbBestimmungZollstelle._value) @@ -210,7 +220,7 @@ End Sub - Public Sub setValues(NCTS As DAKOSY_Worker.cDakosyNCTSOut) + Public Sub setValues(NCTS) 'As DAKOSY_Worker.cDakosyNCTSOut) If NCTS Is Nothing Then Exit Sub sbAbgangZollstelle.SET_VALUE(If(NCTS.ncts_AbgangsDienststellennummer, "")) sbBestimmungZollstelle.SET_VALUE(If(NCTS.ncts_BestimmungsstelleDienststellennummer, "")) diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Position.vb b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Position.vb index 985a2e14..df5ed14d 100644 --- a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Position.vb +++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Position.vb @@ -5,6 +5,7 @@ ' Public Event NEXT_POS() ' Public Event PREV_POS() Dim WARE As DAKOSY_Worker.cDakosy_NCTSOut_Warenposition = Nothing + Dim WARE_TR As VERAG_PROG_ALLGEMEIN.cNCTS_TR_Warenposition = Nothing Event RohmasseChanged(rohmasse As Double, packstuecke As Double) Dim id As Integer = -1 @@ -17,7 +18,7 @@ Me.id = id End Sub - + Sub New(id As Integer, WARE As DAKOSY_Worker.cDakosy_NCTSOut_Warenposition) InitializeComponent() Me.id = id @@ -25,6 +26,13 @@ End Sub + Sub New(id As Integer, WARE_TR As VERAG_PROG_ALLGEMEIN.cNCTS_TR_Warenposition) + InitializeComponent() + Me.id = id + Me.WARE_TR = WARE_TR + End Sub + + Function getPackstuecke() As Integer @@ -74,7 +82,8 @@ cboVpTyp.changeItem("OHNE") - setvalue(WARE) + If WARE IsNot Nothing Then setvalue(WARE) + If WARE_TR IsNot Nothing Then setvalue_TR(WARE_TR) End Sub @@ -179,6 +188,108 @@ End If End Sub + + Sub setvalue_TR(WARE As VERAG_PROG_ALLGEMEIN.cNCTS_TR_Warenposition) + If WARE IsNot Nothing Then + Me.txtWarenbezeichnung.Text = If(WARE.nctsWP_Warenbezeichnung, "") + Me.txtRohmasse.Text = If(WARE.nctsWP_Rohmasse, "") + Me.txtEigenmasse.Text = If(WARE.nctsWP_Eigenmasse, "") + Me.txtWarennummer.Text = If(WARE.nctsWP_Warennummer, "") + Me.txtWarenwert._value = If(WARE.nctsWP_Warenwert, "") + + Me.txtSiBetragProzent._value = If(WARE.nctsWP_WarenwertProzent, 0.25) + Me.cboVpTyp.changeItem(If(WARE.nctsWP_VorpapierTyp, "")) + Me.cboWaehrung.SET_VALUE(If(WARE.nctsWP_WarenwertWaehrung, "")) + + Dim packstuecke = 0 + dgvPackstuecke.Rows.Clear() + If WARE.nctsWP_PACKSTUECKE IsNot Nothing Then + For Each PK In WARE.nctsWP_PACKSTUECKE + + Dim VerpackArtTxt = sbPkTyp.GET_VALUE_OnlyReturn(PK.nctsWpPk_Verpackungsart) + dgvPackstuecke.Rows.Add(PK.nctsWpPk_Verpackungsart, PK.nctsWpPk_PackstueckeAnzahl, VerpackArtTxt, PK.nctsWpPk_ZeichenNummern) + Next + End If + RaiseEvent RohmasseChanged(If(IsNumeric(txtRohmasse.Text), CDbl(txtRohmasse.Text), 0), getPackstuecke) + + dgvUnterlage.Rows.Clear() + If WARE.nctsWP_UNTERLAGEN IsNot Nothing Then + For Each Ul In WARE.nctsWP_UNTERLAGEN + Dim UlTxt = sbUlArten.GET_VALUE_OnlyReturn(Ul.nctsWpUl_Typ) + dgvUnterlage.Rows.Add(Ul.nctsWpUl_Typ, UlTxt, Ul.nctsWpUl_Referenz, Ul.nctsWpUl_Zusatz) + Next + End If + + + dgvVorpapier.Rows.Clear() + If WARE.nctsWP_VorpapierReferenz1 IsNot Nothing And WARE.nctsWP_VorpapierReferenz1 <> "" Then dgvVorpapier.Rows.Add(WARE.nctsWP_VorpapierReferenz1, If(WARE.nctsWP_VorpapierZusatz1, "")) + If WARE.nctsWP_VorpapierReferenz2 IsNot Nothing And WARE.nctsWP_VorpapierReferenz2 <> "" Then dgvVorpapier.Rows.Add(WARE.nctsWP_VorpapierReferenz2, If(WARE.nctsWP_VorpapierZusatz2, "")) + If WARE.nctsWP_VorpapierReferenz3 IsNot Nothing And WARE.nctsWP_VorpapierReferenz3 <> "" Then dgvVorpapier.Rows.Add(WARE.nctsWP_VorpapierReferenz3, If(WARE.nctsWP_VorpapierZusatz3, "")) + If WARE.nctsWP_VorpapierReferenz4 IsNot Nothing And WARE.nctsWP_VorpapierReferenz4 <> "" Then dgvVorpapier.Rows.Add(WARE.nctsWP_VorpapierReferenz4, If(WARE.nctsWP_VorpapierZusatz4, "")) + If WARE.nctsWP_VorpapierReferenz5 IsNot Nothing And WARE.nctsWP_VorpapierReferenz5 <> "" Then dgvVorpapier.Rows.Add(WARE.nctsWP_VorpapierReferenz5, If(WARE.nctsWP_VorpapierZusatz5, "")) + If WARE.nctsWP_VorpapierReferenz6 IsNot Nothing And WARE.nctsWP_VorpapierReferenz6 <> "" Then dgvVorpapier.Rows.Add(WARE.nctsWP_VorpapierReferenz6, If(WARE.nctsWP_VorpapierZusatz6, "")) + If WARE.nctsWP_VorpapierReferenz7 IsNot Nothing And WARE.nctsWP_VorpapierReferenz7 <> "" Then dgvVorpapier.Rows.Add(WARE.nctsWP_VorpapierReferenz7, If(WARE.nctsWP_VorpapierZusatz7, "")) + If WARE.nctsWP_VorpapierReferenz8 IsNot Nothing And WARE.nctsWP_VorpapierReferenz8 <> "" Then dgvVorpapier.Rows.Add(WARE.nctsWP_VorpapierReferenz8, If(WARE.nctsWP_VorpapierZusatz8, "")) + If WARE.nctsWP_VorpapierReferenz9 IsNot Nothing And WARE.nctsWP_VorpapierReferenz9 <> "" Then dgvVorpapier.Rows.Add(WARE.nctsWP_VorpapierReferenz9, If(WARE.nctsWP_VorpapierZusatz9, "")) + + Me.cbxEmport.Checked = If(WARE.nctsWP_BesondereVermeke_Export, False) + Me.cbxEmportAbgaben.Checked = If(WARE.nctsWP_BesondereVermeke_ExportAbgaben, False) + Me.cbxEmportBeschraernkung.Checked = If(WARE.nctsWP_BesondereVermeke_ExportBeschraenkung, False) + ' Me.cbxExportAusEU.Checked = If(WARE.nctsWP_BesondereVermeke_ExportAusEU, False) + + If WARE.nctsWP_BesondereVermeke_ExportAusEU IsNot Nothing Then + Me.cbxExportAusEU.Checked = If(WARE.nctsWP_BesondereVermeke_ExportAusEU, False) + Else + Me.cbxExportAusEU.CheckState = CheckState.Indeterminate + End If + + If WARE.nctsWP_BesondereVermeke_ExportAusLand IsNot Nothing AndAlso WARE.nctsWP_BesondereVermeke_ExportAusLand <> "" Then + Me.cbxEmportAusLand.Checked = True + sbExportAusLand.SET_VALUE(WARE.nctsWP_BesondereVermeke_ExportAusLand) + Else + sbExportAusLand.SET_VALUE("") + Me.cbxEmportAusLand.Checked = False + End If + + txtKdRefNr.Text = If(WARE.nctsWP_KdRefNr, "") + + usrcntlVersedner.kdFirma.Text = WARE.nctsWP_Versender_Name + usrcntlVersedner.txtStrasse.Text = WARE.nctsWP_Versender_StrasseHausnummer + usrcntlVersedner.txtPlz.Text = WARE.nctsWP_Versender_PLZ + usrcntlVersedner.txtOrt.Text = WARE.nctsWP_Versender_Ort + usrcntlVersedner.txtEORI.Text = WARE.nctsWP_Versender_EORI + usrcntlVersedner.txtEORINL.Text = WARE.nctsWP_Versender_NLNR + usrcntlVersedner.sbLand.SET_VALUE(WARE.nctsWP_Versender_Land) + + usrcntlEmpfaenger.kdFirma.Text = WARE.nctsWP_Empfaenger_Name + usrcntlEmpfaenger.txtStrasse.Text = WARE.nctsWP_Empfaenger_StrasseHausnummer + usrcntlEmpfaenger.txtPlz.Text = WARE.nctsWP_Empfaenger_PLZ + usrcntlEmpfaenger.txtOrt.Text = WARE.nctsWP_Empfaenger_Ort + usrcntlEmpfaenger.txtEORI.Text = WARE.nctsWP_Empfaenger_EORI + usrcntlEmpfaenger.txtEORINL.Text = WARE.nctsWP_Empfaenger_NLNR + usrcntlEmpfaenger.sbLand.SET_VALUE(WARE.nctsWP_Empfaenger_Land) + + + usrcntlSumAVersedner.kdFirma.Text = WARE.nctsWP_SumAVersender_Name + usrcntlSumAVersedner.txtStrasse.Text = WARE.nctsWP_SumAVersender_StrasseHausnummer + usrcntlSumAVersedner.txtPlz.Text = WARE.nctsWP_SumAVersender_PLZ + usrcntlSumAVersedner.txtOrt.Text = WARE.nctsWP_SumAVersender_Ort + usrcntlSumAVersedner.txtEORI.Text = WARE.nctsWP_SumAVersender_EORI + usrcntlSumAVersedner.txtEORINL.Text = WARE.nctsWP_SumAVersender_NLNR + usrcntlSumAVersedner.sbLand.SET_VALUE(WARE.nctsWP_SumAVersender_Land) + + usrcntlSumAEmpfaenger.kdFirma.Text = WARE.nctsWP_SumAEmpfaenger_Name + usrcntlSumAEmpfaenger.txtStrasse.Text = WARE.nctsWP_SumAEmpfaenger_StrasseHausnummer + usrcntlSumAEmpfaenger.txtPlz.Text = WARE.nctsWP_SumAEmpfaenger_PLZ + usrcntlSumAEmpfaenger.txtOrt.Text = WARE.nctsWP_SumAEmpfaenger_Ort + usrcntlSumAEmpfaenger.txtEORI.Text = WARE.nctsWP_SumAEmpfaenger_EORI + usrcntlSumAEmpfaenger.txtEORINL.Text = WARE.nctsWP_SumAEmpfaenger_NLNR + usrcntlSumAEmpfaenger.sbLand.SET_VALUE(WARE.nctsWP_SumAEmpfaenger_Land) + + + End If + End Sub + Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click addPackstuecke() End Sub diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Positionen.vb b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Positionen.vb index e96efaf5..ad85498e 100644 --- a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Positionen.vb +++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Positionen.vb @@ -1,6 +1,7 @@ Public Class usrCntlATLAS_NCTS_Positionen Dim NCTS As DAKOSY_Worker.cDakosyNCTSOut = Nothing + Dim NCTS_TR As VERAG_PROG_ALLGEMEIN.cNCTS_TR = Nothing Dim POS As New List(Of usrCntlATLAS_NCTS_Position) Dim sectionChangeBLOCK = False @@ -11,7 +12,8 @@ Event PosAnzChanged(anzahlPos As Double) - Sub New(NCTS) + + Sub New(NCTS As DAKOSY_Worker.cDakosyNCTSOut) ' Dieser Aufruf ist für den Designer erforderlich. InitializeComponent() @@ -19,6 +21,15 @@ ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. Me.NCTS = NCTS End Sub + + Sub New(NCTS_TR As VERAG_PROG_ALLGEMEIN.cNCTS_TR) + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + Me.NCTS_TR = NCTS_TR + End Sub Private Sub usrCntlATLAS_NCTS_Load(sender As Object, e As EventArgs) Handles Me.Load ' addItem() 'Auskommentiert! @@ -36,7 +47,18 @@ MyListBox1_SelectedIndexChanged(dgvPositionen, New EventArgs) End Sub - + + Public Sub setValues_TR(NCTS_POS As VERAG_PROG_ALLGEMEIN.cNCTS_TR) + If NCTS_POS Is Nothing Then Exit Sub + POS.Clear() + + For Each p In NCTS_POS.ncts_WARENPOS + addItem_TR(p) 'MyPanel2.Controls.Add() + Next + MyPanel2.Controls.Clear() + MyListBox1_SelectedIndexChanged(dgvPositionen, New EventArgs) + End Sub + Sub initListBox(Optional selectedIndex = -1) If dgvPositionen.ColumnCount <= 0 Then Exit Sub @@ -159,7 +181,7 @@ End If End Function - Function addItem(Optional POSTMP As DAKOSY_Worker.cDakosy_NCTSOut_Warenposition = Nothing) As usrCntlATLAS_NCTS_Position + Function addItem(Optional POSTMP As DAKOSY_Worker.cDakosy_NCTSOut_Warenposition = Nothing) As usrCntlATLAS_NCTS_Position ' Dim u = New usrCntlATLAS_NCTS_Position(POS.Count, POSTMP) AddHandler u.RohmasseChanged, Sub(r, pk) @@ -191,6 +213,39 @@ Return u End Function + Function addItem_TR(Optional POSTMP As VERAG_PROG_ALLGEMEIN.cNCTS_TR_Warenposition = Nothing) As usrCntlATLAS_NCTS_Position ' + Dim u = New usrCntlATLAS_NCTS_Position(POS.Count, POSTMP) + + AddHandler u.RohmasseChanged, Sub(r, pk) + gesRohmasse = 0 + gesPackstuecke = 0 + For Each p As usrCntlATLAS_NCTS_Position In POS + gesRohmasse += If(IsNumeric(p.txtRohmasse.Text), p.txtRohmasse.Text, 0) + For Each row As DataGridViewRow In p.dgvPackstuecke.Rows + gesPackstuecke += If(IsNumeric(row.Cells("Anzahl").Value), row.Cells("Anzahl").Value, 0) + Next + Next + RaiseEvent RohmasseChanged(gesRohmasse, gesPackstuecke) + End Sub + u.Dock = DockStyle.Fill + u.cboVpTyp.changeItem("OHNE") + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "ATILLA" + u.cbxEmport.Checked = True + End Select + ' AddHandler u.ADD, AddressOf addItem + ' AddHandler u.REMOVE, AddressOf removeItem + ' AddHandler u.NEXT_POS, AddressOf NEXT_POS + ' AddHandler u.PREV_POS, AddressOf PREV_POS + POS.Add(u) + initListBox() + dgvPositionen.ClearSelection() + If dgvPositionen.RowCount > 0 Then dgvPositionen.Rows(dgvPositionen.RowCount - 1).Selected = True + RaiseEvent PosAnzChanged(POS.Count) + Return u + End Function + + Sub removeItem(index) If index < 0 Then Exit Sub 'If index < 0 Then Exit Sub @@ -422,6 +477,175 @@ End Sub + + Public Sub getValues_TR(ByRef NCTS As VERAG_PROG_ALLGEMEIN.cNCTS_TR) + ' Dim POSITIONEN As List(Of VERAG_PROG_ALLGEMEIN.cNCTS_TR_Warenposition) + NCTS.ncts_WARENPOS.Clear() + + Dim cnt As Integer = 1 + For Each P In POS + Dim POSITION As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Warenposition + + 'POSITION.nctsWP_Id As Integer + ' POSITION.nctsWP_NctsId = NCTS.ncts_Id + POSITION.nctsWP_PositionsNummer = cnt + POSITION.nctsWP_Warennummer = cProgramFunctions.isLeerNothingDbl(P.txtWarennummer.Text) + POSITION.nctsWP_ArtAnmeldungPositionCode = cProgramFunctions.isLeerNothing(P.cboArtAnmeldung._value) + POSITION.nctsWP_Warenbezeichnung = P.txtWarenbezeichnung.Text + POSITION.nctsWP_Warenwert = cProgramFunctions.isLeerNothingDbl(P.txtWarenwert._value) + POSITION.nctsWP_WarenwertProzent = cProgramFunctions.isLeerNothingDbl(P.txtSiBetragProzent._value) + POSITION.nctsWP_WarenwertWaehrung = cProgramFunctions.isLeerNothing(P.cboWaehrung._value) + 'POSITION.nctsWP_WarenwertWaehrung = P.XXXXXXXXXXXX.Text + 'POSITION.nctsWP_SchaetzKz = P.XXXXXXXXXXXX.Text + 'POSITION.nctsWP_WarenwertProzent = P.XXXXXXXXXXXX.Text + POSITION.nctsWP_Rohmasse = cProgramFunctions.isLeerNothingDbl(P.txtRohmasse.Text) + POSITION.nctsWP_Eigenmasse = cProgramFunctions.isLeerNothingDbl(P.txtEigenmasse.Text) + + POSITION.nctsWP_VorpapierTyp = cProgramFunctions.isLeerNothing(P.cboVpTyp._value) + + + POSITION.nctsWP_BesondereVermeke_Export = P.cbxEmport.Checked + POSITION.nctsWP_BesondereVermeke_ExportAbgaben = P.cbxEmportAbgaben.Checked + POSITION.nctsWP_BesondereVermeke_ExportBeschraenkung = P.cbxEmportBeschraernkung.Checked + POSITION.nctsWP_BesondereVermeke_ExportAusEU = P.cbxExportAusEU.Checked + POSITION.nctsWP_VersendungslandPositionCode = cProgramFunctions.isLeerNothing(P.sbVersendungsLand._value) + POSITION.nctsWP_BestimmungslandPositionCode = cProgramFunctions.isLeerNothing(P.sbBestimmungsland._value) + + If P.cbxExportAusEU.CheckState = CheckState.Checked Then + POSITION.nctsWP_BesondereVermeke_ExportAusEU = True + ElseIf P.cbxExportAusEU.CheckState = CheckState.Unchecked Then + POSITION.nctsWP_BesondereVermeke_ExportAusEU = False + Else + POSITION.nctsWP_BesondereVermeke_ExportAusEU = Nothing + End If + + If P.cbxEmportAusLand.Checked = CheckState.Checked Then + POSITION.nctsWP_BesondereVermeke_ExportAusLand = cProgramFunctions.isLeerNothing(P.sbExportAusLand._value) + Else + POSITION.nctsWP_BesondereVermeke_ExportAusLand = Nothing + End If + + POSITION.nctsWP_BesondereVermeke_Vermerk = P.cbxVermerk.Text + POSITION.nctsWP_BesondereVermeke_Kz10600 = P.cbxVermerk10600.Checked + + + POSITION.nctsWP_VorpapierReferenz1 = Nothing + POSITION.nctsWP_VorpapierZusatz1 = Nothing + POSITION.nctsWP_VorpapierReferenz2 = Nothing + POSITION.nctsWP_VorpapierZusatz2 = Nothing + POSITION.nctsWP_VorpapierReferenz3 = Nothing + POSITION.nctsWP_VorpapierZusatz3 = Nothing + POSITION.nctsWP_VorpapierReferenz4 = Nothing + POSITION.nctsWP_VorpapierZusatz4 = Nothing + POSITION.nctsWP_VorpapierReferenz5 = Nothing + POSITION.nctsWP_VorpapierZusatz5 = Nothing + POSITION.nctsWP_VorpapierReferenz6 = Nothing + POSITION.nctsWP_VorpapierZusatz6 = Nothing + POSITION.nctsWP_VorpapierReferenz7 = Nothing + POSITION.nctsWP_VorpapierZusatz7 = Nothing + POSITION.nctsWP_VorpapierReferenz8 = Nothing + POSITION.nctsWP_VorpapierZusatz8 = Nothing + POSITION.nctsWP_VorpapierReferenz9 = Nothing + POSITION.nctsWP_VorpapierZusatz9 = Nothing + If P.dgvVorpapier.Rows.Count > 0 Then + POSITION.nctsWP_VorpapierReferenz1 = P.dgvVorpapier.Rows(0).Cells("VpReferenz").Value + POSITION.nctsWP_VorpapierZusatz1 = P.dgvVorpapier.Rows(0).Cells("VpZusatz").Value + End If + If P.dgvVorpapier.Rows.Count > 1 Then + POSITION.nctsWP_VorpapierReferenz2 = P.dgvVorpapier.Rows(1).Cells("VpReferenz").Value + POSITION.nctsWP_VorpapierZusatz2 = P.dgvVorpapier.Rows(1).Cells("VpZusatz").Value + End If + If P.dgvVorpapier.Rows.Count > 2 Then + POSITION.nctsWP_VorpapierReferenz3 = P.dgvVorpapier.Rows(2).Cells("VpReferenz").Value + POSITION.nctsWP_VorpapierZusatz3 = P.dgvVorpapier.Rows(2).Cells("VpZusatz").Value + End If + If P.dgvVorpapier.Rows.Count > 3 Then + POSITION.nctsWP_VorpapierReferenz4 = P.dgvVorpapier.Rows(3).Cells("VpReferenz").Value + POSITION.nctsWP_VorpapierZusatz4 = P.dgvVorpapier.Rows(3).Cells("VpZusatz").Value + End If + If P.dgvVorpapier.Rows.Count > 4 Then + POSITION.nctsWP_VorpapierReferenz5 = P.dgvVorpapier.Rows(4).Cells("VpReferenz").Value + POSITION.nctsWP_VorpapierZusatz5 = P.dgvVorpapier.Rows(4).Cells("VpZusatz").Value + End If + If P.dgvVorpapier.Rows.Count > 5 Then + POSITION.nctsWP_VorpapierReferenz6 = P.dgvVorpapier.Rows(5).Cells("VpReferenz").Value + POSITION.nctsWP_VorpapierZusatz6 = P.dgvVorpapier.Rows(5).Cells("VpZusatz").Value + End If + If P.dgvVorpapier.Rows.Count > 6 Then + POSITION.nctsWP_VorpapierReferenz7 = P.dgvVorpapier.Rows(6).Cells("VpReferenz").Value + POSITION.nctsWP_VorpapierZusatz7 = P.dgvVorpapier.Rows(6).Cells("VpZusatz").Value + End If + If P.dgvVorpapier.Rows.Count > 7 Then + POSITION.nctsWP_VorpapierReferenz8 = P.dgvVorpapier.Rows(7).Cells("VpReferenz").Value + POSITION.nctsWP_VorpapierZusatz8 = P.dgvVorpapier.Rows(7).Cells("VpZusatz").Value + End If + If P.dgvVorpapier.Rows.Count > 8 Then + POSITION.nctsWP_VorpapierReferenz9 = P.dgvVorpapier.Rows(8).Cells("VpReferenz").Value + POSITION.nctsWP_VorpapierZusatz9 = P.dgvVorpapier.Rows(8).Cells("VpZusatz").Value + End If + + POSITION.nctsWP_PACKSTUECKE = New List(Of VERAG_PROG_ALLGEMEIN.cNCTS_TR_WarenpositionPackstuecke) + For Each r As DataGridViewRow In P.dgvPackstuecke.Rows + Dim Pk As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_WarenpositionPackstuecke + Pk.nctsWpPk_Verpackungsart = r.Cells("PkCode").Value + Pk.nctsWpPk_PackstueckeAnzahl = r.Cells("Anzahl").Value + Pk.nctsWpPk_ZeichenNummern = r.Cells("Marke").Value + POSITION.nctsWP_PACKSTUECKE.Add(Pk) + Next + + POSITION.nctsWP_UNTERLAGEN = New List(Of VERAG_PROG_ALLGEMEIN.cNCTS_TR_WarenpositionVorgelegteUnterlagen) + For Each r As DataGridViewRow In P.dgvUnterlage.Rows + Dim Ul As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_WarenpositionVorgelegteUnterlagen + Ul.nctsWpUl_Typ = r.Cells("UlCode").Value + Ul.nctsWpUl_Referenz = r.Cells("UlReferenz").Value + Ul.nctsWpUl_Zusatz = r.Cells("UlZusatz").Value + POSITION.nctsWP_UNTERLAGEN.Add(Ul) + Next + + POSITION.nctsWP_KdRefNr = P.txtKdRefNr.Text + + POSITION.nctsWP_Versender_Name = cProgramFunctions.isLeerNothing(P.usrcntlVersedner.kdFirma.Text) + POSITION.nctsWP_Versender_StrasseHausnummer = cProgramFunctions.isLeerNothing(P.usrcntlVersedner.txtStrasse.Text) + POSITION.nctsWP_Versender_PLZ = cProgramFunctions.isLeerNothing(P.usrcntlVersedner.txtPlz.Text) + POSITION.nctsWP_Versender_Ort = cProgramFunctions.isLeerNothing(P.usrcntlVersedner.txtOrt.Text) + POSITION.nctsWP_Versender_Land = cProgramFunctions.isLeerNothing(P.usrcntlVersedner.sbLand._value) + POSITION.nctsWP_Versender_EORI = cProgramFunctions.isLeerNothing(P.usrcntlVersedner.txtEORI.Text) + POSITION.nctsWP_Versender_NLNR = cProgramFunctions.isLeerNothing(P.usrcntlVersedner.txtEORINL.Text) + + POSITION.nctsWP_Empfaenger_Name = cProgramFunctions.isLeerNothing(P.usrcntlEmpfaenger.kdFirma.Text) + POSITION.nctsWP_Empfaenger_StrasseHausnummer = cProgramFunctions.isLeerNothing(P.usrcntlEmpfaenger.txtStrasse.Text) + POSITION.nctsWP_Empfaenger_PLZ = cProgramFunctions.isLeerNothing(P.usrcntlEmpfaenger.txtPlz.Text) + POSITION.nctsWP_Empfaenger_Ort = cProgramFunctions.isLeerNothing(P.usrcntlEmpfaenger.txtOrt.Text) + POSITION.nctsWP_Empfaenger_Land = cProgramFunctions.isLeerNothing(P.usrcntlEmpfaenger.sbLand._value) + POSITION.nctsWP_Empfaenger_EORI = cProgramFunctions.isLeerNothing(P.usrcntlEmpfaenger.txtEORI.Text) + POSITION.nctsWP_Empfaenger_NLNR = cProgramFunctions.isLeerNothing(P.usrcntlEmpfaenger.txtEORINL.Text) + + POSITION.nctsWP_SumAVersender_Name = cProgramFunctions.isLeerNothing(P.usrcntlSumAVersedner.kdFirma.Text) + POSITION.nctsWP_SumAVersender_StrasseHausnummer = cProgramFunctions.isLeerNothing(P.usrcntlSumAVersedner.txtStrasse.Text) + POSITION.nctsWP_SumAVersender_PLZ = cProgramFunctions.isLeerNothing(P.usrcntlSumAVersedner.txtPlz.Text) + POSITION.nctsWP_SumAVersender_Ort = cProgramFunctions.isLeerNothing(P.usrcntlSumAVersedner.txtOrt.Text) + POSITION.nctsWP_SumAVersender_Land = cProgramFunctions.isLeerNothing(P.usrcntlSumAVersedner.sbLand._value) + POSITION.nctsWP_SumAVersender_EORI = cProgramFunctions.isLeerNothing(P.usrcntlSumAVersedner.txtEORI.Text) + POSITION.nctsWP_SumAVersender_NLNR = cProgramFunctions.isLeerNothing(P.usrcntlSumAVersedner.txtEORINL.Text) + + POSITION.nctsWP_SumAEmpfaenger_Name = cProgramFunctions.isLeerNothing(P.usrcntlSumAEmpfaenger.kdFirma.Text) + POSITION.nctsWP_SumAEmpfaenger_StrasseHausnummer = cProgramFunctions.isLeerNothing(P.usrcntlSumAEmpfaenger.txtStrasse.Text) + POSITION.nctsWP_SumAEmpfaenger_PLZ = cProgramFunctions.isLeerNothing(P.usrcntlSumAEmpfaenger.txtPlz.Text) + POSITION.nctsWP_SumAEmpfaenger_Ort = cProgramFunctions.isLeerNothing(P.usrcntlSumAEmpfaenger.txtOrt.Text) + POSITION.nctsWP_SumAEmpfaenger_Land = cProgramFunctions.isLeerNothing(P.usrcntlSumAEmpfaenger.sbLand._value) + POSITION.nctsWP_SumAEmpfaenger_EORI = cProgramFunctions.isLeerNothing(P.usrcntlSumAEmpfaenger.txtEORI.Text) + POSITION.nctsWP_SumAEmpfaenger_NLNR = cProgramFunctions.isLeerNothing(P.usrcntlSumAEmpfaenger.txtEORINL.Text) + + + NCTS.ncts_WARENPOS.Add(POSITION) + cnt += 1 + Next + ' NCTS.ncts_WARENPOS + + + End Sub + + Private Sub MyPanel2_ControlAdded(sender As Object, e As ControlEventArgs) Handles MyPanel2.ControlAdded Try : DirectCast(e.Control, usrCntlATLAS_NCTS_Position).txtWarenbezeichnung.Focus() : Catch : End Try End Sub diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Sicherheit.vb b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Sicherheit.vb index 439edc93..6224cbef 100644 --- a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Sicherheit.vb +++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Sicherheit.vb @@ -5,10 +5,11 @@ ' Public NCTS As DAKOSY_Worker.cDakosyNCTSOut = Nothing ' Dim AKT_POS As Integer = -1 Dim NCTS As DAKOSY_Worker.cDakosyNCTSOut = Nothing + Dim NCTS_TR As VERAG_PROG_ALLGEMEIN.cNCTS_TR = Nothing Dim FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA - Sub New(NCTS, FIRMA_DY) 'NCTS As DAKOSY_Worker.cDakosyNCTSOut) + Sub New(NCTS As DAKOSY_Worker.cDakosyNCTSOut, FIRMA_DY As String) 'NCTS As DAKOSY_Worker.cDakosyNCTSOut) ' Dieser Aufruf ist für den Designer erforderlich. InitializeComponent() @@ -26,6 +27,24 @@ ' Next End Sub + Sub New(NCTS_TR As VERAG_PROG_ALLGEMEIN.cNCTS_TR, FIRMA_DY As String) 'NCTS As DAKOSY_Worker.cDakosyNCTSOut) + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + Me.NCTS_TR = NCTS_TR + Me.FIRMA_DY = FIRMA_DY + ' loadValues() + ' ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + 'If NCTS.ncts_SICHERHEITSANGABEN.Count = 0 Then + 'NCTS.ncts_SICHERHEITSANGABEN.Add(New DAKOSY_Worker.cDakosy_NCTSOut_Sicherheitsangaben) + 'End If + ' For Each s In NCTS.ncts_SICHERHEITSANGABEN + 'Dim u As New usrCntlATLAS_NCTS_SicherheitPos + ' u.loadBrg(s) + ' LIST.Add(u) + ' Next + + End Sub @@ -46,6 +65,17 @@ End Sub + Sub addPos_TR(Optional sa As VERAG_PROG_ALLGEMEIN.cNCTS_TR_Sicherheitsangaben = Nothing) + Dim u As New usrCntlATLAS_ncts_SicherheitPos(FIRMA_DY) + LIST.Add(u) + If sa IsNot Nothing Then + u.setValues_TR(sa) + End If + + loadDGVListValues() + + End Sub + Private Sub MyDatagridview1_SelectionChanged(sender As Object, e As EventArgs) Handles MyDatagridview1.SelectionChanged initPosAnzeige() End Sub @@ -144,6 +174,28 @@ End Sub + + Public Function getValues_TR() As List(Of VERAG_PROG_ALLGEMEIN.cNCTS_TR_Sicherheitsangaben) + Dim SA As New List(Of VERAG_PROG_ALLGEMEIN.cNCTS_TR_Sicherheitsangaben) + For Each s As usrCntlATLAS_ncts_SicherheitPos In LIST + SA.Add(s.getValues_TR) + Next + Return SA + End Function + + + Public Sub setValues_TR(ByRef SA As List(Of VERAG_PROG_ALLGEMEIN.cNCTS_TR_Sicherheitsangaben)) + Panel1.Controls.Clear() + If SA Is Nothing Then Exit Sub + LIST.Clear() + For Each s In SA + addPos_TR(s) + Next + If LIST.Count = 0 Then addPos() 'leere Laden + loadDGVListValues() + initPosAnzeige() + End Sub + End Class Public Class cDakosy_Sicherheitsarten diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_SicherheitPos.vb b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_SicherheitPos.vb index 04e309c8..426c21d1 100644 --- a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_SicherheitPos.vb +++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_SicherheitPos.vb @@ -232,4 +232,42 @@ End Sub + Public Function getValues_TR() As VERAG_PROG_ALLGEMEIN.cNCTS_TR_Sicherheitsangaben + Dim SA = New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Sicherheitsangaben + SA.nctsSA_AbgabenBetrag = cProgramFunctions.isLeerNothing(txtAbgabenbetrag._value) + SA.nctsSA_BezeichnungBescheinigun = cProgramFunctions.isLeerNothing(txtBezeichnung._value) + SA.nctsSA_ArtCode = cProgramFunctions.isLeerNothing(cboArtSicherheit._value) + SA.nctsSA_GRN = cProgramFunctions.isLeerNothing(txtGRN._value) + SA.nctsSA_Zugriffcode = cProgramFunctions.isLeerNothing(txtZugriffscode._value) + SA.nctsSA_TIN = cProgramFunctions.isLeerNothing(txtEORI_TIN._value) + If SA.nctsSA_AbgabenBetrag Is Nothing Then SA.nctsSA_AbgabenBetrag = 0 + Return SA + End Function + + + Public Sub setValues_TR(SA As VERAG_PROG_ALLGEMEIN.cNCTS_TR_Sicherheitsangaben) + setBtn(btnBrgVERAG_AT, False) + setBtn(btnBrgVERAG_DE, False) + setBtn(btnBrgTOBB, False) + setBtn(btnBrgSGS, False) + setBtn(btnMars, False) + setBtn(btnEKOL, False) + setBtn(btnBrgSonstige, False) + + Select Case If(SA.nctsSA_GRN, "") + Case "05AT510000G000FP7" : setBtn(btnBrgVERAG_AT, True) + Case "17DE0000000071678" : setBtn(btnBrgVERAG_DE, True) + Case Else : setBtn(btnBrgSonstige, True) + End Select + + + cboArtSicherheit.changeItem(If(SA.nctsSA_ArtCode, "")) 'Gesamtbürgschaft + txtGRN.Text = If(SA.nctsSA_GRN, "") + txtEORI_TIN.Text = If(SA.nctsSA_TIN, "") + txtZugriffscode.Text = If(SA.nctsSA_Zugriffcode, "") + txtAbgabenbetrag._value = If(SA.nctsSA_AbgabenBetrag, "") + 'txtEORI_TIN.Text = If(SA.nctsSA_TIN, "") + + End Sub + End Class diff --git a/SDL/ZOLLSYSTEM/DAKOSY/frmZollanmeldung.vb b/SDL/ZOLLSYSTEM/DAKOSY/frmZollanmeldung.vb index 41cd5900..0960c494 100644 --- a/SDL/ZOLLSYSTEM/DAKOSY/frmZollanmeldung.vb +++ b/SDL/ZOLLSYSTEM/DAKOSY/frmZollanmeldung.vb @@ -14,11 +14,12 @@ ' Dim AES As DAKOSY_Worker.cDakosyAES = Nothing Dim FIRMA_DY = "" + Dim ZOLL_SYSTEM = "DAKOSY" Dim DY As DAKOSY_Worker.cDakosy_Zollanmeldungen = Nothing - Sub New(ART As String, DY As DAKOSY_Worker.cDakosy_Zollanmeldungen) ', JAHR As Integer) ', Optional ZA = Nothing) + Sub New(ART As String, DY As DAKOSY_Worker.cDakosy_Zollanmeldungen, Optional ZOLL_SYSTEM As String = "DAKOSY") ', JAHR As Integer) ', Optional ZA = Nothing) ' Dieser Aufruf ist für den Designer erforderlich. InitializeComponent() @@ -26,7 +27,7 @@ Me.DY = DY If DY.dy_AvisoId IsNot Nothing AndAlso DY.dy_AvisoId > 0 Then - Dim AV As New VERAG_PROG_ALLGEMEIN.cavisoDAL + Dim AV As New VERAG_PROG_ALLGEMEIN.cAvisoDAL Me.AVISO = AV.LesenAviso(DY.dy_AvisoId, "") End If Me.ART = ART @@ -36,10 +37,11 @@ Me.AbfertigungsNr = SENDUNG.AbfertigungsNr End If Me.JAHR = JAHR + Me.ZOLL_SYSTEM = ZOLL_SYSTEM End Sub - Sub New(ART As String, DY As DAKOSY_Worker.cDakosy_Zollanmeldungen, AVISO As VERAG_PROG_ALLGEMEIN.caviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, JAHR As Integer) ', Optional ZA = Nothing) + Sub New(ART As String, DY As DAKOSY_Worker.cDakosy_Zollanmeldungen, AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, JAHR As Integer, Optional ZOLL_SYSTEM As String = "DAKOSY") ', Optional ZA = Nothing) ' Dieser Aufruf ist für den Designer erforderlich. InitializeComponent() @@ -50,6 +52,7 @@ Me.ART = ART Me.SENDUNG = SENDUNG Me.JAHR = JAHR + Me.ZOLL_SYSTEM = ZOLL_SYSTEM If SENDUNG IsNot Nothing Then Me.FilialenNr = SENDUNG.FilialenNr @@ -90,60 +93,88 @@ End If End If - Select Case ART - Case "T1", "T2", "NCTS", "ÃœT" - ' DY.dy_ART = ART - ' 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 = "") - 'Dim usrcntl As New usrCntlATLAS_NCTS(DY, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF) + Select Case ZOLL_SYSTEM + Case "SGS" + Select Case ART + Case "T1", "T2", "NCTS", "ÃœT" - If ART = "ÃœT" Then - ART = "T1" - isSTAMMREF = False - STAMMREF = "" '?????????????????????????????? - End If + If ART = "ÃœT" Then + ART = "T1" + isSTAMMREF = False + STAMMREF = "" '?????????????????????????????? + End If - If Me.DY Is Nothing Then - Dim usrcntl As New usrCntlATLAS_NCTS(ART, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF, FIRMA_DY) - usrcntl.Dock = DockStyle.Fill - Me.pnl.Controls.Add(usrcntl) + If Me.DY Is Nothing Then + Dim usrcntl As New usrCntlSGS_NCTS(ART, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF, FIRMA_DY) + usrcntl.Dock = DockStyle.Fill + Me.pnl.Controls.Add(usrcntl) - Else - Dim usrcntl As New usrCntlATLAS_NCTS(DY, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF) - usrcntl.Dock = DockStyle.Fill - Me.pnl.Controls.Add(usrcntl) + Else + Dim usrcntl As New usrCntlSGS_NCTS(DY, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF) + usrcntl.Dock = DockStyle.Fill + Me.pnl.Controls.Add(usrcntl) + End If - End If + End Select + + Case Else '"DAKOSY' + + + Select Case ART + Case "T1", "T2", "NCTS", "ÃœT" + ' DY.dy_ART = ART + ' 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 = "") + 'Dim usrcntl As New usrCntlATLAS_NCTS(DY, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF) + + If ART = "ÃœT" Then + ART = "T1" + isSTAMMREF = False + STAMMREF = "" '?????????????????????????????? + End If + + If Me.DY Is Nothing Then + Dim usrcntl As New usrCntlATLAS_NCTS(ART, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF, FIRMA_DY) + usrcntl.Dock = DockStyle.Fill + Me.pnl.Controls.Add(usrcntl) + + Else + Dim usrcntl As New usrCntlATLAS_NCTS(DY, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF) + usrcntl.Dock = DockStyle.Fill + Me.pnl.Controls.Add(usrcntl) + + End If - Case "AES", "EX", "EU", "CO" + Case "AES", "EX", "EU", "CO" - If Me.DY Is Nothing Then - Dim usrcntl As New usrCntlATLAS_AES(ART, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF) - usrcntl.Dock = DockStyle.Fill - Me.pnl.Controls.Add(usrcntl) + If Me.DY Is Nothing Then + Dim usrcntl As New usrCntlATLAS_AES(ART, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF) + usrcntl.Dock = DockStyle.Fill + Me.pnl.Controls.Add(usrcntl) - Else - Dim usrcntl As New usrCntlATLAS_AES(DY, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF) - usrcntl.Dock = DockStyle.Fill - Me.pnl.Controls.Add(usrcntl) + Else + Dim usrcntl As New usrCntlATLAS_AES(DY, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF) + usrcntl.Dock = DockStyle.Fill + Me.pnl.Controls.Add(usrcntl) - End If + End If - Case "EZA", "VZA" + Case "EZA", "VZA" - If Me.DY Is Nothing Then - Dim usrcntl As New usrCntlATLAS_EZA(ART, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF, FIRMA_DY) - usrcntl.Dock = DockStyle.Fill - Me.pnl.Controls.Add(usrcntl) + If Me.DY Is Nothing Then + Dim usrcntl As New usrCntlATLAS_EZA(ART, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF, FIRMA_DY) + usrcntl.Dock = DockStyle.Fill + Me.pnl.Controls.Add(usrcntl) - Else - Dim usrcntl As New usrCntlATLAS_EZA(DY, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF) - usrcntl.Dock = DockStyle.Fill - Me.pnl.Controls.Add(usrcntl) + Else + Dim usrcntl As New usrCntlATLAS_EZA(DY, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF) + usrcntl.Dock = DockStyle.Fill + Me.pnl.Controls.Add(usrcntl) - End If + End If + End Select End Select End Sub diff --git a/SDL/ZOLLSYSTEM/SGS/usrCntlSGS_NCTS.Designer.vb b/SDL/ZOLLSYSTEM/SGS/usrCntlSGS_NCTS.Designer.vb new file mode 100644 index 00000000..ead7f668 --- /dev/null +++ b/SDL/ZOLLSYSTEM/SGS/usrCntlSGS_NCTS.Designer.vb @@ -0,0 +1,515 @@ + +Partial Class usrCntlSGS_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 SGS 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.sgs + 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 ..." + ' + 'usrCntlSGS_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 = "usrCntlSGS_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/SGS/usrCntlSGS_NCTS.resx b/SDL/ZOLLSYSTEM/SGS/usrCntlSGS_NCTS.resx new file mode 100644 index 00000000..c31215db --- /dev/null +++ b/SDL/ZOLLSYSTEM/SGS/usrCntlSGS_NCTS.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 + + + 125, 17 + + + 17, 17 + + \ No newline at end of file diff --git a/SDL/ZOLLSYSTEM/SGS/usrCntlSGS_NCTS.vb b/SDL/ZOLLSYSTEM/SGS/usrCntlSGS_NCTS.vb new file mode 100644 index 00000000..5af9aca5 --- /dev/null +++ b/SDL/ZOLLSYSTEM/SGS/usrCntlSGS_NCTS.vb @@ -0,0 +1,616 @@ +Imports DAKOSY_Worker + +Imports Tamir +Imports Tamir.SharpSsh + +Public Class usrCntlSGS_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 Dakosy 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_SGS" ' 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 + + Dim saveFile = "" + If VERAG_PROG_ALLGEMEIN.cSGSInterface.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_SGS" ' 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 usrCntlSGS_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/zoll/usrCntlZollArtikel.vb b/SDL/zoll/usrCntlZollArtikel.vb index ce4da095..9f2c52ee 100644 --- a/SDL/zoll/usrCntlZollArtikel.vb +++ b/SDL/zoll/usrCntlZollArtikel.vb @@ -635,7 +635,7 @@ Public Class usrCntlZollArtikel a.Artikelnummer = myArray(i, 1).ToString If Not myArray(i, 2) Is Nothing Then a.Dynamische_Ergänzung_1 = myArray(i, 2).ToString If Not myArray(i, 3) Is Nothing Then a.Dynamische_Ergänzung_2 = myArray(i, 3).ToString - a.Warencodenummer = myArray(i, 4).ToStringReplace(" ", "").Replace(".", "") + a.Warencodenummer = myArray(i, 4).ToString.Replace(" ", "").Replace(".", "") a.Kurzbezeichnung = myArray(i, 5).ToString a.Warenbeschreibung = myArray(i, 6).ToString a.Verarbeitungskennzeichen = "0" @@ -646,7 +646,7 @@ Public Class usrCntlZollArtikel artikel.Add(a) Next Catch ex As Exception - MsgBox("Fehler beim Einlesen der Excel-Datei!") + MsgBox("Fehler beim Einlesen der Excel-Datei!" & vbNewLine & vbNewLine & ex.Message & ex.StackTrace) Me.Cursor = Cursors.Default Exit Sub End Try @@ -661,7 +661,7 @@ Public Class usrCntlZollArtikel End If Next Catch ex As Exception - MsgBox("Fehler beim Einlesen in die Datenbank!") + MsgBox("Fehler beim Einlesen in die Datenbank!" & vbNewLine & vbNewLine & ex.Message & ex.StackTrace) Me.Cursor = Cursors.Default Exit Sub End Try @@ -675,7 +675,7 @@ Public Class usrCntlZollArtikel ' AddHandler frmStatusFSSAtlas.FormClosed, AddressOf Me_Load Catch ex As Exception - MsgBox("Fehler beim Einlesen in ATLAS!") + MsgBox("Fehler beim Einlesen in ATLAS!" & vbNewLine & vbNewLine & ex.Message & ex.StackTrace) Me.Cursor = Cursors.Default Exit Sub End Try @@ -699,7 +699,7 @@ Public Class usrCntlZollArtikel Catch ex As Exception ' Me.Cursor = Cursors.Default - MsgBox("FEHLER! Datei im richtigen Format?" & vbNewLine & vbNewLine & ex.Message) + MsgBox("FEHLER! Datei im richtigen Format?" & vbNewLine & vbNewLine & ex.Message & ex.StackTrace) ' Return False End Try End With diff --git a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyDatagridview.vb b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyDatagridview.vb index 7b9ea9a6..592d9a36 100644 --- a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyDatagridview.vb +++ b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyDatagridview.vb @@ -131,9 +131,9 @@ Public Class MyDatagridview End If End Sub - Public Sub LOAD() + Public Sub LOAD(Optional showErr As Boolean = False, Optional ByRef errOccured As Boolean = False) If SQL_STR <> "" Then - Me.DataSource = SQL.loadDgvBySql_Param(SQL_STR, CONN_ART, , SQL_PARAM) + Me.DataSource = SQL.loadDgvBySql_Param(SQL_STR, CONN_ART, , SQL_PARAM, showErr, errOccured) End If End Sub diff --git a/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb b/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb index 72155022..93d1e077 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb @@ -747,7 +747,7 @@ Public Class SQL End Function - Public Function loadDgvBySql_Param(ByVal sql As String, Optional conn_art As String = "SDL", Optional timeout As Integer = 0, Optional list As List(Of SQLVariable) = Nothing) As DataTable + Public Function loadDgvBySql_Param(ByVal sql As String, Optional conn_art As String = "SDL", Optional timeout As Integer = 0, Optional list As List(Of SQLVariable) = Nothing, Optional showErr As Boolean = True, Optional ByRef errOccured As Boolean = False) As DataTable Try Dim myTable = New DataTable() Dim conn As New SqlConnection @@ -781,7 +781,8 @@ Public Class SQL ' End Using Return myTable 'While Schleife wird hier verlassen Catch ex As Exception - VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, , , , , sql) + If showErr Then VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, , , , , sql) + errOccured = True End Try Return Nothing diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cNCTS_TR.vb b/VERAG_PROG_ALLGEMEIN/Classes/cNCTS_TR.vb new file mode 100644 index 00000000..bdb318d5 --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Classes/cNCTS_TR.vb @@ -0,0 +1,1493 @@ +Imports System.Data.SqlClient +Imports System.Reflection + +Public Class cNCTS_TR + + Property ncts_Id As Integer + Property ncts_Partnersystem As Object = Nothing 'DAKOSY_Worker.cDY_Statusliste.S_00 + Property ncts_Status As Object = Nothing ' DAKOSY_Worker.cDY_Statusliste.S_00 + Property ncts_Status_KEWILL_Equivalent As Object = Nothing 'DAKOSY_Worker.cDY_Statusliste.S_00 + Property ncts_dyaArt As String = "" + Property ncts_dyaAnmID As Integer + + Property ncts_ANR As Object = Nothing + Property ncts_MRN As Object = Nothing + + Property ncts_Erstellung As DateTime = Now + Property ncts_Erstellung_SB As Object = Nothing + Property ncts_LetzteBearbeitung As DateTime = Now + Property ncts_LetzteBearbeitung_SB As Object = Nothing + Property ncts_firma As Object = Nothing + Property ncts_niederlassung As Object = Nothing + + + Property ncts_Gestellt As Boolean = False + Property ncts_GestelltAm As Object = Nothing + Property ncts_Trans_Partner As Object = Nothing + Property ncts_Trans_Div1 As Object = Nothing + Property ncts_Trans_Div2 As Object = Nothing + Property ncts_Trans_Div3 As Object = Nothing + Property ncts_Trans_Referenz As Object = Nothing + Property ncts_Trans_DatumZeit As DateTime = Now + Property ncts_Trans_Version As Object = Nothing + Property ncts_NachrichtenSenderTIN As Object = Nothing + Property ncts_NachrichtenSenderNLNR As Object = Nothing + Property ncts_NachrichtenempfaengerDST As Object = Nothing + + Property ncts_ObjectName As Object = Nothing + Property ncts_ObjectAlias As Object = Nothing + Property ncts_BezugsnummerVorblendung As Object = Nothing + Property ncts_Bearbeiter As Object = Nothing + Property ncts_VersendungsLandCode As Object = Nothing + Property ncts_BestimmungslandCode As Object = Nothing + Property ncts_ArtAnmeldung As Object = Nothing + Property ncts_BeladungsOrt As Object = Nothing + + Property ncts_DurchgangszollstelleDienststellnummer1 As Object = Nothing + Property ncts_DurchgangszollstelleDienststellnummer2 As Object = Nothing + Property ncts_DurchgangszollstelleDienststellnummer3 As Object = Nothing + Property ncts_DurchgangszollstelleDienststellnummer4 As Object = Nothing + Property ncts_DurchgangszollstelleDienststellnummer5 As Object = Nothing + Property ncts_DurchgangszollstelleDienststellnummer6 As Object = Nothing + Property ncts_DurchgangszollstelleDienststellnummer7 As Object = Nothing + Property ncts_DurchgangszollstelleDienststellnummer8 As Object = Nothing + Property ncts_DurchgangszollstelleDienststellnummer9 As Object = Nothing + + Property ncts_BestimmungsstelleDienststellennummer As Object = Nothing + Property ncts_AbgangsDienststellennummer As Object = Nothing + Property ncts_Wiedergestellungsdatum As Object = Nothing + Property ncts_KzVereinfachtesVerfahren As Object = Nothing + Property ncts_GesamtRohmasse As Object = Nothing + Property ncts_GesamtAnzahlPackstuecke As Object = Nothing + Property ncts_Verschluss_ArtCode As Object = Nothing + Property ncts_Verschluss_Anzahl As Object = Nothing + Property ncts_Verschluss_Zeichen1 As Object = Nothing + Property ncts_Verschluss_Zeichen2 As Object = Nothing + Property ncts_Verschluss_Zeichen3 As Object = Nothing + Property ncts_Verschluss_Zeichen4 As Object = Nothing + Property ncts_Verschluss_Zeichen5 As Object = Nothing + Property ncts_Verschluss_Zeichen6 As Object = Nothing + Property ncts_Verschluss_Zeichen7 As Object = Nothing + Property ncts_Verschluss_Zeichen8 As Object = Nothing + Property ncts_Verschluss_Zeichen9 As Object = Nothing + Property ncts_Verschluss_Zeichen10 As Object = Nothing + Property ncts_Verschluss_Zeichen11 As Object = Nothing + Property ncts_Verschluss_Zeichen12 As Object = Nothing + Property ncts_Verschluss_Zeichen13 As Object = Nothing + Property ncts_Verschluss_Zeichen14 As Object = Nothing + Property ncts_Verschluss_Zeichen15 As Object = Nothing + Property ncts_Verschluss_Zeichen16 As Object = Nothing + Property ncts_Befoerderungsmittel_KennzeichenAbgang As Object = Nothing + Property ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode As Object = Nothing + Property ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent As Object = Nothing + Property ncts_Befoerderungsmittel_ArtGrenzueberschreitung As Object = Nothing + Property ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend As Object = Nothing + Property ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode As Object = Nothing + Property ncts_Versender_EORI As Object = Nothing + Property ncts_Versender_NLNR As Object = Nothing + Property ncts_Versender_TIN As Object = Nothing + Property ncts_Versender_Name As Object = Nothing + Property ncts_Versender_StrasseHausnummer As Object = Nothing + Property ncts_Versender_Ort As Object = Nothing + Property ncts_Versender_PLZ As Object = Nothing + Property ncts_Versender_Land As Object = Nothing + Property ncts_Empfaenger_EORI As Object = Nothing + Property ncts_Empfaenger_NLNR As Object = Nothing + Property ncts_Empfaenger_TIN As Object = Nothing + Property ncts_Empfaenger_Name As Object = Nothing + Property ncts_Empfaenger_StrasseHausnummer As Object = Nothing + Property ncts_Empfaenger_Ort As Object = Nothing + Property ncts_Empfaenger_PLZ As Object = Nothing + Property ncts_Empfaenger_Land As Object = Nothing + Property ncts_Hauptverpflichteter_EORI As Object = Nothing + Property ncts_Hauptverpflichteter_NLNR As Object = Nothing + Property ncts_Hauptverpflichteter_TIN As Object = Nothing + Property ncts_Hauptverpflichteter_Name As Object = Nothing + Property ncts_Hauptverpflichteter_StrasseHausnummer As Object = Nothing + Property ncts_Hauptverpflichteter_Ort As Object = Nothing + Property ncts_Hauptverpflichteter_PLZ As Object = Nothing + Property ncts_Hauptverpflichteter_Land As Object = Nothing + Property ncts_ZugelassenerEmpfaenger_IDCarnet As Object = Nothing + Property ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender As Object = Nothing + Property ncts_ZugelassenerEmpfaenger_EORI As Object = Nothing + Property ncts_ZugelassenerEmpfaenger_TIN As Object = Nothing + + Property ncts_SumA_KzSumASicherheit As Object = Nothing + Property ncts_SumA_KennnummerSendung As Object = Nothing + Property ncts_SumA_BesondereUmstaende As Object = Nothing + Property ncts_SumA_NummerBefoerderung As Object = Nothing + Property ncts_SumA_Ladeort As Object = Nothing + Property ncts_SumA_Entladeort As Object = Nothing + Property ncts_SumA_BefoerderungskostenZahlungsweise As Object = Nothing + Property ncts_SumA_BefoerderungsrouteLand1 As Object = Nothing + Property ncts_SumA_BefoerderungsrouteLand2 As Object = Nothing + Property ncts_SumA_BefoerderungsrouteLand3 As Object = Nothing + Property ncts_SumA_BefoerderungsrouteLand4 As Object = Nothing + Property ncts_SumA_BefoerderungsrouteLand5 As Object = Nothing + Property ncts_SumA_BefoerderungsrouteLand6 As Object = Nothing + Property ncts_SumA_BefoerderungsrouteLand7 As Object = Nothing + Property ncts_SumA_BefoerderungsrouteLand8 As Object = Nothing + Property ncts_SumA_BefoerderungsrouteLand9 As Object = Nothing + Property ncts_SumA_BefoerderungsrouteLand10 As Object = Nothing + Property ncts_SumA_BefoerderungsrouteLand11 As Object = Nothing + Property ncts_SumA_BefoerderungsrouteLand12 As Object = Nothing + Property ncts_SumA_Versender_EORI As Object = Nothing + Property ncts_SumA_Versender_NLNR As Object = Nothing + Property ncts_SumA_Versender_TIN As Object = Nothing + Property ncts_SumA_Versender_Name As Object = Nothing + Property ncts_SumA_Versender_StrasseHausnummer As Object = Nothing + Property ncts_SumA_Versender_Land As Object = Nothing + Property ncts_SumA_Versender_PLZ As Object = Nothing + Property ncts_SumA_Versender_Ort As Object = Nothing + + Property ncts_SumA_Empfaenger_EORI As Object = Nothing + Property ncts_SumA_Empfaenger_NLNR As Object = Nothing + Property ncts_SumA_Empfaenger_TIN As Object = Nothing + Property ncts_SumA_Empfaenger_Name As Object = Nothing + Property ncts_SumA_Empfaenger_StrasseHausnummer As Object = Nothing + Property ncts_SumA_Empfaenger_Land As Object = Nothing + Property ncts_SumA_Empfaenger_PLZ As Object = Nothing + Property ncts_SumA_Empfaenger_Ort As Object = Nothing + + Property ncts_SumA_Befoerderer_EORI As Object = Nothing + Property ncts_SumA_Befoerderer_NLNR As Object = Nothing + Property ncts_SumA_Befoerderer_TIN As Object = Nothing + Property ncts_SumA_Befoerderer_Name As Object = Nothing + Property ncts_SumA_Befoerderer_StrasseHausnummer As Object = Nothing + Property ncts_SumA_Befoerderer_Land As Object = Nothing + Property ncts_SumA_Befoerderer_PLZ As Object = Nothing + Property ncts_SumA_Befoerderer_Ort As Object = Nothing + Property ncts_Stammreferenz As Object = Nothing + + Property ncts_GUID As Object = Nothing + Property ncts_Eroeffnung As Object = Nothing + Property ncts_Ankunft As Object = Nothing + Property ncts_Erledigung As Object = Nothing + Property ncts_AVISO_einarbeitet As Boolean = False + + Property ncts_SICHERHEITSANGABEN As New List(Of cNCTS_TR_Sicherheitsangaben) + Property ncts_WARENPOS As New List(Of cNCTS_TR_Warenposition) + + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + + Function GET_SHIPMENTS(Partnersystem, VorpapierArt, VorpapierNr) As List(Of VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_FULL) + GET_SHIPMENTS = New List(Of VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_FULL) + Dim dt = SQL.loadDgvBySql("Select [shTr_id] FROM [tblTR_Shipment] where shTr_Partnersystem='" & Partnersystem & "' AND [PrePaperCode]='" & VorpapierArt & "' and [PrePaperNr]='" & VorpapierNr & "'", "FMZOLL") + ' MsgBox("Select [shTr_id] FROM [tblTR_Shipment] where shTr_Partnersystem='" & Partnersystem & "' AND [PrePaperCode]='" & VorpapierArt & "' and [PrePaperNr]='" & VorpapierNr & "'") + If dt IsNot Nothing Then + For Each r In dt.Rows + Dim SH As New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_FULL(CInt(r("shTr_id"))) + If SH IsNot Nothing Then + GET_SHIPMENTS.Add(SH) + End If + Next + End If + + End Function + + Sub New() + + End Sub + + Sub New(ncts_dyaAnmID As Integer, ncts_Erstellung_SB As Integer) + Me.ncts_dyaAnmID = ncts_dyaAnmID + Me.ncts_Erstellung_SB = ncts_Erstellung_SB + Me.ncts_LetzteBearbeitung_SB = ncts_Erstellung_SB + End Sub + + Sub New(ncts_Id) + Me.ncts_Id = ncts_Id + LOAD() + End Sub + + Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Id", ncts_Id, , True, True)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Partnersystem", ncts_Partnersystem)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Status", ncts_Status)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Status_KEWILL_Equivalent", ncts_Status_KEWILL_Equivalent)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_dyaArt", ncts_dyaArt)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_dyaAnmID", ncts_dyaAnmID)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ANR", ncts_ANR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_MRN", ncts_MRN)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Erstellung", ncts_Erstellung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Erstellung_SB", ncts_Erstellung_SB)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_LetzteBearbeitung", ncts_LetzteBearbeitung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_LetzteBearbeitung_SB", ncts_LetzteBearbeitung_SB)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_firma", ncts_firma)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_niederlassung", ncts_niederlassung)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Gestellt", ncts_Gestellt)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_GestelltAm", ncts_GestelltAm)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Trans_Partner", ncts_Trans_Partner)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Trans_Div1", ncts_Trans_Div1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Trans_Div2", ncts_Trans_Div2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Trans_Div3", ncts_Trans_Div3)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Trans_Referenz", ncts_Trans_Referenz)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Trans_DatumZeit", ncts_Trans_DatumZeit)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Trans_Version", ncts_Trans_Version)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_NachrichtenSenderTIN", ncts_NachrichtenSenderTIN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_NachrichtenSenderNLNR", ncts_NachrichtenSenderNLNR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_NachrichtenempfaengerDST", ncts_NachrichtenempfaengerDST)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ObjectName", ncts_ObjectName)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ObjectAlias", ncts_ObjectAlias)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_BezugsnummerVorblendung", ncts_BezugsnummerVorblendung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Bearbeiter", ncts_Bearbeiter)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_VersendungsLandCode", ncts_VersendungsLandCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_BestimmungslandCode", ncts_BestimmungslandCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ArtAnmeldung", ncts_ArtAnmeldung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_BeladungsOrt", ncts_BeladungsOrt)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DurchgangszollstelleDienststellnummer1", ncts_DurchgangszollstelleDienststellnummer1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DurchgangszollstelleDienststellnummer2", ncts_DurchgangszollstelleDienststellnummer2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DurchgangszollstelleDienststellnummer3", ncts_DurchgangszollstelleDienststellnummer3)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DurchgangszollstelleDienststellnummer4", ncts_DurchgangszollstelleDienststellnummer4)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DurchgangszollstelleDienststellnummer5", ncts_DurchgangszollstelleDienststellnummer5)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DurchgangszollstelleDienststellnummer6", ncts_DurchgangszollstelleDienststellnummer6)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DurchgangszollstelleDienststellnummer7", ncts_DurchgangszollstelleDienststellnummer7)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DurchgangszollstelleDienststellnummer8", ncts_DurchgangszollstelleDienststellnummer8)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DurchgangszollstelleDienststellnummer9", ncts_DurchgangszollstelleDienststellnummer9)) + + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_BestimmungsstelleDienststellennummer", ncts_BestimmungsstelleDienststellennummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AbgangsDienststellennummer", ncts_AbgangsDienststellennummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Wiedergestellungsdatum", ncts_Wiedergestellungsdatum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_KzVereinfachtesVerfahren", ncts_KzVereinfachtesVerfahren)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_GesamtRohmasse", ncts_GesamtRohmasse)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_GesamtAnzahlPackstuecke", ncts_GesamtAnzahlPackstuecke)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_ArtCode", ncts_Verschluss_ArtCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_Anzahl", ncts_Verschluss_Anzahl)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_Zeichen1", ncts_Verschluss_Zeichen1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_Zeichen2", ncts_Verschluss_Zeichen2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_Zeichen3", ncts_Verschluss_Zeichen3)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_Zeichen4", ncts_Verschluss_Zeichen4)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_Zeichen5", ncts_Verschluss_Zeichen5)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_Zeichen6", ncts_Verschluss_Zeichen6)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_Zeichen7", ncts_Verschluss_Zeichen7)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_Zeichen8", ncts_Verschluss_Zeichen8)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_Zeichen9", ncts_Verschluss_Zeichen9)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_Zeichen10", ncts_Verschluss_Zeichen10)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_Zeichen11", ncts_Verschluss_Zeichen11)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_Zeichen12", ncts_Verschluss_Zeichen12)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_Zeichen13", ncts_Verschluss_Zeichen13)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_Zeichen14", ncts_Verschluss_Zeichen14)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_Zeichen15", ncts_Verschluss_Zeichen15)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Verschluss_Zeichen16", ncts_Verschluss_Zeichen16)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Befoerderungsmittel_KennzeichenAbgang", ncts_Befoerderungsmittel_KennzeichenAbgang)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode", ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent", ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Befoerderungsmittel_ArtGrenzueberschreitung", ncts_Befoerderungsmittel_ArtGrenzueberschreitung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend", ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode", ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Versender_EORI", ncts_Versender_EORI)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Versender_NLNR", ncts_Versender_NLNR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Versender_TIN", ncts_Versender_TIN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Versender_Name", ncts_Versender_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Versender_StrasseHausnummer", ncts_Versender_StrasseHausnummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Versender_Ort", ncts_Versender_Ort)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Versender_PLZ", ncts_Versender_PLZ)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Versender_Land", ncts_Versender_Land)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Empfaenger_EORI", ncts_Empfaenger_EORI)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Empfaenger_NLNR", ncts_Empfaenger_NLNR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Empfaenger_TIN", ncts_Empfaenger_TIN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Empfaenger_Name", ncts_Empfaenger_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Empfaenger_StrasseHausnummer", ncts_Empfaenger_StrasseHausnummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Empfaenger_Ort", ncts_Empfaenger_Ort)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Empfaenger_PLZ", ncts_Empfaenger_PLZ)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Empfaenger_Land", ncts_Empfaenger_Land)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Hauptverpflichteter_EORI", ncts_Hauptverpflichteter_EORI)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Hauptverpflichteter_NLNR", ncts_Hauptverpflichteter_NLNR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Hauptverpflichteter_TIN", ncts_Hauptverpflichteter_TIN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Hauptverpflichteter_Name", ncts_Hauptverpflichteter_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Hauptverpflichteter_StrasseHausnummer", ncts_Hauptverpflichteter_StrasseHausnummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Hauptverpflichteter_Ort", ncts_Hauptverpflichteter_Ort)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Hauptverpflichteter_PLZ", ncts_Hauptverpflichteter_PLZ)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Hauptverpflichteter_Land", ncts_Hauptverpflichteter_Land)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ZugelassenerEmpfaenger_IDCarnet", ncts_ZugelassenerEmpfaenger_IDCarnet)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender", ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ZugelassenerEmpfaenger_EORI", ncts_ZugelassenerEmpfaenger_EORI)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ZugelassenerEmpfaenger_TIN", ncts_ZugelassenerEmpfaenger_TIN)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_KzSumASicherheit", ncts_SumA_KzSumASicherheit)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_KennnummerSendung", ncts_SumA_KennnummerSendung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_NummerBefoerderung", ncts_SumA_NummerBefoerderung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_BesondereUmstaende", ncts_SumA_BesondereUmstaende)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Ladeort", ncts_SumA_Ladeort)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Entladeort", ncts_SumA_Entladeort)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_BefoerderungskostenZahlungsweise", ncts_SumA_BefoerderungskostenZahlungsweise)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_BefoerderungsrouteLand1", ncts_SumA_BefoerderungsrouteLand1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_BefoerderungsrouteLand2", ncts_SumA_BefoerderungsrouteLand2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_BefoerderungsrouteLand3", ncts_SumA_BefoerderungsrouteLand3)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_BefoerderungsrouteLand4", ncts_SumA_BefoerderungsrouteLand4)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_BefoerderungsrouteLand5", ncts_SumA_BefoerderungsrouteLand5)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_BefoerderungsrouteLand6", ncts_SumA_BefoerderungsrouteLand6)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_BefoerderungsrouteLand7", ncts_SumA_BefoerderungsrouteLand7)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_BefoerderungsrouteLand8", ncts_SumA_BefoerderungsrouteLand8)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_BefoerderungsrouteLand9", ncts_SumA_BefoerderungsrouteLand9)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_BefoerderungsrouteLand10", ncts_SumA_BefoerderungsrouteLand10)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_BefoerderungsrouteLand11", ncts_SumA_BefoerderungsrouteLand11)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_BefoerderungsrouteLand12", ncts_SumA_BefoerderungsrouteLand12)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Versender_EORI", ncts_SumA_Versender_EORI)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Versender_NLNR", ncts_SumA_Versender_NLNR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Versender_TIN", ncts_SumA_Versender_TIN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Versender_Name", ncts_SumA_Versender_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Versender_StrasseHausnummer", ncts_SumA_Versender_StrasseHausnummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Versender_Land", ncts_SumA_Versender_Land)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Versender_PLZ", ncts_SumA_Versender_PLZ)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Versender_Ort", ncts_SumA_Versender_Ort)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Empfaenger_EORI", ncts_SumA_Empfaenger_EORI)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Empfaenger_NLNR", ncts_SumA_Empfaenger_NLNR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Empfaenger_TIN", ncts_SumA_Empfaenger_TIN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Empfaenger_Name", ncts_SumA_Empfaenger_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Empfaenger_StrasseHausnummer", ncts_SumA_Empfaenger_StrasseHausnummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Empfaenger_Land", ncts_SumA_Empfaenger_Land)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Empfaenger_PLZ", ncts_SumA_Empfaenger_PLZ)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Empfaenger_Ort", ncts_SumA_Empfaenger_Ort)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Befoerderer_EORI", ncts_SumA_Befoerderer_EORI)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Befoerderer_NLNR", ncts_SumA_Befoerderer_NLNR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Befoerderer_TIN", ncts_SumA_Befoerderer_TIN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Befoerderer_Name", ncts_SumA_Befoerderer_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Befoerderer_StrasseHausnummer", ncts_SumA_Befoerderer_StrasseHausnummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Befoerderer_Land", ncts_SumA_Befoerderer_Land)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Befoerderer_PLZ", ncts_SumA_Befoerderer_PLZ)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SumA_Befoerderer_Ort", ncts_SumA_Befoerderer_Ort)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Stammreferenz", ncts_Stammreferenz)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_GUID", ncts_GUID)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Eroeffnung", ncts_Eroeffnung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Ankunft", ncts_Ankunft)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Erledigung", ncts_Erledigung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AVISO_einarbeitet", ncts_AVISO_einarbeitet)) + + Return list + End Function + + Public Function UPDATE_STATUS(status) As Boolean + Me.ncts_Status = status + Return Me.SAVE + End Function + + Public Function SAVE(Optional errHinweis = "") As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblNCTS_TR WITH(updlock,serializable) WHERE ncts_Id=@ncts_Id) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + Dim ncts_IdTMP = ncts_Id + ncts_IdTMP = SQL.doSQLVarListID(ncts_IdTMP, sqlstr, "FMZOLL", , list, , errHinweis) + If ncts_Id <= 0 Then ncts_Id = ncts_IdTMP + Return ncts_Id > 0 + End Function + + Public Function SAVE_ALL(Optional errHinweis = "") As Boolean + If Not SAVE(errHinweis) Then Return False + If Not SAVE_Warenposition() Or Not SAVE_Sicherheitsangaben() Then Return False + + Return True + End Function + + Public Function LOAD(Optional loadALL As Boolean = True) As Boolean + Try + LOAD = False + If loadALL Then + ncts_SICHERHEITSANGABEN.Clear() + ncts_WARENPOS.Clear() + End If + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblNCTS_TR WHERE ncts_Id=@ncts_Id ", conn) + cmd.Parameters.AddWithValue("@ncts_Id", ncts_Id) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + If loadALL Then + LOAD_Sicherheitsangaben() + LOAD_Warenposition() + End If + LOAD = True + End If + dr.Close() + + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return LOAD + End Function + + + + + Shared Function LOADByAnmIDFull(ncts_dyaAnmID As String, loadALL As Boolean) As cNCTS_TR + Try + Dim NCTS As New cNCTS_TR + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblNCTS_TR WHERE ncts_dyaAnmID=@ncts_dyaAnmID ", conn) + cmd.Parameters.AddWithValue("@ncts_dyaAnmID", ncts_dyaAnmID) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In NCTS.getParameterList() + Dim propInfo As PropertyInfo = NCTS.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(NCTS, Nothing) + Else + propInfo.SetValue(NCTS, dr.Item(l.Text)) + End If + + Next + If loadALL Then + NCTS.LOAD_Sicherheitsangaben() + NCTS.LOAD_Warenposition() + End If + + dr.Close() + Return NCTS + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return Nothing + End Function + + Shared Function UPDATE_StatusById(ncts_Id As Integer, status As Integer) As String + If ncts_Id > 0 Then + Try + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Id", ncts_Id, , True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Status_KEWILL_Equivalent", status, , True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Status", status, , True)) + 'dy_Status_KEWILL_Equivalent = status + 'dy_Status = status + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Return SQL.doSQLVarList(" UPDATE [tblNCTS_TR] SET ncts_Status_KEWILL_Equivalent=@ncts_Status_KEWILL_Equivalent,ncts_Status=@ncts_Status WHERE ncts_Id=@ncts_Id ", "FMZOLL", , list) + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End If + Return "" + End Function + + + Public Function LOADByAnmID(ncts_dyaAnmID As String, loadALL As Boolean) As Boolean + Try + LOADByAnmID = False + If loadALL Then + ncts_SICHERHEITSANGABEN.Clear() + ncts_WARENPOS.Clear() + End If + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblNCTS_TR WHERE ncts_dyaAnmID=@ncts_dyaAnmID ", conn) + cmd.Parameters.AddWithValue("@ncts_dyaAnmID", ncts_dyaAnmID) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + If loadALL Then + LOAD_Sicherheitsangaben() + LOAD_Warenposition() + End If + LOADByAnmID = True + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return LOADByAnmID + End Function + + Shared Function LOADByBezugsNr_or_GUID_or_MRN(bezugsNr As String, GUID As String, MRN As String, loadALL As Boolean, Optional checkValidStatus As Boolean = False, Optional Partnersystem As String = "") As cNCTS_TR + LOADByBezugsNr_or_GUID_or_MRN = Nothing + + If bezugsNr <> "" Then LOADByBezugsNr_or_GUID_or_MRN = LOADByBezugsNr(bezugsNr, loadALL, checkValidStatus, Partnersystem) + + If LOADByBezugsNr_or_GUID_or_MRN Is Nothing Then + If GUID <> "" Then LOADByBezugsNr_or_GUID_or_MRN = LOADByGUID(GUID, loadALL, checkValidStatus, Partnersystem) + End If + If LOADByBezugsNr_or_GUID_or_MRN Is Nothing Then + If MRN <> "" Then LOADByBezugsNr_or_GUID_or_MRN = LOADByMRN(MRN, loadALL, checkValidStatus, Partnersystem) + End If + End Function + + + Shared Function LOADByMRN(MRN As String, loadALL As Boolean, Optional checkValidStatus As Boolean = False, Optional Partnersystem As String = "") As cNCTS_TR + Try + Dim NCTS As New cNCTS_TR + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + ' Using cmd As New SqlCommand("SELECT TOP 1 * FROM (SELECT * FROM tblNCTS_TR WHERE ncts_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " ) AS T order by ncts_status desc, (SELECT top 1 dySt_ts FROM [tblDakosy_Statusmeldungen] WHERE ncts_dyaAnmID=ncts_dyaAnmID order by dySt_ts desc) desc,ncts_LetzteBearbeitung desc ", conn) + 'Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblNCTS_TR WHERE ncts_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " order by ncts_status desc, (SELECT top 1 dySt_ts FROM [tblDakosy_Statusmeldungen] WHERE ncts_dyaAnmID=ncts_dyaAnmID order by dySt_ts desc) desc,ncts_LetzteBearbeitung desc ", conn) + Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblNCTS_TR WHERE ncts_MRN LIKE @MRN " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & If(Partnersystem <> "", " AND ncts_Partnersystem ='" & Partnersystem & "' ", "") & " order by ncts_LetzteBearbeitung desc", conn) + 'MsgBox("SELECT TOP 1 * FROM tblNCTS_TR WHERE ncts_ObjectName LIKE " & bezugsNr & " " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " order by ncts_status desc, (SELECT top 1 dySt_ts FROM [tblDakosy_Statusmeldungen] inner join tblDakosy_Zollanmeldungen on dy_id = dySt_dyId WHERE ncts_dyaAnmID=dy_id order by dySt_ts desc) desc,ncts_LetzteBearbeitung desc ") + cmd.Parameters.AddWithValue("@MRN", MRN) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In NCTS.getParameterList() + Dim propInfo As PropertyInfo = NCTS.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(NCTS, Nothing) + Else + propInfo.SetValue(NCTS, dr.Item(l.Text)) + End If + + Next + If loadALL Then + NCTS.LOAD_Sicherheitsangaben() + NCTS.LOAD_Warenposition() + End If + + dr.Close() + Return NCTS + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return Nothing + + End Function + Shared Function LOADByBezugsNr(bezugsNr As String, loadALL As Boolean, Optional checkValidStatus As Boolean = False, Optional Partnersystem As String = "") As cNCTS_TR + Try + Dim NCTS As New cNCTS_TR + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + ' Using cmd As New SqlCommand("SELECT TOP 1 * FROM (SELECT * FROM tblNCTS_TR WHERE ncts_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " ) AS T order by ncts_status desc, (SELECT top 1 dySt_ts FROM [tblDakosy_Statusmeldungen] WHERE ncts_dyaAnmID=ncts_dyaAnmID order by dySt_ts desc) desc,ncts_LetzteBearbeitung desc ", conn) + 'Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblNCTS_TR WHERE ncts_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " order by ncts_status desc, (SELECT top 1 dySt_ts FROM [tblDakosy_Statusmeldungen] WHERE ncts_dyaAnmID=ncts_dyaAnmID order by dySt_ts desc) desc,ncts_LetzteBearbeitung desc ", conn) + Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblNCTS_TR WHERE ncts_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & If(Partnersystem <> "", " AND ncts_Partnersystem ='" & Partnersystem & "' ", "") & " order by ncts_LetzteBearbeitung desc", conn) + ' MsgBox("SELECT TOP 1 * FROM tblNCTS_TR WHERE ncts_ObjectName LIKE '" & bezugsNr & "' " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & If(Partnersystem <> "", " AND ncts_Partnersystem ='" & Partnersystem & "' ", "") & " order by ncts_LetzteBearbeitung desc") + cmd.Parameters.AddWithValue("@bezugsNr", bezugsNr) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In NCTS.getParameterList() + Dim propInfo As PropertyInfo = NCTS.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(NCTS, Nothing) + Else + propInfo.SetValue(NCTS, dr.Item(l.Text)) + End If + + Next + If loadALL Then + NCTS.LOAD_Sicherheitsangaben() + NCTS.LOAD_Warenposition() + End If + + dr.Close() + Return NCTS + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return Nothing + End Function + + Shared Function LOADByGUID(GUID As String, loadALL As Boolean, Optional checkValidStatus As Boolean = False, Optional Partnersystem As String = "") As cNCTS_TR + Try + Dim NCTS As New cNCTS_TR + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + ' Using cmd As New SqlCommand("SELECT TOP 1 * FROM (SELECT * FROM tblNCTS_TR WHERE ncts_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " ) AS T order by ncts_status desc, (SELECT top 1 dySt_ts FROM [tblDakosy_Statusmeldungen] WHERE ncts_dyaAnmID=ncts_dyaAnmID order by dySt_ts desc) desc,ncts_LetzteBearbeitung desc ", conn) + 'Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblNCTS_TR WHERE ncts_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " order by ncts_status desc, (SELECT top 1 dySt_ts FROM [tblDakosy_Statusmeldungen] WHERE ncts_dyaAnmID=ncts_dyaAnmID order by dySt_ts desc) desc,ncts_LetzteBearbeitung desc ", conn) + Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblNCTS_TR WHERE ncts_GUID LIKE @GUID " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & If(Partnersystem <> "", " AND ncts_Partnersystem ='" & Partnersystem & "' ", "") & " order by ncts_LetzteBearbeitung desc", conn) + 'MsgBox("SELECT TOP 1 * FROM tblNCTS_TR WHERE ncts_ObjectName LIKE " & bezugsNr & " " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " order by ncts_status desc, (SELECT top 1 dySt_ts FROM [tblDakosy_Statusmeldungen] inner join tblDakosy_Zollanmeldungen on dy_id = dySt_dyId WHERE ncts_dyaAnmID=dy_id order by dySt_ts desc) desc,ncts_LetzteBearbeitung desc ") + cmd.Parameters.AddWithValue("@GUID", GUID) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In NCTS.getParameterList() + Dim propInfo As PropertyInfo = NCTS.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(NCTS, Nothing) + Else + propInfo.SetValue(NCTS, dr.Item(l.Text)) + End If + + Next + If loadALL Then + NCTS.LOAD_Sicherheitsangaben() + NCTS.LOAD_Warenposition() + End If + + dr.Close() + Return NCTS + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return Nothing + End Function + + + Public Function UPDATE_Status(status As Integer) As String + If ncts_Id > 0 Then + Try + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Id", ncts_Id, , True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Status", status, , True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Status_KEWILL_Equivalent", status, , True)) + ncts_Status = status + ncts_Status_KEWILL_Equivalent = status + Return SQL.doSQLVarList(" UPDATE [tblNCTS_TR] SET ncts_Status=@ncts_Status WHERE ncts_Id=@ncts_Id ", "FMZOLL", , list) + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End If + Return "" + End Function + + + Public Function UPDATE_AVISO_Einarbeitet(ncts_AVISO_einarbeitet As Boolean) As String + If ncts_Id > 0 Then + Try + + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Id", ncts_Id, , True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AVISO_einarbeitet", ncts_AVISO_einarbeitet)) + ncts_AVISO_einarbeitet = ncts_AVISO_einarbeitet + Return SQL.doSQLVarList(" UPDATE [tblNCTS_TR] SET ncts_AVISO_einarbeitet=@ncts_AVISO_einarbeitet WHERE ncts_Id=@ncts_Id ", "FMZOLL", , list) + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End If + Return "" + End Function + + Public Function getUpdateCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim str As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + Return (" UPDATE [tblNCTS_TR] SET " & str & " WHERE ncts_Id=@ncts_Id ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO tblNCTS_TR (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + Public Sub LOAD_Sicherheitsangaben() + Try + ncts_SICHERHEITSANGABEN.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblNCTS_TR_Sicherheitsangaben WHERE nctsSA_NctsId=@ncts_Id ", conn) + cmd.Parameters.AddWithValue("@ncts_Id", Me.ncts_Id) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim l As New cNCTS_TR_Sicherheitsangaben + For Each i In l.getParameterList() + Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable) + If dr.Item(i.Text) Is DBNull.Value Then + propInfo.SetValue(l, Nothing) + Else + propInfo.SetValue(l, dr.Item(i.Text)) + End If + Next + ncts_SICHERHEITSANGABEN.Add(l) + End While + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + Public Sub LOAD_Warenposition() + Try + ncts_WARENPOS.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblNCTS_TR_Warenposition WHERE nctsWP_NctsId=@ncts_Id ", conn) + cmd.Parameters.AddWithValue("@ncts_Id", Me.ncts_Id) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim l As New cNCTS_TR_Warenposition() + For Each i In l.getParameterList() + Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable) + If dr.Item(i.Text) Is DBNull.Value Then + propInfo.SetValue(l, Nothing) + Else + propInfo.SetValue(l, dr.Item(i.Text)) + End If + Next + l.LOAD_WarenpositionPackstuecke() + 'l.LOAD_WarenpositionUnterlagen() + ncts_WARENPOS.Add(l) + End While + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + Public Shared Function get_Warenposition(ncts_Id As Integer, Optional loadAll As Boolean = False) As List(Of cNCTS_TR_Warenposition) + Try + Dim ncts_WARENPOS As New List(Of cNCTS_TR_Warenposition) + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblNCTS_TR_Warenposition WHERE nctsWP_NctsId=@ncts_Id ", conn) + cmd.Parameters.AddWithValue("@ncts_Id", ncts_Id) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim l As New cNCTS_TR_Warenposition() + For Each i In l.getParameterList() + Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable) + If dr.Item(i.Text) Is DBNull.Value Then + propInfo.SetValue(l, Nothing) + Else + propInfo.SetValue(l, dr.Item(i.Text)) + End If + Next + l.LOAD_WarenpositionPackstuecke() + ' l.LOAD_WarenpositionUnterlagen() + ncts_WARENPOS.Add(l) + End While + dr.Close() + End Using + End Using + Return ncts_WARENPOS + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return Nothing + End Function + + Function DELETE_Warenpositionen() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblNCTS_TR_Warenposition] WHERE nctsWP_NctsId=" & Me.ncts_Id & " " + ' MsgBox(sqlstr) + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + Function DELETE_WarenpositionPackstuecke() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblNCTS_TR_WarenpositionPackstuecke] WHERE nctsWpPk_NctsId=" & Me.ncts_Id & " " + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + 'Function DELETE_WarenpositionUnterlagen() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + ' Dim sqlstr = " DELETE FROM [tblNCTS_TR_WarenpositionVorgelegteUnterlagen] WHERE nctsWpUl_NctsId =" & Me.ncts_Id & " " + ' Return SQL.doSQL(sqlstr, "FMZOLL") + 'End Function + + Public Function SAVE_Warenposition() As Boolean + 'Zuserst alle OffertenPos von dem Offert löschen + If DELETE_Warenpositionen() And DELETE_WarenpositionPackstuecke() Then 'And DELETE_WarenpositionUnterlagen() Then + 'jetzt die Standartofferten einfügen + For Each p In ncts_WARENPOS + p.nctsWP_NctsId = ncts_Id + If p.INSERT() Then + p.INSERT_WarenpositionPackstuecke(p.nctsWP_Id, Me.ncts_Id) + 'p.INSERT_WarenpositionUnterlagen(p.nctsWP_Id, Me.ncts_Id) + Else + Return False + End If + Next + Else + Return False + End If + + Return True + End Function + + Function DELETE_Sicherheitsangaben() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblNCTS_TR_Sicherheitsangaben] WHERE nctsSA_NctsId=" & Me.ncts_Id & " " + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + Public Function SAVE_Sicherheitsangaben() As Boolean + 'Zuserst alle OffertenPos von dem Offert löschen + If DELETE_Sicherheitsangaben() Then + 'jetzt die Standartofferten einfügen + For Each p In ncts_SICHERHEITSANGABEN + p.nctsSA_NctsId = ncts_Id + If Not p.INSERT() Then + Return False + End If + Next + Else + Return False + End If + Return True + End Function + + Function countSpedbuchEntrys(filiale, ncts) As Integer + If If(ncts, "") = "" Then Return 0 + Return SQL.getValueTxtBySqlVarList("SELECT isnull(count(*),0) FROM Speditionsbuch WHERE [FilialenNr]='" & filiale & "' AND AtlasBezNrNCTS='" & ncts & "'", "FMZOLL") + End Function + + + + Function countSpedbuchEntrysFilialeAbf(filiale, abfertigungsnummer) As Integer + If If(abfertigungsnummer, "") = "" Then Return 0 + Return SQL.getValueTxtBySqlVarList("SELECT isnull(count(*),0) FROM Speditionsbuch WHERE [FilialenNr]='" & filiale & "' AND AbfertigungsNr='" & abfertigungsnummer & "'", "FMZOLL") + End Function + + + + + + Shared Function getFiliale(ByVal bezugsNr, ByRef filialeBez) As String + getFiliale = "" + If If(bezugsNr, "").ToString.Length > 4 Then + Select Case bezugsNr.ToString.Substring(0, 4) + Case "4803" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803 + Case "4811" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803 + Case "5003" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803 + Case "5103" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803 + Case "5303" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803 + Case "5501", "5601", "5701", "5801" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803 + Case Else + If IsNumeric(bezugsNr.ToString.Substring(0, 4)) Then Return bezugsNr.ToString.Substring(0, 4) 'Case Else : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803 + 'Case "4801", "4803", "4805", "4807", "4811", "5003", "5103", "5303" : Return bezugsNr.ToString.Substring(0, 4) ...... derzeit nur 4803 + 'filialeBez SUB, NKD, WAI,.-.. + End Select + End If + End Function + + + Shared Function getAbfertigungsnummer(ByVal bezugsNr) As String + getAbfertigungsnummer = "" + If If(bezugsNr, "").ToString.Length > 5 Then + + Dim abf = "" + For Each s In bezugsNr.ToString.Substring(5) + If Not IsNumeric(s) Then Exit For + abf &= s + Next + + + If IsNumeric(abf) Then + If CLng(abf) < 99000000 Then ' wenn zu groß, fehlerhaft + If CLng(abf) > 18000000 And CLng(abf) < 99000000 Then + Return abf + Else + Return "18" & CInt(abf).ToString("000000") + End If + End If + End If + End If + Return "" + End Function + Sub getFilialeAbfertigungsnummerFromSendung(ByRef filiale, ByRef abfertigungsnummer, dy_SendungsId) + If dy_SendungsId IsNot Nothing AndAlso IsNumeric(dy_SendungsId) Then + Dim SND As New VERAG_PROG_ALLGEMEIN.cSendungen(dy_SendungsId) + If SND IsNot Nothing Then + If SND.FilialenNr > 0 Then filiale = SND.FilialenNr + If SND.AbfertigungsNr > 0 Then abfertigungsnummer = SND.AbfertigungsNr + End If + End If + End Sub + + + + + Shared Function getAdresseFromEORI(EORI As String, EORI_NL As String, SQL As VERAG_PROG_ALLGEMEIN.SQL) + If EORI Is Nothing Then Return Nothing + If If(EORI, "") <> "" Then + Dim kdNrTmp = SQL.getFMZOLLKdNrFromEORI(EORI, EORI_NL) + If IsNumeric(kdNrTmp) Then + Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(kdNrTmp) + Return ADRESSE + End If + End If + Return Nothing + End Function + +End Class + + + +Public Class cNCTS_TR_Sicherheitsangaben + + Property nctsSA_Id As Integer + Property nctsSA_NctsId As Object = Nothing + Property nctsSA_ArtCode As Object = Nothing + Property nctsSA_BezeichnungBescheinigun As Object = Nothing + Property nctsSA_AbgabenBetrag As Object = Nothing + Property nctsSA_GRN As Object = Nothing + Property nctsSA_Zugriffcode As Object = Nothing + Property nctsSA_TIN As Object = Nothing + + + 'Public selButton As Object = Nothing ' Für die GUI + 'Public SA_OBJECT As Object = Nothing ' Für die GUI + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Sub New() + End Sub + + 'Sub New(nctsSA_Id) + ' Me.nctsSA_Id = nctsSA_Id + ' LOAD() + ' End Sub + + + Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsSA_Id", nctsSA_Id, , True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsSA_NctsId", nctsSA_NctsId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsSA_ArtCode", nctsSA_ArtCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsSA_BezeichnungBescheinigun", nctsSA_BezeichnungBescheinigun)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsSA_AbgabenBetrag", nctsSA_AbgabenBetrag)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsSA_GRN", nctsSA_GRN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsSA_Zugriffcode", nctsSA_Zugriffcode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsSA_TIN", nctsSA_TIN)) + + Return list + End Function + + + Public Function INSERT() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + 'Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list) + nctsSA_Id = SQL.doSQLVarListID(nctsSA_Id, getInsertCmd, "FMZOLL", , list) + Return nctsSA_Id > 0 + End Function + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO tblNCTS_TR_Sicherheitsangaben (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + +End Class + + +Public Class cNCTS_TR_Warenposition + Property nctsWP_Id As Integer + Property nctsWP_NctsId As Integer + Property nctsWP_PositionsNummer As Object = Nothing + Property nctsWP_Warennummer As Object = Nothing + Property nctsWP_ArtAnmeldungPositionCode As Object = Nothing + Property nctsWP_Warenbezeichnung As Object = Nothing + Property nctsWP_Warenwert As Object = Nothing + Property nctsWP_WarenwertWaehrung As Object = Nothing + Property nctsWP_SchaetzKz As Object = Nothing + Property nctsWP_WarenwertProzent As Object = Nothing + Property nctsWP_VersendungslandPositionCode As Object = Nothing + Property nctsWP_BestimmungslandPositionCode As Object = Nothing + Property nctsWP_Rohmasse As Object = Nothing + Property nctsWP_Eigenmasse As Object = Nothing + + + Property nctsWP_VorpapierTyp As Object = Nothing + Property nctsWP_VorpapierReferenz1 As Object = Nothing + Property nctsWP_VorpapierZusatz1 As Object = Nothing + Property nctsWP_VorpapierReferenz2 As Object = Nothing + Property nctsWP_VorpapierZusatz2 As Object = Nothing + Property nctsWP_VorpapierReferenz3 As Object = Nothing + Property nctsWP_VorpapierZusatz3 As Object = Nothing + Property nctsWP_VorpapierReferenz4 As Object = Nothing + Property nctsWP_VorpapierZusatz4 As Object = Nothing + Property nctsWP_VorpapierReferenz5 As Object = Nothing + Property nctsWP_VorpapierZusatz5 As Object = Nothing + Property nctsWP_VorpapierReferenz6 As Object = Nothing + Property nctsWP_VorpapierZusatz6 As Object = Nothing + Property nctsWP_VorpapierReferenz7 As Object = Nothing + Property nctsWP_VorpapierZusatz7 As Object = Nothing + Property nctsWP_VorpapierReferenz8 As Object = Nothing + Property nctsWP_VorpapierZusatz8 As Object = Nothing + Property nctsWP_VorpapierReferenz9 As Object = Nothing + Property nctsWP_VorpapierZusatz9 As Object = Nothing + + + + Property nctsWP_BesondereVermeke_ExportAusEU As Object = Nothing + Property nctsWP_BesondereVermeke_ExportAusLand As Object = Nothing + Property nctsWP_BesondereVermeke_Export As Object = Nothing + + Property nctsWP_BesondereVermeke_ExportBeschraenkung As Object = Nothing + Property nctsWP_BesondereVermeke_ExportAbgaben As Object = Nothing + Property nctsWP_BesondereVermeke_Vermerk As Object = Nothing + Property nctsWP_BesondereVermeke_Kz10600 As Object = Nothing + + + Property nctsWP_Versender_EORI As Object = Nothing + Property nctsWP_Versender_NLNR As Object = Nothing + Property nctsWP_Versender_TIN As Object = Nothing + Property nctsWP_Versender_Name As Object = Nothing + Property nctsWP_Versender_StrasseHausnummer As Object = Nothing + Property nctsWP_Versender_Ort As Object = Nothing + Property nctsWP_Versender_PLZ As Object = Nothing + Property nctsWP_Versender_Land As Object = Nothing + Property nctsWP_Empfaenger_EORI As Object = Nothing + Property nctsWP_Empfaenger_NLNR As Object = Nothing + Property nctsWP_Empfaenger_TIN As Object = Nothing + Property nctsWP_Empfaenger_Name As Object = Nothing + Property nctsWP_Empfaenger_StrasseHausnummer As Object = Nothing + Property nctsWP_Empfaenger_Ort As Object = Nothing + Property nctsWP_Empfaenger_PLZ As Object = Nothing + Property nctsWP_Empfaenger_Land As Object = Nothing + Property nctsWP_SumAKennnummerSendung As Object = Nothing + Property nctsWP_SumABefoerderungskostenZahlungsweise As Object = Nothing + Property nctsWP_SumAUNGefahrgutnummer As Object = Nothing + Property nctsWP_SumAVersender_EORI As Object = Nothing + Property nctsWP_SumAVersender_NLNR As Object = Nothing + Property nctsWP_SumAVersender_TIN As Object = Nothing + Property nctsWP_SumAVersender_Name As Object = Nothing + Property nctsWP_SumAVersender_StrasseHausnummer As Object = Nothing + Property nctsWP_SumAVersender_Ort As Object = Nothing + Property nctsWP_SumAVersender_PLZ As Object = Nothing + Property nctsWP_SumAVersender_Land As Object = Nothing + Property nctsWP_SumAEmpfaenger_EORI As Object = Nothing + Property nctsWP_SumAEmpfaenger_NLNR As Object = Nothing + Property nctsWP_SumAEmpfaenger_TIN As Object = Nothing + Property nctsWP_SumAEmpfaenger_Name As Object = Nothing + Property nctsWP_SumAEmpfaenger_StrasseHausnummer As Object = Nothing + Property nctsWP_SumAEmpfaenger_Ort As Object = Nothing + Property nctsWP_SumAEmpfaenger_PLZ As Object = Nothing + Property nctsWP_SumAEmpfaenger_Land As Object = Nothing + + + Property nctsWP_KdRefNr As Object = Nothing + + + Property nctsWP_PACKSTUECKE As New List(Of cNCTS_TR_WarenpositionPackstuecke) + Property nctsWP_UNTERLAGEN As New List(Of cNCTS_TR_WarenpositionVorgelegteUnterlagen) 'NOCH NCIHT SQL!! + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Sub New() + ' Me.nctsWP_NctsId = nctsWP_NctsId + End Sub + + 'Sub New(nctsSA_Id) + ' Me.nctsSA_Id = nctsSA_Id + ' LOAD() + ' End Sub + + + Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Id", nctsWP_Id, , True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_NctsId", nctsWP_NctsId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_PositionsNummer", nctsWP_PositionsNummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Warennummer", nctsWP_Warennummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_ArtAnmeldungPositionCode", nctsWP_ArtAnmeldungPositionCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Warenbezeichnung", nctsWP_Warenbezeichnung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Warenwert", nctsWP_Warenwert)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_WarenwertWaehrung", nctsWP_WarenwertWaehrung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SchaetzKz", nctsWP_SchaetzKz)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_WarenwertProzent", nctsWP_WarenwertProzent)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VersendungslandPositionCode", nctsWP_VersendungslandPositionCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_BestimmungslandPositionCode", nctsWP_BestimmungslandPositionCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Rohmasse", nctsWP_Rohmasse)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Eigenmasse", nctsWP_Eigenmasse)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierTyp", nctsWP_VorpapierTyp)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierReferenz1", nctsWP_VorpapierReferenz1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierZusatz1", nctsWP_VorpapierZusatz1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierReferenz2", nctsWP_VorpapierReferenz2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierZusatz2", nctsWP_VorpapierZusatz2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierReferenz3", nctsWP_VorpapierReferenz3)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierZusatz3", nctsWP_VorpapierZusatz3)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierReferenz4", nctsWP_VorpapierReferenz4)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierZusatz4", nctsWP_VorpapierZusatz4)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierReferenz5", nctsWP_VorpapierReferenz5)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierZusatz5", nctsWP_VorpapierZusatz5)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierReferenz6", nctsWP_VorpapierReferenz6)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierZusatz6", nctsWP_VorpapierZusatz6)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierReferenz7", nctsWP_VorpapierReferenz7)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierZusatz7", nctsWP_VorpapierZusatz7)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierReferenz8", nctsWP_VorpapierReferenz8)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierZusatz8", nctsWP_VorpapierZusatz8)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierReferenz9", nctsWP_VorpapierReferenz9)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_VorpapierZusatz9", nctsWP_VorpapierZusatz9)) + + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_BesondereVermeke_ExportAusEU", nctsWP_BesondereVermeke_ExportAusEU)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_BesondereVermeke_ExportAusLand", nctsWP_BesondereVermeke_ExportAusLand)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_BesondereVermeke_Export", nctsWP_BesondereVermeke_Export)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_BesondereVermeke_ExportBeschraenkung", nctsWP_BesondereVermeke_ExportBeschraenkung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_BesondereVermeke_ExportAbgaben", nctsWP_BesondereVermeke_ExportAbgaben)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_BesondereVermeke_Vermerk", nctsWP_BesondereVermeke_Vermerk)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_BesondereVermeke_Kz10600", nctsWP_BesondereVermeke_Kz10600)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Versender_EORI", nctsWP_Versender_EORI)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Versender_NLNR", nctsWP_Versender_NLNR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Versender_TIN", nctsWP_Versender_TIN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Versender_Name", nctsWP_Versender_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Versender_StrasseHausnummer", nctsWP_Versender_StrasseHausnummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Versender_Ort", nctsWP_Versender_Ort)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Versender_PLZ", nctsWP_Versender_PLZ)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Versender_Land", nctsWP_Versender_Land)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Empfaenger_EORI", nctsWP_Empfaenger_EORI)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Empfaenger_NLNR", nctsWP_Empfaenger_NLNR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Empfaenger_TIN", nctsWP_Empfaenger_TIN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Empfaenger_Name", nctsWP_Empfaenger_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Empfaenger_StrasseHausnummer", nctsWP_Empfaenger_StrasseHausnummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Empfaenger_Ort", nctsWP_Empfaenger_Ort)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Empfaenger_PLZ", nctsWP_Empfaenger_PLZ)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_Empfaenger_Land", nctsWP_Empfaenger_Land)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAKennnummerSendung", nctsWP_SumAKennnummerSendung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumABefoerderungskostenZahlungsweise", nctsWP_SumABefoerderungskostenZahlungsweise)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAUNGefahrgutnummer", nctsWP_SumAUNGefahrgutnummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAVersender_EORI", nctsWP_SumAVersender_EORI)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAVersender_NLNR", nctsWP_SumAVersender_NLNR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAVersender_TIN", nctsWP_SumAVersender_TIN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAVersender_Name", nctsWP_SumAVersender_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAVersender_StrasseHausnummer", nctsWP_SumAVersender_StrasseHausnummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAVersender_Ort", nctsWP_SumAVersender_Ort)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAVersender_PLZ", nctsWP_SumAVersender_PLZ)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAVersender_Land", nctsWP_SumAVersender_Land)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAEmpfaenger_EORI", nctsWP_SumAEmpfaenger_EORI)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAEmpfaenger_NLNR", nctsWP_SumAEmpfaenger_NLNR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAEmpfaenger_TIN", nctsWP_SumAEmpfaenger_TIN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAEmpfaenger_Name", nctsWP_SumAEmpfaenger_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAEmpfaenger_StrasseHausnummer", nctsWP_SumAEmpfaenger_StrasseHausnummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAEmpfaenger_Ort", nctsWP_SumAEmpfaenger_Ort)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAEmpfaenger_PLZ", nctsWP_SumAEmpfaenger_PLZ)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAEmpfaenger_Land", nctsWP_SumAEmpfaenger_Land)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_KdRefNr", nctsWP_KdRefNr)) + + + Return list + End Function + + + Public Function INSERT() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + 'Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list) + nctsWP_Id = SQL.doSQLVarListID(nctsWP_Id, getInsertCmd, "FMZOLL", , list) + Return nctsWP_Id > 0 + End Function + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO tblNCTS_TR_Warenposition (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + + + Public Sub LOAD_WarenpositionPackstuecke() + Try + nctsWP_PACKSTUECKE.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblNCTS_TR_WarenpositionPackstuecke WHERE nctsWpPk_nctsWPId=@nctsWP_Id ", conn) + cmd.Parameters.AddWithValue("@nctsWP_Id", Me.nctsWP_Id) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim l As New cNCTS_TR_WarenpositionPackstuecke() + For Each i In l.getParameterList() + Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable) + If dr.Item(i.Text) Is DBNull.Value Then + propInfo.SetValue(l, Nothing) + Else + propInfo.SetValue(l, dr.Item(i.Text)) + End If + Next + nctsWP_PACKSTUECKE.Add(l) + End While + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + Public Function DELETE_WarenpositionPackstuecke() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblNCTS_TR_WarenpositionPackstuecke] WHERE nctsWpPk_nctsWPId=" & Me.nctsWP_Id & " " + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + Public Function INSERT_WarenpositionPackstuecke(wp_id, ncts_id) As Boolean + 'Zuserst alle OffertenPos von dem Offert löschen + + 'jetzt die Standartofferten einfügen + For Each p In nctsWP_PACKSTUECKE + p.nctsWpPk_nctsWPId = wp_id + p.nctsWpPk_NctsId = ncts_id + If Not p.INSERT() Then + Return False + End If + Next + + Return True + End Function + + + + 'Public Sub LOAD_WarenpositionUnterlagen() + ' Try + ' nctsWP_UNTERLAGEN.Clear() + ' Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + ' Using cmd As New SqlCommand("SELECT * FROM tblNCTS_TR_WarenpositionVorgelegteUnterlagen WHERE nctsWpUl_nctsWPId=@nctsWP_Id ", conn) + ' cmd.Parameters.AddWithValue("@nctsWP_Id", Me.nctsWP_Id) + ' Dim dr = cmd.ExecuteReader() + ' While dr.Read + ' Dim l As New cNCTS_TR_WarenpositionVorgelegteUnterlagen + ' For Each i In l.getParameterList() + ' Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable) + ' If dr.Item(i.Text) Is DBNull.Value Then + ' propInfo.SetValue(l, Nothing) + ' Else + ' propInfo.SetValue(l, dr.Item(i.Text)) + ' End If + ' Next + ' nctsWP_UNTERLAGEN.Add(l) + ' End While + ' dr.Close() + ' End Using + ' End Using + ' Catch ex As Exception + ' MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + ' End Try + 'End Sub + + 'Public Function DELETE_WarenpositionUnterlagen() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + ' Dim sqlstr = " DELETE FROM [tblNCTS_TR_WarenpositionVorgelegteUnterlagen] WHERE nctsWpUl_nctsWPId=" & Me.nctsWP_Id & " " + ' Return SQL.doSQL(sqlstr, "FMZOLL") + 'End Function + + 'Public Function INSERT_WarenpositionUnterlagen(wp_id, ncts_id) As Boolean + ' 'Zuserst alle OffertenPos von dem Offert löschen + + ' 'jetzt die Standartofferten einfügen + ' For Each p In nctsWP_UNTERLAGEN + ' p.nctsWpUl_nctsWPId = wp_id + ' p.nctsWpUl_NctsId = ncts_id + ' If Not p.INSERT() Then + ' Return False + ' End If + ' Next + + ' Return True + 'End Function + + + + +End Class + + + +Public Class cNCTS_TR_WarenpositionPackstuecke + + Property nctsWpPk_Id As Integer + Property nctsWpPk_nctsWPId As Integer + Property nctsWpPk_NctsId As Integer + + Property nctsWpPk_PackstueckeAnzahl As Object = Nothing + Property nctsWpPk_Verpackungsart As Object = Nothing + Property nctsWpPk_ZeichenNummern As Object = Nothing + + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Sub New() + ' Me.nctsWpPk_nctsWPId = nctsWpPk_nctsWPId + End Sub + + + Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpPk_Id", nctsWpPk_Id, , True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpPk_nctsWPId", nctsWpPk_nctsWPId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpPk_NctsId", nctsWpPk_NctsId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpPk_PackstueckeAnzahl", nctsWpPk_PackstueckeAnzahl)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpPk_Verpackungsart", nctsWpPk_Verpackungsart)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpPk_ZeichenNummern", nctsWpPk_ZeichenNummern)) + Return list + End Function + + + Public Function INSERT() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + nctsWpPk_Id = SQL.doSQLVarListID(nctsWpPk_Id, getInsertCmd(), "FMZOLL", , list) + Return nctsWpPk_Id > 0 + End Function + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO tblNCTS_TR_WarenpositionPackstuecke (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + +End Class + + + +'NOCH NCIHT IM SQL!!!!!!!!!!!!!!! +Public Class cNCTS_TR_WarenpositionVorgelegteUnterlagen + + Property nctsWpUl_Id As Integer + Property nctsWpUl_nctsWPId As Integer + Property nctsWpUl_NctsId As Integer + Property nctsWpUl_Typ As Object = Nothing + Property nctsWpUl_Referenz As Object = Nothing + Property nctsWpUl_Zusatz As Object = Nothing + + + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Sub New() + ' Me.nctsWpUl_nctsWPId = nctsWpUl_nctsWPId + End Sub + + + Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_Id", nctsWpUl_Id, , True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_nctsWPId", nctsWpUl_nctsWPId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_NctsId", nctsWpUl_NctsId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_Typ", nctsWpUl_Typ)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_Referenz", nctsWpUl_Referenz)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_Zusatz", nctsWpUl_Zusatz)) + Return list + End Function + + + Public Function INSERT() As Boolean + Return True 'NOCH NCIHT!!!!! + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + nctsWpUl_Id = SQL.doSQLVarListID(nctsWpUl_Id, getInsertCmd(), "FMZOLL", , list) + Return nctsWpUl_Id > 0 + End Function + + Public Function getInsertCmd() As String + + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO tblNCTS_TR_WarenpositionVorgelegteUnterlagen (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + +End Class diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cOfferte.vb b/VERAG_PROG_ALLGEMEIN/Classes/cOfferte.vb index 08ac316e..a17255a4 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cOfferte.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cOfferte.vb @@ -245,6 +245,8 @@ Public Class cOfferte P.BGebMinBetrag = r("BGebMinBetrag") P.Eingegeben_am = Now 'P.Geändert_am = XXXXXXXXX + If r("BerechnungsartPosInkludiert") IsNot DBNull.Value Then P.BerechnungsartPosInkludiert = r("BerechnungsartPosInkludiert") + If r("BerechnungsartNr") IsNot DBNull.Value Then P.BerechnungsartNr = r("BerechnungsartNr") 'Falls hier, dann übernommen, sonst von Leistung P.Sachbearbeiter = Sachbearbeiter 'P.Preisänderung = XXXXXXXXX 'P.PreisänderungProzent = XXXXXXXXX @@ -285,6 +287,8 @@ Public Class cOfferte P.Eingegeben_am = Now 'P.Geändert_am = XXXXXXXXX P.Sachbearbeiter = Sachbearbeiter + If r("BerechnungsartPosInkludiert") IsNot DBNull.Value Then P.BerechnungsartPosInkludiert = r("BerechnungsartPosInkludiert") + If r("BerechnungsartNr") IsNot DBNull.Value Then P.BerechnungsartNr = r("BerechnungsartNr") 'Falls hier, dann übernommen, sonst von Leistung 'P.Preisänderung = XXXXXXXXX 'P.PreisänderungProzent = XXXXXXXXX 'P.PreisAlt = XXXXXXXXX @@ -320,6 +324,7 @@ Public Class cOffertPosition Property Preisänderung As Object = Nothing Property PreisänderungProzent As Object = Nothing Property PreisAlt As Object = Nothing + Property BerechnungsartPosInkludiert As Object = Nothing Dim SQL As New SQL @@ -346,6 +351,7 @@ Public Class cOffertPosition list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Preisänderung", Preisänderung)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PreisänderungProzent", PreisänderungProzent)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PreisAlt", PreisAlt)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BerechnungsartPosInkludiert", BerechnungsartPosInkludiert)) Return list End Function diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb b/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb index a13d3c3e..d2ad58c9 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb @@ -101,6 +101,7 @@ Public Class cRechnungsausgang Property AvisoID As Object = Nothing Property KdAuftragsNr As Object = Nothing Property Handling As Object = Nothing + Property VorschauID As Object = Nothing @@ -238,6 +239,7 @@ Public Class cRechnungsausgang list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AvisoID", AvisoID)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KdAuftragsNr", KdAuftragsNr)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Handling", Handling)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VorschauID", VorschauID)) Return list End Function @@ -441,11 +443,20 @@ Public Class cRechnungsausgang End Function Public Function isReverseChargeSumme() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + 'Wenn selbes Land --> Kein Reversecharge + Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(Firma_ID) + ' MsgBox(RechnungsLandKz & " - " & FIRMA.Firma_LandKz) + If RechnungsLandKz = FIRMA.Firma_LandKz Then + Return False + End If + Dim sqlstr = " SELECT SUM(POS.SteuerfreierBetrag) AS ReverseChargeSumme " sqlstr &= " FROM Rechnungsausgang as RA INNER JOIN RechnungsausgangPositionen as POS ON RA.RK_ID = POS.RK_ID INNER JOIN Leistungen ON POS.LeistungsNr = Leistungen.LeistungsNr INNER JOIN [Länderverzeichnis für die Außenhandelsstatistik] AS LD ON RA.RechnungsUstIdKz = LD.LandKz" sqlstr &= " WHERE RA.rk_id='" & Me.RK_ID & "' AND LD.ReverseCharge = 1 AND Leistungen.ReverseCharge = 1" - Return If(SQL.getValueTxtBySql(sqlstr, "FMZOLL",,, Nothing) Is Nothing, False, True) + 'MsgBox(SQL.getValueTxtBySql(sqlstr, "FMZOLL",,, 0)) + + Return If(SQL.getValueTxtBySql(sqlstr, "FMZOLL",,, 0) = 0, False, True) End Function Public Function setSPEDBUCH_FAKTURIERT(Optional wert As Boolean = True) As Boolean 'obj As Object, tablename As String, where As String) As Boolean diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cTranslate.vb b/VERAG_PROG_ALLGEMEIN/Classes/cTranslate.vb new file mode 100644 index 00000000..a5ad5fb9 --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Classes/cTranslate.vb @@ -0,0 +1,166 @@ +Imports System.Data.SqlClient +Imports System.Reflection + +Public Class cTranslate_LIST + + Public list As New List(Of cTranslate) + Dim trs_progId + + Sub New(trs_progId) + Me.trs_progId = trs_progId + LOAD() + End Sub + + Public Sub LOAD() + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblTranslate WHERE trs_progId=@trs_progId ", conn) + cmd.Parameters.AddWithValue("@trs_progId", trs_progId) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim T As New cTranslate + T.trs_id = dr("trs_id") + T.trs_progName = dr("trs_progName") + T.trs_object = dr("trs_object") + T.trs_control = dr("trs_control") + T.trs_subControl = dr("trs_subControl") + T.trs_sprache = dr("trs_sprache") + T.trs_text = dr("trs_text") + list.Add(T) + End While + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + +End Class +Public Class cTranslate + Property trs_id As Integer + Property trs_progId As String + Property trs_progName As String + Property trs_object As String + Property trs_control As String + Property trs_subControl As Object = Nothing + Property trs_sprache As String + Property trs_text As String + + + Public hasEntry = False + + Dim SQL As New SQL + Sub New() + + End Sub + Sub New(trs_id) + Me.trs_id = trs_id + LOAD() + End Sub + Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trs_id", trs_id,, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trs_progId", trs_progId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trs_progName", trs_progName)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trs_object", trs_object)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trs_control", trs_control)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trs_subControl", trs_subControl)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trs_sprache", trs_sprache)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trs_text", trs_text)) + + Return list + End Function + + + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblTranslate WHERE trs_id=@trs_id) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list) + End Function + + Public Sub LOAD() + Try + hasEntry = False + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblTranslate WHERE trs_id=@trs_id ", conn) + cmd.Parameters.AddWithValue("@trs_id", trs_id) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(l.Text)) + End If + + Next + hasEntry = True + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + + Public Function getUpdateCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim str As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + Return (" UPDATE [tblTranslate] SET " & str & " WHERE trs_id=@trs_id ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO tblTranslate (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + + End Function + + + + + + +End Class diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/SGS/CC015B_TR_EXT_V4_3.Designer.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/SGS/CC015B_TR_EXT_V4_3.Designer.vb new file mode 100644 index 00000000..31bc01f1 --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/SGS/CC015B_TR_EXT_V4_3.Designer.vb @@ -0,0 +1,9764 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 5.0.0.47. www.xsd2code.com +'' CC015B_TR_EXT_V4_3ListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse +'' +'' ------------------------------------------------------------------------------ +Imports System +Imports System.Diagnostics +Imports System.Xml.Serialization +Imports System.Collections +Imports System.Xml.Schema +Imports System.ComponentModel +Imports System.IO +Imports System.Text +Imports System.Xml +Imports System.Collections.Generic +Imports Codelists +Imports Constraints4 + +Namespace CC015B_TR_EXT_V4_3 + + + + Partial Public Class CC015B + +#Region "Private fields" + Private _synIdeMES1 As Codelists.CL21 + + Private _synVerNumMES2 As Codelists.CL22 + + Private _mesSenMES3 As String + + Private _senIdeCodQuaMES4 As String + + Private _mesRecMES6 As String + + Private _recIdeCodQuaMES7 As String + + Private _datOfPreMES9 As String + + Private _timOfPreMES10 As String + + Private _intConRefMES11 As String + + Private _recRefMES12 As String + + Private _recRefQuaMES13 As String + + Private _appRefMES14 As String + + Private _priMES15 As String + + Private _ackReqMES16 As Constraints4.cl27 + + Private _comAgrIdMES17 As String + + Private _tesIndMES18 As Constraints4.cl27 + + Private _mesIdeMES19 As String + + Private _mesTypMES20 As Codelists.CL60 + + Private _comAccRefMES21 As String + + Private _mesSeqNumMES22 As String + + Private _firAndLasTraMES23 As Codelists.CL28 + + Private _hEAHEA As HEAHEA + + Private _tRAPRIPC1 As TRAPRIPC1 + + Private _tRACONCO1 As TRACONCO1 + + Private _tRACONCE1 As TRACONCE1 + + Private _cUSOFFDEPEPT As CUSOFFDEPEPT + + Private _cUSOFFTRARNS As List(Of CUSOFFTRARNS) + + Private _cUSOFFDESEST As CUSOFFDESEST + + Private _gOOITEGDS As List(Of GOOITEGDS) + + Private _cARTRA100 As CARTRA100 + + Private _iTI As List(Of ITI) + + Private _cARTRA1001 As CARTRA100 + + Private _tRACORSEC037 As TRACORSEC037 + + Private _tRACONSEC029 As TRACONSEC029 + + Private _ob As List(Of ACMA) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._ob = New List(Of ACMA)() + Me._tRACONSEC029 = New TRACONSEC029() + Me._tRACORSEC037 = New TRACORSEC037() + Me._cARTRA1001 = New CARTRA100() + Me._iTI = New List(Of ITI)() + Me._cARTRA100 = New CARTRA100() + Me._gOOITEGDS = New List(Of GOOITEGDS)() + Me._cUSOFFDESEST = New CUSOFFDESEST() + Me._cUSOFFTRARNS = New List(Of CUSOFFTRARNS)() + Me._cUSOFFDEPEPT = New CUSOFFDEPEPT() + Me._tRACONCE1 = New TRACONCE1() + Me._tRACONCO1 = New TRACONCO1() + Me._tRAPRIPC1 = New TRAPRIPC1() + Me._hEAHEA = New HEAHEA() + End Sub + + + Public Property SynIdeMES1() As Codelists.CL21 + Get + Return Me._synIdeMES1 + End Get + Set + Me._synIdeMES1 = Value + End Set + End Property + + + Public Property SynVerNumMES2() As Codelists.CL22 + Get + Return Me._synVerNumMES2 + End Get + Set + Me._synVerNumMES2 = Value + End Set + End Property + + + Public Property MesSenMES3() As String + Get + Return Me._mesSenMES3 + End Get + Set + Me._mesSenMES3 = Value + End Set + End Property + + + Public Property SenIdeCodQuaMES4() As String + Get + Return Me._senIdeCodQuaMES4 + End Get + Set + Me._senIdeCodQuaMES4 = Value + End Set + End Property + + + Public Property MesRecMES6() As String + Get + Return Me._mesRecMES6 + End Get + Set + Me._mesRecMES6 = Value + End Set + End Property + + + Public Property RecIdeCodQuaMES7() As String + Get + Return Me._recIdeCodQuaMES7 + End Get + Set + Me._recIdeCodQuaMES7 = Value + End Set + End Property + + + Public Property DatOfPreMES9() As String + Get + Return Me._datOfPreMES9 + End Get + Set + Me._datOfPreMES9 = Value + End Set + End Property + + + Public Property TimOfPreMES10() As String + Get + Return Me._timOfPreMES10 + End Get + Set + Me._timOfPreMES10 = Value + End Set + End Property + + + Public Property IntConRefMES11() As String + Get + Return Me._intConRefMES11 + End Get + Set + Me._intConRefMES11 = Value + End Set + End Property + + + Public Property RecRefMES12() As String + Get + Return Me._recRefMES12 + End Get + Set + Me._recRefMES12 = Value + End Set + End Property + + + Public Property RecRefQuaMES13() As String + Get + Return Me._recRefQuaMES13 + End Get + Set + Me._recRefQuaMES13 = Value + End Set + End Property + + + Public Property AppRefMES14() As String + Get + Return Me._appRefMES14 + End Get + Set + Me._appRefMES14 = Value + End Set + End Property + + + Public Property PriMES15() As String + Get + Return Me._priMES15 + End Get + Set + Me._priMES15 = Value + End Set + End Property + + + Public Property AckReqMES16() As Constraints4.cl27 + Get + Return Me._ackReqMES16 + End Get + Set + Me._ackReqMES16 = Value + End Set + End Property + + + Public Property ComAgrIdMES17() As String + Get + Return Me._comAgrIdMES17 + End Get + Set + Me._comAgrIdMES17 = Value + End Set + End Property + + + Public Property TesIndMES18() As Constraints4.cl27 + Get + Return Me._tesIndMES18 + End Get + Set + Me._tesIndMES18 = Value + End Set + End Property + + + Public Property MesIdeMES19() As String + Get + Return Me._mesIdeMES19 + End Get + Set + Me._mesIdeMES19 = Value + End Set + End Property + + + Public Property MesTypMES20() As Codelists.CL60 + Get + Return Me._mesTypMES20 + End Get + Set + Me._mesTypMES20 = Value + End Set + End Property + + + Public Property ComAccRefMES21() As String + Get + Return Me._comAccRefMES21 + End Get + Set + Me._comAccRefMES21 = Value + End Set + End Property + + + Public Property MesSeqNumMES22() As String + Get + Return Me._mesSeqNumMES22 + End Get + Set + Me._mesSeqNumMES22 = Value + End Set + End Property + + + Public Property FirAndLasTraMES23() As Codelists.CL28 + Get + Return Me._firAndLasTraMES23 + End Get + Set + Me._firAndLasTraMES23 = Value + End Set + End Property + + + Public Property HEAHEA() As HEAHEA + Get + Return Me._hEAHEA + End Get + Set + Me._hEAHEA = Value + End Set + End Property + + + Public Property TRAPRIPC1() As TRAPRIPC1 + Get + Return Me._tRAPRIPC1 + End Get + Set + Me._tRAPRIPC1 = Value + End Set + End Property + + + Public Property TRACONCO1() As TRACONCO1 + Get + Return Me._tRACONCO1 + End Get + Set + Me._tRACONCO1 = Value + End Set + End Property + + + Public Property TRACONCE1() As TRACONCE1 + Get + Return Me._tRACONCE1 + End Get + Set + Me._tRACONCE1 = Value + End Set + End Property + + + Public Property CUSOFFDEPEPT() As CUSOFFDEPEPT + Get + Return Me._cUSOFFDEPEPT + End Get + Set + Me._cUSOFFDEPEPT = Value + End Set + End Property + + + Public Property CUSOFFTRARNS() As List(Of CUSOFFTRARNS) + Get + Return Me._cUSOFFTRARNS + End Get + Set + Me._cUSOFFTRARNS = Value + End Set + End Property + + + Public Property CUSOFFDESEST() As CUSOFFDESEST + Get + Return Me._cUSOFFDESEST + End Get + Set + Me._cUSOFFDESEST = Value + End Set + End Property + + + Public Property GOOITEGDS() As List(Of GOOITEGDS) + Get + Return Me._gOOITEGDS + End Get + Set + Me._gOOITEGDS = Value + End Set + End Property + + + Public Property CARTRA100() As CARTRA100 + Get + Return Me._cARTRA100 + End Get + Set + Me._cARTRA100 = Value + End Set + End Property + + + Public Property ITI() As List(Of ITI) + Get + Return Me._iTI + End Get + Set + Me._iTI = Value + End Set + End Property + + + Public Property CARTRA1001() As CARTRA100 + Get + Return Me._cARTRA1001 + End Get + Set + Me._cARTRA1001 = Value + End Set + End Property + + + Public Property TRACORSEC037() As TRACORSEC037 + Get + Return Me._tRACORSEC037 + End Get + Set + Me._tRACORSEC037 = Value + End Set + End Property + + + Public Property TRACONSEC029() As TRACONSEC029 + Get + Return Me._tRACONSEC029 + End Get + Set + Me._tRACONSEC029 = Value + End Set + End Property + + + Public Property OB() As List(Of ACMA) + Get + Return Me._ob + End Get + Set + Me._ob = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(CC015B)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current CC015B object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an CC015B object + ''' + ''' string workflow markup to deserialize + ''' Output CC015B object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As CC015B, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, CC015B) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As CC015B) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As CC015B + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), CC015B) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As CC015B + Return CType(Serializer.Deserialize(s), CC015B) + End Function +#End Region + + ''' + ''' Serializes current CC015B object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an CC015B object + ''' + ''' string xml file to load and deserialize + ''' Output CC015B object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As CC015B, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, CC015B) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As CC015B) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As CC015B + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class HEAHEA + +#Region "Private fields" + Private _refNumHEA4 As String + + Private _typOfDecHEA24 As String + + Private _couOfDesCodHEA30 As String + + Private _plaOfLoaCodHEA46 As String + + Private _couOfDisCodHEA55 As String + + Private _traModAtBorHEA76 As String + + Private _conIndHEA96 As Constraints4.CL27 + + Private _totNumOfIteHEA305 As String + + Private _totNumOfPacHEA306 As String + + Private _totGroMasHEA307 As Decimal + + Private _decDatHEA383 As String + + Private _decPlaHEA394 As String + + Private _decPlaHEA394LNG As String + + Private _speCirIndHEA1 As String + + Private _traChaMetOfPayHEA1 As String + + Private _comRefNumHEA As String + + Private _secHEA358 As Codelists.CL117 + + Private _conRefNumHEA As String + + Private _codPlUnHEA357 As String + + Private _codPlUnHEA357LNG As String + + Private _damgaVergi As Decimal + + Private _sumEnt As String + + Private _sumExt As String + + Private _vesselName As String + + Private _vesselSailingDate As String + + Private _ulusoyLineIndicator As String + + Private _ekoLineIndicator As String + + Private _autLocOfGooCodHEA41 As String + + Private _datLimERS69 As String + + Private _meansOfTransports As HEAHEAMeansOfTransports + + Private _clientIdentificationNumber As String + + Private _tIRCarnetNumber As String + + Private _tIRCarnetVoletPageNo As Integer + + Private _tIRSealNumbers As HEAHEATIRSealNumbers + + Private _eF_CHECKED As Object + + Private _eF_DocumentLinks As Object + + Private _exportMRN As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._tIRSealNumbers = New HEAHEATIRSealNumbers() + Me._meansOfTransports = New HEAHEAMeansOfTransports() + End Sub + + Public Property RefNumHEA4() As String + Get + Return Me._refNumHEA4 + End Get + Set + Me._refNumHEA4 = Value + End Set + End Property + + Public Property TypOfDecHEA24() As String + Get + Return Me._typOfDecHEA24 + End Get + Set + Me._typOfDecHEA24 = Value + End Set + End Property + + Public Property CouOfDesCodHEA30() As String + Get + Return Me._couOfDesCodHEA30 + End Get + Set + Me._couOfDesCodHEA30 = Value + End Set + End Property + + Public Property PlaOfLoaCodHEA46() As String + Get + Return Me._plaOfLoaCodHEA46 + End Get + Set + Me._plaOfLoaCodHEA46 = Value + End Set + End Property + + Public Property CouOfDisCodHEA55() As String + Get + Return Me._couOfDisCodHEA55 + End Get + Set + Me._couOfDisCodHEA55 = Value + End Set + End Property + + + Public Property TraModAtBorHEA76() As String + Get + Return Me._traModAtBorHEA76 + End Get + Set + Me._traModAtBorHEA76 = Value + End Set + End Property + + Public Property ConIndHEA96() As Constraints4.CL27 + Get + Return Me._conIndHEA96 + End Get + Set + Me._conIndHEA96 = Value + End Set + End Property + + + Public Property TotNumOfIteHEA305() As String + Get + Return Me._totNumOfIteHEA305 + End Get + Set + Me._totNumOfIteHEA305 = Value + End Set + End Property + + + Public Property TotNumOfPacHEA306() As String + Get + Return Me._totNumOfPacHEA306 + End Get + Set + Me._totNumOfPacHEA306 = Value + End Set + End Property + + Public Property TotGroMasHEA307() As Decimal + Get + Return Me._totGroMasHEA307 + End Get + Set + Me._totGroMasHEA307 = Value + End Set + End Property + + + Public Property DecDatHEA383() As String + Get + Return Me._decDatHEA383 + End Get + Set + Me._decDatHEA383 = Value + End Set + End Property + + Public Property DecPlaHEA394() As String + Get + Return Me._decPlaHEA394 + End Get + Set + Me._decPlaHEA394 = Value + End Set + End Property + + Public Property DecPlaHEA394LNG() As String + Get + Return Me._decPlaHEA394LNG + End Get + Set + Me._decPlaHEA394LNG = Value + End Set + End Property + + Public Property SpeCirIndHEA1() As String + Get + Return Me._speCirIndHEA1 + End Get + Set + Me._speCirIndHEA1 = Value + End Set + End Property + + Public Property TraChaMetOfPayHEA1() As String + Get + Return Me._traChaMetOfPayHEA1 + End Get + Set + Me._traChaMetOfPayHEA1 = Value + End Set + End Property + + Public Property ComRefNumHEA() As String + Get + Return Me._comRefNumHEA + End Get + Set + Me._comRefNumHEA = Value + End Set + End Property + + Public Property SecHEA358() As Codelists.CL117 + Get + Return Me._secHEA358 + End Get + Set + Me._secHEA358 = Value + End Set + End Property + + Public Property ConRefNumHEA() As String + Get + Return Me._conRefNumHEA + End Get + Set + Me._conRefNumHEA = Value + End Set + End Property + + Public Property CodPlUnHEA357() As String + Get + Return Me._codPlUnHEA357 + End Get + Set + Me._codPlUnHEA357 = Value + End Set + End Property + + Public Property CodPlUnHEA357LNG() As String + Get + Return Me._codPlUnHEA357LNG + End Get + Set + Me._codPlUnHEA357LNG = Value + End Set + End Property + + Public Property DamgaVergi() As Decimal + Get + Return Me._damgaVergi + End Get + Set + Me._damgaVergi = Value + End Set + End Property + + Public Property SumEnt() As String + Get + Return Me._sumEnt + End Get + Set + Me._sumEnt = Value + End Set + End Property + + Public Property SumExt() As String + Get + Return Me._sumExt + End Get + Set + Me._sumExt = Value + End Set + End Property + + Public Property VesselName() As String + Get + Return Me._vesselName + End Get + Set + Me._vesselName = Value + End Set + End Property + + Public Property VesselSailingDate() As String + Get + Return Me._vesselSailingDate + End Get + Set + Me._vesselSailingDate = Value + End Set + End Property + + Public Property UlusoyLineIndicator() As String + Get + Return Me._ulusoyLineIndicator + End Get + Set + Me._ulusoyLineIndicator = Value + End Set + End Property + + Public Property EkoLineIndicator() As String + Get + Return Me._ekoLineIndicator + End Get + Set + Me._ekoLineIndicator = Value + End Set + End Property + + Public Property AutLocOfGooCodHEA41() As String + Get + Return Me._autLocOfGooCodHEA41 + End Get + Set + Me._autLocOfGooCodHEA41 = Value + End Set + End Property + + Public Property DatLimERS69() As String + Get + Return Me._datLimERS69 + End Get + Set + Me._datLimERS69 = Value + End Set + End Property + + Public Property MeansOfTransports() As HEAHEAMeansOfTransports + Get + Return Me._meansOfTransports + End Get + Set + Me._meansOfTransports = Value + End Set + End Property + + Public Property ClientIdentificationNumber() As String + Get + Return Me._clientIdentificationNumber + End Get + Set + Me._clientIdentificationNumber = Value + End Set + End Property + + Public Property TIRCarnetNumber() As String + Get + Return Me._tIRCarnetNumber + End Get + Set + Me._tIRCarnetNumber = Value + End Set + End Property + + Public Property TIRCarnetVoletPageNo() As Integer + Get + Return Me._tIRCarnetVoletPageNo + End Get + Set + Me._tIRCarnetVoletPageNo = Value + End Set + End Property + + Public Property TIRSealNumbers() As HEAHEATIRSealNumbers + Get + Return Me._tIRSealNumbers + End Get + Set + Me._tIRSealNumbers = Value + End Set + End Property + + Public Property EF_CHECKED() As Object + Get + Return Me._eF_CHECKED + End Get + Set + Me._eF_CHECKED = Value + End Set + End Property + + Public Property EF_DocumentLinks() As Object + Get + Return Me._eF_DocumentLinks + End Get + Set + Me._eF_DocumentLinks = Value + End Set + End Property + + Public Property ExportMRN() As Object + Get + Return Me._exportMRN + End Get + Set + Me._exportMRN = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(HEAHEA)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current HEAHEA object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an HEAHEA object + ''' + ''' string workflow markup to deserialize + ''' Output HEAHEA object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As HEAHEA, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, HEAHEA) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As HEAHEA) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As HEAHEA + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), HEAHEA) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As HEAHEA + Return CType(Serializer.Deserialize(s), HEAHEA) + End Function +#End Region + + ''' + ''' Serializes current HEAHEA object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an HEAHEA object + ''' + ''' string xml file to load and deserialize + ''' Output HEAHEA object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As HEAHEA, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, HEAHEA) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As HEAHEA) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As HEAHEA + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class HEAHEAMeansOfTransports + +#Region "Private fields" + Private _meansOfTransport As List(Of HEAHEAMeansOfTransportsMeansOfTransport) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._meansOfTransport = New List(Of HEAHEAMeansOfTransportsMeansOfTransport)() + End Sub + + + Public Property MeansOfTransport() As List(Of HEAHEAMeansOfTransportsMeansOfTransport) + Get + Return Me._meansOfTransport + End Get + Set + Me._meansOfTransport = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(HEAHEAMeansOfTransports)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current HEAHEAMeansOfTransports object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an HEAHEAMeansOfTransports object + ''' + ''' string workflow markup to deserialize + ''' Output HEAHEAMeansOfTransports object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As HEAHEAMeansOfTransports, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, HEAHEAMeansOfTransports) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As HEAHEAMeansOfTransports) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As HEAHEAMeansOfTransports + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), HEAHEAMeansOfTransports) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As HEAHEAMeansOfTransports + Return CType(Serializer.Deserialize(s), HEAHEAMeansOfTransports) + End Function +#End Region + + ''' + ''' Serializes current HEAHEAMeansOfTransports object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an HEAHEAMeansOfTransports object + ''' + ''' string xml file to load and deserialize + ''' Output HEAHEAMeansOfTransports object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As HEAHEAMeansOfTransports, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, HEAHEAMeansOfTransports) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As HEAHEAMeansOfTransports) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As HEAHEAMeansOfTransports + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class HEAHEAMeansOfTransportsMeansOfTransport + +#Region "Private fields" + Private _hasEngine As String + + Private _isLoadedCompartment As String + + Private _country As String + + Private _plateNumber As String + + Private _wagonIdentity As String + + Private _countryFlag As String + + Private _isClientOwner As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property hasEngine() As String + Get + Return Me._hasEngine + End Get + Set + Me._hasEngine = Value + End Set + End Property + + Public Property isLoadedCompartment() As String + Get + Return Me._isLoadedCompartment + End Get + Set + Me._isLoadedCompartment = Value + End Set + End Property + + Public Property Country() As String + Get + Return Me._country + End Get + Set + Me._country = Value + End Set + End Property + + Public Property PlateNumber() As String + Get + Return Me._plateNumber + End Get + Set + Me._plateNumber = Value + End Set + End Property + + Public Property WagonIdentity() As String + Get + Return Me._wagonIdentity + End Get + Set + Me._wagonIdentity = Value + End Set + End Property + + Public Property CountryFlag() As String + Get + Return Me._countryFlag + End Get + Set + Me._countryFlag = Value + End Set + End Property + + Public Property isClientOwner() As String + Get + Return Me._isClientOwner + End Get + Set + Me._isClientOwner = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(HEAHEAMeansOfTransportsMeansOfTransport)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current HEAHEAMeansOfTransportsMeansOfTransport object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an HEAHEAMeansOfTransportsMeansOfTransport object + ''' + ''' string workflow markup to deserialize + ''' Output HEAHEAMeansOfTransportsMeansOfTransport object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As HEAHEAMeansOfTransportsMeansOfTransport, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, HEAHEAMeansOfTransportsMeansOfTransport) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As HEAHEAMeansOfTransportsMeansOfTransport) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As HEAHEAMeansOfTransportsMeansOfTransport + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), HEAHEAMeansOfTransportsMeansOfTransport) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As HEAHEAMeansOfTransportsMeansOfTransport + Return CType(Serializer.Deserialize(s), HEAHEAMeansOfTransportsMeansOfTransport) + End Function +#End Region + + ''' + ''' Serializes current HEAHEAMeansOfTransportsMeansOfTransport object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an HEAHEAMeansOfTransportsMeansOfTransport object + ''' + ''' string xml file to load and deserialize + ''' Output HEAHEAMeansOfTransportsMeansOfTransport object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As HEAHEAMeansOfTransportsMeansOfTransport, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, HEAHEAMeansOfTransportsMeansOfTransport) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As HEAHEAMeansOfTransportsMeansOfTransport) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As HEAHEAMeansOfTransportsMeansOfTransport + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class HEAHEATIRSealNumbers + +#Region "Private fields" + Private _sealNumber As List(Of String) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._sealNumber = New List(Of String)() + End Sub + + + Public Property SealNumber() As List(Of String) + Get + Return Me._sealNumber + End Get + Set + Me._sealNumber = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(HEAHEATIRSealNumbers)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current HEAHEATIRSealNumbers object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an HEAHEATIRSealNumbers object + ''' + ''' string workflow markup to deserialize + ''' Output HEAHEATIRSealNumbers object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As HEAHEATIRSealNumbers, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, HEAHEATIRSealNumbers) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As HEAHEATIRSealNumbers) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As HEAHEATIRSealNumbers + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), HEAHEATIRSealNumbers) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As HEAHEATIRSealNumbers + Return CType(Serializer.Deserialize(s), HEAHEATIRSealNumbers) + End Function +#End Region + + ''' + ''' Serializes current HEAHEATIRSealNumbers object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an HEAHEATIRSealNumbers object + ''' + ''' string xml file to load and deserialize + ''' Output HEAHEATIRSealNumbers object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As HEAHEATIRSealNumbers, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, HEAHEATIRSealNumbers) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As HEAHEATIRSealNumbers) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As HEAHEATIRSealNumbers + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class TRAPRIPC1 + +#Region "Private fields" + Private _namPC17 As String + + Private _strAndNumPC122 As String + + Private _posCodPC123 As String + + Private _citPC124 As String + + Private _couPC125 As String + + Private _nADLNGPC As String + + Private _tINPC159 As String + + Private _hITPC126 As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property NamPC17() As String + Get + Return Me._namPC17 + End Get + Set + Me._namPC17 = Value + End Set + End Property + + Public Property StrAndNumPC122() As String + Get + Return Me._strAndNumPC122 + End Get + Set + Me._strAndNumPC122 = Value + End Set + End Property + + Public Property PosCodPC123() As String + Get + Return Me._posCodPC123 + End Get + Set + Me._posCodPC123 = Value + End Set + End Property + + Public Property CitPC124() As String + Get + Return Me._citPC124 + End Get + Set + Me._citPC124 = Value + End Set + End Property + + Public Property CouPC125() As String + Get + Return Me._couPC125 + End Get + Set + Me._couPC125 = Value + End Set + End Property + + Public Property NADLNGPC() As String + Get + Return Me._nADLNGPC + End Get + Set + Me._nADLNGPC = Value + End Set + End Property + + Public Property TINPC159() As String + Get + Return Me._tINPC159 + End Get + Set + Me._tINPC159 = Value + End Set + End Property + + Public Property HITPC126() As String + Get + Return Me._hITPC126 + End Get + Set + Me._hITPC126 = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TRAPRIPC1)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TRAPRIPC1 object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an TRAPRIPC1 object + ''' + ''' string workflow markup to deserialize + ''' Output TRAPRIPC1 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TRAPRIPC1, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TRAPRIPC1) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TRAPRIPC1) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As TRAPRIPC1 + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TRAPRIPC1) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TRAPRIPC1 + Return CType(Serializer.Deserialize(s), TRAPRIPC1) + End Function +#End Region + + ''' + ''' Serializes current TRAPRIPC1 object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TRAPRIPC1 object + ''' + ''' string xml file to load and deserialize + ''' Output TRAPRIPC1 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TRAPRIPC1, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TRAPRIPC1) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TRAPRIPC1) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As TRAPRIPC1 + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class TRACONCO1 + +#Region "Private fields" + Private _namCO17 As String + + Private _strAndNumCO122 As String + + Private _posCodCO123 As String + + Private _citCO124 As String + + Private _couCO125 As String + + Private _nADLNGCO As String + + Private _tINCO159 As String + + Private _eORI As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property NamCO17() As String + Get + Return Me._namCO17 + End Get + Set + Me._namCO17 = Value + End Set + End Property + + Public Property StrAndNumCO122() As String + Get + Return Me._strAndNumCO122 + End Get + Set + Me._strAndNumCO122 = Value + End Set + End Property + + Public Property PosCodCO123() As String + Get + Return Me._posCodCO123 + End Get + Set + Me._posCodCO123 = Value + End Set + End Property + + Public Property CitCO124() As String + Get + Return Me._citCO124 + End Get + Set + Me._citCO124 = Value + End Set + End Property + + Public Property CouCO125() As String + Get + Return Me._couCO125 + End Get + Set + Me._couCO125 = Value + End Set + End Property + + Public Property NADLNGCO() As String + Get + Return Me._nADLNGCO + End Get + Set + Me._nADLNGCO = Value + End Set + End Property + + Public Property TINCO159() As String + Get + Return Me._tINCO159 + End Get + Set + Me._tINCO159 = Value + End Set + End Property + + Public Property EORI() As String + Get + Return Me._eORI + End Get + Set + Me._eORI = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TRACONCO1)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TRACONCO1 object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an TRACONCO1 object + ''' + ''' string workflow markup to deserialize + ''' Output TRACONCO1 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TRACONCO1, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TRACONCO1) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TRACONCO1) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As TRACONCO1 + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TRACONCO1) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TRACONCO1 + Return CType(Serializer.Deserialize(s), TRACONCO1) + End Function +#End Region + + ''' + ''' Serializes current TRACONCO1 object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TRACONCO1 object + ''' + ''' string xml file to load and deserialize + ''' Output TRACONCO1 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TRACONCO1, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TRACONCO1) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TRACONCO1) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As TRACONCO1 + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class TRACONCE1 + +#Region "Private fields" + Private _namCE17 As String + + Private _strAndNumCE122 As String + + Private _posCodCE123 As String + + Private _citCE124 As String + + Private _couCE125 As String + + Private _nADLNGCE As String + + Private _tINCE159 As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property NamCE17() As String + Get + Return Me._namCE17 + End Get + Set + Me._namCE17 = Value + End Set + End Property + + Public Property StrAndNumCE122() As String + Get + Return Me._strAndNumCE122 + End Get + Set + Me._strAndNumCE122 = Value + End Set + End Property + + Public Property PosCodCE123() As String + Get + Return Me._posCodCE123 + End Get + Set + Me._posCodCE123 = Value + End Set + End Property + + Public Property CitCE124() As String + Get + Return Me._citCE124 + End Get + Set + Me._citCE124 = Value + End Set + End Property + + Public Property CouCE125() As String + Get + Return Me._couCE125 + End Get + Set + Me._couCE125 = Value + End Set + End Property + + Public Property NADLNGCE() As String + Get + Return Me._nADLNGCE + End Get + Set + Me._nADLNGCE = Value + End Set + End Property + + Public Property TINCE159() As String + Get + Return Me._tINCE159 + End Get + Set + Me._tINCE159 = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TRACONCE1)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TRACONCE1 object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an TRACONCE1 object + ''' + ''' string workflow markup to deserialize + ''' Output TRACONCE1 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TRACONCE1, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TRACONCE1) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TRACONCE1) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As TRACONCE1 + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TRACONCE1) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TRACONCE1 + Return CType(Serializer.Deserialize(s), TRACONCE1) + End Function +#End Region + + ''' + ''' Serializes current TRACONCE1 object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TRACONCE1 object + ''' + ''' string xml file to load and deserialize + ''' Output TRACONCE1 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TRACONCE1, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TRACONCE1) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TRACONCE1) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As TRACONCE1 + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class CUSOFFDEPEPT + +#Region "Private fields" + Private _refNumEPT1 As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property RefNumEPT1() As String + Get + Return Me._refNumEPT1 + End Get + Set + Me._refNumEPT1 = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(CUSOFFDEPEPT)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current CUSOFFDEPEPT object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an CUSOFFDEPEPT object + ''' + ''' string workflow markup to deserialize + ''' Output CUSOFFDEPEPT object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As CUSOFFDEPEPT, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, CUSOFFDEPEPT) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As CUSOFFDEPEPT) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As CUSOFFDEPEPT + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), CUSOFFDEPEPT) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As CUSOFFDEPEPT + Return CType(Serializer.Deserialize(s), CUSOFFDEPEPT) + End Function +#End Region + + ''' + ''' Serializes current CUSOFFDEPEPT object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an CUSOFFDEPEPT object + ''' + ''' string xml file to load and deserialize + ''' Output CUSOFFDEPEPT object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As CUSOFFDEPEPT, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, CUSOFFDEPEPT) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As CUSOFFDEPEPT) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As CUSOFFDEPEPT + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class CUSOFFTRARNS + +#Region "Private fields" + Private _refNumRNS1 As String + + Private _arrTimTRACUS085 As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property RefNumRNS1() As String + Get + Return Me._refNumRNS1 + End Get + Set + Me._refNumRNS1 = Value + End Set + End Property + + + Public Property ArrTimTRACUS085() As String + Get + Return Me._arrTimTRACUS085 + End Get + Set + Me._arrTimTRACUS085 = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(CUSOFFTRARNS)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current CUSOFFTRARNS object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an CUSOFFTRARNS object + ''' + ''' string workflow markup to deserialize + ''' Output CUSOFFTRARNS object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As CUSOFFTRARNS, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, CUSOFFTRARNS) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As CUSOFFTRARNS) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As CUSOFFTRARNS + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), CUSOFFTRARNS) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As CUSOFFTRARNS + Return CType(Serializer.Deserialize(s), CUSOFFTRARNS) + End Function +#End Region + + ''' + ''' Serializes current CUSOFFTRARNS object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an CUSOFFTRARNS object + ''' + ''' string xml file to load and deserialize + ''' Output CUSOFFTRARNS object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As CUSOFFTRARNS, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, CUSOFFTRARNS) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As CUSOFFTRARNS) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As CUSOFFTRARNS + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class CUSOFFDESEST + +#Region "Private fields" + Private _refNumEST1 As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property RefNumEST1() As String + Get + Return Me._refNumEST1 + End Get + Set + Me._refNumEST1 = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(CUSOFFDESEST)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current CUSOFFDESEST object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an CUSOFFDESEST object + ''' + ''' string workflow markup to deserialize + ''' Output CUSOFFDESEST object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As CUSOFFDESEST, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, CUSOFFDESEST) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As CUSOFFDESEST) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As CUSOFFDESEST + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), CUSOFFDESEST) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As CUSOFFDESEST + Return CType(Serializer.Deserialize(s), CUSOFFDESEST) + End Function +#End Region + + ''' + ''' Serializes current CUSOFFDESEST object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an CUSOFFDESEST object + ''' + ''' string xml file to load and deserialize + ''' Output CUSOFFDESEST object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As CUSOFFDESEST, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, CUSOFFDESEST) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As CUSOFFDESEST) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As CUSOFFDESEST + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class GOOITEGDS + +#Region "Private fields" + Private _iteNumGDS7 As String + + Private _comCodTarCodGDS10 As String + + Private _decTypGDS15 As String + + Private _gooDesGDS23 As String + + Private _gooDesGDS23LNG As String + + Private _groMasGDS46 As Decimal + + Private _netMasGDS48 As Decimal + + Private _itemInvoiceAmount As Decimal + + Private _itemInvoiceCurrency As String + + Private _statisticalValue As Object + + Private _numberOfUnits As Object + + Private _quantity1 As Decimal + + Private _statisticalCode As Object + + Private _additionalUnit As Object + + Private _couOfDisGDS58 As String + + Private _couOfDesGDS59 As String + + Private _ihrBeyanNo As String + + Private _ihrBeyanTip As String + + Private _ihrBeyanParcali As String + + Private _pREADMREFAR2 As List(Of PREADMREFAR2) + + Private _pRODOCDC2 As List(Of PRODOCDC2) + + Private _sPEMENMT2 As List(Of SPEMENMT2) + + Private _tRACONCO2 As TRACONCO2 + + Private _tRACONCE2 As TRACONCE2 + + Private _cONNR2 As List(Of CONNR2) + + Private _pACGS2 As List(Of PACGS2) + + Private _sGICODSD2 As List(Of SGICODSD2) + + Private _tRACORSECGOO021 As TRACORSECGOO021 + + Private _tRACONSECGOO013 As TRACONSECGOO013 + + Private _aUTODETAIL As GOOITEGDSAUTODETAIL + + Private _spanishSummaryDischarges As GOOITEGDSSpanishSummaryDischarges + + Private _aCMA2 As List(Of GOOITEGDSACMA2) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._aCMA2 = New List(Of GOOITEGDSACMA2)() + Me._spanishSummaryDischarges = New GOOITEGDSSpanishSummaryDischarges() + Me._aUTODETAIL = New GOOITEGDSAUTODETAIL() + Me._tRACONSECGOO013 = New TRACONSECGOO013() + Me._tRACORSECGOO021 = New TRACORSECGOO021() + Me._sGICODSD2 = New List(Of SGICODSD2)() + Me._pACGS2 = New List(Of PACGS2)() + Me._cONNR2 = New List(Of CONNR2)() + Me._tRACONCE2 = New TRACONCE2() + Me._tRACONCO2 = New TRACONCO2() + Me._sPEMENMT2 = New List(Of SPEMENMT2)() + Me._pRODOCDC2 = New List(Of PRODOCDC2)() + Me._pREADMREFAR2 = New List(Of PREADMREFAR2)() + End Sub + + + Public Property IteNumGDS7() As String + Get + Return Me._iteNumGDS7 + End Get + Set + Me._iteNumGDS7 = Value + End Set + End Property + + Public Property ComCodTarCodGDS10() As String + Get + Return Me._comCodTarCodGDS10 + End Get + Set + Me._comCodTarCodGDS10 = Value + End Set + End Property + + Public Property DecTypGDS15() As String + Get + Return Me._decTypGDS15 + End Get + Set + Me._decTypGDS15 = Value + End Set + End Property + + Public Property GooDesGDS23() As String + Get + Return Me._gooDesGDS23 + End Get + Set + Me._gooDesGDS23 = Value + End Set + End Property + + Public Property GooDesGDS23LNG() As String + Get + Return Me._gooDesGDS23LNG + End Get + Set + Me._gooDesGDS23LNG = Value + End Set + End Property + + Public Property GroMasGDS46() As Decimal + Get + Return Me._groMasGDS46 + End Get + Set + Me._groMasGDS46 = Value + End Set + End Property + + Public Property NetMasGDS48() As Decimal + Get + Return Me._netMasGDS48 + End Get + Set + Me._netMasGDS48 = Value + End Set + End Property + + Public Property ItemInvoiceAmount() As Decimal + Get + Return Me._itemInvoiceAmount + End Get + Set + Me._itemInvoiceAmount = Value + End Set + End Property + + Public Property ItemInvoiceCurrency() As String + Get + Return Me._itemInvoiceCurrency + End Get + Set + Me._itemInvoiceCurrency = Value + End Set + End Property + + Public Property StatisticalValue() As Object + Get + Return Me._statisticalValue + End Get + Set + Me._statisticalValue = Value + End Set + End Property + + Public Property NumberOfUnits() As Object + Get + Return Me._numberOfUnits + End Get + Set + Me._numberOfUnits = Value + End Set + End Property + + Public Property Quantity1() As Decimal + Get + Return Me._quantity1 + End Get + Set + Me._quantity1 = Value + End Set + End Property + + Public Property StatisticalCode() As Object + Get + Return Me._statisticalCode + End Get + Set + Me._statisticalCode = Value + End Set + End Property + + Public Property AdditionalUnit() As Object + Get + Return Me._additionalUnit + End Get + Set + Me._additionalUnit = Value + End Set + End Property + + Public Property CouOfDisGDS58() As String + Get + Return Me._couOfDisGDS58 + End Get + Set + Me._couOfDisGDS58 = Value + End Set + End Property + + Public Property CouOfDesGDS59() As String + Get + Return Me._couOfDesGDS59 + End Get + Set + Me._couOfDesGDS59 = Value + End Set + End Property + + Public Property IhrBeyanNo() As String + Get + Return Me._ihrBeyanNo + End Get + Set + Me._ihrBeyanNo = Value + End Set + End Property + + Public Property IhrBeyanTip() As String + Get + Return Me._ihrBeyanTip + End Get + Set + Me._ihrBeyanTip = Value + End Set + End Property + + Public Property IhrBeyanParcali() As String + Get + Return Me._ihrBeyanParcali + End Get + Set + Me._ihrBeyanParcali = Value + End Set + End Property + + + Public Property PREADMREFAR2() As List(Of PREADMREFAR2) + Get + Return Me._pREADMREFAR2 + End Get + Set + Me._pREADMREFAR2 = Value + End Set + End Property + + + Public Property PRODOCDC2() As List(Of PRODOCDC2) + Get + Return Me._pRODOCDC2 + End Get + Set + Me._pRODOCDC2 = Value + End Set + End Property + + + Public Property SPEMENMT2() As List(Of SPEMENMT2) + Get + Return Me._sPEMENMT2 + End Get + Set + Me._sPEMENMT2 = Value + End Set + End Property + + Public Property TRACONCO2() As TRACONCO2 + Get + Return Me._tRACONCO2 + End Get + Set + Me._tRACONCO2 = Value + End Set + End Property + + Public Property TRACONCE2() As TRACONCE2 + Get + Return Me._tRACONCE2 + End Get + Set + Me._tRACONCE2 = Value + End Set + End Property + + + Public Property CONNR2() As List(Of CONNR2) + Get + Return Me._cONNR2 + End Get + Set + Me._cONNR2 = Value + End Set + End Property + + + Public Property PACGS2() As List(Of PACGS2) + Get + Return Me._pACGS2 + End Get + Set + Me._pACGS2 = Value + End Set + End Property + + + Public Property SGICODSD2() As List(Of SGICODSD2) + Get + Return Me._sGICODSD2 + End Get + Set + Me._sGICODSD2 = Value + End Set + End Property + + Public Property TRACORSECGOO021() As TRACORSECGOO021 + Get + Return Me._tRACORSECGOO021 + End Get + Set + Me._tRACORSECGOO021 = Value + End Set + End Property + + Public Property TRACONSECGOO013() As TRACONSECGOO013 + Get + Return Me._tRACONSECGOO013 + End Get + Set + Me._tRACONSECGOO013 = Value + End Set + End Property + + Public Property AUTODETAIL() As GOOITEGDSAUTODETAIL + Get + Return Me._aUTODETAIL + End Get + Set + Me._aUTODETAIL = Value + End Set + End Property + + Public Property SpanishSummaryDischarges() As GOOITEGDSSpanishSummaryDischarges + Get + Return Me._spanishSummaryDischarges + End Get + Set + Me._spanishSummaryDischarges = Value + End Set + End Property + + + Public Property ACMA2() As List(Of GOOITEGDSACMA2) + Get + Return Me._aCMA2 + End Get + Set + Me._aCMA2 = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(GOOITEGDS)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current GOOITEGDS object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an GOOITEGDS object + ''' + ''' string workflow markup to deserialize + ''' Output GOOITEGDS object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As GOOITEGDS, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, GOOITEGDS) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As GOOITEGDS) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As GOOITEGDS + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), GOOITEGDS) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As GOOITEGDS + Return CType(Serializer.Deserialize(s), GOOITEGDS) + End Function +#End Region + + ''' + ''' Serializes current GOOITEGDS object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an GOOITEGDS object + ''' + ''' string xml file to load and deserialize + ''' Output GOOITEGDS object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As GOOITEGDS, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, GOOITEGDS) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As GOOITEGDS) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As GOOITEGDS + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class PREADMREFAR2 + +#Region "Private fields" + Private _preDocTypAR21 As Codelists.CL14 + + Private _preDocRefAR26 As String + + Private _preDocRefLNG As String + + Private _comOfInfAR29 As String + + Private _comOfInfAR29LNG As String + + Private _preDocRegPos As String + + Private _preDocRegNo As String + + Private _preDocNbPackages As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property PreDocTypAR21() As Codelists.CL14 + Get + Return Me._preDocTypAR21 + End Get + Set + Me._preDocTypAR21 = Value + End Set + End Property + + Public Property PreDocRefAR26() As String + Get + Return Me._preDocRefAR26 + End Get + Set + Me._preDocRefAR26 = Value + End Set + End Property + + Public Property PreDocRefLNG() As String + Get + Return Me._preDocRefLNG + End Get + Set + Me._preDocRefLNG = Value + End Set + End Property + + Public Property ComOfInfAR29() As String + Get + Return Me._comOfInfAR29 + End Get + Set + Me._comOfInfAR29 = Value + End Set + End Property + + Public Property ComOfInfAR29LNG() As String + Get + Return Me._comOfInfAR29LNG + End Get + Set + Me._comOfInfAR29LNG = Value + End Set + End Property + + Public Property PreDocRegPos() As String + Get + Return Me._preDocRegPos + End Get + Set + Me._preDocRegPos = Value + End Set + End Property + + Public Property PreDocRegNo() As String + Get + Return Me._preDocRegNo + End Get + Set + Me._preDocRegNo = Value + End Set + End Property + + Public Property PreDocNbPackages() As String + Get + Return Me._preDocNbPackages + End Get + Set + Me._preDocNbPackages = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(PREADMREFAR2)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current PREADMREFAR2 object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an PREADMREFAR2 object + ''' + ''' string workflow markup to deserialize + ''' Output PREADMREFAR2 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PREADMREFAR2, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PREADMREFAR2) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PREADMREFAR2) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PREADMREFAR2 + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), PREADMREFAR2) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As PREADMREFAR2 + Return CType(Serializer.Deserialize(s), PREADMREFAR2) + End Function +#End Region + + ''' + ''' Serializes current PREADMREFAR2 object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an PREADMREFAR2 object + ''' + ''' string xml file to load and deserialize + ''' Output PREADMREFAR2 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PREADMREFAR2, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PREADMREFAR2) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PREADMREFAR2) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As PREADMREFAR2 + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class PRODOCDC2 + +#Region "Private fields" + Private _docTypDC21 As String + + Private _docRefDC23 As String + + Private _docRefDCLNG As String + + Private _comOfInfDC25 As String + + Private _comOfInfDC25LNG As String + + Private _docYearForItaly As String + + Private _docCountryForItaly As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property DocTypDC21() As String + Get + Return Me._docTypDC21 + End Get + Set + Me._docTypDC21 = Value + End Set + End Property + + Public Property DocRefDC23() As String + Get + Return Me._docRefDC23 + End Get + Set + Me._docRefDC23 = Value + End Set + End Property + + Public Property DocRefDCLNG() As String + Get + Return Me._docRefDCLNG + End Get + Set + Me._docRefDCLNG = Value + End Set + End Property + + Public Property ComOfInfDC25() As String + Get + Return Me._comOfInfDC25 + End Get + Set + Me._comOfInfDC25 = Value + End Set + End Property + + Public Property ComOfInfDC25LNG() As String + Get + Return Me._comOfInfDC25LNG + End Get + Set + Me._comOfInfDC25LNG = Value + End Set + End Property + + Public Property DocYearForItaly() As String + Get + Return Me._docYearForItaly + End Get + Set + Me._docYearForItaly = Value + End Set + End Property + + Public Property DocCountryForItaly() As String + Get + Return Me._docCountryForItaly + End Get + Set + Me._docCountryForItaly = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(PRODOCDC2)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current PRODOCDC2 object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an PRODOCDC2 object + ''' + ''' string workflow markup to deserialize + ''' Output PRODOCDC2 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PRODOCDC2, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PRODOCDC2) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PRODOCDC2) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PRODOCDC2 + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), PRODOCDC2) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As PRODOCDC2 + Return CType(Serializer.Deserialize(s), PRODOCDC2) + End Function +#End Region + + ''' + ''' Serializes current PRODOCDC2 object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an PRODOCDC2 object + ''' + ''' string xml file to load and deserialize + ''' Output PRODOCDC2 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PRODOCDC2, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PRODOCDC2) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PRODOCDC2) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As PRODOCDC2 + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class SPEMENMT2 + +#Region "Private fields" + Private _addInfMT21 As String + + Private _addInfMT21LNG As String + + Private _addInfCodMT23 As String + + Private _expFroECMT24 As Constraints4.cl27 + + Private _expFroCouMT25 As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property AddInfMT21() As String + Get + Return Me._addInfMT21 + End Get + Set + Me._addInfMT21 = Value + End Set + End Property + + Public Property AddInfMT21LNG() As String + Get + Return Me._addInfMT21LNG + End Get + Set + Me._addInfMT21LNG = Value + End Set + End Property + + Public Property AddInfCodMT23() As String + Get + Return Me._addInfCodMT23 + End Get + Set + Me._addInfCodMT23 = Value + End Set + End Property + + Public Property ExpFroECMT24() As Constraints4.cl27 + Get + Return Me._expFroECMT24 + End Get + Set + Me._expFroECMT24 = Value + End Set + End Property + + Public Property ExpFroCouMT25() As String + Get + Return Me._expFroCouMT25 + End Get + Set + Me._expFroCouMT25 = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(SPEMENMT2)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current SPEMENMT2 object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an SPEMENMT2 object + ''' + ''' string workflow markup to deserialize + ''' Output SPEMENMT2 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SPEMENMT2, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SPEMENMT2) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SPEMENMT2) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As SPEMENMT2 + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), SPEMENMT2) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As SPEMENMT2 + Return CType(Serializer.Deserialize(s), SPEMENMT2) + End Function +#End Region + + ''' + ''' Serializes current SPEMENMT2 object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an SPEMENMT2 object + ''' + ''' string xml file to load and deserialize + ''' Output SPEMENMT2 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SPEMENMT2, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SPEMENMT2) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SPEMENMT2) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As SPEMENMT2 + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class TRACONCO2 + +#Region "Private fields" + Private _namCO27 As String + + Private _strAndNumCO222 As String + + Private _posCodCO223 As String + + Private _citCO224 As String + + Private _couCO225 As String + + Private _nADLNGGTCO As String + + Private _tINCO259 As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property NamCO27() As String + Get + Return Me._namCO27 + End Get + Set + Me._namCO27 = Value + End Set + End Property + + Public Property StrAndNumCO222() As String + Get + Return Me._strAndNumCO222 + End Get + Set + Me._strAndNumCO222 = Value + End Set + End Property + + Public Property PosCodCO223() As String + Get + Return Me._posCodCO223 + End Get + Set + Me._posCodCO223 = Value + End Set + End Property + + Public Property CitCO224() As String + Get + Return Me._citCO224 + End Get + Set + Me._citCO224 = Value + End Set + End Property + + Public Property CouCO225() As String + Get + Return Me._couCO225 + End Get + Set + Me._couCO225 = Value + End Set + End Property + + Public Property NADLNGGTCO() As String + Get + Return Me._nADLNGGTCO + End Get + Set + Me._nADLNGGTCO = Value + End Set + End Property + + Public Property TINCO259() As String + Get + Return Me._tINCO259 + End Get + Set + Me._tINCO259 = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TRACONCO2)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TRACONCO2 object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an TRACONCO2 object + ''' + ''' string workflow markup to deserialize + ''' Output TRACONCO2 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TRACONCO2, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TRACONCO2) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TRACONCO2) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As TRACONCO2 + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TRACONCO2) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TRACONCO2 + Return CType(Serializer.Deserialize(s), TRACONCO2) + End Function +#End Region + + ''' + ''' Serializes current TRACONCO2 object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TRACONCO2 object + ''' + ''' string xml file to load and deserialize + ''' Output TRACONCO2 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TRACONCO2, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TRACONCO2) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TRACONCO2) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As TRACONCO2 + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class TRACONCE2 + +#Region "Private fields" + Private _namCE27 As String + + Private _strAndNumCE222 As String + + Private _posCodCE223 As String + + Private _citCE224 As String + + Private _couCE225 As String + + Private _nADLNGGICE As String + + Private _tINCE259 As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property NamCE27() As String + Get + Return Me._namCE27 + End Get + Set + Me._namCE27 = Value + End Set + End Property + + Public Property StrAndNumCE222() As String + Get + Return Me._strAndNumCE222 + End Get + Set + Me._strAndNumCE222 = Value + End Set + End Property + + Public Property PosCodCE223() As String + Get + Return Me._posCodCE223 + End Get + Set + Me._posCodCE223 = Value + End Set + End Property + + Public Property CitCE224() As String + Get + Return Me._citCE224 + End Get + Set + Me._citCE224 = Value + End Set + End Property + + Public Property CouCE225() As String + Get + Return Me._couCE225 + End Get + Set + Me._couCE225 = Value + End Set + End Property + + Public Property NADLNGGICE() As String + Get + Return Me._nADLNGGICE + End Get + Set + Me._nADLNGGICE = Value + End Set + End Property + + Public Property TINCE259() As String + Get + Return Me._tINCE259 + End Get + Set + Me._tINCE259 = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TRACONCE2)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TRACONCE2 object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an TRACONCE2 object + ''' + ''' string workflow markup to deserialize + ''' Output TRACONCE2 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TRACONCE2, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TRACONCE2) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TRACONCE2) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As TRACONCE2 + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TRACONCE2) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TRACONCE2 + Return CType(Serializer.Deserialize(s), TRACONCE2) + End Function +#End Region + + ''' + ''' Serializes current TRACONCE2 object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TRACONCE2 object + ''' + ''' string xml file to load and deserialize + ''' Output TRACONCE2 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TRACONCE2, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TRACONCE2) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TRACONCE2) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As TRACONCE2 + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class CONNR2 + +#Region "Private fields" + Private _conNumNR21 As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property ConNumNR21() As String + Get + Return Me._conNumNR21 + End Get + Set + Me._conNumNR21 = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(CONNR2)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current CONNR2 object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an CONNR2 object + ''' + ''' string workflow markup to deserialize + ''' Output CONNR2 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As CONNR2, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, CONNR2) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As CONNR2) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As CONNR2 + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), CONNR2) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As CONNR2 + Return CType(Serializer.Deserialize(s), CONNR2) + End Function +#End Region + + ''' + ''' Serializes current CONNR2 object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an CONNR2 object + ''' + ''' string xml file to load and deserialize + ''' Output CONNR2 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As CONNR2, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, CONNR2) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As CONNR2) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As CONNR2 + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class PACGS2 + +#Region "Private fields" + Private _marNumOfPacGS21 As String + + Private _marNumOfPacGS21LNG As String + + Private _kinOfPacGS23 As String + + Private _numOfPacGS24 As String + + Private _numOfPieGS25 As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property MarNumOfPacGS21() As String + Get + Return Me._marNumOfPacGS21 + End Get + Set + Me._marNumOfPacGS21 = Value + End Set + End Property + + Public Property MarNumOfPacGS21LNG() As String + Get + Return Me._marNumOfPacGS21LNG + End Get + Set + Me._marNumOfPacGS21LNG = Value + End Set + End Property + + Public Property KinOfPacGS23() As String + Get + Return Me._kinOfPacGS23 + End Get + Set + Me._kinOfPacGS23 = Value + End Set + End Property + + + Public Property NumOfPacGS24() As String + Get + Return Me._numOfPacGS24 + End Get + Set + Me._numOfPacGS24 = Value + End Set + End Property + + + Public Property NumOfPieGS25() As String + Get + Return Me._numOfPieGS25 + End Get + Set + Me._numOfPieGS25 = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(PACGS2)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current PACGS2 object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an PACGS2 object + ''' + ''' string workflow markup to deserialize + ''' Output PACGS2 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PACGS2, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PACGS2) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As PACGS2) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As PACGS2 + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), PACGS2) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As PACGS2 + Return CType(Serializer.Deserialize(s), PACGS2) + End Function +#End Region + + ''' + ''' Serializes current PACGS2 object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an PACGS2 object + ''' + ''' string xml file to load and deserialize + ''' Output PACGS2 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PACGS2, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, PACGS2) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As PACGS2) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As PACGS2 + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class SGICODSD2 + +#Region "Private fields" + Private _senGooCodSD22 As Codelists.CL64 + + Private _senQuaSD23 As Decimal + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property SenGooCodSD22() As Codelists.CL64 + Get + Return Me._senGooCodSD22 + End Get + Set + Me._senGooCodSD22 = Value + End Set + End Property + + Public Property SenQuaSD23() As Decimal + Get + Return Me._senQuaSD23 + End Get + Set + Me._senQuaSD23 = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(SGICODSD2)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current SGICODSD2 object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an SGICODSD2 object + ''' + ''' string workflow markup to deserialize + ''' Output SGICODSD2 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SGICODSD2, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SGICODSD2) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SGICODSD2) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As SGICODSD2 + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), SGICODSD2) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As SGICODSD2 + Return CType(Serializer.Deserialize(s), SGICODSD2) + End Function +#End Region + + ''' + ''' Serializes current SGICODSD2 object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an SGICODSD2 object + ''' + ''' string xml file to load and deserialize + ''' Output SGICODSD2 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SGICODSD2, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SGICODSD2) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SGICODSD2) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As SGICODSD2 + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class TRACORSECGOO021 + +#Region "Private fields" + Private _namTRACORSECGOO025 As String + + Private _strNumTRACORSECGOO027 As String + + Private _posCodTRACORSECGOO026 As String + + Private _citTRACORSECGOO022 As String + + Private _couCodTRACORSECGOO023 As String + + Private _tRACORSECGOO021LNG As String + + Private _tINTRACORSECGOO028 As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property NamTRACORSECGOO025() As String + Get + Return Me._namTRACORSECGOO025 + End Get + Set + Me._namTRACORSECGOO025 = Value + End Set + End Property + + Public Property StrNumTRACORSECGOO027() As String + Get + Return Me._strNumTRACORSECGOO027 + End Get + Set + Me._strNumTRACORSECGOO027 = Value + End Set + End Property + + Public Property PosCodTRACORSECGOO026() As String + Get + Return Me._posCodTRACORSECGOO026 + End Get + Set + Me._posCodTRACORSECGOO026 = Value + End Set + End Property + + Public Property CitTRACORSECGOO022() As String + Get + Return Me._citTRACORSECGOO022 + End Get + Set + Me._citTRACORSECGOO022 = Value + End Set + End Property + + Public Property CouCodTRACORSECGOO023() As String + Get + Return Me._couCodTRACORSECGOO023 + End Get + Set + Me._couCodTRACORSECGOO023 = Value + End Set + End Property + + Public Property TRACORSECGOO021LNG() As String + Get + Return Me._tRACORSECGOO021LNG + End Get + Set + Me._tRACORSECGOO021LNG = Value + End Set + End Property + + Public Property TINTRACORSECGOO028() As String + Get + Return Me._tINTRACORSECGOO028 + End Get + Set + Me._tINTRACORSECGOO028 = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TRACORSECGOO021)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TRACORSECGOO021 object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an TRACORSECGOO021 object + ''' + ''' string workflow markup to deserialize + ''' Output TRACORSECGOO021 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TRACORSECGOO021, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TRACORSECGOO021) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TRACORSECGOO021) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As TRACORSECGOO021 + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TRACORSECGOO021) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TRACORSECGOO021 + Return CType(Serializer.Deserialize(s), TRACORSECGOO021) + End Function +#End Region + + ''' + ''' Serializes current TRACORSECGOO021 object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TRACORSECGOO021 object + ''' + ''' string xml file to load and deserialize + ''' Output TRACORSECGOO021 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TRACORSECGOO021, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TRACORSECGOO021) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TRACORSECGOO021) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As TRACORSECGOO021 + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class TRACONSECGOO013 + +#Region "Private fields" + Private _namTRACONSECGOO017 As String + + Private _strNumTRACONSECGOO019 As String + + Private _posCodTRACONSECGOO018 As String + + Private _cityTRACONSECGOO014 As String + + Private _couCodTRACONSECGOO015 As String + + Private _tRACONSECGOO013LNG As String + + Private _tINTRACONSECGOO020 As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property NamTRACONSECGOO017() As String + Get + Return Me._namTRACONSECGOO017 + End Get + Set + Me._namTRACONSECGOO017 = Value + End Set + End Property + + Public Property StrNumTRACONSECGOO019() As String + Get + Return Me._strNumTRACONSECGOO019 + End Get + Set + Me._strNumTRACONSECGOO019 = Value + End Set + End Property + + Public Property PosCodTRACONSECGOO018() As String + Get + Return Me._posCodTRACONSECGOO018 + End Get + Set + Me._posCodTRACONSECGOO018 = Value + End Set + End Property + + Public Property CityTRACONSECGOO014() As String + Get + Return Me._cityTRACONSECGOO014 + End Get + Set + Me._cityTRACONSECGOO014 = Value + End Set + End Property + + Public Property CouCodTRACONSECGOO015() As String + Get + Return Me._couCodTRACONSECGOO015 + End Get + Set + Me._couCodTRACONSECGOO015 = Value + End Set + End Property + + Public Property TRACONSECGOO013LNG() As String + Get + Return Me._tRACONSECGOO013LNG + End Get + Set + Me._tRACONSECGOO013LNG = Value + End Set + End Property + + Public Property TINTRACONSECGOO020() As String + Get + Return Me._tINTRACONSECGOO020 + End Get + Set + Me._tINTRACONSECGOO020 = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TRACONSECGOO013)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TRACONSECGOO013 object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an TRACONSECGOO013 object + ''' + ''' string workflow markup to deserialize + ''' Output TRACONSECGOO013 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TRACONSECGOO013, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TRACONSECGOO013) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TRACONSECGOO013) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As TRACONSECGOO013 + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TRACONSECGOO013) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TRACONSECGOO013 + Return CType(Serializer.Deserialize(s), TRACONSECGOO013) + End Function +#End Region + + ''' + ''' Serializes current TRACONSECGOO013 object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TRACONSECGOO013 object + ''' + ''' string xml file to load and deserialize + ''' Output TRACONSECGOO013 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TRACONSECGOO013, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TRACONSECGOO013) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TRACONSECGOO013) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As TRACONSECGOO013 + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class GOOITEGDSAUTODETAIL + +#Region "Private fields" + Private _autoName As String + + Private _autoBrand As String + + Private _autoMod As String + + Private _autoType As String + + Private _autoRegDate As String + + Private _autoNumPas As String + + Private _autoLoadCap As String + + Private _autoCol As String + + Private _autoWorCap As String + + Private _autoPow As String + + Private _autoTypPow As String + + Private _autoEngNum As String + + Private _autoChasNum As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property AutoName() As String + Get + Return Me._autoName + End Get + Set + Me._autoName = Value + End Set + End Property + + Public Property AutoBrand() As String + Get + Return Me._autoBrand + End Get + Set + Me._autoBrand = Value + End Set + End Property + + Public Property AutoMod() As String + Get + Return Me._autoMod + End Get + Set + Me._autoMod = Value + End Set + End Property + + Public Property AutoType() As String + Get + Return Me._autoType + End Get + Set + Me._autoType = Value + End Set + End Property + + Public Property AutoRegDate() As String + Get + Return Me._autoRegDate + End Get + Set + Me._autoRegDate = Value + End Set + End Property + + Public Property AutoNumPas() As String + Get + Return Me._autoNumPas + End Get + Set + Me._autoNumPas = Value + End Set + End Property + + Public Property AutoLoadCap() As String + Get + Return Me._autoLoadCap + End Get + Set + Me._autoLoadCap = Value + End Set + End Property + + Public Property AutoCol() As String + Get + Return Me._autoCol + End Get + Set + Me._autoCol = Value + End Set + End Property + + Public Property AutoWorCap() As String + Get + Return Me._autoWorCap + End Get + Set + Me._autoWorCap = Value + End Set + End Property + + Public Property AutoPow() As String + Get + Return Me._autoPow + End Get + Set + Me._autoPow = Value + End Set + End Property + + Public Property AutoTypPow() As String + Get + Return Me._autoTypPow + End Get + Set + Me._autoTypPow = Value + End Set + End Property + + Public Property AutoEngNum() As String + Get + Return Me._autoEngNum + End Get + Set + Me._autoEngNum = Value + End Set + End Property + + Public Property AutoChasNum() As String + Get + Return Me._autoChasNum + End Get + Set + Me._autoChasNum = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(GOOITEGDSAUTODETAIL)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current GOOITEGDSAUTODETAIL object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an GOOITEGDSAUTODETAIL object + ''' + ''' string workflow markup to deserialize + ''' Output GOOITEGDSAUTODETAIL object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As GOOITEGDSAUTODETAIL, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, GOOITEGDSAUTODETAIL) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As GOOITEGDSAUTODETAIL) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As GOOITEGDSAUTODETAIL + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), GOOITEGDSAUTODETAIL) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As GOOITEGDSAUTODETAIL + Return CType(Serializer.Deserialize(s), GOOITEGDSAUTODETAIL) + End Function +#End Region + + ''' + ''' Serializes current GOOITEGDSAUTODETAIL object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an GOOITEGDSAUTODETAIL object + ''' + ''' string xml file to load and deserialize + ''' Output GOOITEGDSAUTODETAIL object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As GOOITEGDSAUTODETAIL, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, GOOITEGDSAUTODETAIL) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As GOOITEGDSAUTODETAIL) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As GOOITEGDSAUTODETAIL + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class GOOITEGDSSpanishSummaryDischarges + +#Region "Private fields" + Private _spanishSummaryDischarge As GOOITEGDSSpanishSummaryDischargesSpanishSummaryDischarge + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._spanishSummaryDischarge = New GOOITEGDSSpanishSummaryDischargesSpanishSummaryDischarge() + End Sub + + Public Property SpanishSummaryDischarge() As GOOITEGDSSpanishSummaryDischargesSpanishSummaryDischarge + Get + Return Me._spanishSummaryDischarge + End Get + Set + Me._spanishSummaryDischarge = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(GOOITEGDSSpanishSummaryDischarges)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current GOOITEGDSSpanishSummaryDischarges object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an GOOITEGDSSpanishSummaryDischarges object + ''' + ''' string workflow markup to deserialize + ''' Output GOOITEGDSSpanishSummaryDischarges object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As GOOITEGDSSpanishSummaryDischarges, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, GOOITEGDSSpanishSummaryDischarges) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As GOOITEGDSSpanishSummaryDischarges) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As GOOITEGDSSpanishSummaryDischarges + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), GOOITEGDSSpanishSummaryDischarges) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As GOOITEGDSSpanishSummaryDischarges + Return CType(Serializer.Deserialize(s), GOOITEGDSSpanishSummaryDischarges) + End Function +#End Region + + ''' + ''' Serializes current GOOITEGDSSpanishSummaryDischarges object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an GOOITEGDSSpanishSummaryDischarges object + ''' + ''' string xml file to load and deserialize + ''' Output GOOITEGDSSpanishSummaryDischarges object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As GOOITEGDSSpanishSummaryDischarges, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, GOOITEGDSSpanishSummaryDischarges) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As GOOITEGDSSpanishSummaryDischarges) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As GOOITEGDSSpanishSummaryDischarges + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class GOOITEGDSSpanishSummaryDischargesSpanishSummaryDischarge + +#Region "Private fields" + Private _dischargingType As Object + + Private _docRefNumber As Object + + Private _dischargingItemQuantity As Object + + Private _isPartialDischarge As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property DischargingType() As Object + Get + Return Me._dischargingType + End Get + Set + Me._dischargingType = Value + End Set + End Property + + Public Property DocRefNumber() As Object + Get + Return Me._docRefNumber + End Get + Set + Me._docRefNumber = Value + End Set + End Property + + Public Property DischargingItemQuantity() As Object + Get + Return Me._dischargingItemQuantity + End Get + Set + Me._dischargingItemQuantity = Value + End Set + End Property + + Public Property isPartialDischarge() As Object + Get + Return Me._isPartialDischarge + End Get + Set + Me._isPartialDischarge = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(GOOITEGDSSpanishSummaryDischargesSpanishSummaryDischarge)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current GOOITEGDSSpanishSummaryDischargesSpanishSummaryDischarge object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an GOOITEGDSSpanishSummaryDischargesSpanishSummaryDischarge object + ''' + ''' string workflow markup to deserialize + ''' Output GOOITEGDSSpanishSummaryDischargesSpanishSummaryDischarge object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As GOOITEGDSSpanishSummaryDischargesSpanishSummaryDischarge, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, GOOITEGDSSpanishSummaryDischargesSpanishSummaryDischarge) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As GOOITEGDSSpanishSummaryDischargesSpanishSummaryDischarge) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As GOOITEGDSSpanishSummaryDischargesSpanishSummaryDischarge + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), GOOITEGDSSpanishSummaryDischargesSpanishSummaryDischarge) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As GOOITEGDSSpanishSummaryDischargesSpanishSummaryDischarge + Return CType(Serializer.Deserialize(s), GOOITEGDSSpanishSummaryDischargesSpanishSummaryDischarge) + End Function +#End Region + + ''' + ''' Serializes current GOOITEGDSSpanishSummaryDischargesSpanishSummaryDischarge object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an GOOITEGDSSpanishSummaryDischargesSpanishSummaryDischarge object + ''' + ''' string xml file to load and deserialize + ''' Output GOOITEGDSSpanishSummaryDischargesSpanishSummaryDischarge object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As GOOITEGDSSpanishSummaryDischargesSpanishSummaryDischarge, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, GOOITEGDSSpanishSummaryDischargesSpanishSummaryDischarge) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As GOOITEGDSSpanishSummaryDischargesSpanishSummaryDischarge) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As GOOITEGDSSpanishSummaryDischargesSpanishSummaryDischarge + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class GOOITEGDSACMA2 + +#Region "Private fields" + Private _iddtext As Object + + Private _nartnumart As Object + + Private _nartnumart1 As Object + + Private _qamv As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Iddtext() As Object + Get + Return Me._iddtext + End Get + Set + Me._iddtext = Value + End Set + End Property + + Public Property Nartnumart() As Object + Get + Return Me._nartnumart + End Get + Set + Me._nartnumart = Value + End Set + End Property + + Public Property Nartnumart1() As Object + Get + Return Me._nartnumart1 + End Get + Set + Me._nartnumart1 = Value + End Set + End Property + + Public Property Qamv() As Object + Get + Return Me._qamv + End Get + Set + Me._qamv = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(GOOITEGDSACMA2)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current GOOITEGDSACMA2 object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an GOOITEGDSACMA2 object + ''' + ''' string workflow markup to deserialize + ''' Output GOOITEGDSACMA2 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As GOOITEGDSACMA2, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, GOOITEGDSACMA2) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As GOOITEGDSACMA2) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As GOOITEGDSACMA2 + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), GOOITEGDSACMA2) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As GOOITEGDSACMA2 + Return CType(Serializer.Deserialize(s), GOOITEGDSACMA2) + End Function +#End Region + + ''' + ''' Serializes current GOOITEGDSACMA2 object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an GOOITEGDSACMA2 object + ''' + ''' string xml file to load and deserialize + ''' Output GOOITEGDSACMA2 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As GOOITEGDSACMA2, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, GOOITEGDSACMA2) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As GOOITEGDSACMA2) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As GOOITEGDSACMA2 + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class CARTRA100 + +#Region "Private fields" + Private _namCARTRA121 As String + + Private _strAndNumCARTRA254 As String + + Private _posCodCARTRA121 As String + + Private _citCARTRA789 As String + + Private _couCodCARTRA587 As String + + Private _nADCARTRA121 As String + + Private _tINCARTRA254 As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property NamCARTRA121() As String + Get + Return Me._namCARTRA121 + End Get + Set + Me._namCARTRA121 = Value + End Set + End Property + + Public Property StrAndNumCARTRA254() As String + Get + Return Me._strAndNumCARTRA254 + End Get + Set + Me._strAndNumCARTRA254 = Value + End Set + End Property + + Public Property PosCodCARTRA121() As String + Get + Return Me._posCodCARTRA121 + End Get + Set + Me._posCodCARTRA121 = Value + End Set + End Property + + Public Property CitCARTRA789() As String + Get + Return Me._citCARTRA789 + End Get + Set + Me._citCARTRA789 = Value + End Set + End Property + + Public Property CouCodCARTRA587() As String + Get + Return Me._couCodCARTRA587 + End Get + Set + Me._couCodCARTRA587 = Value + End Set + End Property + + Public Property NADCARTRA121() As String + Get + Return Me._nADCARTRA121 + End Get + Set + Me._nADCARTRA121 = Value + End Set + End Property + + Public Property TINCARTRA254() As String + Get + Return Me._tINCARTRA254 + End Get + Set + Me._tINCARTRA254 = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(CARTRA100)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current CARTRA100 object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an CARTRA100 object + ''' + ''' string workflow markup to deserialize + ''' Output CARTRA100 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As CARTRA100, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, CARTRA100) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As CARTRA100) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As CARTRA100 + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), CARTRA100) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As CARTRA100 + Return CType(Serializer.Deserialize(s), CARTRA100) + End Function +#End Region + + ''' + ''' Serializes current CARTRA100 object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an CARTRA100 object + ''' + ''' string xml file to load and deserialize + ''' Output CARTRA100 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As CARTRA100, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, CARTRA100) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As CARTRA100) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As CARTRA100 + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ITI + +#Region "Private fields" + Private _couOfRouCodITI1 As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property CouOfRouCodITI1() As String + Get + Return Me._couOfRouCodITI1 + End Get + Set + Me._couOfRouCodITI1 = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ITI)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current ITI object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an ITI object + ''' + ''' string workflow markup to deserialize + ''' Output ITI object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ITI, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ITI) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ITI) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ITI + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ITI) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ITI + Return CType(Serializer.Deserialize(s), ITI) + End Function +#End Region + + ''' + ''' Serializes current ITI object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ITI object + ''' + ''' string xml file to load and deserialize + ''' Output ITI object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ITI, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ITI) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ITI) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ITI + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class TRACORSEC037 + +#Region "Private fields" + Private _namTRACORSEC041 As String + + Private _strNumTRACORSEC043 As String + + Private _posCodTRACORSEC042 As String + + Private _citTRACORSEC038 As String + + Private _couCodTRACORSEC039 As String + + Private _tRACORSEC037LNG As String + + Private _tINTRACORSEC044 As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property NamTRACORSEC041() As String + Get + Return Me._namTRACORSEC041 + End Get + Set + Me._namTRACORSEC041 = Value + End Set + End Property + + Public Property StrNumTRACORSEC043() As String + Get + Return Me._strNumTRACORSEC043 + End Get + Set + Me._strNumTRACORSEC043 = Value + End Set + End Property + + Public Property PosCodTRACORSEC042() As String + Get + Return Me._posCodTRACORSEC042 + End Get + Set + Me._posCodTRACORSEC042 = Value + End Set + End Property + + Public Property CitTRACORSEC038() As String + Get + Return Me._citTRACORSEC038 + End Get + Set + Me._citTRACORSEC038 = Value + End Set + End Property + + Public Property CouCodTRACORSEC039() As String + Get + Return Me._couCodTRACORSEC039 + End Get + Set + Me._couCodTRACORSEC039 = Value + End Set + End Property + + Public Property TRACORSEC037LNG() As String + Get + Return Me._tRACORSEC037LNG + End Get + Set + Me._tRACORSEC037LNG = Value + End Set + End Property + + Public Property TINTRACORSEC044() As String + Get + Return Me._tINTRACORSEC044 + End Get + Set + Me._tINTRACORSEC044 = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TRACORSEC037)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TRACORSEC037 object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an TRACORSEC037 object + ''' + ''' string workflow markup to deserialize + ''' Output TRACORSEC037 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TRACORSEC037, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TRACORSEC037) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TRACORSEC037) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As TRACORSEC037 + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TRACORSEC037) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TRACORSEC037 + Return CType(Serializer.Deserialize(s), TRACORSEC037) + End Function +#End Region + + ''' + ''' Serializes current TRACORSEC037 object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TRACORSEC037 object + ''' + ''' string xml file to load and deserialize + ''' Output TRACORSEC037 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TRACORSEC037, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TRACORSEC037) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TRACORSEC037) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As TRACORSEC037 + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class TRACONSEC029 + +#Region "Private fields" + Private _nameTRACONSEC033 As String + + Private _strNumTRACONSEC035 As String + + Private _posCodTRACONSEC034 As String + + Private _citTRACONSEC030 As String + + Private _couCodTRACONSEC031 As String + + Private _tRACONSEC029LNG As String + + Private _tINTRACONSEC036 As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property NameTRACONSEC033() As String + Get + Return Me._nameTRACONSEC033 + End Get + Set + Me._nameTRACONSEC033 = Value + End Set + End Property + + Public Property StrNumTRACONSEC035() As String + Get + Return Me._strNumTRACONSEC035 + End Get + Set + Me._strNumTRACONSEC035 = Value + End Set + End Property + + Public Property PosCodTRACONSEC034() As String + Get + Return Me._posCodTRACONSEC034 + End Get + Set + Me._posCodTRACONSEC034 = Value + End Set + End Property + + Public Property CitTRACONSEC030() As String + Get + Return Me._citTRACONSEC030 + End Get + Set + Me._citTRACONSEC030 = Value + End Set + End Property + + Public Property CouCodTRACONSEC031() As String + Get + Return Me._couCodTRACONSEC031 + End Get + Set + Me._couCodTRACONSEC031 = Value + End Set + End Property + + Public Property TRACONSEC029LNG() As String + Get + Return Me._tRACONSEC029LNG + End Get + Set + Me._tRACONSEC029LNG = Value + End Set + End Property + + Public Property TINTRACONSEC036() As String + Get + Return Me._tINTRACONSEC036 + End Get + Set + Me._tINTRACONSEC036 = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TRACONSEC029)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TRACONSEC029 object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an TRACONSEC029 object + ''' + ''' string workflow markup to deserialize + ''' Output TRACONSEC029 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TRACONSEC029, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TRACONSEC029) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TRACONSEC029) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As TRACONSEC029 + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TRACONSEC029) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TRACONSEC029 + Return CType(Serializer.Deserialize(s), TRACONSEC029) + End Function +#End Region + + ''' + ''' Serializes current TRACONSEC029 object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TRACONSEC029 object + ''' + ''' string xml file to load and deserialize + ''' Output TRACONSEC029 object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TRACONSEC029, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TRACONSEC029) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TRACONSEC029) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As TRACONSEC029 + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ACMA + +#Region "Private fields" + Private _disInd As String + + Private _idsoext As String + + Private _wareInd As String + + Private _ltitref As String + + Private _wareCod As String + + Private _titlNum As String + + Private _disQty As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property DisInd() As String + Get + Return Me._disInd + End Get + Set + Me._disInd = Value + End Set + End Property + + Public Property Idsoext() As String + Get + Return Me._idsoext + End Get + Set + Me._idsoext = Value + End Set + End Property + + Public Property WareInd() As String + Get + Return Me._wareInd + End Get + Set + Me._wareInd = Value + End Set + End Property + + Public Property Ltitref() As String + Get + Return Me._ltitref + End Get + Set + Me._ltitref = Value + End Set + End Property + + Public Property WareCod() As String + Get + Return Me._wareCod + End Get + Set + Me._wareCod = Value + End Set + End Property + + + Public Property TitlNum() As String + Get + Return Me._titlNum + End Get + Set + Me._titlNum = Value + End Set + End Property + + + Public Property DisQty() As String + Get + Return Me._disQty + End Get + Set + Me._disQty = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ACMA)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current ACMA object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an ACMA object + ''' + ''' string workflow markup to deserialize + ''' Output ACMA object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ACMA, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ACMA) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ACMA) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ACMA + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ACMA) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As ACMA + Return CType(Serializer.Deserialize(s), ACMA) + End Function +#End Region + + ''' + ''' Serializes current ACMA object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ACMA object + ''' + ''' string xml file to load and deserialize + ''' Output ACMA object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ACMA, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ACMA) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ACMA) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ACMA + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class GUAGUA + +#Region "Private fields" + Private _guaTypGUA1 As String + + Private _gUAREFREF As List(Of GUAREFREF) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._gUAREFREF = New List(Of GUAREFREF)() + End Sub + + Public Property GuaTypGUA1() As String + Get + Return Me._guaTypGUA1 + End Get + Set + Me._guaTypGUA1 = Value + End Set + End Property + + + Public Property GUAREFREF() As List(Of GUAREFREF) + Get + Return Me._gUAREFREF + End Get + Set + Me._gUAREFREF = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(GUAGUA)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current GUAGUA object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an GUAGUA object + ''' + ''' string workflow markup to deserialize + ''' Output GUAGUA object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As GUAGUA, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, GUAGUA) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As GUAGUA) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As GUAGUA + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), GUAGUA) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As GUAGUA + Return CType(Serializer.Deserialize(s), GUAGUA) + End Function +#End Region + + ''' + ''' Serializes current GUAGUA object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an GUAGUA object + ''' + ''' string xml file to load and deserialize + ''' Output GUAGUA object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As GUAGUA, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, GUAGUA) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As GUAGUA) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As GUAGUA + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class GUAREFREF + +#Region "Private fields" + Private _guaRefNumGRNREF1 As String + + Private _othGuaRefREF4 As String + + Private _accCodREF6 As String + + Private _curREF8 As String + + Private _amoConREF7 As String + + Private _vALLIMECVLE As VALLIMECVLE + + Private _vALLIMNONECLIM As List(Of VALLIMNONECLIM) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._vALLIMNONECLIM = New List(Of VALLIMNONECLIM)() + Me._vALLIMECVLE = New VALLIMECVLE() + End Sub + + Public Property GuaRefNumGRNREF1() As String + Get + Return Me._guaRefNumGRNREF1 + End Get + Set + Me._guaRefNumGRNREF1 = Value + End Set + End Property + + Public Property OthGuaRefREF4() As String + Get + Return Me._othGuaRefREF4 + End Get + Set + Me._othGuaRefREF4 = Value + End Set + End Property + + Public Property AccCodREF6() As String + Get + Return Me._accCodREF6 + End Get + Set + Me._accCodREF6 = Value + End Set + End Property + + Public Property CurREF8() As String + Get + Return Me._curREF8 + End Get + Set + Me._curREF8 = Value + End Set + End Property + + + Public Property AmoConREF7() As String + Get + Return Me._amoConREF7 + End Get + Set + Me._amoConREF7 = Value + End Set + End Property + + Public Property VALLIMECVLE() As VALLIMECVLE + Get + Return Me._vALLIMECVLE + End Get + Set + Me._vALLIMECVLE = Value + End Set + End Property + + + Public Property VALLIMNONECLIM() As List(Of VALLIMNONECLIM) + Get + Return Me._vALLIMNONECLIM + End Get + Set + Me._vALLIMNONECLIM = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(GUAREFREF)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current GUAREFREF object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an GUAREFREF object + ''' + ''' string workflow markup to deserialize + ''' Output GUAREFREF object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As GUAREFREF, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, GUAREFREF) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As GUAREFREF) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As GUAREFREF + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), GUAREFREF) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As GUAREFREF + Return CType(Serializer.Deserialize(s), GUAREFREF) + End Function +#End Region + + ''' + ''' Serializes current GUAREFREF object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an GUAREFREF object + ''' + ''' string xml file to load and deserialize + ''' Output GUAREFREF object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As GUAREFREF, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, GUAREFREF) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As GUAREFREF) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As GUAREFREF + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class VALLIMECVLE + +#Region "Private fields" + Private _notValForECVLE1 As Constraints4.cl27 + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property NotValForECVLE1() As Constraints4.cl27 + Get + Return Me._notValForECVLE1 + End Get + Set + Me._notValForECVLE1 = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VALLIMECVLE)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VALLIMECVLE object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an VALLIMECVLE object + ''' + ''' string workflow markup to deserialize + ''' Output VALLIMECVLE object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VALLIMECVLE, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VALLIMECVLE) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VALLIMECVLE) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VALLIMECVLE + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VALLIMECVLE) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VALLIMECVLE + Return CType(Serializer.Deserialize(s), VALLIMECVLE) + End Function +#End Region + + ''' + ''' Serializes current VALLIMECVLE object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VALLIMECVLE object + ''' + ''' string xml file to load and deserialize + ''' Output VALLIMECVLE object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VALLIMECVLE, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VALLIMECVLE) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VALLIMECVLE) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As VALLIMECVLE + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class VALLIMNONECLIM + +#Region "Private fields" + Private _notValForOthConPLIM2 As Codelists.CL71 + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property NotValForOthConPLIM2() As Codelists.CL71 + Get + Return Me._notValForOthConPLIM2 + End Get + Set + Me._notValForOthConPLIM2 = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VALLIMNONECLIM)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VALLIMNONECLIM object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an VALLIMNONECLIM object + ''' + ''' string workflow markup to deserialize + ''' Output VALLIMNONECLIM object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VALLIMNONECLIM, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VALLIMNONECLIM) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VALLIMNONECLIM) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VALLIMNONECLIM + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VALLIMNONECLIM) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VALLIMNONECLIM + Return CType(Serializer.Deserialize(s), VALLIMNONECLIM) + End Function +#End Region + + ''' + ''' Serializes current VALLIMNONECLIM object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VALLIMNONECLIM object + ''' + ''' string xml file to load and deserialize + ''' Output VALLIMNONECLIM object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VALLIMNONECLIM, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VALLIMNONECLIM) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VALLIMNONECLIM) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As VALLIMNONECLIM + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class TRAAUTCONTRA + +#Region "Private fields" + Private _tINTRA59 As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property TINTRA59() As String + Get + Return Me._tINTRA59 + End Get + Set + Me._tINTRA59 = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(TRAAUTCONTRA)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current TRAAUTCONTRA object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an TRAAUTCONTRA object + ''' + ''' string workflow markup to deserialize + ''' Output TRAAUTCONTRA object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TRAAUTCONTRA, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TRAAUTCONTRA) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TRAAUTCONTRA) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As TRAAUTCONTRA + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), TRAAUTCONTRA) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As TRAAUTCONTRA + Return CType(Serializer.Deserialize(s), TRAAUTCONTRA) + End Function +#End Region + + ''' + ''' Serializes current TRAAUTCONTRA object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TRAAUTCONTRA object + ''' + ''' string xml file to load and deserialize + ''' Output TRAAUTCONTRA object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TRAAUTCONTRA, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TRAAUTCONTRA) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TRAAUTCONTRA) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As TRAAUTCONTRA + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class CONRESERS + +#Region "Private fields" + Private _conResCodERS16 As String + + Private _datLimERS69 As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property ConResCodERS16() As String + Get + Return Me._conResCodERS16 + End Get + Set + Me._conResCodERS16 = Value + End Set + End Property + + + Public Property DatLimERS69() As String + Get + Return Me._datLimERS69 + End Get + Set + Me._datLimERS69 = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(CONRESERS)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current CONRESERS object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an CONRESERS object + ''' + ''' string workflow markup to deserialize + ''' Output CONRESERS object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As CONRESERS, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, CONRESERS) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As CONRESERS) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As CONRESERS + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), CONRESERS) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As CONRESERS + Return CType(Serializer.Deserialize(s), CONRESERS) + End Function +#End Region + + ''' + ''' Serializes current CONRESERS object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an CONRESERS object + ''' + ''' string xml file to load and deserialize + ''' Output CONRESERS object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As CONRESERS, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, CONRESERS) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As CONRESERS) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As CONRESERS + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class REPREP + +#Region "Private fields" + Private _namREP5 As String + + Private _repCapREP18 As String + + Private _repCapREP18LNG As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property NamREP5() As String + Get + Return Me._namREP5 + End Get + Set + Me._namREP5 = Value + End Set + End Property + + Public Property RepCapREP18() As String + Get + Return Me._repCapREP18 + End Get + Set + Me._repCapREP18 = Value + End Set + End Property + + Public Property RepCapREP18LNG() As String + Get + Return Me._repCapREP18LNG + End Get + Set + Me._repCapREP18LNG = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(REPREP)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current REPREP object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an REPREP object + ''' + ''' string workflow markup to deserialize + ''' Output REPREP object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As REPREP, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, REPREP) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As REPREP) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As REPREP + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), REPREP) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As REPREP + Return CType(Serializer.Deserialize(s), REPREP) + End Function +#End Region + + ''' + ''' Serializes current REPREP object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an REPREP object + ''' + ''' string xml file to load and deserialize + ''' Output REPREP object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As REPREP, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, REPREP) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As REPREP) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As REPREP + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class SEAIDSID + +#Region "Private fields" + Private _seaIdeSID1 As String + + Private _seaIdeSID1LNG As String + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property SeaIdeSID1() As String + Get + Return Me._seaIdeSID1 + End Get + Set + Me._seaIdeSID1 = Value + End Set + End Property + + Public Property SeaIdeSID1LNG() As String + Get + Return Me._seaIdeSID1LNG + End Get + Set + Me._seaIdeSID1LNG = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(SEAIDSID)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current SEAIDSID object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an SEAIDSID object + ''' + ''' string workflow markup to deserialize + ''' Output SEAIDSID object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SEAIDSID, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SEAIDSID) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SEAIDSID) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As SEAIDSID + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), SEAIDSID) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As SEAIDSID + Return CType(Serializer.Deserialize(s), SEAIDSID) + End Function +#End Region + + ''' + ''' Serializes current SEAIDSID object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an SEAIDSID object + ''' + ''' string xml file to load and deserialize + ''' Output SEAIDSID object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SEAIDSID, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SEAIDSID) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SEAIDSID) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As SEAIDSID + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class OB + +#Region "Private fields" + Private _aCMA As List(Of ACMA) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._aCMA = New List(Of ACMA)() + End Sub + + + Public Property ACMA() As List(Of ACMA) + Get + Return Me._aCMA + End Get + Set + Me._aCMA = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(OB)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current OB object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an OB object + ''' + ''' string workflow markup to deserialize + ''' Output OB object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As OB, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, OB) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As OB) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As OB + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), OB) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As OB + Return CType(Serializer.Deserialize(s), OB) + End Function +#End Region + + ''' + ''' Serializes current OB object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an OB object + ''' + ''' string xml file to load and deserialize + ''' Output OB object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As OB, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, OB) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As OB) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As OB + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class +End Namespace diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/SGS/CC015B_TR_EXT_V4_3.xsd b/VERAG_PROG_ALLGEMEIN/Schnittstellen/SGS/CC015B_TR_EXT_V4_3.xsd new file mode 100644 index 00000000..c25dd9e3 --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/SGS/CC015B_TR_EXT_V4_3.xsd @@ -0,0 +1,1930 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Invoice amount + + + + + invoice currency + + + + + + + + + + + + + + + + + + + + + + + + + Used for BG country. + + + + + + + + + + + + + + + + + + + + + + Used for ES country. + + + + + + + + + + + + + + + + + + + + + + Iddtext : Export/Entrepot Declaration ID + + + + + Nartnumart : Discharging Item Number/Line + + + + + Nartnumart1 : Warehouse Code + + + + + Qamv : Discharging Item Quantity + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + this tag takes 0 or 1 and used for RO + + + + + this tag takes 0 or 1 and used for RO + + + + + group vessel name + + + + + dateFormat - ddMMyyyy + + + + + this tag takes 0 or 1 + + + + + this tag takes 0 or 1 + + + + + for simplified procedure and it can have any value defined at TNet + + + + + dateFormat - yyyymmdd + + + + + + + + + + + 0 or 1 + + + + + 0 or 1 + + + + + + + + + 0 or 1 + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Previous Document Registration Position + + + + + Previous Document Registration Number + + + + + Previous Document Number Of Packages + + + + + + + + + + + + + + + + YYYY used in Italy + + + + + = IT fixed + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/SGS/Codelists.Designer.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/SGS/Codelists.Designer.vb new file mode 100644 index 00000000..d5d362f6 --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/SGS/Codelists.Designer.vb @@ -0,0 +1,1289 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 5.0.0.47. www.xsd2code.com +'' CodelistsListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse +'' +'' ------------------------------------------------------------------------------ +Imports System +Imports System.Diagnostics +Imports System.Xml.Serialization +Imports System.Collections +Imports System.Xml.Schema +Imports System.ComponentModel +Imports System.IO +Imports System.Text +Imports System.Xml +Imports System.Collections.Generic + +Namespace Codelists + + + Public Enum CL32 + + ''' + + Item4 + + ''' + + Item7 + End Enum + + + Public Enum CL14 + + ''' + + Item235 + + ''' + + Item270 + + ''' + + Item271 + + ''' + + Item325 + + ''' + + Item380 + + ''' + + Item703 + + ''' + + Item704 + + ''' + + Item705 + + ''' + + Item720 + + ''' + + Item722 + + ''' + + Item730 + + ''' + + Item740 + + ''' + + Item741 + + ''' + + Item750 + + ''' + + Item760 + + ''' + + Item785 + + ''' + + Item787 + + ''' + + Item820 + + ''' + + Item821 + + ''' + + Item822 + + ''' + + Item823 + + ''' + + Item952 + + ''' + + Item955 + + ''' + CLE + + ''' + IF3 + + ''' + IF8 + + ''' + MNS + + ''' + T2F + + ''' + T2L + + ''' + T2ATA + + ''' + T2 + + ''' + T2M + + ''' + T2CIM + + ''' + T2TIR + + ''' + EX + + ''' + IM + + ''' + CO + + ''' + EU + + ''' + ZZZ + End Enum + + + Public Enum CL25 + + ''' + L + + ''' + S + End Enum + + + Public Enum CL82 + + ''' + + Item0 + + ''' + + Item1 + + ''' + + Item2 + End Enum + + + Public Enum CL70 + + ''' + AD + + ''' + AT + + ''' + BE + + ''' + BG + + ''' + CH + + ''' + CY + + ''' + CZ + + ''' + DE + + ''' + DK + + ''' + EE + + ''' + ES + + ''' + FI + + ''' + FR + + ''' + GB + + ''' + GR + + ''' + HU + + ''' + IE + + ''' + [IS] + + ''' + IT + + ''' + LT + + ''' + LU + + ''' + LV + + ''' + MT + + ''' + NL + + ''' + NO + + ''' + PL + + ''' + PT + + ''' + RO + + ''' + SE + + ''' + SI + + ''' + SK + + ''' + SM + End Enum + + + Public Enum CL68 + + ''' + A + + ''' + B + + ''' + C + + ''' + D + + ''' + E + + ''' + F + + ''' + G + + ''' + H + + ''' + I + + ''' + J + + ''' + K + + ''' + L + + ''' + M + + ''' + N + + ''' + O + + ''' + P + + ''' + Q + + ''' + S + + ''' + T + + ''' + U + + ''' + V + + ''' + W + End Enum + + + Public Enum CL79 + + ''' + N + + ''' + S + + ''' + U + End Enum + + + Public Enum CL105 + + ''' + + Item1 + + ''' + + Item2 + + ''' + + Item3 + + ''' + + Item4 + + ''' + + Item5 + + ''' + + Item6 + + ''' + + Item7 + End Enum + + + Public Enum CL23 + + ''' + + Item12 + + ''' + + Item13 + + ''' + + Item14 + + ''' + + Item15 + + ''' + + Item16 + + ''' + + Item18 + + ''' + + Item19 + + ''' + + Item2 + + ''' + + Item21 + + ''' + + Item22 + + ''' + + Item23 + + ''' + + Item26 + + ''' + + Item28 + + ''' + + Item29 + + ''' + + Item3 + + ''' + + Item32 + + ''' + + Item33 + + ''' + + Item35 + + ''' + + Item36 + + ''' + + Item37 + + ''' + + Item38 + + ''' + + Item39 + + ''' + + Item40 + + ''' + + Item6 + + ''' + + Item7 + End Enum + + + Public Enum CL49 + + ''' + + Item12 + + ''' + + Item13 + + ''' + + Item14 + + ''' + + Item15 + + ''' + + Item19 + + ''' + + Item26 + + ''' + + Item35 + + ''' + + Item37 + + ''' + + Item38 + + ''' + + Item39 + + ''' + + Item40 + + ''' + + Item90 + + ''' + + Item91 + + ''' + + Item92 + + ''' + + Item93 + End Enum + + + Public Enum CL28 + + ''' + F + + ''' + L + End Enum + + + Public Enum CL33 + + ''' + UNB + + ''' + UNZ + End Enum + + + Public Enum CL37 + + ''' + EC + + ''' + UN + End Enum + + + Public Enum CL36 + + ''' + + Item96B + End Enum + + + Public Enum CL34 + + ''' + UNH + + ''' + UNT + End Enum + + + Public Enum CL60 + + ''' + CC004A + + ''' + CC005A + + ''' + CC007A + + ''' + CC008A + + ''' + CC009A + + ''' + CC013B + + ''' + CC014A + + ''' + CC015A + + ''' + CC015B + + ''' + CC016A + + ''' + CC017B + + ''' + CC019A + + ''' + CC021A + + ''' + CC023A + + ''' + CC025A + + ''' + CC026A + + ''' + CC028A + + ''' + CC029B + + ''' + CC035A + + ''' + CC043A + + ''' + CC044A + + ''' + CC045A + + ''' + CC051B + + ''' + CC054A + + ''' + CC055A + + ''' + CC058A + + ''' + CC060A + + ''' + CC062A + + ''' + CC100A + + ''' + CC140A + + ''' + CC141A + + ''' + CC224A + + ''' + CC225A + + ''' + CC228A + + ''' + CC229A + + ''' + CC231A + + ''' + CC304A + + ''' + CC305A + + ''' + CC313A + + ''' + CC315A + + ''' + CC316A + + ''' + CC323A + + ''' + CC324A + + ''' + CC325A + + ''' + CC328A + + ''' + CC351A + + ''' + CC928A + + ''' + CD001B + + ''' + CD002A + + ''' + CD003B + + ''' + CD006A + + ''' + CD010A + + ''' + CD011A + + ''' + CD018A + + ''' + CD020A + + ''' + CD024A + + ''' + CD027A + + ''' + CD030B + + ''' + CD031B + + ''' + CD032B + + ''' + CD034A + + ''' + CD037A + + ''' + CD038B + + ''' + CD050B + + ''' + CD059A + + ''' + CD063A + + ''' + CD106A + + ''' + CD111A + + ''' + CD112A + + ''' + CD114A + + ''' + CD115B + + ''' + CD118A + + ''' + CD12A + + ''' + CD142A + + ''' + CD143A + + ''' + CD144A + + ''' + CD145A + + ''' + CD150A + + ''' + CD151A + + ''' + CD152A + + ''' + CD200A + + ''' + CD201A + + ''' + CD203A + + ''' + CD204A + + ''' + CD205A + + ''' + CD209A + + ''' + CD301A + + ''' + CD302A + + ''' + CD303A + + ''' + CD319A + + ''' + CD411A + + ''' + CD501A + + ''' + CD501B + + ''' + CD502A + + ''' + CD503A + + ''' + CD503B + + ''' + CD510A + + ''' + CD518A + + ''' + CD518B + + ''' + CD524A + + ''' + CD527A + + ''' + CD538A + + ''' + CD584A + + ''' + CD586A + + ''' + CD599A + + ''' + CD601A + + ''' + CD603A + + ''' + CD901B + + ''' + CD904A + + ''' + CD905A + + ''' + CD906A + + ''' + CD907A + + ''' + CD912A + + ''' + CD913A + + ''' + CD914A + + ''' + CD916A + + ''' + CD917A + + ''' + CD918A + + ''' + CD919A + + ''' + CD931B + + ''' + CD932B + + ''' + CDS01A + End Enum + + + Public Enum CL1 + + ''' + BANSTA + + ''' + CUSDEC + + ''' + CUSRES + + ''' + FINSTA + + ''' + GENRAL + + ''' + GESMES + + ''' + PARTTC + + ''' + SANCRT + End Enum + + + Public Enum CL35 + + ''' + D + End Enum + + + Public Enum CL26 + + ''' + + Item01 + + ''' + + Item02 + + ''' + + Item03 + + ''' + + Item04 + + ''' + + Item05 + + ''' + + Item06 + + ''' + + Item07 + + ''' + + Item08 + + ''' + + Item09 + + ''' + + Item10 + + ''' + + Item11 + + ''' + + Item12 + End Enum + + + Public Enum CL71 + + ''' + AD + + ''' + CH + + ''' + [IS] + + ''' + NO + + ''' + SM + End Enum + + + Public Enum CL24 + + ''' + C + + ''' + D + + ''' + U + End Enum + + + Public Enum CL83 + + ''' + CA + + ''' + DE + + ''' + DS + + ''' + HA + + ''' + NR + + ''' + TR + End Enum + + + Public Enum CL117 + + ''' + + Item1 + End Enum + + + Public Enum CL64 + + ''' + + Item1 + End Enum + + + Public Enum CL84 + + ''' + + Item1 + + ''' + + Item2 + + ''' + + Item3 + + ''' + + Item4 + + ''' + + Item5 + + ''' + + Item6 + End Enum + + + Public Enum CL81 + + ''' + CM + + ''' + CN + + ''' + NF + + ''' + PN + + ''' + UM + + ''' + UQ + + ''' + UR + + ''' + W0 + + ''' + W8 + End Enum + + + Public Enum CL21 + + ''' + UNOC + End Enum + + + Public Enum CL22 + + ''' + + Item3 + End Enum +End Namespace diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/SGS/Codelists.xsd b/VERAG_PROG_ALLGEMEIN/Schnittstellen/SGS/Codelists.xsd new file mode 100644 index 00000000..f64cfea9 --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/SGS/Codelists.xsd @@ -0,0 +1,516 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/SGS/Constraints4.Designer.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/SGS/Constraints4.Designer.vb new file mode 100644 index 00000000..50f9f39d --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/SGS/Constraints4.Designer.vb @@ -0,0 +1,33 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 5.0.0.47. www.xsd2code.com +'' Constraints4ListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse +'' +'' ------------------------------------------------------------------------------ +Imports System +Imports System.Diagnostics +Imports System.Xml.Serialization +Imports System.Collections +Imports System.Xml.Schema +Imports System.ComponentModel +Imports System.IO +Imports System.Text +Imports System.Xml +Imports System.Collections.Generic + +Namespace Constraints4 + + + Public Enum CL27 + + ''' + + Item0 + + ''' + + Item1 + End Enum +End Namespace diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/SGS/Constraints4.xsd b/VERAG_PROG_ALLGEMEIN/Schnittstellen/SGS/Constraints4.xsd new file mode 100644 index 00000000..477a0305 --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/SGS/Constraints4.xsd @@ -0,0 +1,182 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/SGS/cSGSInterface.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/SGS/cSGSInterface.vb new file mode 100644 index 00000000..258f1491 --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/SGS/cSGSInterface.vb @@ -0,0 +1,1543 @@ + + +Public Class cSGSInterface + + + + Shared Function generateVersandanmeldungNCTS(cDY As cNCTS_TR, ByRef saveFile As String, DY_ACTION As String) As Boolean + Try + + Dim Interface_VERSION = "003" + Dim ObjectAktion = DY_ACTION + + Dim XML As New CC015B_TR_EXT_V4_3.CC015B + + 'Transaktion: + XML.HEAHEA.RefNumHEA4 = cDY.ncts_ObjectName + + + + ' Dim saveDir = Application.StartupPath & "\Dakosy_SEND\" + Dim saveDir = "\\share01\Datenarchiv\SGS\SEND\" + If Not System.IO.Directory.Exists(saveDir) Then + System.IO.Directory.CreateDirectory(saveDir) + End If + + saveFile = saveDir & "SGS_" & Now.ToString("yyMMdd_HHmmss") & ".xml" + + 'MsgBox(saveFile) + XML.SaveToFile(saveFile) + + replaceNullDateXML(saveFile) + + + Return False 'TEST! + + + + Return True + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + Return False + End Try + + + 'XML.Transaktion.IOPartner = getIOPartner(cDY.ncts_firma) 'If(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "VERA", "VERG") + 'XML.Transaktion.IODatumZeit = Now + 'XML.Transaktion.IOReferenz = cDY.ncts_Trans_Referenz + 'If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then XML.Transaktion.IODivision3 = getDivision(cDY.ncts_firma) '"SUW" + 'XML.Transaktion.Version = Interface_VERSION + + 'XML.EinzelVersandanmeldung = New VersandanmeldungNCTSDE.EinzelVersandanmeldungTyp + + ''ObjektIdentifizierung: + 'XML.EinzelVersandanmeldung.ObjektIdentifizierung.NameAbsendendesSystem = "VERAG_ZOLL" + 'XML.EinzelVersandanmeldung.ObjektIdentifizierung = New VersandanmeldungNCTSDE.ObjektIdentifizierungVATyp + 'XML.EinzelVersandanmeldung.ObjektIdentifizierung.ObjektName = cDY.ncts_ObjectName + 'If cDY.ncts_ObjectAlias IsNot Nothing Then XML.EinzelVersandanmeldung.ObjektIdentifizierung.ObjektAliasname = cDY.ncts_ObjectAlias + 'Dim ObjektAktion As New List(Of String) : ObjektAktion.Add(ObjectAktion) + 'XML.EinzelVersandanmeldung.ObjektIdentifizierung.ObjektAktion = ObjektAktion + 'If If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DAKOSY_SB, "") <> "" Then XML.EinzelVersandanmeldung.ObjektIdentifizierung.Bearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DAKOSY_SB + + 'If cDY.ncts_BezugsnummerVorblendung IsNot Nothing Then XML.EinzelVersandanmeldung.ObjektIdentifizierung.BezugsnummerVorblendung = cDY.ncts_BezugsnummerVorblendung + + ''Kopfdaten: + 'XML.EinzelVersandanmeldung.KopfDaten = New VersandanmeldungNCTSDE.KopfDatenVersandanmeldungTyp + 'If cDY.ncts_AbgangsDienststellennummer IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.AbgangsstelleDienststellnummer = cDY.ncts_AbgangsDienststellennummer + 'If cDY.ncts_BestimmungsstelleDienststellennummer IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.BestimmungsstelleDienststellnummer = cDY.ncts_BestimmungsstelleDienststellennummer + 'If cDY.ncts_VersendungsLandCode IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.VersendungslandCode = cDY.ncts_VersendungsLandCode + 'If cDY.ncts_BestimmungslandCode IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.BestimmungslandCode = cDY.ncts_BestimmungslandCode + 'If cDY.ncts_ArtAnmeldung IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.ArtAnmeldungKopfCode = cDY.ncts_ArtAnmeldung + 'If cDY.ncts_BeladungsOrt IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.BeladungsOrt = cDY.ncts_BeladungsOrt + 'XML.EinzelVersandanmeldung.KopfDaten.DurchgangszollstelleDienststellnummer = New List(Of String) + 'If cDY.ncts_DurchgangszollstelleDienststellnummer1 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.DurchgangszollstelleDienststellnummer.Add(cDY.ncts_DurchgangszollstelleDienststellnummer1) + 'If cDY.ncts_DurchgangszollstelleDienststellnummer2 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.DurchgangszollstelleDienststellnummer.Add(cDY.ncts_DurchgangszollstelleDienststellnummer2) + 'If cDY.ncts_DurchgangszollstelleDienststellnummer3 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.DurchgangszollstelleDienststellnummer.Add(cDY.ncts_DurchgangszollstelleDienststellnummer3) + 'If cDY.ncts_DurchgangszollstelleDienststellnummer4 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.DurchgangszollstelleDienststellnummer.Add(cDY.ncts_DurchgangszollstelleDienststellnummer4) + 'If cDY.ncts_DurchgangszollstelleDienststellnummer5 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.DurchgangszollstelleDienststellnummer.Add(cDY.ncts_DurchgangszollstelleDienststellnummer5) + 'If cDY.ncts_DurchgangszollstelleDienststellnummer6 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.DurchgangszollstelleDienststellnummer.Add(cDY.ncts_DurchgangszollstelleDienststellnummer6) + 'If cDY.ncts_DurchgangszollstelleDienststellnummer7 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.DurchgangszollstelleDienststellnummer.Add(cDY.ncts_DurchgangszollstelleDienststellnummer7) + 'If cDY.ncts_DurchgangszollstelleDienststellnummer8 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.DurchgangszollstelleDienststellnummer.Add(cDY.ncts_DurchgangszollstelleDienststellnummer8) + 'If cDY.ncts_DurchgangszollstelleDienststellnummer9 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.DurchgangszollstelleDienststellnummer.Add(cDY.ncts_DurchgangszollstelleDienststellnummer9) + 'If cDY.ncts_AbgangsDienststellennummer IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.AbgangsstelleDienststellnummer = cDY.ncts_AbgangsDienststellennummer + 'If cDY.ncts_Wiedergestellungsdatum IsNot Nothing AndAlso IsDate(cDY.ncts_Wiedergestellungsdatum) Then + ' XML.EinzelVersandanmeldung.KopfDaten.Wiedergestellungsdatum = cDY.ncts_Wiedergestellungsdatum + 'Else + ' XML.EinzelVersandanmeldung.KopfDaten.Wiedergestellungsdatum = Nothing + 'End If + + 'If cDY.ncts_KzVereinfachtesVerfahren IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.KzVereinfachtesVerfahren = CInt(Int(cDY.ncts_KzVereinfachtesVerfahren)) ' sonst true = -1 + ''GesRoh -> auto + ''GesPk -> auto + + ''Verschluss: + 'If cDY.ncts_Verschluss_ArtCode IsNot Nothing Then + ' XML.EinzelVersandanmeldung.KopfDaten.Verschluss = New VersandanmeldungNCTSDE.VerschlussVATyp + ' If cDY.ncts_Verschluss_ArtCode IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.ArtCode = cDY.ncts_Verschluss_ArtCode + ' If cDY.ncts_Verschluss_Anzahl IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Anzahl = cDY.ncts_Verschluss_Anzahl + + ' If cDY.ncts_Verschluss_Zeichen1 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen1) + ' If cDY.ncts_Verschluss_Zeichen2 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen2) + ' If cDY.ncts_Verschluss_Zeichen3 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen3) + ' If cDY.ncts_Verschluss_Zeichen4 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen4) + ' If cDY.ncts_Verschluss_Zeichen5 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen5) + ' If cDY.ncts_Verschluss_Zeichen6 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen6) + ' If cDY.ncts_Verschluss_Zeichen7 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen7) + ' If cDY.ncts_Verschluss_Zeichen8 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen8) + ' If cDY.ncts_Verschluss_Zeichen9 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen9) + ' If cDY.ncts_Verschluss_Zeichen10 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen10) + ' If cDY.ncts_Verschluss_Zeichen11 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen11) + ' If cDY.ncts_Verschluss_Zeichen12 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen12) + ' If cDY.ncts_Verschluss_Zeichen13 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen13) + ' If cDY.ncts_Verschluss_Zeichen14 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen14) + ' If cDY.ncts_Verschluss_Zeichen15 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen15) + ' If cDY.ncts_Verschluss_Zeichen16 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Verschluss.Zeichen.Add(cDY.ncts_Verschluss_Zeichen16) + 'End If + + ''Sicherheitsangaben: + 'If cDY.ncts_SICHERHEITSANGABEN.Count > 0 Then + ' XML.EinzelVersandanmeldung.KopfDaten.Sicherheitsangaben = New List(Of VersandanmeldungNCTSDE.SicherheitsangabenVATyp) + ' For Each s In cDY.ncts_SICHERHEITSANGABEN + ' Dim SA As New VersandanmeldungNCTSDE.SicherheitsangabenVATyp + ' If s.nctsSA_ArtCode IsNot Nothing Then SA.ArtCode = s.nctsSA_ArtCode + ' If s.nctsSA_BezeichnungBescheinigun IsNot Nothing Then SA.BezeichnungBescheinigung = s.nctsSA_BezeichnungBescheinigun + ' If s.nctsSA_AbgabenBetrag IsNot Nothing Then SA.Abgabenbetrag = s.nctsSA_AbgabenBetrag + ' If s.nctsSA_GRN IsNot Nothing Then + ' SA.GRN = s.nctsSA_GRN + ' If If(s.nctsSA_GRN, "") = "05AT510000G000FP7" Then + ' If If(s.nctsSA_Zugriffcode, "").replace("0000", "").length <> 4 Then + ' s.nctsSA_Zugriffcode = InputBox("Bitte geben Sie den Zugriffscode für die AT-Bürgschaft ein:", "Zugriffscode", "") + ' If s.nctsSA_Zugriffcode.length > 4 Then + ' s.nctsSA_Zugriffcode = s.nctsSA_Zugriffcode.ToString.Substring(0, 4) + ' End If + ' End If + ' End If + ' If s.nctsSA_Zugriffcode IsNot Nothing Then SA.Zugriffscode = s.nctsSA_Zugriffcode + + ' ' If s.nctsSA_TIN IsNot Nothing Then SA.TIN = s.nctsSA_TIN ---> Fehler, das Feld wird in ausl. TIN geschreiben --> muss aber leer bleiben + ' XML.EinzelVersandanmeldung.KopfDaten.Sicherheitsangaben.Add(SA) + ' End If + ' Next + 'End If + + ''Beförderungsmittel: + '' If cDY.ncts_Befoerderungsmittel_KennzeichenAbgang Or cDY.ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode isnot nothing then + 'XML.EinzelVersandanmeldung.KopfDaten.Befoerderungsmittel = New VersandanmeldungNCTSDE.BefoerderungsmittelVATyp + 'If cDY.ncts_Befoerderungsmittel_KennzeichenAbgang IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Befoerderungsmittel.KennzeichenAbgang = cDY.ncts_Befoerderungsmittel_KennzeichenAbgang + 'If cDY.ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Befoerderungsmittel.StaatszugehoerigkeitAbgangCode = cDY.ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode + + 'If cDY.ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Befoerderungsmittel.VerkehrszweigGrenzueberschreitent = cDY.ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent + 'If cDY.ncts_Befoerderungsmittel_ArtGrenzueberschreitung IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Befoerderungsmittel.ArtGrenzueberschreitentCode = cDY.ncts_Befoerderungsmittel_ArtGrenzueberschreitung + 'If cDY.ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Befoerderungsmittel.KennzeichenGrenzueberschreitend = cDY.ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend + 'If cDY.ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Befoerderungsmittel.StaatszugehoerigkeitGrenzueberschreitendCode = cDY.ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode + ''End If + + ''Adressen + 'XML.EinzelVersandanmeldung.KopfDaten.Adressen = New VersandanmeldungNCTSDE.AdressenVATyp + 'If cDY.ncts_Versender_EORI IsNot Nothing Or cDY.ncts_Versender_Name IsNot Nothing Then + ' XML.EinzelVersandanmeldung.KopfDaten.Adressen.Versender = New VersandanmeldungNCTSDE.AdresseVA1Typ + ' If cDY.ncts_Versender_EORI IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Versender.EORI = cDY.ncts_Versender_EORI + ' If cDY.ncts_Versender_NLNR IsNot Nothing AndAlso IsNumeric(cDY.ncts_Versender_NLNR) Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Versender.NLNR = cDY.ncts_Versender_NLNR + ' If cDY.ncts_Versender_Name IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Versender.Name = cDY.ncts_Versender_Name + ' If cDY.ncts_Versender_StrasseHausnummer IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Versender.StrasseHausnummer = cDY.ncts_Versender_StrasseHausnummer + ' If cDY.ncts_Versender_PLZ IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Versender.PLZ = cDY.ncts_Versender_PLZ + ' If cDY.ncts_Versender_Ort IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Versender.Ort = cDY.ncts_Versender_Ort + ' If cDY.ncts_Versender_Land IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Versender.Land = cDY.ncts_Versender_Land + ' If cDY.ncts_Versender_TIN IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Versender.TIN = cDY.ncts_Versender_TIN + 'End If + 'If cDY.ncts_Empfaenger_EORI IsNot Nothing Or cDY.ncts_Empfaenger_Name IsNot Nothing Then + ' XML.EinzelVersandanmeldung.KopfDaten.Adressen.Empfaenger = New VersandanmeldungNCTSDE.AdresseVA1Typ + ' If cDY.ncts_Empfaenger_EORI IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Empfaenger.EORI = cDY.ncts_Empfaenger_EORI + ' If cDY.ncts_Empfaenger_NLNR IsNot Nothing AndAlso IsNumeric(cDY.ncts_Empfaenger_NLNR) Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Empfaenger.NLNR = cDY.ncts_Empfaenger_NLNR + ' If cDY.ncts_Empfaenger_Name IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Empfaenger.Name = cDY.ncts_Empfaenger_Name + ' If cDY.ncts_Empfaenger_StrasseHausnummer IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Empfaenger.StrasseHausnummer = cDY.ncts_Empfaenger_StrasseHausnummer + ' If cDY.ncts_Empfaenger_PLZ IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Empfaenger.PLZ = cDY.ncts_Empfaenger_PLZ + ' If cDY.ncts_Empfaenger_Ort IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Empfaenger.Ort = cDY.ncts_Empfaenger_Ort + ' If cDY.ncts_Empfaenger_Land IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Empfaenger.Land = cDY.ncts_Empfaenger_Land + ' If cDY.ncts_Empfaenger_TIN IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Empfaenger.TIN = cDY.ncts_Empfaenger_TIN + 'End If + 'If cDY.ncts_Hauptverpflichteter_EORI IsNot Nothing Or cDY.ncts_Hauptverpflichteter_Name IsNot Nothing Then + ' XML.EinzelVersandanmeldung.KopfDaten.Adressen.Hauptverpflichteter = New VersandanmeldungNCTSDE.HauptverpflichteterVATyp + ' If cDY.ncts_Hauptverpflichteter_EORI IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Hauptverpflichteter.EORI = cDY.ncts_Hauptverpflichteter_EORI + ' If cDY.ncts_Hauptverpflichteter_NLNR IsNot Nothing AndAlso IsNumeric(cDY.ncts_Hauptverpflichteter_NLNR) Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Hauptverpflichteter.NLNR = cDY.ncts_Hauptverpflichteter_NLNR + ' If cDY.ncts_Hauptverpflichteter_Name IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Hauptverpflichteter.Name = cDY.ncts_Hauptverpflichteter_Name + ' If cDY.ncts_Hauptverpflichteter_StrasseHausnummer IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Hauptverpflichteter.StrasseHausnummer = cDY.ncts_Hauptverpflichteter_StrasseHausnummer + ' If cDY.ncts_Hauptverpflichteter_PLZ IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Hauptverpflichteter.PLZ = cDY.ncts_Hauptverpflichteter_PLZ + ' If cDY.ncts_Hauptverpflichteter_Ort IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Hauptverpflichteter.Ort = cDY.ncts_Hauptverpflichteter_Ort + ' If cDY.ncts_Hauptverpflichteter_Land IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Hauptverpflichteter.Land = cDY.ncts_Hauptverpflichteter_Land + ' If cDY.ncts_Hauptverpflichteter_TIN IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Hauptverpflichteter.TIN = cDY.ncts_Hauptverpflichteter_TIN + ' If cDY.ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Hauptverpflichteter.BewilligungsnummerVersender = cDY.ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender + ' If cDY.ncts_ZugelassenerEmpfaenger_IDCarnet IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Hauptverpflichteter.IDCarnet = cDY.ncts_ZugelassenerEmpfaenger_IDCarnet + 'End If + + + + + ''SumA + 'XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit = New VersandanmeldungNCTSDE.SumASicherheitVATyp + + 'If cDY.ncts_SumA_KzSumASicherheit IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.KzSumASicherheit = CInt(Int(cDY.ncts_SumA_KzSumASicherheit)) ' sonst true = -1 + 'If cDY.ncts_SumA_KennnummerSendung IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.KennnummerSendung = cDY.ncts_SumA_KennnummerSendung + + 'If cDY.ncts_SumA_BesondereUmstaende IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.BesondereUmstaende = cDY.ncts_SumA_BesondereUmstaende + 'If cDY.ncts_SumA_NummerBefoerderung IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.NummerBefoerderung = cDY.ncts_SumA_NummerBefoerderung + 'If cDY.ncts_SumA_Ladeort IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Ladeort = cDY.ncts_SumA_Ladeort + + 'If cDY.ncts_SumA_Entladeort IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Entladeort = cDY.ncts_SumA_Entladeort + 'If cDY.ncts_SumA_BefoerderungskostenZahlungsweise IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.BefoerderungskostenZahlungsweise = cDY.ncts_SumA_BefoerderungskostenZahlungsweise + 'If cDY.ncts_SumA_BefoerderungsrouteLand1 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.BefoerderungsrouteLand.Add(cDY.ncts_SumA_BefoerderungsrouteLand1) + 'If cDY.ncts_SumA_BefoerderungsrouteLand2 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.BefoerderungsrouteLand.Add(cDY.ncts_SumA_BefoerderungsrouteLand2) + 'If cDY.ncts_SumA_BefoerderungsrouteLand3 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.BefoerderungsrouteLand.Add(cDY.ncts_SumA_BefoerderungsrouteLand3) + 'If cDY.ncts_SumA_BefoerderungsrouteLand4 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.BefoerderungsrouteLand.Add(cDY.ncts_SumA_BefoerderungsrouteLand4) + 'If cDY.ncts_SumA_BefoerderungsrouteLand5 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.BefoerderungsrouteLand.Add(cDY.ncts_SumA_BefoerderungsrouteLand5) + 'If cDY.ncts_SumA_BefoerderungsrouteLand6 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.BefoerderungsrouteLand.Add(cDY.ncts_SumA_BefoerderungsrouteLand6) + 'If cDY.ncts_SumA_BefoerderungsrouteLand7 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.BefoerderungsrouteLand.Add(cDY.ncts_SumA_BefoerderungsrouteLand7) + 'If cDY.ncts_SumA_BefoerderungsrouteLand8 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.BefoerderungsrouteLand.Add(cDY.ncts_SumA_BefoerderungsrouteLand8) + 'If cDY.ncts_SumA_BefoerderungsrouteLand9 IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.BefoerderungsrouteLand.Add(cDY.ncts_SumA_BefoerderungsrouteLand9) + 'If cDY.ncts_SumA_Versender_EORI IsNot Nothing Or cDY.ncts_SumA_Versender_Name IsNot Nothing Then + ' XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Versender = New VersandanmeldungNCTSDE.AdresseVATyp + ' If cDY.ncts_SumA_Versender_EORI IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Versender.EORI = cDY.ncts_SumA_Versender_EORI + ' If cDY.ncts_SumA_Versender_NLNR IsNot Nothing AndAlso IsNumeric(cDY.ncts_SumA_Versender_NLNR) Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Versender.NLNR = cDY.ncts_SumA_Versender_NLNR + ' If cDY.ncts_SumA_Versender_Name IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Versender.Name = cDY.ncts_SumA_Versender_Name + ' If cDY.ncts_SumA_Versender_StrasseHausnummer IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Versender.StrasseHausnummer = cDY.ncts_SumA_Versender_StrasseHausnummer + ' If cDY.ncts_SumA_Versender_PLZ IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Versender.PLZ = cDY.ncts_SumA_Versender_PLZ + ' If cDY.ncts_SumA_Versender_Ort IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Versender.Ort = cDY.ncts_SumA_Versender_Ort + ' If cDY.ncts_SumA_Versender_Land IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Versender.Land = cDY.ncts_SumA_Versender_Land + ' If cDY.ncts_SumA_Versender_TIN IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Versender.TIN = cDY.ncts_SumA_Versender_TIN + 'End If + 'If cDY.ncts_SumA_Empfaenger_EORI IsNot Nothing Or cDY.ncts_SumA_Empfaenger_Name IsNot Nothing Then + ' XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Empfaenger = New VersandanmeldungNCTSDE.AdresseVATyp + ' If cDY.ncts_SumA_Empfaenger_EORI IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Empfaenger.EORI = cDY.ncts_SumA_Empfaenger_EORI + ' If cDY.ncts_SumA_Empfaenger_NLNR IsNot Nothing AndAlso IsNumeric(cDY.ncts_SumA_Empfaenger_NLNR) Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Empfaenger.NLNR = cDY.ncts_SumA_Empfaenger_NLNR + ' If cDY.ncts_SumA_Empfaenger_Name IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Empfaenger.Name = cDY.ncts_SumA_Empfaenger_Name + ' If cDY.ncts_SumA_Empfaenger_StrasseHausnummer IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Empfaenger.StrasseHausnummer = cDY.ncts_SumA_Empfaenger_StrasseHausnummer + ' If cDY.ncts_SumA_Empfaenger_PLZ IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Empfaenger.PLZ = cDY.ncts_SumA_Empfaenger_PLZ + ' If cDY.ncts_SumA_Empfaenger_Ort IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Empfaenger.Ort = cDY.ncts_SumA_Empfaenger_Ort + ' If cDY.ncts_SumA_Empfaenger_Land IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Empfaenger.Land = cDY.ncts_SumA_Empfaenger_Land + ' If cDY.ncts_SumA_Empfaenger_TIN IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Empfaenger.TIN = cDY.ncts_SumA_Empfaenger_TIN + 'End If + 'If cDY.ncts_SumA_Befoerderer_EORI IsNot Nothing Or cDY.ncts_SumA_Befoerderer_Name IsNot Nothing Then + ' XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Befoerderer = New VersandanmeldungNCTSDE.AdresseVATyp + ' If cDY.ncts_SumA_Befoerderer_EORI IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Befoerderer.EORI = cDY.ncts_SumA_Befoerderer_EORI + ' If cDY.ncts_SumA_Befoerderer_NLNR IsNot Nothing AndAlso IsNumeric(cDY.ncts_SumA_Befoerderer_NLNR) Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Befoerderer.NLNR = cDY.ncts_SumA_Befoerderer_NLNR + ' If cDY.ncts_SumA_Befoerderer_Name IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Befoerderer.Name = cDY.ncts_SumA_Befoerderer_Name + ' If cDY.ncts_SumA_Befoerderer_StrasseHausnummer IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Befoerderer.StrasseHausnummer = cDY.ncts_SumA_Befoerderer_StrasseHausnummer + ' If cDY.ncts_SumA_Befoerderer_PLZ IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Befoerderer.PLZ = cDY.ncts_SumA_Befoerderer_PLZ + ' If cDY.ncts_SumA_Befoerderer_Ort IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Befoerderer.Ort = cDY.ncts_SumA_Befoerderer_Ort + ' If cDY.ncts_SumA_Befoerderer_Land IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Befoerderer.Land = cDY.ncts_SumA_Befoerderer_Land + ' If cDY.ncts_SumA_Befoerderer_TIN IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.SumASicherheit.Befoerderer.TIN = cDY.ncts_SumA_Befoerderer_TIN + 'End If + + ''Warenposition: + 'If cDY.ncts_WARENPOS IsNot Nothing AndAlso cDY.ncts_WARENPOS.Count > 0 Then + ' XML.EinzelVersandanmeldung.WarenPosition = New List(Of VersandanmeldungNCTSDE.WarenPositionVersandanmeldungTyp) + ' For Each p In cDY.ncts_WARENPOS + ' Dim WP As New VersandanmeldungNCTSDE.WarenPositionVersandanmeldungTyp + ' If p.nctsWP_PositionsNummer IsNot Nothing Then WP.Positionsnummer = p.nctsWP_PositionsNummer + ' If p.nctsWP_Warennummer IsNot Nothing Then WP.Warennummer = p.nctsWP_Warennummer + ' If p.nctsWP_ArtAnmeldungPositionCode IsNot Nothing Then WP.ArtAnmeldungPositionCode = p.nctsWP_ArtAnmeldungPositionCode + ' If p.nctsWP_Warenbezeichnung IsNot Nothing Then WP.Warenbezeichnung = p.nctsWP_Warenbezeichnung + ' If p.nctsWP_Warenwert IsNot Nothing Then WP.Warenwert = p.nctsWP_Warenwert.ToString.Replace(",", ".") 'AndAlso IsNumeric(p.nctsWP_Warenwert) Then WP.Warenwert = CDbl(p.nctsWP_Warenwert) + ' If p.nctsWP_WarenwertWaehrung IsNot Nothing Then WP.WarenwertWaehrung = p.nctsWP_WarenwertWaehrung 'AndAlso IsNumeric(p.nctsWP_Warenwert) Then WP.Warenwert = CDbl(p.nctsWP_Warenwert) + ' If p.nctsWP_WarenwertProzent IsNot Nothing Then WP.WarenwertProzent = p.nctsWP_WarenwertProzent + ' If p.nctsWP_SchaetzKz IsNot Nothing Then WP.SchaetzKz = p.nctsWP_SchaetzKz + ' If p.nctsWP_VersendungslandPositionCode IsNot Nothing Then WP.VersendungslandPositionCode = p.nctsWP_VersendungslandPositionCode + ' If p.nctsWP_BestimmungslandPositionCode IsNot Nothing Then WP.BestimmungslandPositionCode = p.nctsWP_BestimmungslandPositionCode + ' If p.nctsWP_Rohmasse IsNot Nothing Then WP.Rohmasse = p.nctsWP_Rohmasse + ' If p.nctsWP_Eigenmasse IsNot Nothing AndAlso CDbl(p.nctsWP_Eigenmasse) > 0 Then WP.Eigenmasse = p.nctsWP_Eigenmasse + + + ' If p.nctsWP_BesondereVermeke_ExportAusEU IsNot Nothing Then WP.BesondereVermerke.ExportAusEU = CInt(Int(p.nctsWP_BesondereVermeke_ExportAusEU)) ' sonst true = -1 + ' If p.nctsWP_BesondereVermeke_ExportAusLand IsNot Nothing Then WP.BesondereVermerke.ExportAusLand = p.nctsWP_BesondereVermeke_ExportAusLand + ' If p.nctsWP_BesondereVermeke_Export IsNot Nothing Then WP.BesondereVermerke.Export = CInt(Int(p.nctsWP_BesondereVermeke_Export)) ' sonst true = -1 + + ' If p.nctsWP_BesondereVermeke_ExportBeschraenkung IsNot Nothing Then WP.BesondereVermerke.ExportBeschraenkung = CInt(Int(p.nctsWP_BesondereVermeke_ExportBeschraenkung)) ' sonst true = -1 + ' If p.nctsWP_BesondereVermeke_ExportAbgaben IsNot Nothing Then WP.BesondereVermerke.ExportAbgaben = CInt(Int(p.nctsWP_BesondereVermeke_ExportAbgaben)) ' sonst true = -1 + ' If p.nctsWP_BesondereVermeke_Vermerk IsNot Nothing Then WP.BesondereVermerke.Vermerk = p.nctsWP_BesondereVermeke_Vermerk + ' If p.nctsWP_BesondereVermeke_Kz10600 IsNot Nothing Then WP.BesondereVermerke.Kz10600 = CInt(Int(p.nctsWP_BesondereVermeke_Kz10600)) ' sonst true = -1 + + + ' If p.nctsWP_Versender_EORI IsNot Nothing Or p.nctsWP_Versender_Name IsNot Nothing Then + ' WP.AdressenPosition.Versender = New VersandanmeldungNCTSDE.AdresseVA1Typ + ' If p.nctsWP_Versender_EORI IsNot Nothing Then WP.AdressenPosition.Versender.EORI = p.nctsWP_Versender_EORI + ' If p.nctsWP_Versender_NLNR IsNot Nothing AndAlso IsNumeric(p.nctsWP_Versender_NLNR) Then WP.AdressenPosition.Versender.NLNR = p.nctsWP_Versender_NLNR + ' If p.nctsWP_Versender_Name IsNot Nothing Then WP.AdressenPosition.Versender.Name = p.nctsWP_Versender_Name + ' If p.nctsWP_Versender_StrasseHausnummer IsNot Nothing Then WP.AdressenPosition.Versender.StrasseHausnummer = p.nctsWP_Versender_StrasseHausnummer + ' If p.nctsWP_Versender_PLZ IsNot Nothing Then WP.AdressenPosition.Versender.PLZ = p.nctsWP_Versender_PLZ + ' If p.nctsWP_Versender_Ort IsNot Nothing Then WP.AdressenPosition.Versender.Ort = p.nctsWP_Versender_Ort + ' If p.nctsWP_Versender_Land IsNot Nothing Then WP.AdressenPosition.Versender.Land = p.nctsWP_Versender_Land + ' If p.nctsWP_Versender_TIN IsNot Nothing Then WP.AdressenPosition.Versender.TIN = p.nctsWP_Versender_TIN + ' End If + ' If p.nctsWP_Empfaenger_EORI IsNot Nothing Or p.nctsWP_Empfaenger_Name IsNot Nothing Then + ' WP.AdressenPosition.Empfaenger = New VersandanmeldungNCTSDE.AdresseVA1Typ + ' If p.nctsWP_Empfaenger_EORI IsNot Nothing Then WP.AdressenPosition.Empfaenger.EORI = p.nctsWP_Empfaenger_EORI + ' If p.nctsWP_Empfaenger_NLNR IsNot Nothing AndAlso IsNumeric(p.nctsWP_Empfaenger_NLNR) Then WP.AdressenPosition.Empfaenger.NLNR = p.nctsWP_Empfaenger_NLNR + ' If p.nctsWP_Empfaenger_Name IsNot Nothing Then WP.AdressenPosition.Empfaenger.Name = p.nctsWP_Empfaenger_Name + ' If p.nctsWP_Empfaenger_StrasseHausnummer IsNot Nothing Then WP.AdressenPosition.Empfaenger.StrasseHausnummer = p.nctsWP_Empfaenger_StrasseHausnummer + ' If p.nctsWP_Empfaenger_PLZ IsNot Nothing Then WP.AdressenPosition.Empfaenger.PLZ = p.nctsWP_Empfaenger_PLZ + ' If p.nctsWP_Empfaenger_Ort IsNot Nothing Then WP.AdressenPosition.Empfaenger.Ort = p.nctsWP_Empfaenger_Ort + ' If p.nctsWP_Empfaenger_Land IsNot Nothing Then WP.AdressenPosition.Empfaenger.Land = p.nctsWP_Empfaenger_Land + ' If p.nctsWP_Empfaenger_TIN IsNot Nothing Then WP.AdressenPosition.Empfaenger.TIN = p.nctsWP_Empfaenger_TIN + ' End If + + + ' If p.nctsWP_SumAKennnummerSendung IsNot Nothing Then WP.SumASicherheit.KennnummerSendung = p.nctsWP_SumAKennnummerSendung + ' If p.nctsWP_SumABefoerderungskostenZahlungsweise IsNot Nothing Then WP.SumASicherheit.BefoerderungskostenZahlungsweise = p.nctsWP_SumABefoerderungskostenZahlungsweise + ' If p.nctsWP_SumAUNGefahrgutnummer IsNot Nothing Then WP.SumASicherheit.UNGefahrgutnummer = p.nctsWP_SumAUNGefahrgutnummer + + ' If p.nctsWP_SumAVersender_EORI IsNot Nothing Or p.nctsWP_SumAVersender_Name IsNot Nothing Then + ' WP.SumASicherheit.Versender = New VersandanmeldungNCTSDE.AdresseVATyp + ' If p.nctsWP_SumAVersender_EORI IsNot Nothing Then WP.SumASicherheit.Versender.EORI = p.nctsWP_SumAVersender_EORI + ' If p.nctsWP_SumAVersender_NLNR IsNot Nothing AndAlso IsNumeric(p.nctsWP_SumAVersender_NLNR) Then WP.SumASicherheit.Versender.NLNR = p.nctsWP_SumAVersender_NLNR + ' If p.nctsWP_SumAVersender_Name IsNot Nothing Then WP.SumASicherheit.Versender.Name = p.nctsWP_SumAVersender_Name + ' If p.nctsWP_SumAVersender_StrasseHausnummer IsNot Nothing Then WP.SumASicherheit.Versender.StrasseHausnummer = p.nctsWP_SumAVersender_StrasseHausnummer + ' If p.nctsWP_SumAVersender_PLZ IsNot Nothing Then WP.SumASicherheit.Versender.PLZ = p.nctsWP_SumAVersender_PLZ + ' If p.nctsWP_SumAVersender_Ort IsNot Nothing Then WP.SumASicherheit.Versender.Ort = p.nctsWP_SumAVersender_Ort + ' If p.nctsWP_SumAVersender_Land IsNot Nothing Then WP.SumASicherheit.Versender.Land = p.nctsWP_SumAVersender_Land + ' If p.nctsWP_SumAVersender_TIN IsNot Nothing Then WP.SumASicherheit.Versender.TIN = p.nctsWP_SumAVersender_TIN + ' End If + ' If p.nctsWP_SumAEmpfaenger_EORI IsNot Nothing Or p.nctsWP_SumAEmpfaenger_Name IsNot Nothing Then + ' WP.SumASicherheit.Empfaenger = New VersandanmeldungNCTSDE.AdresseVATyp + ' If p.nctsWP_SumAEmpfaenger_EORI IsNot Nothing Then WP.SumASicherheit.Empfaenger.EORI = p.nctsWP_SumAEmpfaenger_EORI + ' If p.nctsWP_SumAEmpfaenger_NLNR IsNot Nothing AndAlso IsNumeric(p.nctsWP_SumAEmpfaenger_NLNR) Then WP.SumASicherheit.Empfaenger.NLNR = p.nctsWP_SumAEmpfaenger_NLNR + ' If p.nctsWP_SumAEmpfaenger_Name IsNot Nothing Then WP.SumASicherheit.Empfaenger.Name = p.nctsWP_SumAEmpfaenger_Name + ' If p.nctsWP_SumAEmpfaenger_StrasseHausnummer IsNot Nothing Then WP.SumASicherheit.Empfaenger.StrasseHausnummer = p.nctsWP_SumAEmpfaenger_StrasseHausnummer + ' If p.nctsWP_SumAEmpfaenger_PLZ IsNot Nothing Then WP.SumASicherheit.Empfaenger.PLZ = p.nctsWP_SumAEmpfaenger_PLZ + ' If p.nctsWP_SumAEmpfaenger_Ort IsNot Nothing Then WP.SumASicherheit.Empfaenger.Ort = p.nctsWP_SumAEmpfaenger_Ort + ' If p.nctsWP_SumAEmpfaenger_Land IsNot Nothing Then WP.SumASicherheit.Empfaenger.Land = p.nctsWP_SumAEmpfaenger_Land + ' If p.nctsWP_SumAEmpfaenger_TIN IsNot Nothing Then WP.SumASicherheit.Empfaenger.TIN = p.nctsWP_SumAEmpfaenger_TIN + ' End If + + + ' If p.nctsWP_PACKSTUECKE IsNot Nothing AndAlso p.nctsWP_PACKSTUECKE.Count > 0 Then + ' WP.Packstueck = New List(Of VersandanmeldungNCTSDE.PackstueckVATyp) + ' For Each w In p.nctsWP_PACKSTUECKE + ' Dim PK As New VersandanmeldungNCTSDE.PackstueckVATyp + ' If w.nctsWpPk_PackstueckeAnzahl IsNot Nothing Then PK.Anzahl = w.nctsWpPk_PackstueckeAnzahl.ToString.Replace(".", "") + ' If w.nctsWpPk_Verpackungsart IsNot Nothing Then PK.Verpackungsart = w.nctsWpPk_Verpackungsart + ' If w.nctsWpPk_ZeichenNummern IsNot Nothing Then PK.ZeichenNummern = w.nctsWpPk_ZeichenNummern + ' WP.Packstueck.Add(PK) + ' Next + ' End If + + + ' If p.nctsWP_VorpapierTyp IsNot Nothing Then + ' WP.Vorpapier = New VersandanmeldungNCTSDE.VorpapierVATyp + ' WP.Vorpapier.Typ = If(p.nctsWP_VorpapierTyp, "") + + ' WP.Vorpapier.VorpapierAngaben = New List(Of VersandanmeldungNCTSDE.VorpapierAngabenVATyp) + ' If p.nctsWP_VorpapierReferenz1 IsNot Nothing And p.nctsWP_VorpapierReferenz1 <> "" Then + ' Dim vp = New VersandanmeldungNCTSDE.VorpapierAngabenVATyp + ' vp.Referenz = If(p.nctsWP_VorpapierReferenz1, "") + ' If p.nctsWP_VorpapierZusatz1 IsNot Nothing Then vp.Zusatz = If(p.nctsWP_VorpapierZusatz1, "") + ' WP.Vorpapier.VorpapierAngaben.Add(vp) + ' End If + ' If p.nctsWP_VorpapierReferenz2 IsNot Nothing And p.nctsWP_VorpapierReferenz2 <> "" Then + ' Dim vp = New VersandanmeldungNCTSDE.VorpapierAngabenVATyp + ' vp.Referenz = If(p.nctsWP_VorpapierReferenz2, "") + ' If p.nctsWP_VorpapierZusatz2 IsNot Nothing Then vp.Zusatz = If(p.nctsWP_VorpapierZusatz2, "") + ' WP.Vorpapier.VorpapierAngaben.Add(vp) + ' End If + ' If p.nctsWP_VorpapierReferenz3 IsNot Nothing And p.nctsWP_VorpapierReferenz3 <> "" Then + ' Dim vp = New VersandanmeldungNCTSDE.VorpapierAngabenVATyp + ' vp.Referenz = If(p.nctsWP_VorpapierReferenz3, "") + ' If p.nctsWP_VorpapierZusatz3 IsNot Nothing Then vp.Zusatz = If(p.nctsWP_VorpapierZusatz3, "") + ' WP.Vorpapier.VorpapierAngaben.Add(vp) + ' End If + ' If p.nctsWP_VorpapierReferenz4 IsNot Nothing And p.nctsWP_VorpapierReferenz4 <> "" Then + ' Dim vp = New VersandanmeldungNCTSDE.VorpapierAngabenVATyp + ' vp.Referenz = If(p.nctsWP_VorpapierReferenz4, "") + ' If p.nctsWP_VorpapierZusatz4 IsNot Nothing Then vp.Zusatz = If(p.nctsWP_VorpapierZusatz4, "") + ' WP.Vorpapier.VorpapierAngaben.Add(vp) + ' End If + ' If p.nctsWP_VorpapierReferenz5 IsNot Nothing And p.nctsWP_VorpapierReferenz5 <> "" Then + ' Dim vp = New VersandanmeldungNCTSDE.VorpapierAngabenVATyp + ' vp.Referenz = If(p.nctsWP_VorpapierReferenz5, "") + ' If p.nctsWP_VorpapierZusatz5 IsNot Nothing Then vp.Zusatz = If(p.nctsWP_VorpapierZusatz5, "") + ' WP.Vorpapier.VorpapierAngaben.Add(vp) + ' End If + ' If p.nctsWP_VorpapierReferenz6 IsNot Nothing And p.nctsWP_VorpapierReferenz6 <> "" Then + ' Dim vp = New VersandanmeldungNCTSDE.VorpapierAngabenVATyp + ' vp.Referenz = If(p.nctsWP_VorpapierReferenz6, "") + ' If p.nctsWP_VorpapierZusatz6 IsNot Nothing Then vp.Zusatz = If(p.nctsWP_VorpapierZusatz6, "") + ' WP.Vorpapier.VorpapierAngaben.Add(vp) + ' End If + ' If p.nctsWP_VorpapierReferenz7 IsNot Nothing And p.nctsWP_VorpapierReferenz7 <> "" Then + ' Dim vp = New VersandanmeldungNCTSDE.VorpapierAngabenVATyp + ' vp.Referenz = If(p.nctsWP_VorpapierReferenz7, "") + ' If p.nctsWP_VorpapierZusatz7 IsNot Nothing Then vp.Zusatz = If(p.nctsWP_VorpapierZusatz7, "") + ' WP.Vorpapier.VorpapierAngaben.Add(vp) + ' End If + ' If p.nctsWP_VorpapierReferenz8 IsNot Nothing And p.nctsWP_VorpapierReferenz8 <> "" Then + ' Dim vp = New VersandanmeldungNCTSDE.VorpapierAngabenVATyp + ' vp.Referenz = If(p.nctsWP_VorpapierReferenz8, "") + ' If p.nctsWP_VorpapierZusatz8 IsNot Nothing Then vp.Zusatz = If(p.nctsWP_VorpapierZusatz8, "") + ' WP.Vorpapier.VorpapierAngaben.Add(vp) + ' End If + ' If p.nctsWP_VorpapierReferenz9 IsNot Nothing And p.nctsWP_VorpapierReferenz9 <> "" Then + ' Dim vp = New VersandanmeldungNCTSDE.VorpapierAngabenVATyp + ' vp.Referenz = If(p.nctsWP_VorpapierReferenz9, "") + ' If p.nctsWP_VorpapierZusatz9 IsNot Nothing Then vp.Zusatz = If(p.nctsWP_VorpapierZusatz9, "") + ' WP.Vorpapier.VorpapierAngaben.Add(vp) + ' End If + ' End If + + ' If p.nctsWP_UNTERLAGEN IsNot Nothing AndAlso p.nctsWP_UNTERLAGEN.Count > 0 Then + ' WP.VorgelegteUnterlagen = New List(Of VersandanmeldungNCTSDE.VorgelegteUnterlBeschGenehmVATyp) + ' For Each w In p.nctsWP_UNTERLAGEN + ' Dim UL As New VersandanmeldungNCTSDE.VorgelegteUnterlBeschGenehmVATyp + ' If w.nctsWpUl_Typ IsNot Nothing Then UL.Typ = w.nctsWpUl_Typ + ' If w.nctsWpUl_Referenz IsNot Nothing Then UL.Referenz = w.nctsWpUl_Referenz + ' If w.nctsWpUl_Zusatz IsNot Nothing Then UL.Zusatz = w.nctsWpUl_Zusatz + ' WP.VorgelegteUnterlagen.Add(UL) + ' Next + ' End If + + + ' XML.EinzelVersandanmeldung.WarenPosition.Add(WP) + ' Next + 'End If + + 'Dim saveDir = Application.StartupPath & "\Dakosy_SEND\" + 'If Not System.IO.Directory.Exists(saveDir) Then + ' System.IO.Directory.CreateDirectory(saveDir) + 'End If + + 'saveFile = saveDir & "DY_" & Now.ToString("yyMMdd_HHmmss") & ".xml" + + ''MsgBox(saveFile) + 'XML.SaveToFile(saveFile) + + 'replaceNullDateXML(saveFile) + + 'Return True + End Function + + + Shared Sub replaceNullDateXML(XMLFile As String) + Try + If Not System.IO.File.Exists(XMLFile) Then Exit Sub + Dim lines() As String = System.IO.File.ReadAllLines(XMLFile) + Using writer = New System.IO.StreamWriter(XMLFile, False) + For Each line In lines + If Not line.Contains("0001-01-01") Then writer.WriteLine(line) + Next + End Using + + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + End Sub + + + + 'Shared Function loadInClass_VersandanmeldungAES(ByRef cDY As cDakosyAES, USRCNTL As usrCntlATLAS_AES, cDYAnm As cDakosy_Zollanmeldungen) As cDakosyAES + ' Try + + ' cDY.aes_Trans_Partner = "VERA" + ' cDY.aes_Trans_DatumZeit = Now + ' 'cDY.aes_Gestellt = False + ' cDY.aes_Status = "00" + ' cDY.aes_Trans_Referenz = USRCNTL.BezugsNr & "_" & Now.ToString("ddMMyyHHmmSS") 'Eindeutig + ' cDY.aes_Trans_Referenz = USRCNTL.BezugsNr & "_" & Now.ToString("ddMMyyHHmmSS") 'Eindeutig + ' cDY.aes_ObjectAlias = If(USRCNTL.AVISO IsNot Nothing, USRCNTL.AVISO.AvisoID, Nothing) + ' 'cDY.aes_Trans_Version = "003" + ' cDY.aes_Trans_Div1 = "ATILLA" + + ' ' cDY.aes_Stammreferenz = isLeerNothing(USRCNTL.cboStammreferenz._value) + ' ' cDY.aes_BezugsnummerVorblendung = cDY.aes_Stammreferenz + ' cDY.aes_BezugsnummerVorblendung = isLeerNothing(USRCNTL.cboStammreferenz._value) + + ' 'cDY.aes_Trans_Div1 = "ATILLA" + ' 'cDY.aes_Trans_Div1 = "ATILLA" + + ' cDY.aes_ObjectName = USRCNTL.BezugsNr + ' 'cDY.aes_ObjectAlias = USRCNTL.AVISO.AvisoID + ' USRCNTL.ALLG.getValues(cDY) + ' USRCNTL.ADRESSEN.getValues(cDY) + ' 'USRCNTL.POSITIONEN.getValues(cDY) + + ' ' cDY.aes_SICHERHEITSANGABEN = USRCNTL.SICHERHEIT.getValues() + ' 'USRCNTL.VERSCHLUESSE.getValues(cDY) + ' 'cDY.aes_WARENPOS=USRCNTL.POSITIONEN.getValues() + ' '-------------------------------- + + ' cDY.aes_WARENPOS.Clear() + + + ' Return cDY + + ' Catch ex As Exception + ' MsgBox(ex.Message & ex.StackTrace) + ' Return Nothing + ' End Try + 'End Function + + + + 'Shared Function loadInClass_VersandanmeldungEZA(ByRef cDY As cDakosyEZA, USRCNTL As usrCntlATLAS_EZA, cDYAnm As cDakosy_Zollanmeldungen) As cDakosyEZA + ' Try + + ' cDY.eza_Trans_Partner = "VERA" + ' cDY.eza_Trans_DatumZeit = Now + ' 'cDY.EZA_Gestellt = False + ' cDY.eza_Status = "00" + ' cDY.eza_Trans_Referenz = USRCNTL.BezugsNr & "_" & Now.ToString("ddMMyyHHmmSS") 'Eindeutig + ' cDY.eza_Trans_Referenz = USRCNTL.BezugsNr & "_" & Now.ToString("ddMMyyHHmmSS") 'Eindeutig + ' cDY.eza_ObjectAlias = If(USRCNTL.AVISO IsNot Nothing, USRCNTL.AVISO.AvisoID, Nothing) + ' 'cDY.EZA_Trans_Version = "003" + ' cDY.eza_Trans_Div1 = "VERAG" + ' 'cDY.EZA_Trans_Div1 = "ATILLA" + ' 'cDY.EZA_Trans_Div1 = "ATILLA" + + ' ' cDY.eza_Stammreferenz = isLeerNothing(USRCNTL.cboStammreferenz._value) + ' cDY.eza_BezugsnummerVorblendung = isLeerNothing(USRCNTL.cboStammreferenz._value) + + ' cDY.eza_ObjectName = USRCNTL.BezugsNr + ' 'cDY.EZA_ObjectAlias = USRCNTL.AVISO.AvisoID + ' USRCNTL.ALLG.getValues(cDY) + ' USRCNTL.ADRESSEN.getValues(cDY) + ' USRCNTL.POSITIONEN.getValues(cDY) + ' USRCNTL.DV1.getValues(cDY) + + ' ' MsgBox(cDY.eza_WARENPOS.Count) + ' ' cDY.EZA_SICHERHEITSANGABEN = USRCNTL.SICHERHEIT.getValues() + ' 'USRCNTL.VERSCHLUESSE.getValues(cDY) + ' 'cDY.EZA_WARENPOS=USRCNTL.POSITIONEN.getValues() + ' '-------------------------------- + + ' ' cDY.eza_WARENPOS.Clear() + + + ' Return cDY + + ' Catch ex As Exception + ' MsgBox(ex.Message & ex.StackTrace) + ' Return Nothing + ' End Try + 'End Function + + + + 'Shared Function getDivision(FIRMA_DY, Optional fiskal = False) As String + ' If If(FIRMA_DY, "") = "" Then FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + ' If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then + ' Return "SUB" + ' Else + ' Select Case FIRMA_DY + ' Case "ATILLA" + ' Return "SUW" + ' Case "AMBAR" + ' Return "AMBWO" + ' Case "VERAG" + ' Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung + ' Case "SUB" : Return "SUB" + ' Case "SBG" : Return "SBG" + ' Case "NKD" : Return "NKD" + ' Case "NEU" : Return "NEU" + ' Case "WAI" : Return "WAI" + ' Case Else : Return "SUB" + ' End Select + + ' Case "UNISPED" + ' Return ""'"ATSP" + ' Case "IMEX" + ' If fiskal Then + ' Return "GLO" + ' Else + ' Return "IME" + ' End If + ' Case Else : Return "SUB" + ' End Select + ' End If + + 'End Function + + 'Shared Function getIOPartner(FIRMA_DY) As String + ' If If(FIRMA_DY, "") = "" Then FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + ' If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then + ' Return "VERA" + ' Else + ' Select Case FIRMA_DY + ' Case "ATILLA" + ' Return "VERG" + ' Case "VERAG" + ' Return "VERG" + ' Case "DURMAZ" + ' Return "DUR" + ' Case "IMEX" + ' Return "IMEX" + ' Case "UNISPED" + ' Return "UNAT" + ' Case Else : Return "VERG" + ' End Select + ' End If + + 'End Function + ''If(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "VERA", "VERG") + + 'Shared Function generateVersandanmeldungEZA(cDY As cDakosyEZA, ByRef saveFile As String, DY_ACTION As String) As Boolean + ' Dim Interface_VERSION = "004" + ' Dim ObjectAktion = DY_ACTION + + + ' Dim XML As New DAKOSY_Worker.FreierVerkehrAktVeredelUmwandlung_004.FreierVerkehrAktVeredelUmwandlungAVUVTyp + + + ' 'Transaktion: + ' XML.Transaktion = New FreierVerkehrAktVeredelUmwandlung_004.TransaktionFreierVerkehrTyp + ' XML.Transaktion.IOPartner = getIOPartner(cDY.eza_firma) 'If(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "VERA", "VERG") + ' XML.Transaktion.IODatumZeit = Now + ' XML.Transaktion.IOReferenz = cDY.eza_Trans_Referenz + ' If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then XML.Transaktion.IODivision3 = getDivision(cDY.eza_firma, CBool(If(cDY.eza_FiskalvertretungKz, False))) + ' XML.Transaktion.Version = Interface_VERSION + + ' Dim EA = New FreierVerkehrAktVeredelUmwandlung_004.EinzelEinfuhrUnvollstaendigeAnmeldungTyp + + ' EA.ObjektIdentifizierung.AbsenderSystemName = "VERAG_ZOLL" + + ' 'ObjektIdentifizierung: + ' EA.ObjektIdentifizierung = New FreierVerkehrAktVeredelUmwandlung_004.ObjektIdentifizierungAVUVTyp + ' EA.ObjektIdentifizierung.ObjektName = cDY.eza_ObjectName + ' If cDY.eza_ObjectAlias IsNot Nothing Then EA.ObjektIdentifizierung.ObjektAlias = cDY.eza_ObjectAlias + ' Dim ObjektAktion As New List(Of String) : ObjektAktion.Add(ObjectAktion) + ' EA.ObjektIdentifizierung.ObjektAktion = ObjektAktion + ' EA.ObjektIdentifizierung.Bearbeiter = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DAKOSY_SB, "") 'If(VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME.Length > 20, VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME, VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME) + ' 'EA.ObjektIdentifizierung.CompliancePruefung= + ' EA.ObjektIdentifizierung.ObjektName = cDY.eza_ObjectName + ' If cDY.eza_Bearbeiter IsNot Nothing Then EA.ObjektIdentifizierung.Bearbeiter = cDY.eza_Bearbeiter + ' If cDY.eza_CompliancePruefung IsNot Nothing Then EA.ObjektIdentifizierung.CompliancePruefung = cDY.eza_CompliancePruefung + ' If cDY.eza_BezugsnummerVorblendung IsNot Nothing Then EA.ObjektIdentifizierung.BezugsnummerVorblendung = cDY.eza_BezugsnummerVorblendung + + ' EA.ObjektIdentifizierung.AnmeldungArt = If(cDY.eza_AnmeldungArt, "EZA-A") 'Pflichtfeld + + + ' 'KopfDaten + ' EA.KopfDaten = New FreierVerkehrAktVeredelUmwandlung_004.KopfDatenEinfuhrUnvollstaendigeAnmeldungTyp + ' If cDY.eza_AdressierteZollstelle IsNot Nothing Then EA.KopfDaten.AdressierteZollstelle = cDY.eza_AdressierteZollstelle + ' If cDY.eza_AnmelderistEmpfaenger IsNot Nothing Then EA.KopfDaten.AnmelderIstEmpfaenger = cDY.eza_AnmelderistEmpfaenger + ' If cDY.eza_VertretungsVerhaeltnisCode IsNot Nothing Then EA.KopfDaten.VertretungsverhaeltnisCode = cDY.eza_VertretungsVerhaeltnisCode + ' If cDY.eza_Vorsteuerabzug IsNot Nothing Then EA.KopfDaten.Vorsteuerabzug = cDY.eza_Vorsteuerabzug + ' If cDY.eza_AnmeldenderBearbeiterName IsNot Nothing Then EA.KopfDaten.NameAnmeldenderBearbeiter = cDY.eza_AnmeldenderBearbeiterName + ' If cDY.eza_AnmeldenderBearbeiterTel IsNot Nothing Then EA.KopfDaten.TelefonnummerAnmeldenderBearbeiter = cDY.eza_AnmeldenderBearbeiterTel + ' If cDY.eza_AnmeldenderBearbeiterStellung IsNot Nothing Then EA.KopfDaten.StellungAnmeldenderBearbeiter = cDY.eza_AnmeldenderBearbeiterStellung + ' If cDY.eza_AnmeldenderBearbeiterEMail IsNot Nothing Then EA.KopfDaten.EmailAdresseAnmeldenderBearbeiter = cDY.eza_AnmeldenderBearbeiterEMail + ' If cDY.eza_FiskalvertretungKz IsNot Nothing Then EA.KopfDaten.FiskalvertretungKz = CInt(Int(cDY.eza_FiskalvertretungKz)) + ' If cDY.eza_Ausstellungsort IsNot Nothing Then EA.KopfDaten.Ausstellungsort = cDY.eza_Ausstellungsort + ' If cDY.eza_ZollrechtlicherStatus IsNot Nothing Then EA.KopfDaten.ZollrechtlicherStatus = cDY.eza_ZollrechtlicherStatus + ' If cDY.eza_GesamtRohmasse IsNot Nothing AndAlso IsNumeric(cDY.eza_GesamtRohmasse) Then EA.KopfDaten.GesamtRohMasse = CDbl(CDbl(cDY.eza_GesamtRohmasse).ToString("N1")) + ' If cDY.eza_VerfahrenBeantragtCode IsNot Nothing Then EA.KopfDaten.VerfahrenBeantragtCode = cDY.eza_VerfahrenBeantragtCode + ' If cDY.eza_VerkehrszweigInland IsNot Nothing Then EA.KopfDaten.VerkehrszweigInland = cDY.eza_VerkehrszweigInland + ' If cDY.eza_VerkehrszweigGrenze IsNot Nothing Then EA.KopfDaten.VerkehrszweigGrenze = cDY.eza_VerkehrszweigGrenze + ' If cDY.eza_VersendungsLandCode IsNot Nothing Then EA.KopfDaten.VersendungslandCode = cDY.eza_VersendungsLandCode + ' If cDY.eza_Bestimmungsland IsNot Nothing Then EA.KopfDaten.Bestimmungsland = cDY.eza_Bestimmungsland + ' If cDY.eza_Bestimmungsbundesland IsNot Nothing Then EA.KopfDaten.Bestimmungsbundesland = cDY.eza_Bestimmungsbundesland + ' If cDY.eza_KennzeichenNameBefoerderungsmittelAnkunft IsNot Nothing Then EA.KopfDaten.KennzeichenNameBefoerderungsmittelAnkunft = cDY.eza_KennzeichenNameBefoerderungsmittelAnkunft + ' If cDY.eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode IsNot Nothing Then EA.KopfDaten.BefoerderungsmittelGrenzeStaatszugehoerigkeitCode = cDY.eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode + ' If cDY.eza_BeförderungsmittelGrenzeArt IsNot Nothing Then EA.KopfDaten.BefoerderungsmittelGrenzeArt = cDY.eza_BeförderungsmittelGrenzeArt + ' If cDY.eza_BeförderungsmittelGrenze IsNot Nothing Then EA.KopfDaten.BefoerderungsmittelGrenze = cDY.eza_BeförderungsmittelGrenze + ' If cDY.eza_LieferbedingungCode IsNot Nothing Then EA.KopfDaten.LieferbedingungCode = cDY.eza_LieferbedingungCode + ' If cDY.eza_LieferbedingungText IsNot Nothing Then EA.KopfDaten.LieferbedingungText = cDY.eza_LieferbedingungText + ' If cDY.eza_LieferbedingungSchluessel IsNot Nothing Then EA.KopfDaten.LieferbedingungSchluessel = cDY.eza_LieferbedingungSchluessel + ' If cDY.eza_LieferbedingungOrt IsNot Nothing Then EA.KopfDaten.LieferbedingungOrt = cDY.eza_LieferbedingungOrt + ' If cDY.eza_VorpapierArtCode IsNot Nothing Then EA.KopfDaten.VorpapierArtCode = cDY.eza_VorpapierArtCode + ' If cDY.eza_VorpapierNr IsNot Nothing Then EA.KopfDaten.VorpapierNr = cDY.eza_VorpapierNr + ' If cDY.eza_ArtGeschaeftCode IsNot Nothing Then EA.KopfDaten.ArtGeschaeftCode = cDY.eza_ArtGeschaeftCode + ' If cDY.eza_Statistikstatus IsNot Nothing Then EA.KopfDaten.StatistikStatus = cDY.eza_Statistikstatus + ' If cDY.eza_Warenort IsNot Nothing Then EA.KopfDaten.Warenort = cDY.eza_Warenort + ' If cDY.eza_Rechnungspreis IsNot Nothing Then EA.KopfDaten.Rechnungspreis = cDY.eza_Rechnungspreis + ' If cDY.eza_Rechnungswaehrung IsNot Nothing Then EA.KopfDaten.Rechnungswaehrung = cDY.eza_Rechnungswaehrung + ' If If(cDY.eza_DV1Kz, False) Then + ' If cDY.eza_DV1Kz IsNot Nothing Then EA.KopfDaten.DV1Angaben.DV1Kz = CInt(Int(cDY.eza_DV1Kz)) + ' If cDY.eza_DV1Vertretungsverhaeltnis IsNot Nothing Then EA.KopfDaten.DV1Angaben.Vertretungsverhaeltnis = cDY.eza_DV1Vertretungsverhaeltnis + ' If cDY.eza_DV1FruehereEntscheidungen IsNot Nothing Then EA.KopfDaten.DV1Angaben.FruehereEntscheidungen = cDY.eza_DV1FruehereEntscheidungen + ' If cDY.eza_DV1Verbundenheit IsNot Nothing Then EA.KopfDaten.DV1Angaben.Verbundenheit = cDY.eza_DV1Verbundenheit + ' If cDY.eza_DV1VerbungenheitEinzelheiten IsNot Nothing Then EA.KopfDaten.DV1Angaben.VerbundenheitEinzelheiten = cDY.eza_DV1VerbungenheitEinzelheiten + ' If cDY.eza_DV1EinschraenkungenKz IsNot Nothing Then EA.KopfDaten.DV1Angaben.EinschraenkungenKz = cDY.eza_DV1EinschraenkungenKz + ' If cDY.eza_DV1BedingungenLeistungenKz IsNot Nothing Then EA.KopfDaten.DV1Angaben.BedingungenLeistungenKz = cDY.eza_DV1BedingungenLeistungenKz + ' If cDY.eza_DV1BedingungenLeistungenArt IsNot Nothing Then EA.KopfDaten.DV1Angaben.BedingungenLeistungenArt = cDY.eza_DV1BedingungenLeistungenArt + ' If cDY.eza_DV1LizenzgebuehrenKz IsNot Nothing Then EA.KopfDaten.DV1Angaben.LizenzgebuehrenKz = cDY.eza_DV1LizenzgebuehrenKz + ' If cDY.eza_DV1LizenzgebuehrenUmstand IsNot Nothing Then EA.KopfDaten.DV1Angaben.LizenzgebuehrenUmstand = cDY.eza_DV1LizenzgebuehrenUmstand + ' If cDY.eza_DV1SpezielleVereinbarungKz IsNot Nothing Then EA.KopfDaten.DV1Angaben.SpezielleVereinbarungKz = cDY.eza_DV1SpezielleVereinbarungKz + ' If cDY.eza_DV1SpezielleVereinbarungUmstand IsNot Nothing Then EA.KopfDaten.DV1Angaben.SpezielleVereinbarungUmstand = cDY.eza_DV1SpezielleVereinbarungUmstand + ' End If + + ' If cDY.eza_UNTERLAGEN.Count > 0 Then + ' EA.KopfDaten.Unterlage = New List(Of FreierVerkehrAktVeredelUmwandlung_004.UnterlageVzKopfAVUVTyp) + ' For Each u In cDY.eza_UNTERLAGEN + ' Dim UNTERLAGE As New FreierVerkehrAktVeredelUmwandlung_004.UnterlageVzKopfAVUVTyp + ' If u.ezaUl_Bereich IsNot Nothing Then UNTERLAGE.Bereich = u.ezaUl_Bereich + ' If u.ezaUl_Art IsNot Nothing Then UNTERLAGE.Art = u.ezaUl_Art + ' If u.ezaUl_Nummer IsNot Nothing Then UNTERLAGE.Nummer = u.ezaUl_Nummer + ' If u.ezaUl_DatumAusstellung IsNot Nothing Then UNTERLAGE.DatumAusstellung = u.ezaUl_DatumAusstellung + ' EA.KopfDaten.Unterlage.Add(UNTERLAGE) + ' Next + ' End If + + + ' If cDY.eza_ZusatzangabenAnmeldung IsNot Nothing Then EA.KopfDaten.ZusatzAngabenAnmeldung = cDY.eza_ZusatzangabenAnmeldung + ' If cDY.eza_KzAutoBestaetigung IsNot Nothing Then EA.KopfDaten.KzAutoBestaetigung = CInt(Int(cDY.eza_KzAutoBestaetigung)) + ' If cDY.eza_AnschreibungDatum IsNot Nothing Then EA.KopfDaten.AnschreibungDatum = cDY.eza_AnschreibungDatum + ' If cDY.eza_Eingangszollstelle IsNot Nothing Then EA.KopfDaten.Eingangszollstelle = cDY.eza_Eingangszollstelle + ' If cDY.eza_Zahlungsart IsNot Nothing Then EA.KopfDaten.Zahlungsart = cDY.eza_Zahlungsart + + ' If cDY.eza_AUFSCHUB.Count > 0 Then + ' EA.KopfDaten.Aufschub = New List(Of FreierVerkehrAktVeredelUmwandlung_004.AufschubAVUVTyp) + ' For Each u In cDY.eza_AUFSCHUB + ' Dim AUFSCHUB As New FreierVerkehrAktVeredelUmwandlung_004.AufschubAVUVTyp + ' If u.ezaAfb_ArtAufschubantrag IsNot Nothing Then AUFSCHUB.ArtAufschubantrag = u.ezaAfb_ArtAufschubantrag + ' If u.ezaAfb_Aufschubart IsNot Nothing Then AUFSCHUB.Aufschubart = u.ezaAfb_Aufschubart + ' If u.ezaAfb_AufschubnehmerEORI IsNot Nothing Then AUFSCHUB.AufschubnehmerEORI = u.ezaAfb_AufschubnehmerEORI + ' 'If u.ezaAfb_KontoNr IsNot Nothing Then AUFSCHUB.KontoNr = u.ezaAfb_KontoNr 'ohne Funktion + ' If u.ezaAfb_AufschuBIN IsNot Nothing Then AUFSCHUB.AufschubBIN = u.ezaAfb_AufschuBIN + ' EA.KopfDaten.Aufschub.Add(AUFSCHUB) + ' Next + ' End If + + ' If cDY.eza_SUMABA.Count > 0 Then + ' EA.KopfDaten.SumABeendigungsAnteil = New List(Of FreierVerkehrAktVeredelUmwandlung_004.SumABeendigungsAnteilAVUVTyp) + ' For Each u In cDY.eza_SUMABA + ' Dim SUMA As New FreierVerkehrAktVeredelUmwandlung_004.SumABeendigungsAnteilAVUVTyp + ' If u.ezaBa_SumARegistriernummer IsNot Nothing Then SUMA.SumARegistriernummer = u.ezaBa_SumARegistriernummer + ' If u.ezaBa_SumAPosNr IsNot Nothing Then SUMA.SumAPosNr = u.ezaBa_SumAPosNr + ' If u.ezaBa_BeendigungsPackstueckzahl IsNot Nothing Then SUMA.BeendigungsPackstueckzahl = u.ezaBa_BeendigungsPackstueckzahl.ToString.Replace(".", "") + ' If u.ezaBa_Artidentifikation IsNot Nothing Then SUMA.ArtIdentifikation = u.ezaBa_Artidentifikation + ' If u.ezaBa_VerwahrerEORI IsNot Nothing Then SUMA.VerwahrerEORI = u.ezaBa_VerwahrerEORI + ' If u.ezaBa_SpezifOrdnungsbegriff IsNot Nothing Then SUMA.SpezifOrdnungsbegriff = u.ezaBa_SpezifOrdnungsbegriff + ' If u.ezaBa_SpezifOrdnungsbegriffArt IsNot Nothing Then SUMA.SpezifOrdnungsbegriffArt = u.ezaBa_SpezifOrdnungsbegriffArt + ' EA.KopfDaten.SumABeendigungsAnteil.Add(SUMA) + ' Next + ' End If + + + + ' If cDY.eza_ContainerNr1 IsNot Nothing Then EA.KopfDaten.ContainerNr.Add(cDY.eza_ContainerNr1) + ' If cDY.eza_ContainerNr2 IsNot Nothing Then EA.KopfDaten.ContainerNr.Add(cDY.eza_ContainerNr2) + ' If cDY.eza_ContainerNr3 IsNot Nothing Then EA.KopfDaten.ContainerNr.Add(cDY.eza_ContainerNr3) + ' If cDY.eza_ContainerNr4 IsNot Nothing Then EA.KopfDaten.ContainerNr.Add(cDY.eza_ContainerNr4) + ' If cDY.eza_ContainerNr5 IsNot Nothing Then EA.KopfDaten.ContainerNr.Add(cDY.eza_ContainerNr5) + ' If cDY.eza_ContainerNr6 IsNot Nothing Then EA.KopfDaten.ContainerNr.Add(cDY.eza_ContainerNr6) + ' If cDY.eza_ContainerNr7 IsNot Nothing Then EA.KopfDaten.ContainerNr.Add(cDY.eza_ContainerNr7) + ' If cDY.eza_ContainerNr8 IsNot Nothing Then EA.KopfDaten.ContainerNr.Add(cDY.eza_ContainerNr8) + ' If cDY.eza_ContainerNr9 IsNot Nothing Then EA.KopfDaten.ContainerNr.Add(cDY.eza_ContainerNr9) + + ' If cDY.eza_BeendigungsanteilArtCode IsNot Nothing Then EA.KopfDaten.BeendigungsAnteilArtCode = cDY.eza_BeendigungsanteilArtCode + ' If cDY.eza_BewilligungsIDZLAVUV IsNot Nothing Then EA.KopfDaten.BewilligungsIDZLAVUV = cDY.eza_BewilligungsIDZLAVUV + ' If cDY.eza_BezugsnummerBEAnteilZL IsNot Nothing Then EA.KopfDaten.BezugsnummerBEAnteilZL = cDY.eza_BezugsnummerBEAnteilZL + + + ' 'Property eza_BEA_ZLAvuv As New List(Of cDakosy_EZA_BEAnteilZLAVUV) + + ' If cDY.eza_BEA_ZLAvuv.Count > 0 Then + ' EA.KopfDaten.BEAnteilZLAVUV = New List(Of FreierVerkehrAktVeredelUmwandlung_004.BEAnteilZLAVUVPositionAVUVTyp) + ' For Each u In cDY.eza_BEA_ZLAvuv + ' Dim BEA As New FreierVerkehrAktVeredelUmwandlung_004.BEAnteilZLAVUVPositionAVUVTyp + ' If u.ezaBAZ_RegistrierNummerZugang IsNot Nothing Then BEA.RegistriernummerZugang = u.ezaBAZ_RegistrierNummerZugang + ' If u.ezaBAZ_PositionZugang IsNot Nothing Then BEA.PositionZugang = u.ezaBAZ_PositionZugang + ' If u.ezaBAZ_ArtikelCodeATZL IsNot Nothing Then BEA.ArtikelcodeATZL = u.ezaBAZ_ArtikelCodeATZL + ' If u.ezaBAZ_AtlasKz IsNot Nothing Then BEA.AtlasKz = CInt(Int(u.ezaBAZ_AtlasKz)) + ' If u.ezaBAZ_EigentuemerATUL IsNot Nothing Then BEA.EigentuemerATZL = u.ezaBAZ_EigentuemerATUL + ' If u.ezaBAZ_ChargennummerATZL IsNot Nothing Then BEA.ChargennummerATZL = u.ezaBAZ_ChargennummerATZL + ' If u.ezaBAZ_UrsprungslandATZL IsNot Nothing Then BEA.UrsprungslandATZL = u.ezaBAZ_UrsprungslandATZL + ' If u.ezaBAZ_UeblicheBehandlungKz IsNot Nothing Then BEA.UeblicheBehandlungKz = CInt(Int(u.ezaBAZ_UeblicheBehandlungKz)) + ' If u.ezaBAZ_Handelsmenge IsNot Nothing Then BEA.Handelsmenge = u.ezaBAZ_Handelsmenge + ' If u.ezaBAZ_MasseinheitHandelsmenge IsNot Nothing Then BEA.MasseinheitHandelsmenge = u.ezaBAZ_MasseinheitHandelsmenge + ' If u.ezaBAZ_Wartennummer IsNot Nothing Then BEA.Warennummer = u.ezaBAZ_Wartennummer + ' If u.ezaBAZ_QualifikatorHandelsmenge IsNot Nothing Then BEA.QualifikatorHandelsmenge = u.ezaBAZ_QualifikatorHandelsmenge + ' If u.ezaBAZ_Abgangsmenge IsNot Nothing Then BEA.Abgangsmenge = u.ezaBAZ_Abgangsmenge + ' If u.ezaBAZ_MasseinheitAbgangsmenge IsNot Nothing Then BEA.MasseinheitAbgangsmenge = u.ezaBAZ_MasseinheitAbgangsmenge + ' If u.ezaBAZ_QualifikatorAbgangsmenge IsNot Nothing Then BEA.QualifikatorAbgangsmenge = u.ezaBAZ_QualifikatorAbgangsmenge + ' If u.ezaBAZ_Positionszusatz IsNot Nothing Then BEA.Positionszusatz = u.ezaBAZ_Positionszusatz + ' If u.ezaBAZ_WarenbezogeneAngaben IsNot Nothing Then BEA.WarenbezogeneAngaben = u.ezaBAZ_WarenbezogeneAngaben + ' EA.KopfDaten.BEAnteilZLAVUV.Add(BEA) + ' Next + ' End If + + + ' If cDY.eza_ADRESSEN.Count > 0 Then + ' EA.KopfDaten.Adressen = New List(Of FreierVerkehrAktVeredelUmwandlung_004.AdressenVzImportAVUVTyp) + ' For Each u In cDY.eza_ADRESSEN + ' Dim ADR As New FreierVerkehrAktVeredelUmwandlung_004.AdressenVzImportAVUVTyp + ' If u.ezaAd_AdressTyp IsNot Nothing Then ADR.AdressTyp = u.ezaAd_AdressTyp + ' If u.ezaAd_AdressCode IsNot Nothing Then ADR.AdressCode = u.ezaAd_AdressCode + ' If u.ezaAd_TeilnehmerEORI IsNot Nothing Then ADR.TeilnehmerEORI = u.ezaAd_TeilnehmerEORI + ' If u.ezaAd_TeilnehmerNLNR IsNot Nothing AndAlso IsNumeric(u.ezaAd_TeilnehmerNLNR) Then ADR.TeilnehmerNLNR = u.ezaAd_TeilnehmerNLNR + ' If u.ezaAd_NameFirma1 IsNot Nothing Then + ' ADR.NameFirma = u.ezaAd_NameFirma1 & If(u.ezaAd_NameFirma2, "") & If(u.ezaAd_NameFirma3, "") + ' End If + ' 'If u.ezaAd_NameFirma1 IsNot Nothing Then ADR.NameFirma.Add(u.ezaAd_NameFirma1) + ' 'If u.ezaAd_NameFirma2 IsNot Nothing Then ADR.NameFirma.Add(u.ezaAd_NameFirma2) + ' 'If u.ezaAd_NameFirma3 IsNot Nothing Then ADR.NameFirma.Add(u.ezaAd_NameFirma3) + ' If u.ezaAd_StrasseHausNr1 IsNot Nothing Then + ' ADR.StrasseHausNr = u.ezaAd_StrasseHausNr1 & If(u.ezaAd_StrasseHausNr2, "") + ' End If + ' 'If u.ezaAd_StrasseHausNr1 IsNot Nothing Then ADR.StrasseHausNr.Add(u.ezaAd_StrasseHausNr1) + ' 'If u.ezaAd_StrasseHausNr2 IsNot Nothing Then ADR.StrasseHausNr.Add(u.ezaAd_StrasseHausNr2) + ' If u.ezaAd_Ortsteil IsNot Nothing Then ADR.Ortsteil = u.ezaAd_Ortsteil + ' If u.ezaAd_LandCode IsNot Nothing Then ADR.LandCode = u.ezaAd_LandCode + ' If u.ezaAd_PLZ IsNot Nothing Then ADR.PLZS = u.ezaAd_PLZ + ' If u.ezaAd_Ort IsNot Nothing Then ADR.OrtS = u.ezaAd_Ort + ' If u.ezaAd_UStIDAnmelder IsNot Nothing Then ADR.UStIDAnmelder = u.ezaAd_UStIDAnmelder + ' If u.ezaAd_FinanzamtIDAnmelder IsNot Nothing Then ADR.FinanzamtIDAnmelder = u.ezaAd_FinanzamtIDAnmelder + ' If u.ezaAd_Bewilligungsnummer IsNot Nothing Then ADR.Bewilligungsnummer = u.ezaAd_Bewilligungsnummer + ' If u.ezaAd_BewilligungsFachVerfahren IsNot Nothing Then ADR.BewilligungFachVerfahren = u.ezaAd_BewilligungsFachVerfahren + ' If u.ezaAd_BewilligungsnummerEndverwender IsNot Nothing Then ADR.BewilligungsnummerEndverwender = u.ezaAd_BewilligungsnummerEndverwender + ' EA.KopfDaten.Adressen.Add(ADR) + ' Next + ' End If + + + ' If cDY.eza_WARENPOS.Count > 0 Then + ' EA.WarenPosition = New List(Of FreierVerkehrAktVeredelUmwandlung_004.PositionEinfuhrUnvollstaendigeAnmeldungTyp) + ' For Each u In cDY.eza_WARENPOS + ' Dim WP As New FreierVerkehrAktVeredelUmwandlung_004.PositionEinfuhrUnvollstaendigeAnmeldungTyp + ' If u.ezaWP_PositionsNummer IsNot Nothing Then WP.Positionsnummer = u.ezaWP_PositionsNummer + ' If u.ezaWP_Artikelnummer IsNot Nothing Then WP.ArtikelNummer = u.ezaWP_Artikelnummer + ' If u.ezaWP_WarennummerEZT IsNot Nothing Then WP.WarenNummerEZT = u.ezaWP_WarennummerEZT + ' If u.ezaWP_Warennummerzusatz1 IsNot Nothing Then WP.WarenNummerZusatz1 = u.ezaWP_Warennummerzusatz1 + ' If u.ezaWP_Warennummerzusatz2 IsNot Nothing Then WP.WarenNummerZusatz2 = u.ezaWP_Warennummerzusatz2 + + ' If u.ezaWP_WarennummerZusatzCode1 IsNot Nothing Then WP.WarenNummerZusatzCode.Add(u.ezaWP_WarennummerZusatzCode1) + ' If u.ezaWP_WarennummerZusatzCode2 IsNot Nothing Then WP.WarenNummerZusatzCode.Add(u.ezaWP_WarennummerZusatzCode2) + ' If u.ezaWP_WarennummerZusatzCode3 IsNot Nothing Then WP.WarenNummerZusatzCode.Add(u.ezaWP_WarennummerZusatzCode3) + ' If u.ezaWP_WarennummerZusatzCode4 IsNot Nothing Then WP.WarenNummerZusatzCode.Add(u.ezaWP_WarennummerZusatzCode4) + ' If u.ezaWP_WarennummerZusatzCode5 IsNot Nothing Then WP.WarenNummerZusatzCode.Add(u.ezaWP_WarennummerZusatzCode5) + ' If u.ezaWP_WarennummerZusatzCode6 IsNot Nothing Then WP.WarenNummerZusatzCode.Add(u.ezaWP_WarennummerZusatzCode6) + ' If u.ezaWP_WarennummerZusatzCode7 IsNot Nothing Then WP.WarenNummerZusatzCode.Add(u.ezaWP_WarennummerZusatzCode7) + ' If u.ezaWP_WarennummerZusatzCode8 IsNot Nothing Then WP.WarenNummerZusatzCode.Add(u.ezaWP_WarennummerZusatzCode8) + ' If u.ezaWP_WarennummerZusatzCode9 IsNot Nothing Then WP.WarenNummerZusatzCode.Add(u.ezaWP_WarennummerZusatzCode9) + ' If u.ezaWP_WarennummerZusatzCode10 IsNot Nothing Then WP.WarenNummerZusatzCode.Add(u.ezaWP_WarennummerZusatzCode10) + + ' If u.ezaWP_Warenbezeichnung IsNot Nothing Then WP.WarenBezeichnung = u.ezaWP_Warenbezeichnung + ' If u.ezaWP_VerfahrensCodeVorangegangenesVerfahren IsNot Nothing Then WP.VerfahrenscodeVorangegangenesVerfahren = u.ezaWP_VerfahrensCodeVorangegangenesVerfahren + ' If u.ezaWP_AbgabensteuerungKz IsNot Nothing Then WP.AbgabensteuerungKz = CInt(Int(u.ezaWP_AbgabensteuerungKz)) + ' If u.ezaWP_EUCode IsNot Nothing Then WP.EUCode = u.ezaWP_EUCode + ' If u.ezaWP_UrsprungslandCode IsNot Nothing Then WP.UrsprungslandCode = u.ezaWP_UrsprungslandCode + + ' If cDY.eza_WARENPOS.Count > 1 Then + ' WP.Rohmasse = Nothing + ' Else + ' If u.ezaWP_Rohmasse IsNot Nothing Then WP.Rohmasse = u.ezaWP_Rohmasse + ' End If + + ' If u.ezaWP_Eigenmasse IsNot Nothing Then WP.Eigenmasse = u.ezaWP_Eigenmasse + ' If u.ezaWP_AHStatMenge IsNot Nothing Then WP.AHStatMenge = u.ezaWP_AHStatMenge + ' If u.ezaWP_AHStatMengeMasseinheit IsNot Nothing Then WP.AHStatMengeMasseinheit = u.ezaWP_AHStatMengeMasseinheit + ' If u.ezaWP_AHStatMengeQualifier IsNot Nothing Then WP.AHStatMengeQualifier = u.ezaWP_AHStatMengeQualifier + ' If u.ezaWP_AHStatWert IsNot Nothing AndAlso IsNumeric(u.ezaWP_AHStatWert) Then WP.AHStatWert = CInt(u.ezaWP_AHStatWert) + ' If u.ezaWP_AHStatWertManuellKZ IsNot Nothing Then WP.AHStatWertManuellKZ = CInt(Int(u.ezaWP_AHStatWertManuellKZ)) + ' If u.ezaWP_KostenEUSt IsNot Nothing Then WP.KostenEUSt = u.ezaWP_KostenEUSt + ' If u.ezaWP_PackstueckAnzahl IsNot Nothing Then WP.PackstueckAnzahl = u.ezaWP_PackstueckAnzahl.ToString.Replace(".", "") + ' If u.ezaWP_PackstueckArt IsNot Nothing Then WP.PackstueckArt = u.ezaWP_PackstueckArt + ' If u.ezaWP_PackstueckZeichen IsNot Nothing Then WP.PackstueckZeichen = u.ezaWP_PackstueckZeichen + + ' If u.ezaWP_Warenmenge1 IsNot Nothing Then + ' WP.WarenMenge = New List(Of FreierVerkehrAktVeredelUmwandlung_004.WarenMengeAVUVTyp) + ' If u.ezaWP_Warenmenge1 IsNot Nothing Then + ' Dim WM As New FreierVerkehrAktVeredelUmwandlung_004.WarenMengeAVUVTyp + ' If u.ezaWP_Warenmenge1 IsNot Nothing Then WM.Menge = u.ezaWP_Warenmenge1 + ' If u.ezaWP_WarenMasseinheit1 IsNot Nothing Then WM.Masseinheit = u.ezaWP_WarenMasseinheit1 + ' If u.ezaWP_WarenQualifier1 IsNot Nothing Then WM.Qualifier = u.ezaWP_WarenQualifier1 + ' WP.WarenMenge.Add(WM) + ' End If + ' If u.ezaWP_Warenmenge2 IsNot Nothing Then + ' Dim WM As New FreierVerkehrAktVeredelUmwandlung_004.WarenMengeAVUVTyp + ' If u.ezaWP_Warenmenge2 IsNot Nothing Then WM.Menge = u.ezaWP_Warenmenge2 + ' If u.ezaWP_WarenMasseinheit2 IsNot Nothing Then WM.Masseinheit = u.ezaWP_WarenMasseinheit2 + ' If u.ezaWP_WarenQualifier2 IsNot Nothing Then WM.Qualifier = u.ezaWP_WarenQualifier2 + ' WP.WarenMenge.Add(WM) + ' End If + ' If u.ezaWP_Warenmenge3 IsNot Nothing Then + ' Dim WM As New FreierVerkehrAktVeredelUmwandlung_004.WarenMengeAVUVTyp + ' If u.ezaWP_Warenmenge3 IsNot Nothing Then WM.Menge = u.ezaWP_Warenmenge3 + ' If u.ezaWP_WarenMasseinheit3 IsNot Nothing Then WM.Masseinheit = u.ezaWP_WarenMasseinheit3 + ' If u.ezaWP_WarenQualifier3 IsNot Nothing Then WM.Qualifier = u.ezaWP_WarenQualifier3 + ' WP.WarenMenge.Add(WM) + ' End If + ' If u.ezaWP_Warenmenge4 IsNot Nothing Then + ' Dim WM As New FreierVerkehrAktVeredelUmwandlung_004.WarenMengeAVUVTyp + ' If u.ezaWP_Warenmenge4 IsNot Nothing Then WM.Menge = u.ezaWP_Warenmenge4 + ' If u.ezaWP_WarenMasseinheit4 IsNot Nothing Then WM.Masseinheit = u.ezaWP_WarenMasseinheit4 + ' If u.ezaWP_WarenQualifier4 IsNot Nothing Then WM.Qualifier = u.ezaWP_WarenQualifier4 + ' WP.WarenMenge.Add(WM) + ' End If + ' If u.ezaWP_Warenmenge1 IsNot Nothing Then + ' Dim WM As New FreierVerkehrAktVeredelUmwandlung_004.WarenMengeAVUVTyp + ' If u.ezaWP_Warenmenge1 IsNot Nothing Then WM.Menge = u.ezaWP_Warenmenge1 + ' If u.ezaWP_WarenMasseinheit1 IsNot Nothing Then WM.Masseinheit = u.ezaWP_WarenMasseinheit1 + ' If u.ezaWP_WarenQualifier1 IsNot Nothing Then WM.Qualifier = u.ezaWP_WarenQualifier1 + ' WP.WarenMenge.Add(WM) + ' End If + ' End If + + ' If u.ezaWP_BeguenstigungBenatragtCode IsNot Nothing Then WP.BeguenstigungBeantragtCode = u.ezaWP_BeguenstigungBenatragtCode + ' If u.ezaWP_Kentigentnummer1 IsNot Nothing Then WP.Kontingentnummer.Add(u.ezaWP_Kentigentnummer1) + ' If u.ezaWP_Kentigentnummer2 IsNot Nothing Then WP.Kontingentnummer.Add(u.ezaWP_Kentigentnummer2) + ' If u.ezaWP_PositionsZusatz IsNot Nothing Then WP.PositionsZusatz = u.ezaWP_PositionsZusatz + ' If u.ezaWP_Artikelpreis IsNot Nothing Then WP.Artikelpreis = u.ezaWP_Artikelpreis + ' If u.ezaWP_OrtVerbringens IsNot Nothing Then WP.OrtVerbringens = u.ezaWP_OrtVerbringens + ' If u.ezaWP_AbflughafenIATACode IsNot Nothing Then WP.AbflughafenIATACode = u.ezaWP_AbflughafenIATACode + ' If u.ezaWP_WarenmengeAVUVZugang IsNot Nothing Then WP.WarenmengeAVUVZugang = u.ezaWP_WarenmengeAVUVZugang + ' If u.ezaWP_WarenmengeAVUVZugangMasseinheit IsNot Nothing Then WP.WarenmengeAVUVZugangMasseinheit = u.ezaWP_WarenmengeAVUVZugangMasseinheit + ' If u.ezaWP_WarenmengeAVUVZugangMasseinheitQualifier IsNot Nothing Then WP.WarenmengeAVUVZugangMasseinheitQualifier = u.ezaWP_WarenmengeAVUVZugangMasseinheitQualifier + ' If u.ezaWP_Sachbereich IsNot Nothing Then WP.Sachbereich = u.ezaWP_Sachbereich + ' If u.ezaWP_SachbereichCode IsNot Nothing Then WP.SachbereichCode = u.ezaWP_SachbereichCode + ' If u.ezaWP_BedingungCode IsNot Nothing Then WP.BedingungCode = u.ezaWP_BedingungCode + ' If u.ezaWP_VeredelungWertsteigerung IsNot Nothing Then WP.VeredelungWertsteigerung = u.ezaWP_VeredelungWertsteigerung + ' If u.ezaWP_TabakSteuerzeichenID IsNot Nothing Then WP.TabakSteuerzeichenID = u.ezaWP_TabakSteuerzeichenID + + ' If u.ezaWP_GehaltsAngabenArtCode1 IsNot Nothing Then + ' WP.Gehaltsangaben = New List(Of FreierVerkehrAktVeredelUmwandlung_004.GehaltsangabenAVUVTyp) + ' If u.ezaWP_GehaltsAngabenArtCode1 IsNot Nothing Then + ' Dim GA As New FreierVerkehrAktVeredelUmwandlung_004.GehaltsangabenAVUVTyp + ' If u.ezaWP_GehaltsAngabenArtCode1 IsNot Nothing Then GA.ArtCode = u.ezaWP_GehaltsAngabenArtCode1 + ' If u.ezaWP_GehaltsAngabenGradProzent1 IsNot Nothing Then GA.GradProzent = u.ezaWP_GehaltsAngabenGradProzent1 + ' WP.Gehaltsangaben.Add(GA) + ' End If + ' If u.ezaWP_GehaltsAngabenArtCode2 IsNot Nothing Then + ' Dim GA As New FreierVerkehrAktVeredelUmwandlung_004.GehaltsangabenAVUVTyp + ' If u.ezaWP_GehaltsAngabenArtCode2 IsNot Nothing Then GA.ArtCode = u.ezaWP_GehaltsAngabenArtCode2 + ' If u.ezaWP_GehaltsAngabenGradProzent2 IsNot Nothing Then GA.GradProzent = u.ezaWP_GehaltsAngabenGradProzent2 + ' WP.Gehaltsangaben.Add(GA) + ' End If + ' If u.ezaWP_GehaltsAngabenArtCode3 IsNot Nothing Then + ' Dim GA As New FreierVerkehrAktVeredelUmwandlung_004.GehaltsangabenAVUVTyp + ' If u.ezaWP_GehaltsAngabenArtCode3 IsNot Nothing Then GA.ArtCode = u.ezaWP_GehaltsAngabenArtCode3 + ' If u.ezaWP_GehaltsAngabenGradProzent3 IsNot Nothing Then GA.GradProzent = u.ezaWP_GehaltsAngabenGradProzent3 + ' WP.Gehaltsangaben.Add(GA) + ' End If + ' End If + ' If u.ezaWP_BeguenstigungsMengeMenge IsNot Nothing Then + ' WP.Beguenstigungsmenge = New FreierVerkehrAktVeredelUmwandlung_004.BeguenstigungsMengeAVUVTyp + ' If u.ezaWP_BeguenstigungsMengeMenge IsNot Nothing Then WP.Beguenstigungsmenge.Menge = u.ezaWP_BeguenstigungsMengeMenge + ' If u.ezaWP_BeguenstigungsMengeMasseinheitCode IsNot Nothing Then WP.Beguenstigungsmenge.MasseinheitCode = u.ezaWP_BeguenstigungsMengeMasseinheitCode + ' If u.ezaWP_BeguenstigungsMengeQualifier IsNot Nothing Then WP.Beguenstigungsmenge.MasseinheitQualifier = u.ezaWP_BeguenstigungsMengeQualifier + ' End If + + ' If u.ezaWP_VERBRAUCHSSTEUER.Count > 0 Then + ' WP.Verbrauchssteuer = New List(Of FreierVerkehrAktVeredelUmwandlung_004.VerbrauchssteuerAVUVTyp) + ' For Each v In u.ezaWP_VERBRAUCHSSTEUER + ' Dim VS As New FreierVerkehrAktVeredelUmwandlung_004.VerbrauchssteuerAVUVTyp + ' If v.ezaWpVs_VerbrauchsteuerCode IsNot Nothing Then VS.VerbrauchsteuerCode = v.ezaWpVs_VerbrauchsteuerCode + ' If v.ezaWpVs_VerbrauchssteuerMenge IsNot Nothing Then VS.VerbrauchssteuerMenge = v.ezaWpVs_VerbrauchssteuerMenge + ' If v.ezaWpVs_VerbrauchssteuerMasseinheitCode IsNot Nothing Then VS.VerbrauchssteuerMasseinheitCode = v.ezaWpVs_VerbrauchssteuerMasseinheitCode + ' If v.ezaWpVs_VerbrauchssteuerMasseinheitQualifier IsNot Nothing Then VS.VerbrauchssteuerMasseinheitQualifier = v.ezaWpVs_VerbrauchssteuerMasseinheitQualifier + ' If v.ezaWpVs_GradProzent IsNot Nothing Then VS.GradProzent = v.ezaWpVs_GradProzent + ' If v.ezaWpVs_VerbrauchssteuerWertbasis IsNot Nothing Then VS.VerbrauchssteuerWertBasis = v.ezaWpVs_VerbrauchssteuerWertbasis + ' WP.Verbrauchssteuer.Add(VS) + ' Next + ' End If + + ' 'Abgabenminderiung + ' If u.ezaWP_Abgabenminderung_AbgabengruppeCode1 IsNot Nothing Then + ' WP.Abgabenminderung = New List(Of FreierVerkehrAktVeredelUmwandlung_004.AbgabenminderungAVUVTyp) + ' If u.ezaWP_GehaltsAngabenArtCode1 IsNot Nothing Then + ' Dim AM As New FreierVerkehrAktVeredelUmwandlung_004.AbgabenminderungAVUVTyp + ' If u.ezaWP_GehaltsAngabenArtCode1 IsNot Nothing Then AM.AbgabengruppeCode = u.ezaWP_GehaltsAngabenArtCode1 + ' If u.ezaWP_Abgabenminderung_Minderungsbetrag1 IsNot Nothing Then AM.Minderungsbetrag = u.ezaWP_Abgabenminderung_Minderungsbetrag1 + ' WP.Abgabenminderung.Add(AM) + ' End If + ' If u.ezaWP_GehaltsAngabenArtCode2 IsNot Nothing Then + ' Dim AM As New FreierVerkehrAktVeredelUmwandlung_004.AbgabenminderungAVUVTyp + ' If u.ezaWP_GehaltsAngabenArtCode2 IsNot Nothing Then AM.AbgabengruppeCode = u.ezaWP_GehaltsAngabenArtCode2 + ' If u.ezaWP_Abgabenminderung_Minderungsbetrag2 IsNot Nothing Then AM.Minderungsbetrag = u.ezaWP_Abgabenminderung_Minderungsbetrag2 + ' WP.Abgabenminderung.Add(AM) + ' End If + ' If u.ezaWP_GehaltsAngabenArtCode3 IsNot Nothing Then + ' Dim AM As New FreierVerkehrAktVeredelUmwandlung_004.AbgabenminderungAVUVTyp + ' If u.ezaWP_GehaltsAngabenArtCode3 IsNot Nothing Then AM.AbgabengruppeCode = u.ezaWP_GehaltsAngabenArtCode3 + ' If u.ezaWP_Abgabenminderung_Minderungsbetrag3 IsNot Nothing Then AM.Minderungsbetrag = u.ezaWP_Abgabenminderung_Minderungsbetrag3 + ' WP.Abgabenminderung.Add(AM) + ' End If + ' End If + + ' 'Sonderfalldaten + ' If u.ezaWP_SONDERFALLDATEN.Count > 0 Then + ' WP.Sonderfalldaten = New List(Of FreierVerkehrAktVeredelUmwandlung_004.SonderfalldatenAVUVTyp) + ' For Each v In u.ezaWP_SONDERFALLDATEN + ' Dim SD As New FreierVerkehrAktVeredelUmwandlung_004.SonderfalldatenAVUVTyp + ' If v.ezaWpSfd_SonderabgabenGruppeCode IsNot Nothing Then SD.SonderabgabenGruppeCode = v.ezaWpSfd_SonderabgabenGruppeCode + ' If v.ezaWpSfd_AnwendungArt IsNot Nothing Then SD.AnwendungArt = v.ezaWpSfd_AnwendungArt + ' If v.ezaWpSfd_SatzBetragFaktor IsNot Nothing Then SD.SatzBetragFaktor = v.ezaWpSfd_SatzBetragFaktor + ' WP.Sonderfalldaten.Add(SD) + ' Next + ' End If + + ' 'unterlagen + ' If u.ezaWP_UNTERLAGEN.Count > 0 Then + ' WP.Unterlage = New List(Of FreierVerkehrAktVeredelUmwandlung_004.UnterlageVZPositionAVUVTyp) + ' For Each v In u.ezaWP_UNTERLAGEN + ' Dim UL As New FreierVerkehrAktVeredelUmwandlung_004.UnterlageVZPositionAVUVTyp + ' If v.ezaWpUl_Bereich IsNot Nothing Then UL.Bereich = v.ezaWpUl_Bereich + ' If v.ezaWpUl_Art IsNot Nothing Then UL.Art = v.ezaWpUl_Art + ' If v.ezaWpUl_Nummer IsNot Nothing Then UL.Nummer = v.ezaWpUl_Nummer + ' If v.ezaWpUl_DatumAusstellung IsNot Nothing Then UL.DatumAusstellung = v.ezaWpUl_DatumAusstellung + ' If v.ezaWpUl_VorlageKz IsNot Nothing Then UL.VorlageKz = CInt(Int(v.ezaWpUl_VorlageKz)) + ' If v.ezaWpUl_AbschreibungsMenge IsNot Nothing Then UL.AbschreibungsMenge = v.ezaWpUl_AbschreibungsMenge + ' If v.ezaWpUl_AbschreibungsMengeMasseinheit IsNot Nothing Then UL.AbschreibungsMengeMasseinheit = v.ezaWpUl_AbschreibungsMengeMasseinheit + ' If v.ezaWpUl_AbschreibungsMengeMasseinheitQualifier IsNot Nothing Then UL.AbschreibungsMengeMasseinheitQualifier = v.ezaWpUl_AbschreibungsMengeMasseinheitQualifier + ' WP.Unterlage.Add(UL) + ' Next + ' End If + + ' 'Besondere Wertangabe + ' If u.ezaWP_BesondereWertangabe_PreisartCode1 IsNot Nothing Then + ' WP.BesondereWertangabe = New List(Of FreierVerkehrAktVeredelUmwandlung_004.BesondereWertangabeAVUVTyp) + ' If u.ezaWP_BesondereWertangabe_PreisartCode1 IsNot Nothing Then + ' Dim BW As New FreierVerkehrAktVeredelUmwandlung_004.BesondereWertangabeAVUVTyp + ' If u.ezaWP_BesondereWertangabe_PreisartCode1 IsNot Nothing Then BW.PreisartCode = u.ezaWP_BesondereWertangabe_PreisartCode1 + ' If u.ezaWP_BesondereWertangabe_Wert1 IsNot Nothing Then BW.Wert = u.ezaWP_BesondereWertangabe_Wert1 + ' WP.BesondereWertangabe.Add(BW) + ' End If + ' If u.ezaWP_BesondereWertangabe_PreisartCode2 IsNot Nothing Then + ' Dim BW As New FreierVerkehrAktVeredelUmwandlung_004.BesondereWertangabeAVUVTyp + ' If u.ezaWP_BesondereWertangabe_PreisartCode2 IsNot Nothing Then BW.PreisartCode = u.ezaWP_BesondereWertangabe_PreisartCode2 + ' If u.ezaWP_BesondereWertangabe_Wert2 IsNot Nothing Then BW.Wert = u.ezaWP_BesondereWertangabe_Wert2 + ' WP.BesondereWertangabe.Add(BW) + ' End If + ' If u.ezaWP_BesondereWertangabe_PreisartCode3 IsNot Nothing Then + ' Dim BW As New FreierVerkehrAktVeredelUmwandlung_004.BesondereWertangabeAVUVTyp + ' If u.ezaWP_BesondereWertangabe_PreisartCode3 IsNot Nothing Then BW.PreisartCode = u.ezaWP_BesondereWertangabe_PreisartCode3 + ' If u.ezaWP_BesondereWertangabe_Wert3 IsNot Nothing Then BW.Wert = u.ezaWP_BesondereWertangabe_Wert3 + ' WP.BesondereWertangabe.Add(BW) + ' End If + ' If u.ezaWP_BesondereWertangabe_PreisartCode4 IsNot Nothing Then + ' Dim BW As New FreierVerkehrAktVeredelUmwandlung_004.BesondereWertangabeAVUVTyp + ' If u.ezaWP_BesondereWertangabe_PreisartCode4 IsNot Nothing Then BW.PreisartCode = u.ezaWP_BesondereWertangabe_PreisartCode4 + ' If u.ezaWP_BesondereWertangabe_Wert4 IsNot Nothing Then BW.Wert = u.ezaWP_BesondereWertangabe_Wert4 + ' WP.BesondereWertangabe.Add(BW) + ' End If + ' If u.ezaWP_BesondereWertangabe_PreisartCode5 IsNot Nothing Then + ' Dim BW As New FreierVerkehrAktVeredelUmwandlung_004.BesondereWertangabeAVUVTyp + ' If u.ezaWP_BesondereWertangabe_PreisartCode5 IsNot Nothing Then BW.PreisartCode = u.ezaWP_BesondereWertangabe_PreisartCode5 + ' If u.ezaWP_BesondereWertangabe_Wert5 IsNot Nothing Then BW.Wert = u.ezaWP_BesondereWertangabe_Wert5 + ' WP.BesondereWertangabe.Add(BW) + ' End If + + ' End If + + + ' If u.ezaWP_VZAStatus IsNot Nothing Then WP.VZAStatus = u.ezaWP_VZAStatus + ' If u.ezaWP_EGZStatus IsNot Nothing Then WP.EGZStatus = u.ezaWP_EGZStatus + ' If u.ezaWP_DV1Status IsNot Nothing Then WP.DV1Status = u.ezaWP_DV1Status + ' If u.ezaWP_AnmeldeArt IsNot Nothing Then WP.AnmeldeArt = u.ezaWP_AnmeldeArt + ' If u.ezaWP_BefundDatum IsNot Nothing Then WP.BefundDatum = u.ezaWP_BefundDatum + ' If u.ezaWP_Zollverfahren IsNot Nothing Then WP.Zollverfahren = u.ezaWP_Zollverfahren + ' If u.ezaWP_AbrechnungszollstelleCode IsNot Nothing Then WP.AbrechnungszollstelleCode = u.ezaWP_AbrechnungszollstelleCode + ' If u.ezaWP_SachbereichCode IsNot Nothing Then WP.SachbereichCode = u.ezaWP_SachbereichCode + ' If u.ezaWP_RegistriernummerZA IsNot Nothing Then WP.RegistriernummervZA = u.ezaWP_RegistriernummerZA + ' If u.ezaWP_AnmeldeVErfahren IsNot Nothing Then WP.AnmeldeVerfahren = u.ezaWP_AnmeldeVErfahren + ' If u.ezaWP_Bewilligungsnummer IsNot Nothing Then WP.Bewilligungsnummer = u.ezaWP_Bewilligungsnummer + ' If u.ezaWP_BewilligungsnummerEndverwenderEGZDurchDritte IsNot Nothing Then WP.BewilligungsnummerEndverwenderEGZDurchDritte = u.ezaWP_BewilligungsnummerEndverwenderEGZDurchDritte + ' If u.ezaWP_Zollwert IsNot Nothing Then WP.Zollwert = u.ezaWP_Zollwert + ' If u.ezaWP_LuftfrachtkostenGesamt IsNot Nothing Then WP.LuftfrachtkostenGesamt = u.ezaWP_LuftfrachtkostenGesamt + ' If u.ezaWP_LuftfrachtkostenGesamtWaehrung IsNot Nothing Then WP.LuftfrachtkostenGesamtWaehrung = u.ezaWP_LuftfrachtkostenGesamtWaehrung + ' If u.ezaWP_IATAKursKz IsNot Nothing Then WP.IATAKursKz = CInt(Int(u.ezaWP_IATAKursKz)) + ' If u.ezaWP_KursVereinbartKz IsNot Nothing Then WP.KursBetragVereinbart = CInt(Int(u.ezaWP_KursVereinbartKz)) + ' If u.ezaWP_KursBetragVereinbart IsNot Nothing Then WP.KursBetragVereinbart = u.ezaWP_KursBetragVereinbart + ' If u.ezaWP_KursDatum IsNot Nothing Then WP.KursDatum = u.ezaWP_KursDatum + + + ' 'ABZUGHINZURECHNUNG nicht vorgesehen + + ' If u.ezaWP_Aussenhandelsstatistik_VerkehrszweigInland IsNot Nothing Then WP.Aussenhandelsstatistik.VerkehrszweigInland = u.ezaWP_Aussenhandelsstatistik_VerkehrszweigInland + ' If u.ezaWP_Aussenhandelsstatistik_VerkehrszweigGrenze IsNot Nothing Then WP.Aussenhandelsstatistik.VerkehrszweigGrenze = u.ezaWP_Aussenhandelsstatistik_VerkehrszweigGrenze + ' If u.ezaWP_Aussenhandelsstatistik_Versendungsland IsNot Nothing Then WP.Aussenhandelsstatistik.Versendungsland = u.ezaWP_Aussenhandelsstatistik_Versendungsland + ' If u.ezaWP_Aussenhandelsstatistik_BEstimmungsbundesland IsNot Nothing Then WP.Aussenhandelsstatistik.Bestimmungsbundesland = u.ezaWP_Aussenhandelsstatistik_BEstimmungsbundesland + ' If u.ezaWP_Aussenhandelsstatistik_Bestimmungsland IsNot Nothing Then WP.Aussenhandelsstatistik.Bestimmungsland = u.ezaWP_Aussenhandelsstatistik_Bestimmungsland + ' If u.ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGranzeStaatszugehoeriglkeitCode IsNot Nothing Then WP.Aussenhandelsstatistik.BefoerderungsmittelGrenzeStaatszugehoerigkeitCode = u.ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGranzeStaatszugehoeriglkeitCode + ' If u.ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGrenzeArt IsNot Nothing Then WP.Aussenhandelsstatistik.BefoerderungsmittelGrenzeArt = u.ezaWP_Aussenhandelsstatistik_BefoerderungsmittelGrenzeArt + ' If u.ezaWP_Aussenhandelsstatistik_BefoerderungsmittelBeschreibung IsNot Nothing Then WP.Aussenhandelsstatistik.BefoerderungsmittelBeschreibung = u.ezaWP_Aussenhandelsstatistik_BefoerderungsmittelBeschreibung + ' If u.ezaWP_Aussenhandelsstatistik_ArtGeschaeft IsNot Nothing Then WP.Aussenhandelsstatistik.ArtGeschaeft = u.ezaWP_Aussenhandelsstatistik_ArtGeschaeft + ' If u.ezaWP_Aussenhandelsstatistik_Statistikstatus IsNot Nothing Then WP.Aussenhandelsstatistik.Statistikstatus = u.ezaWP_Aussenhandelsstatistik_Statistikstatus + + ' 'DV1 + ' If u.ezaWP_Artikelpreis IsNot Nothing Then + + ' Dim ABZHRG As New FreierVerkehrAktVeredelUmwandlung_004.AbzugHinzurechnungAVUVTyp + ' ABZHRG.Betrag = u.ezaWP_Artikelpreis + ' ABZHRG.Waehrung = u.ezaWP_ArtikelpreisWaehrung + ' ABZHRG.ArtCode = "R" + ' If If(ABZHRG.Waehrung, "") = "EUR" Then ABZHRG.KursAuslandswaehrung = 1 + + ' WP.Artikelpreis = u.ezaWP_Artikelpreis + ' WP.AbzugHinzurechnung.Add(ABZHRG) + ' End If + + + ' EA.WarenPosition.Add(WP) + ' Next + ' End If + + + ' XML.EinzelAnmeldung.Add(EA) + + + + ' saveFile = cDakosyFunftions.getDefaultFolder_SEND() & "DY_" & Now.ToString("yyMMdd_HHmmss") & ".xml" + + ' 'MsgBox(saveFile) + ' XML.SaveToFile(saveFile) + + ' replaceNullDateXML(saveFile) + ' Return True + 'End Function + + + 'Shared Function isLeerNothing(o As String) As Object + ' If o Is Nothing OrElse o = "" Then + ' Return Nothing + ' Else + ' Return o + ' End If + 'End Function + + + + + 'Shared Function generateVersandanmeldungAES(cDY As cDakosyAES, ByRef saveFile As String, DY_ACTION As String) As Boolean + ' Dim Interface_VERSION = "003" + ' Dim ObjectAktion = DY_ACTION + + + ' Dim XML As New DAKOSY_Worker.VollstaendigeAusfuhrAnmeldung.VollstaendigeAusfuhrAnmeldungEVTyp + + + ' 'Transaktion: + ' XML.Transaktion = New VollstaendigeAusfuhrAnmeldung.TransaktionExportTyp + ' XML.Transaktion.IOPartner = getIOPartner(cDY.aes_firma) ' If(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "VERA", "VERG") + ' XML.Transaktion.IODatumZeit = Now + ' XML.Transaktion.IOReferenz = cDY.aes_Trans_Referenz + ' If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then XML.Transaktion.IODivision3 = getDivision(cDY.aes_firma) ' + ' XML.Transaktion.Version = Interface_VERSION + + ' Dim EA = New VollstaendigeAusfuhrAnmeldung.EinzelVollstaendigeAusfuhrAnmeldungTyp + + ' EA.ObjektIdentifizierung.AbsenderSystemName = "VERAG_ZOLL" + + ' 'ObjektIdentifizierung: + ' EA.ObjektIdentifizierung = New VollstaendigeAusfuhrAnmeldung.ObjektIdentifizierungEVTyp + ' EA.ObjektIdentifizierung.ObjektName = cDY.aes_ObjectName + ' If cDY.aes_ObjectAlias IsNot Nothing Then EA.ObjektIdentifizierung.ObjektAliasname = cDY.aes_ObjectAlias + ' Dim ObjektAktion As New List(Of String) : ObjektAktion.Add(ObjectAktion) + ' EA.ObjektIdentifizierung.ObjektAktion = ObjektAktion + ' EA.ObjektIdentifizierung.Bearbeiter = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DAKOSY_SB, "") 'If(VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME.Length > 20, VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME, VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME) + ' 'EA.ObjektIdentifizierung.CompliancePruefung= + ' EA.ObjektIdentifizierung.ObjektName = cDY.aes_ObjectName + ' If cDY.aes_BezugsnummerVorblendung IsNot Nothing Then EA.ObjektIdentifizierung.BezugsnummerVorblendung = cDY.aes_BezugsnummerVorblendung + + ' 'KopfDaten + ' EA.KopfDaten = New VollstaendigeAusfuhrAnmeldung.KopfDatenVollstaendigeAusfuhranmeldungTyp + ' If cDY.aes_AnmeldeArtAusfuhrCode IsNot Nothing Then EA.KopfDaten.AnmeldeArtAusfuhrCode = cDY.aes_AnmeldeArtAusfuhrCode + ' If cDY.aes_AnmeldeArtVerfahrensCode IsNot Nothing Then EA.KopfDaten.AnmeldeArtVerfahrenCode = cDY.aes_AnmeldeArtVerfahrensCode + ' If cDY.aes_AnmeldeArtUeberfuehrungCode IsNot Nothing Then EA.KopfDaten.AnmeldeArtUeberfuehrungCode = cDY.aes_AnmeldeArtUeberfuehrungCode + ' If cDY.aes_Ausfuhrland IsNot Nothing Then EA.KopfDaten.AusfuhrlandCode = cDY.aes_Ausfuhrland + ' If cDY.aes_BestimmungslandCode IsNot Nothing Then EA.KopfDaten.BestimmungslandCode = cDY.aes_BestimmungslandCode + ' If cDY.aes_AnmeldedatumZeit IsNot Nothing Then EA.KopfDaten.AnmeldeDatumZeit = cDY.aes_AnmeldedatumZeit + ' If cDY.aes_DatumAusgang IsNot Nothing Then EA.KopfDaten.DatumAusgang = cDY.aes_DatumAusgang + + ' If cDY.aes_MassgeblichesDatum IsNot Nothing Then EA.KopfDaten.MassgeblichesDatum = cDY.aes_MassgeblichesDatum + + ' If cDY.aes_BesondereUmstaende IsNot Nothing Then EA.KopfDaten.BesondereUmstaende = cDY.aes_BesondereUmstaende + ' If cDY.aes_Zahlungsweisebefoerderungskosten IsNot Nothing Then EA.KopfDaten.ZahlungsweiseBefoerderungskosten = cDY.aes_Zahlungsweisebefoerderungskosten + ' If cDY.aes_ContainerIndikator IsNot Nothing Then EA.KopfDaten.ContainerIndikator = cDY.aes_ContainerIndikator + ' If cDY.aes_BeteiligteKonstellation IsNot Nothing Then EA.KopfDaten.BeteiligtenKonstellation = cDY.aes_BeteiligteKonstellation + ' 'If cDY.aes_AdressdatenKonstellation IsNot Nothing Then EA.KopfDaten.AdressatenKonstellation = cDY.aes_AdressdatenKonstellation --> OHNE FUNK + ' If cDY.aes_GesamtRohmasse IsNot Nothing AndAlso IsNumeric(cDY.aes_GesamtRohmasse) Then EA.KopfDaten.GesamtRohMasse = CDbl(CDbl(cDY.aes_GesamtRohmasse).ToString("N1")) + ' If cDY.aes_RegistriernummerFremdsystem IsNot Nothing Then EA.KopfDaten.RegistrierNummerFremdSystem = cDY.aes_RegistriernummerFremdsystem + ' If cDY.aes_Vermerk IsNot Nothing Then EA.KopfDaten.Vermerk = cDY.aes_Vermerk + ' If cDY.aes_KennnummerSendung IsNot Nothing Then EA.KopfDaten.KennnummerSendung = cDY.aes_KennnummerSendung + ' If cDY.aes_AnzahlPositionen IsNot Nothing Then EA.KopfDaten.AnzahlPositionen = cDY.aes_AnzahlPositionen + ' If cDY.aes_BewiligungsnummerAusfuhr IsNot Nothing Then EA.KopfDaten.BewilligungsnummerAusfuhr = cDY.aes_BewiligungsnummerAusfuhr + ' If cDY.aes_BewiligungsnummerAnschreibeverfahren IsNot Nothing Then EA.KopfDaten.BewilligungsnummerAnschreibeverfahren = cDY.aes_BewiligungsnummerAnschreibeverfahren + ' If cDY.aes_BewiligungsnummerPassiveVeredelung IsNot Nothing Then EA.KopfDaten.BewilligungsnummerPassiveVeredelung = cDY.aes_BewiligungsnummerPassiveVeredelung + ' If cDY.aes_BewiligungsnummerVertrausenswuerdigerAusfuehrer IsNot Nothing Then EA.KopfDaten.BewilligungsnummerVertrauenswuerdigerAusfuehrer = cDY.aes_BewiligungsnummerVertrausenswuerdigerAusfuehrer + ' If cDY.aes_VerkehrszweigInland IsNot Nothing Then EA.KopfDaten.VerkehrszweigInland = cDY.aes_VerkehrszweigInland + ' If cDY.aes_VerkehrszweigGrenze IsNot Nothing Then EA.KopfDaten.VerkehrszweigGrenze = cDY.aes_VerkehrszweigGrenze + + ' 'BefoerderungsmittelAbgang + ' If cDY.aes_BefoerderungsmittelAbgangArtCode IsNot Nothing Then EA.KopfDaten.BefoerderungsmittelAbgang.ArtCode = cDY.aes_BefoerderungsmittelAbgangArtCode + ' If cDY.aes_BefoerderungsmittelAbgangKennzeichen IsNot Nothing Then EA.KopfDaten.BefoerderungsmittelAbgang.Kennzeichen = cDY.aes_BefoerderungsmittelAbgangKennzeichen + ' If cDY.aes_BefoerderungsmittelAbgangStaatCode IsNot Nothing Then EA.KopfDaten.BefoerderungsmittelAbgang.StaatCode = cDY.aes_BefoerderungsmittelAbgangStaatCode + + ' 'BefoerderungsmittelGrenze + ' If cDY.aes_BefoerderungsmittelGrenzeArtCode IsNot Nothing Then EA.KopfDaten.BefoerderungsmittelGrenze.ArtCode = cDY.aes_BefoerderungsmittelGrenzeArtCode + ' If cDY.aes_BefoerderungsmittelGrenzeKennzeichen IsNot Nothing Then EA.KopfDaten.BefoerderungsmittelGrenze.Kennzeichen = cDY.aes_BefoerderungsmittelGrenzeKennzeichen + ' If cDY.aes_BefoerderungsmittelGrenzeStaatCode IsNot Nothing Then EA.KopfDaten.BefoerderungsmittelGrenze.StaatCode = cDY.aes_BefoerderungsmittelGrenzeStaatCode + + ' 'Ladeort + ' 'If cDY.aes_LadeortOrt IsNot Nothing Then EA.KopfDaten.Ladeort = cDY.aes_LadeortOrt ---> ÃœBERBEGRIFF + ' If cDY.aes_LadeortOrtId IsNot Nothing Then EA.KopfDaten.Ladeort.OrtID = cDY.aes_LadeortOrtId + ' If cDY.aes_LadeortStrasse IsNot Nothing Then EA.KopfDaten.Ladeort.Strasse = cDY.aes_LadeortStrasse + ' If cDY.aes_LadeortOrt IsNot Nothing Then EA.KopfDaten.Ladeort.Ort = cDY.aes_LadeortOrt + ' If cDY.aes_LadeortPLZ IsNot Nothing Then EA.KopfDaten.Ladeort.PLZ = cDY.aes_LadeortPLZ + ' If cDY.aes_LadeortZusatz IsNot Nothing Then EA.KopfDaten.Ladeort.Zusatz = cDY.aes_LadeortZusatz + + ' If cDY.aes_AusfuhrZollstelleID IsNot Nothing Then EA.KopfDaten.AusfuhrZollstelleID = cDY.aes_AusfuhrZollstelleID + ' If cDY.aes_AusgangszollstelleID IsNot Nothing Then EA.KopfDaten.AusgangZollstelleID = cDY.aes_AusgangszollstelleID + ' If cDY.aes_TatsaechlicheAusgangZollstelleID IsNot Nothing Then EA.KopfDaten.TatsaechlicheAusgangZollstelleID = cDY.aes_TatsaechlicheAusgangZollstelleID + ' If cDY.aes_GeschaeftartCode IsNot Nothing Then EA.KopfDaten.GeschaeftArtCode = cDY.aes_GeschaeftartCode + ' If cDY.aes_Rechnungspreis IsNot Nothing Then EA.KopfDaten.Rechnungspreis = cDY.aes_Rechnungspreis.replace(",", ".") + ' If cDY.aes_Rechnungwaehrung IsNot Nothing Then EA.KopfDaten.Rechnungswaehrung = cDY.aes_Rechnungwaehrung + ' If cDY.aes_BesondererTatbestand IsNot Nothing Then EA.KopfDaten.BesondererTatbestand = cDY.aes_BesondererTatbestand + + ' 'Verschluss + ' If cDY.aes_VerschlussArtCode IsNot Nothing Then EA.KopfDaten.Verschluss.ArtCode = cDY.aes_VerschlussArtCode + ' If cDY.aes_VerschlussAnzahl IsNot Nothing Then EA.KopfDaten.Verschluss.Anzahl = cDY.aes_VerschlussAnzahl + ' EA.KopfDaten.Verschluss.Zeichen = New List(Of String) + ' If cDY.aes_VerschlussZeichen1 IsNot Nothing Then EA.KopfDaten.Verschluss.Zeichen.Add(cDY.aes_VerschlussZeichen1) + ' If cDY.aes_VerschlussZeichen2 IsNot Nothing Then EA.KopfDaten.Verschluss.Zeichen.Add(cDY.aes_VerschlussZeichen2) + ' If cDY.aes_VerschlussZeichen3 IsNot Nothing Then EA.KopfDaten.Verschluss.Zeichen.Add(cDY.aes_VerschlussZeichen3) + ' If cDY.aes_VerschlussZeichen4 IsNot Nothing Then EA.KopfDaten.Verschluss.Zeichen.Add(cDY.aes_VerschlussZeichen4) + ' If cDY.aes_VerschlussZeichen5 IsNot Nothing Then EA.KopfDaten.Verschluss.Zeichen.Add(cDY.aes_VerschlussZeichen5) + ' If cDY.aes_VerschlussZeichen6 IsNot Nothing Then EA.KopfDaten.Verschluss.Zeichen.Add(cDY.aes_VerschlussZeichen6) + ' If cDY.aes_VerschlussZeichen7 IsNot Nothing Then EA.KopfDaten.Verschluss.Zeichen.Add(cDY.aes_VerschlussZeichen7) + ' If cDY.aes_VerschlussZeichen8 IsNot Nothing Then EA.KopfDaten.Verschluss.Zeichen.Add(cDY.aes_VerschlussZeichen8) + ' If cDY.aes_VerschlussZeichen9 IsNot Nothing Then EA.KopfDaten.Verschluss.Zeichen.Add(cDY.aes_VerschlussZeichen9) + ' If cDY.aes_VerschlussZeichen10 IsNot Nothing Then EA.KopfDaten.Verschluss.Zeichen.Add(cDY.aes_VerschlussZeichen10) + ' If cDY.aes_VerschlussZeichen11 IsNot Nothing Then EA.KopfDaten.Verschluss.Zeichen.Add(cDY.aes_VerschlussZeichen11) + ' If cDY.aes_VerschlussZeichen12 IsNot Nothing Then EA.KopfDaten.Verschluss.Zeichen.Add(cDY.aes_VerschlussZeichen12) + + ' If cDY.aes_GestellungsfristAnfangDatumZeit IsNot Nothing Then EA.KopfDaten.Gestellungsfrist.AnfangDatumZeit = cDY.aes_GestellungsfristAnfangDatumZeit + ' If cDY.aes_GestellungsfristEndeDatumZeit IsNot Nothing Then EA.KopfDaten.Gestellungsfrist.EndeDatumZeit = cDY.aes_GestellungsfristEndeDatumZeit + + ' 'Ausfuehrer + ' If (cDY.aes_AusfuehrerTeilnehmerEORI IsNot Nothing Or cDY.aes_AusfuehrerTeilnehmerName <> "") Then + ' If cDY.aes_AusfuehrerTeilnehmerEORI IsNot Nothing Then EA.KopfDaten.Ausfuehrer.TeilnehmerEORI = cDY.aes_AusfuehrerTeilnehmerEORI + ' If cDY.aes_AusfuehrerTeilnehmerNLNR IsNot Nothing AndAlso IsNumeric(cDY.aes_AusfuehrerTeilnehmerNLNR) Then EA.KopfDaten.Ausfuehrer.TeilnehmerNLNR = cDY.aes_AusfuehrerTeilnehmerNLNR + ' If cDY.aes_AusfuehrerTeilnehmerName IsNot Nothing Then EA.KopfDaten.Ausfuehrer.Name = cDY.aes_AusfuehrerTeilnehmerName + ' If cDY.aes_AusfuehrerTeilnehmerStrasse IsNot Nothing Then EA.KopfDaten.Ausfuehrer.Strasse = cDY.aes_AusfuehrerTeilnehmerStrasse + ' If cDY.aes_AusfuehrerTeilnehmerOrt IsNot Nothing Then EA.KopfDaten.Ausfuehrer.Ort = cDY.aes_AusfuehrerTeilnehmerOrt + ' If cDY.aes_AusfuehrerTeilnehmerPLZ IsNot Nothing Then EA.KopfDaten.Ausfuehrer.PLZ = cDY.aes_AusfuehrerTeilnehmerPLZ + ' If cDY.aes_AusfuehrerTeilnehmerLandCode IsNot Nothing Then EA.KopfDaten.Ausfuehrer.LandCode = cDY.aes_AusfuehrerTeilnehmerLandCode + ' If cDY.aes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiter IsNot Nothing Then EA.KopfDaten.Ausfuehrer.Ansprechpartner.Sachbearbeiter = cDY.aes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiter + ' If cDY.aes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummer IsNot Nothing Then EA.KopfDaten.Ausfuehrer.Ansprechpartner.Telefonnummer = cDY.aes_AusfuehrerTeilnehmerAnsprechpartnerTelefonnummer + ' If cDY.aes_AusfuehrerTeilnehmerAnsprechpartnerTelefax IsNot Nothing Then EA.KopfDaten.Ausfuehrer.Ansprechpartner.Telefaxnummer = cDY.aes_AusfuehrerTeilnehmerAnsprechpartnerTelefax + ' If cDY.aes_AusfuehrerTeilnehmerAnsprechpartnerEmail IsNot Nothing Then EA.KopfDaten.Ausfuehrer.Ansprechpartner.EmailAdresse = cDY.aes_AusfuehrerTeilnehmerAnsprechpartnerEmail + ' If cDY.aes_AusfuehrerTeilnehmerAnsprechpartnerStellung IsNot Nothing Then EA.KopfDaten.Ausfuehrer.Ansprechpartner.Stellung = cDY.aes_AusfuehrerTeilnehmerAnsprechpartnerStellung + ' End If + + ' 'Empfaenger + ' If (cDY.aes_EmpfaengerTeilnehmerEORI IsNot Nothing Or cDY.aes_EmpfaengerTeilnehmerName <> "") Then + ' If cDY.aes_EmpfaengerTeilnehmerEORI IsNot Nothing Then EA.KopfDaten.Empfaenger.TeilnehmerEORI = cDY.aes_EmpfaengerTeilnehmerEORI + ' If cDY.aes_EmpfaengerTeilnehmerNLNR IsNot Nothing AndAlso IsNumeric(cDY.aes_EmpfaengerTeilnehmerNLNR) Then EA.KopfDaten.Empfaenger.TeilnehmerNLNR = cDY.aes_EmpfaengerTeilnehmerNLNR + ' If cDY.aes_EmpfaengerTeilnehmerName IsNot Nothing Then EA.KopfDaten.Empfaenger.Name = cDY.aes_EmpfaengerTeilnehmerName + ' If cDY.aes_EmpfaengerTeilnehmerStrasse IsNot Nothing Then EA.KopfDaten.Empfaenger.Strasse = cDY.aes_EmpfaengerTeilnehmerStrasse + ' If cDY.aes_EmpfaengerTeilnehmerOrt IsNot Nothing Then EA.KopfDaten.Empfaenger.Ort = cDY.aes_EmpfaengerTeilnehmerOrt + ' If cDY.aes_EmpfaengerTeilnehmerPLZ IsNot Nothing Then EA.KopfDaten.Empfaenger.PLZ = cDY.aes_EmpfaengerTeilnehmerPLZ + ' If cDY.aes_EmpfaengerTeilnehmerLandCode IsNot Nothing Then EA.KopfDaten.Empfaenger.LandCode = cDY.aes_EmpfaengerTeilnehmerLandCode + ' End If + + ' 'Anmelder + ' If (cDY.aes_AnmelderTeilnehmerEORI IsNot Nothing Or cDY.aes_AnmelderTeilnehmerName <> "") Then + ' If cDY.aes_AnmelderTeilnehmerEORI IsNot Nothing Then EA.KopfDaten.Anmelder.TeilnehmerEORI = cDY.aes_AnmelderTeilnehmerEORI + ' If cDY.aes_AnmelderTeilnehmerNLNR IsNot Nothing AndAlso IsNumeric(cDY.aes_AnmelderTeilnehmerNLNR) Then EA.KopfDaten.Anmelder.TeilnehmerNLNR = cDY.aes_AnmelderTeilnehmerNLNR + ' If cDY.aes_AnmelderTeilnehmerName IsNot Nothing Then EA.KopfDaten.Anmelder.Name = cDY.aes_AnmelderTeilnehmerName + ' If cDY.aes_AnmelderTeilnehmerStrasse IsNot Nothing Then EA.KopfDaten.Anmelder.Strasse = cDY.aes_AnmelderTeilnehmerStrasse + ' If cDY.aes_AnmelderTeilnehmerOrt IsNot Nothing Then EA.KopfDaten.Anmelder.Ort = cDY.aes_AnmelderTeilnehmerOrt + ' If cDY.aes_AnmelderTeilnehmerPLZ IsNot Nothing Then EA.KopfDaten.Anmelder.PLZ = cDY.aes_AnmelderTeilnehmerPLZ + ' If cDY.aes_AnmelderTeilnehmerLandCode IsNot Nothing Then EA.KopfDaten.Anmelder.LandCode = cDY.aes_AnmelderTeilnehmerLandCode + ' If cDY.aes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiter IsNot Nothing Then EA.KopfDaten.Anmelder.Ansprechpartner.Sachbearbeiter = cDY.aes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiter + ' If cDY.aes_AnmelderTeilnehmerAnsprechpartnerTelefonnummer IsNot Nothing Then EA.KopfDaten.Anmelder.Ansprechpartner.Telefonnummer = cDY.aes_AnmelderTeilnehmerAnsprechpartnerTelefonnummer + ' If cDY.aes_AnmelderTeilnehmerAnsprechpartnerTelefax IsNot Nothing Then EA.KopfDaten.Anmelder.Ansprechpartner.Telefaxnummer = cDY.aes_AnmelderTeilnehmerAnsprechpartnerTelefax + ' If cDY.aes_AnmelderTeilnehmerAnsprechpartnerEmail IsNot Nothing Then EA.KopfDaten.Anmelder.Ansprechpartner.EmailAdresse = cDY.aes_AnmelderTeilnehmerAnsprechpartnerEmail + ' If cDY.aes_AnmelderTeilnehmerAnsprechpartnerStellung IsNot Nothing Then EA.KopfDaten.Anmelder.Ansprechpartner.Stellung = cDY.aes_AnmelderTeilnehmerAnsprechpartnerStellung + ' End If + + ' 'VertreterAnmelder + ' If (cDY.aes_VertreterAnmelderTeilnehmerEORI IsNot Nothing Or cDY.aes_VertreterAnmelderTeilnehmerName <> "") Then + ' If cDY.aes_VertreterAnmelderTeilnehmerEORI IsNot Nothing Then EA.KopfDaten.VertreterAnmelder.TeilnehmerEORI = cDY.aes_VertreterAnmelderTeilnehmerEORI + ' If cDY.aes_VertreterAnmelderTeilnehmerNLNR IsNot Nothing AndAlso IsNumeric(cDY.aes_VertreterAnmelderTeilnehmerNLNR) Then EA.KopfDaten.VertreterAnmelder.TeilnehmerNLNR = cDY.aes_VertreterAnmelderTeilnehmerNLNR + ' If cDY.aes_VertreterAnmelderTeilnehmerName IsNot Nothing Then EA.KopfDaten.VertreterAnmelder.Name = cDY.aes_VertreterAnmelderTeilnehmerName + ' If cDY.aes_VertreterAnmelderTeilnehmerStrasse IsNot Nothing Then EA.KopfDaten.VertreterAnmelder.Strasse = cDY.aes_VertreterAnmelderTeilnehmerStrasse + ' If cDY.aes_VertreterAnmelderTeilnehmerOrt IsNot Nothing Then EA.KopfDaten.VertreterAnmelder.Ort = cDY.aes_VertreterAnmelderTeilnehmerOrt + ' If cDY.aes_VertreterAnmelderTeilnehmerPLZ IsNot Nothing Then EA.KopfDaten.VertreterAnmelder.PLZ = cDY.aes_VertreterAnmelderTeilnehmerPLZ + ' If cDY.aes_VertreterAnmelderTeilnehmerLandCode IsNot Nothing Then EA.KopfDaten.VertreterAnmelder.LandCode = cDY.aes_VertreterAnmelderTeilnehmerLandCode + ' If cDY.aes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearbeiter IsNot Nothing Then EA.KopfDaten.VertreterAnmelder.Ansprechpartner.Sachbearbeiter = cDY.aes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearbeiter + ' If cDY.aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummer IsNot Nothing Then EA.KopfDaten.VertreterAnmelder.Ansprechpartner.Telefonnummer = cDY.aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefonnummer + ' If cDY.aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefax IsNot Nothing Then EA.KopfDaten.VertreterAnmelder.Ansprechpartner.Telefaxnummer = cDY.aes_VertreterAnmelderTeilnehmerAnsprechpartnerTelefax + ' If cDY.aes_VertreterAnmelderTeilnehmerAnsprechpartnerEmail IsNot Nothing Then EA.KopfDaten.VertreterAnmelder.Ansprechpartner.EmailAdresse = cDY.aes_VertreterAnmelderTeilnehmerAnsprechpartnerEmail + ' If cDY.aes_VertreterAnmelderTeilnehmerAnsprechpartnerStellung IsNot Nothing Then EA.KopfDaten.VertreterAnmelder.Ansprechpartner.Stellung = cDY.aes_VertreterAnmelderTeilnehmerAnsprechpartnerStellung + ' End If + + ' 'Subunternehmer + ' If (cDY.aes_SubunternehmerTeilnehmerEORI IsNot Nothing Or cDY.aes_SubunternehmerTeilnehmerName <> "") Then + ' If cDY.aes_SubunternehmerTeilnehmerEORI IsNot Nothing Then EA.KopfDaten.SubUnternehmer.TeilnehmerEORI = cDY.aes_SubunternehmerTeilnehmerEORI + ' If cDY.aes_SubunternehmerTeilnehmerNLNR IsNot Nothing AndAlso IsNumeric(cDY.aes_SubunternehmerTeilnehmerNLNR) Then EA.KopfDaten.SubUnternehmer.TeilnehmerNLNR = cDY.aes_SubunternehmerTeilnehmerNLNR + ' If cDY.aes_SubunternehmerTeilnehmerName IsNot Nothing Then EA.KopfDaten.SubUnternehmer.Name = cDY.aes_SubunternehmerTeilnehmerName + ' If cDY.aes_SubunternehmerTeilnehmerStrasse IsNot Nothing Then EA.KopfDaten.SubUnternehmer.Strasse = cDY.aes_SubunternehmerTeilnehmerStrasse + ' If cDY.aes_SubunternehmerTeilnehmerOrt IsNot Nothing Then EA.KopfDaten.SubUnternehmer.Ort = cDY.aes_SubunternehmerTeilnehmerOrt + ' If cDY.aes_SubunternehmerTeilnehmerPLZ IsNot Nothing Then EA.KopfDaten.SubUnternehmer.PLZ = cDY.aes_SubunternehmerTeilnehmerPLZ + ' If cDY.aes_SubunternehmerTeilnehmerLandCode IsNot Nothing Then EA.KopfDaten.SubUnternehmer.LandCode = cDY.aes_SubunternehmerTeilnehmerLandCode + ' If cDY.aes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiter IsNot Nothing Then EA.KopfDaten.SubUnternehmer.Ansprechpartner.Sachbearbeiter = cDY.aes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiter + ' If cDY.aes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummer IsNot Nothing Then EA.KopfDaten.SubUnternehmer.Ansprechpartner.Telefonnummer = cDY.aes_SubunternehmerTeilnehmerAnsprechpartnerTelefonnummer + ' If cDY.aes_SubunternehmerTeilnehmerAnsprechpartnerTelefax IsNot Nothing Then EA.KopfDaten.SubUnternehmer.Ansprechpartner.Telefaxnummer = cDY.aes_SubunternehmerTeilnehmerAnsprechpartnerTelefax + ' If cDY.aes_SubunternehmerTeilnehmerAnsprechpartnerEmail IsNot Nothing Then EA.KopfDaten.SubUnternehmer.Ansprechpartner.EmailAdresse = cDY.aes_SubunternehmerTeilnehmerAnsprechpartnerEmail + ' If cDY.aes_SubunternehmerTeilnehmerAnsprechpartnerStellung IsNot Nothing Then EA.KopfDaten.SubUnternehmer.Ansprechpartner.Stellung = cDY.aes_SubunternehmerTeilnehmerAnsprechpartnerStellung + ' End If + + ' 'VerfahrensinhaberPV + ' If (cDY.aes_VerfahrensinhaberPVTeilnehmerEORI) Then + ' If cDY.aes_VerfahrensinhaberPVTeilnehmerEORI IsNot Nothing Then EA.KopfDaten.VerfahrensinhaberPV.TeilnehmerEORI = cDY.aes_VerfahrensinhaberPVTeilnehmerEORI + ' If cDY.aes_VerfahrensinhaberPVTeilnehmerNLNR IsNot Nothing AndAlso IsNumeric(cDY.aes_VerfahrensinhaberPVTeilnehmerNLNR) Then EA.KopfDaten.VerfahrensinhaberPV.TeilnehmerNLNR = cDY.aes_VerfahrensinhaberPVTeilnehmerNLNR + ' If cDY.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiter IsNot Nothing Then EA.KopfDaten.VerfahrensinhaberPV.Ansprechpartner.Sachbearbeiter = cDY.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiter + ' If cDY.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer IsNot Nothing Then EA.KopfDaten.VerfahrensinhaberPV.Ansprechpartner.Telefonnummer = cDY.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefonnummer + ' If cDY.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefax IsNot Nothing Then EA.KopfDaten.VerfahrensinhaberPV.Ansprechpartner.Telefaxnummer = cDY.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerTelefax + ' If cDY.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmail IsNot Nothing Then EA.KopfDaten.VerfahrensinhaberPV.Ansprechpartner.EmailAdresse = cDY.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerEmail + ' If cDY.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellung IsNot Nothing Then EA.KopfDaten.VerfahrensinhaberPV.Ansprechpartner.Stellung = cDY.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerStellung + ' End If + + ' 'BefoerderungsrouteLand + ' EA.KopfDaten.BefoerderungsrouteLand = New List(Of String) + ' If cDY.aes_BefoerderungsrouteLand1 IsNot Nothing Then EA.KopfDaten.BefoerderungsrouteLand.Add(cDY.aes_BefoerderungsrouteLand1) + ' If cDY.aes_BefoerderungsrouteLand2 IsNot Nothing Then EA.KopfDaten.BefoerderungsrouteLand.Add(cDY.aes_BefoerderungsrouteLand2) + ' If cDY.aes_BefoerderungsrouteLand3 IsNot Nothing Then EA.KopfDaten.BefoerderungsrouteLand.Add(cDY.aes_BefoerderungsrouteLand3) + ' If cDY.aes_BefoerderungsrouteLand4 IsNot Nothing Then EA.KopfDaten.BefoerderungsrouteLand.Add(cDY.aes_BefoerderungsrouteLand4) + ' If cDY.aes_BefoerderungsrouteLand5 IsNot Nothing Then EA.KopfDaten.BefoerderungsrouteLand.Add(cDY.aes_BefoerderungsrouteLand5) + ' If cDY.aes_BefoerderungsrouteLand6 IsNot Nothing Then EA.KopfDaten.BefoerderungsrouteLand.Add(cDY.aes_BefoerderungsrouteLand6) + ' If cDY.aes_BefoerderungsrouteLand7 IsNot Nothing Then EA.KopfDaten.BefoerderungsrouteLand.Add(cDY.aes_BefoerderungsrouteLand7) + ' If cDY.aes_BefoerderungsrouteLand8 IsNot Nothing Then EA.KopfDaten.BefoerderungsrouteLand.Add(cDY.aes_BefoerderungsrouteLand8) + ' If cDY.aes_BefoerderungsrouteLand9 IsNot Nothing Then EA.KopfDaten.BefoerderungsrouteLand.Add(cDY.aes_BefoerderungsrouteLand9) + ' If cDY.aes_BefoerderungsrouteLand10 IsNot Nothing Then EA.KopfDaten.BefoerderungsrouteLand.Add(cDY.aes_BefoerderungsrouteLand10) + ' If cDY.aes_BefoerderungsrouteLand11 IsNot Nothing Then EA.KopfDaten.BefoerderungsrouteLand.Add(cDY.aes_BefoerderungsrouteLand11) + ' If cDY.aes_BefoerderungsrouteLand12 IsNot Nothing Then EA.KopfDaten.BefoerderungsrouteLand.Add(cDY.aes_BefoerderungsrouteLand12) + + ' 'Warenpositionen + ' EA.WarenPosition = New List(Of VollstaendigeAusfuhrAnmeldung.PositionVollstaendigeAusfuhranmeldungTyp) + ' If cDY.aes_WARENPOS IsNot Nothing AndAlso cDY.aes_WARENPOS.Count > 0 Then + ' For Each WP In cDY.aes_WARENPOS + ' Dim WP_DY As New VollstaendigeAusfuhrAnmeldung.PositionVollstaendigeAusfuhranmeldungTyp + ' If WP.aesWP_PositionsNummer IsNot Nothing Then WP_DY.Positionsnummer = WP.aesWP_PositionsNummer + ' If WP.aesWP_WarennummerKN8 IsNot Nothing Then WP_DY.WarenNummerKN8 = WP.aesWP_WarennummerKN8 + ' If WP.aesWP_WarennummerTARIC IsNot Nothing Then WP_DY.WarenNummerTARIC = WP.aesWP_WarennummerTARIC + ' If WP.aesWP_WarennummerZusatz1 IsNot Nothing Then WP_DY.WarenNummerZusatz1 = WP.aesWP_WarennummerZusatz1 + ' If WP.aesWP_WarennummerZusatz2 IsNot Nothing Then WP_DY.WarenNummerZusatz2 = WP.aesWP_WarennummerZusatz2 + ' If WP.aesWP_WarennummerNational IsNot Nothing Then WP_DY.WarenNummerNational = WP.aesWP_WarennummerNational + ' If WP.aesWP_RegisternummerFremdsystem IsNot Nothing Then WP_DY.RegistrierNummerFremdSystem = WP.aesWP_RegisternummerFremdsystem + ' If WP.aesWP_Vermerk IsNot Nothing Then WP_DY.Vermerk = WP.aesWP_Vermerk + ' If WP.aesWP_KennungSendung IsNot Nothing Then WP_DY.KennnummerSendung = WP.aesWP_KennungSendung + ' If WP.aesWP_UrsprungsbundeslandCode IsNot Nothing Then WP_DY.UrsprungsbundeslandCode = WP.aesWP_UrsprungsbundeslandCode + ' If WP.aesWP_Eigenmasse IsNot Nothing Then WP_DY.Eigenmasse = WP.aesWP_Eigenmasse + ' If WP.aesWP_Rohmasse IsNot Nothing Then WP_DY.Rohmasse = WP.aesWP_Rohmasse + + ' If WP.aesWP_Gefahrgutnummer IsNot Nothing Then WP_DY.Gefahrgutnummer = WP.aesWP_Gefahrgutnummer + ' If WP.aesWP_ZahlungsweiseBefoerderungskosten IsNot Nothing Then WP_DY.ZahlungsweiseBefoerderungskosten = WP.aesWP_ZahlungsweiseBefoerderungskosten + ' If WP.aesWP_VerfahrenAngemeldetCode IsNot Nothing Then WP_DY.Verfahren.VerfahrenAngemeldetCode = WP.aesWP_VerfahrenAngemeldetCode + ' If WP.aesWP_VerfahrenVorangegangenCode IsNot Nothing Then WP_DY.Verfahren.VerfahrenVorangegangenCode = WP.aesWP_VerfahrenVorangegangenCode + ' If WP.aesWP_VerfahrenNationalCode IsNot Nothing Then WP_DY.Verfahren.VerfahrenNationalCode = WP.aesWP_VerfahrenNationalCode + ' If WP.aesWP_AusfuhrerstattungVerfahrensCode IsNot Nothing Then WP_DY.AusfuhrerstattungVerfahrenscode = WP.aesWP_AusfuhrerstattungVerfahrensCode + ' If WP.aesWP_Menge IsNot Nothing Then WP_DY.Menge = WP.aesWP_Menge + ' If WP.aesWP_Wert IsNot Nothing Then WP_DY.Wert = WP.aesWP_Wert + + ' WP_DY.Vorpapier = New List(Of VollstaendigeAusfuhrAnmeldung.VorpapierEVTyp) + ' If WP.aesWP_VorpapierTypCode1 IsNot Nothing Then + ' Dim VP As New VollstaendigeAusfuhrAnmeldung.VorpapierEVTyp + ' If WP.aesWP_VorpapierTypCode1 IsNot Nothing Then VP.TypCode = WP.aesWP_VorpapierTypCode1 + ' If WP.aesWP_ReferenzID1 IsNot Nothing Then VP.ReferenzID = WP.aesWP_ReferenzID1 + ' If WP.aesWP_Zusatz1 IsNot Nothing Then VP.Zusatz = WP.aesWP_Zusatz1 + ' WP_DY.Vorpapier.Add(VP) + ' End If + ' If WP.aesWP_VorpapierTypCode2 IsNot Nothing Then + ' Dim VP As New VollstaendigeAusfuhrAnmeldung.VorpapierEVTyp + ' If WP.aesWP_VorpapierTypCode2 IsNot Nothing Then VP.TypCode = WP.aesWP_VorpapierTypCode2 + ' If WP.aesWP_ReferenzID2 IsNot Nothing Then VP.ReferenzID = WP.aesWP_ReferenzID2 + ' If WP.aesWP_Zusatz2 IsNot Nothing Then VP.Zusatz = WP.aesWP_Zusatz2 + ' WP_DY.Vorpapier.Add(VP) + ' End If + ' If WP.aesWP_VorpapierTypCode3 IsNot Nothing Then + ' Dim VP As New VollstaendigeAusfuhrAnmeldung.VorpapierEVTyp + ' If WP.aesWP_VorpapierTypCode3 IsNot Nothing Then VP.TypCode = WP.aesWP_VorpapierTypCode3 + ' If WP.aesWP_ReferenzID3 IsNot Nothing Then VP.ReferenzID = WP.aesWP_ReferenzID3 + ' If WP.aesWP_Zusatz3 IsNot Nothing Then VP.Zusatz = WP.aesWP_Zusatz3 + ' WP_DY.Vorpapier.Add(VP) + ' End If + ' If WP.aesWP_VorpapierTypCode4 IsNot Nothing Then + ' Dim VP As New VollstaendigeAusfuhrAnmeldung.VorpapierEVTyp + ' If WP.aesWP_VorpapierTypCode4 IsNot Nothing Then VP.TypCode = WP.aesWP_VorpapierTypCode4 + ' If WP.aesWP_ReferenzID4 IsNot Nothing Then VP.ReferenzID = WP.aesWP_ReferenzID4 + ' If WP.aesWP_Zusatz4 IsNot Nothing Then VP.Zusatz = WP.aesWP_Zusatz4 + ' WP_DY.Vorpapier.Add(VP) + ' End If + ' If WP.aesWP_VorpapierTypCode5 IsNot Nothing Then + ' Dim VP As New VollstaendigeAusfuhrAnmeldung.VorpapierEVTyp + ' If WP.aesWP_VorpapierTypCode5 IsNot Nothing Then VP.TypCode = WP.aesWP_VorpapierTypCode5 + ' If WP.aesWP_ReferenzID5 IsNot Nothing Then VP.ReferenzID = WP.aesWP_ReferenzID5 + ' If WP.aesWP_Zusatz5 IsNot Nothing Then VP.Zusatz = WP.aesWP_Zusatz5 + ' WP_DY.Vorpapier.Add(VP) + ' End If + ' If WP.aesWP_VorpapierTypCode6 IsNot Nothing Then + ' Dim VP As New VollstaendigeAusfuhrAnmeldung.VorpapierEVTyp + ' If WP.aesWP_VorpapierTypCode6 IsNot Nothing Then VP.TypCode = WP.aesWP_VorpapierTypCode6 + ' If WP.aesWP_ReferenzID6 IsNot Nothing Then VP.ReferenzID = WP.aesWP_ReferenzID6 + ' If WP.aesWP_Zusatz6 IsNot Nothing Then VP.Zusatz = WP.aesWP_Zusatz6 + ' WP_DY.Vorpapier.Add(VP) + ' End If + ' If WP.aesWP_VorpapierTypCode7 IsNot Nothing Then + ' Dim VP As New VollstaendigeAusfuhrAnmeldung.VorpapierEVTyp + ' If WP.aesWP_VorpapierTypCode7 IsNot Nothing Then VP.TypCode = WP.aesWP_VorpapierTypCode7 + ' If WP.aesWP_ReferenzID7 IsNot Nothing Then VP.ReferenzID = WP.aesWP_ReferenzID7 + ' If WP.aesWP_Zusatz7 IsNot Nothing Then VP.Zusatz = WP.aesWP_Zusatz7 + ' WP_DY.Vorpapier.Add(VP) + ' End If + ' If WP.aesWP_VorpapierTypCode8 IsNot Nothing Then + ' Dim VP As New VollstaendigeAusfuhrAnmeldung.VorpapierEVTyp + ' If WP.aesWP_VorpapierTypCode8 IsNot Nothing Then VP.TypCode = WP.aesWP_VorpapierTypCode8 + ' If WP.aesWP_ReferenzID8 IsNot Nothing Then VP.ReferenzID = WP.aesWP_ReferenzID8 + ' If WP.aesWP_Zusatz8 IsNot Nothing Then VP.Zusatz = WP.aesWP_Zusatz8 + ' WP_DY.Vorpapier.Add(VP) + ' End If + ' If WP.aesWP_VorpapierTypCode9 IsNot Nothing Then + ' Dim VP As New VollstaendigeAusfuhrAnmeldung.VorpapierEVTyp + ' If WP.aesWP_VorpapierTypCode9 IsNot Nothing Then VP.TypCode = WP.aesWP_VorpapierTypCode9 + ' If WP.aesWP_ReferenzID9 IsNot Nothing Then VP.ReferenzID = WP.aesWP_ReferenzID9 + ' If WP.aesWP_Zusatz9 IsNot Nothing Then VP.Zusatz = WP.aesWP_Zusatz9 + ' WP_DY.Vorpapier.Add(VP) + ' End If + + ' 'Packstueck + ' WP_DY.Packstueck = New List(Of VollstaendigeAusfuhrAnmeldung.PackstueckEVTyp) + ' If WP.aesWP_PACKSTUECKE IsNot Nothing AndAlso WP.aesWP_PACKSTUECKE.Count > 0 Then + ' For Each PK In WP.aesWP_PACKSTUECKE + ' Dim PK_DY As New VollstaendigeAusfuhrAnmeldung.PackstueckEVTyp + ' If PK.aesWpPk_PackstueckeAnzahl IsNot Nothing Then PK_DY.Anzahl = PK.aesWpPk_PackstueckeAnzahl.ToString.Replace(".", "") + ' If PK.aesWpPk_Verpackungsart IsNot Nothing Then PK_DY.VerpackungsartCode = PK.aesWpPk_Verpackungsart + ' If PK.aesWpPk_Kennzeichnung IsNot Nothing Then PK_DY.Kennzeichnung = PK.aesWpPk_Kennzeichnung + ' WP_DY.Packstueck.Add(PK_DY) + ' Next + ' End If + + ' 'Container + ' WP_DY.ContainerNummer = New List(Of String) + ' If WP.aesWP_Containernummer1 IsNot Nothing Then WP_DY.ContainerNummer.Add(WP.aesWP_Containernummer1) + ' If WP.aesWP_Containernummer2 IsNot Nothing Then WP_DY.ContainerNummer.Add(WP.aesWP_Containernummer2) + ' If WP.aesWP_Containernummer3 IsNot Nothing Then WP_DY.ContainerNummer.Add(WP.aesWP_Containernummer3) + ' If WP.aesWP_Containernummer4 IsNot Nothing Then WP_DY.ContainerNummer.Add(WP.aesWP_Containernummer4) + + ' 'Unterlage + ' WP_DY.Unterlage = New List(Of VollstaendigeAusfuhrAnmeldung.UnterlageEVTyp) + ' If WP.aesWP_UNTERLAGEN IsNot Nothing AndAlso WP.aesWP_UNTERLAGEN.Count > 0 Then + ' For Each UL In WP.aesWP_UNTERLAGEN + ' Dim UL_DY As New VollstaendigeAusfuhrAnmeldung.UnterlageEVTyp + ' If UL.aesWpUl_Typ IsNot Nothing Then UL_DY.TypCode = UL.aesWpUl_Typ + ' If UL.aesWpUl_QualifierCode IsNot Nothing Then UL_DY.QualifierCode = UL.aesWpUl_QualifierCode + ' If UL.aesWpUl_ReferenzID IsNot Nothing Then UL_DY.ReferenzID = UL.aesWpUl_ReferenzID + ' If UL.aesWpUl_Zusatz IsNot Nothing Then UL_DY.Zusatz = UL.aesWpUl_Zusatz + ' If UL.aesWpUl_Detail IsNot Nothing Then UL_DY.Detail = UL.aesWpUl_Detail + ' If UL.aesWpUl_DatumAusstellung IsNot Nothing Then UL_DY.DatumAusstellung = UL.aesWpUl_DatumAusstellung + ' If UL.aesWpUl_DatumEndeGueltigkeit IsNot Nothing Then UL_DY.DatumEndeGueltigkeit = UL.aesWpUl_DatumEndeGueltigkeit + ' If UL.aesWpUl_Wert IsNot Nothing Then UL_DY.Wert = UL.aesWpUl_Wert + ' If UL.aesWpUl_Abschreibungsmenge IsNot Nothing Then UL_DY.Abschreibungsmenge = UL.aesWpUl_Abschreibungsmenge + ' If UL.aesWpUl_Masseinheit IsNot Nothing Then UL_DY.Masseinheit = UL.aesWpUl_Masseinheit + ' WP_DY.Unterlage.Add(UL_DY) + ' Next + ' End If + + ' If WP.aesWP_AusfuhrerstattungVerfahrensCode IsNot Nothing Then WP_DY.AusfuhrerstattungVerfahrenscode = WP.aesWP_AusfuhrerstattungVerfahrensCode + + ' 'Empfaenger + ' If (WP.aesWP_EmpfaengerTeilnehmerEORI IsNot Nothing Or WP.aesWP_EmpfaengerTeilnehmerName <> "") Then + ' If WP.aesWP_EmpfaengerTeilnehmerEORI IsNot Nothing Then WP_DY.Empfaenger.TeilnehmerEORI = WP.aesWP_EmpfaengerTeilnehmerEORI + ' If WP.aesWP_EmpfaengerTeilnehmerNLNR IsNot Nothing AndAlso IsNumeric(WP.aesWP_EmpfaengerTeilnehmerNLNR) Then WP_DY.Empfaenger.TeilnehmerNLNR = WP.aesWP_EmpfaengerTeilnehmerNLNR + ' If WP.aesWP_EmpfaengerTeilnehmerName IsNot Nothing Then WP_DY.Empfaenger.Name = WP.aesWP_EmpfaengerTeilnehmerName + ' If WP.aesWP_EmpfaengerTeilnehmerStrasse IsNot Nothing Then WP_DY.Empfaenger.Strasse = WP.aesWP_EmpfaengerTeilnehmerStrasse + ' If WP.aesWP_EmpfaengerTeilnehmerOrt IsNot Nothing Then WP_DY.Empfaenger.Ort = WP.aesWP_EmpfaengerTeilnehmerOrt + ' If WP.aesWP_EmpfaengerTeilnehmerPLZ IsNot Nothing Then WP_DY.Empfaenger.PLZ = WP.aesWP_EmpfaengerTeilnehmerPLZ + ' If WP.aesWP_EmpfaengerTeilnehmerLandCode IsNot Nothing Then WP_DY.Empfaenger.LandCode = WP.aesWP_EmpfaengerTeilnehmerLandCode + ' End If + + + ' EA.WarenPosition.Add(WP_DY) + ' Next + ' End If + + + ' 'Lieferbedingungen + ' If cDY.aes_LieferbedingungenCode IsNot Nothing Then + ' EA.KopfDaten.Lieferbedingung = New VollstaendigeAusfuhrAnmeldung.LieferbedingungEVTyp + ' If cDY.aes_LieferbedingungenCode IsNot Nothing Then EA.KopfDaten.Lieferbedingung.IncotermCode = cDY.aes_LieferbedingungenCode + ' If cDY.aes_LieferbedingungenText IsNot Nothing Then EA.KopfDaten.Lieferbedingung.IncotermText = cDY.aes_LieferbedingungenText + ' If cDY.aes_LieferbedingungenOrt IsNot Nothing Then EA.KopfDaten.Lieferbedingung.IncotermOrt = cDY.aes_LieferbedingungenOrt + ' End If + + + ' XML.EinzelAnmeldung.Add(EA) + + ' Dim saveDir = Application.StartupPath & "\Dakosy_SEND\" + ' If Not System.IO.Directory.Exists(saveDir) Then + ' System.IO.Directory.CreateDirectory(saveDir) + ' End If + + ' saveFile = saveDir & "DY_" & Now.ToString("yyMMdd_HHmmss") & ".xml" + + ' 'MsgBox(saveFile) + ' XML.SaveToFile(saveFile) + + ' replaceNullDateXML(saveFile) + ' Return True + 'End Function + + + 'Shared Function exportVERAGKunde(kdNr() As String) As Boolean + + ' Dim XML As New VERAG_Kundenstamm_IMPORT.VERAG_Kundenstamm_IMPORT + + ' For Each s In kdNr + ' Dim KUNDE As New VERAG_PROG_ALLGEMEIN.cKunde(s) + ' Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(s) + ' If KUNDE IsNot Nothing And ADRESSE IsNot Nothing Then + ' Dim XML_KD As New VERAG_Kundenstamm_IMPORT.VERAG_Kundenstamm_IMPORTKundenDaten + ' If ADRESSE.Ordnungsbegriff IsNot Nothing Then XML_KD.Kurzname = ADRESSE.Ordnungsbegriff + ' If ADRESSE.Name_1 IsNot Nothing Then XML_KD.Name1 = ADRESSE.Name_1 + ' If ADRESSE.Name_2 IsNot Nothing Then XML_KD.Name2 = ADRESSE.Name_2 + ' If KUNDE.EORITIN IsNot Nothing Then XML_KD.EORI = KUNDE.EORITIN : XML_KD.EORI_Niederlassung = "0000" + + ' If ADRESSE.UstIdKz IsNot Nothing And ADRESSE.UstIdKz IsNot Nothing Then XML_KD.UID_Nr = ADRESSE.UstIdKz & ADRESSE.UstIdNr + ' XML_KD.Kontakt = New VERAG_Kundenstamm_IMPORT.VERAG_Kundenstamm_IMPORTKundenDatenKontakt + ' If ADRESSE.Telefon IsNot Nothing Then XML_KD.Kontakt.Tel = ADRESSE.Telefon + ' If ADRESSE.Telefax IsNot Nothing Then XML_KD.Kontakt.Fax = ADRESSE.Telefax + ' If ADRESSE.E_Mail IsNot Nothing Then XML_KD.Kontakt.EMail = ADRESSE.E_Mail + ' If ADRESSE.Ansprechpartner IsNot Nothing Then XML_KD.Kontakt.Ansprechpartner = ADRESSE.Ansprechpartner + + ' XML_KD.Adresse = New VERAG_Kundenstamm_IMPORT.VERAG_Kundenstamm_IMPORTKundenDatenAdresse + ' If ADRESSE.Straße IsNot Nothing Then XML_KD.Adresse.Strasse = ADRESSE.Straße + ' If ADRESSE.PLZ IsNot Nothing Then XML_KD.Adresse.Plz = ADRESSE.PLZ + ' If ADRESSE.Ort IsNot Nothing Then XML_KD.Adresse.Ort = ADRESSE.Ort + ' If ADRESSE.LandKz IsNot Nothing Then XML_KD.Adresse.LandKz = ADRESSE.LandKz + + ' XML.KundenDaten.Add(XML_KD) + ' End If + ' Next + + ' XML.SaveToFile("C:\Users\DEVELOPER1\Desktop\test\KD_TEST.xml") + + ' Return True + 'End Function +End Class + + +'Class DY_ObjektAktion +' Shared Property OBJ_CREATE As String = "CREATE" +' Shared Property OBJ_CHANGE As String = "CHANGE" +' Shared Property OBJ_CANCEL As String = "CANCEL" +' Shared Property OBJ_SEND As String = "SEND" +' End Class \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cBMD_Interface.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cBMD_Interface.vb index bbe5d4cf..65b01e61 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cBMD_Interface.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cBMD_Interface.vb @@ -237,9 +237,10 @@ 'DATEIPFAD für Stammdaten '------------------------------------------------------------------------------------------- - Dim pathKD = "" '"\\192.168.1.20\Daten\DVO - DATENORDNER MIT IMPORTDATEIEN\" - Dim pathArchivKD = "\\share01\Datenarchiv\UNISPED\BMD\STAMMDATEN\" & Geschaeftsjahr & "\" ' "\\192.168.1.20\Daten\DVO - DATENORDNER MIT IMPORTDATEIEN\Archiv\" - pathKD = pathArchivKD 'TEST + Dim pathArchivKD = "\\srv07.unisu.at\Unisped Daten\VERAG AR-Daten\" '"\\192.168.1.20\Daten\DVO - DATENORDNER MIT IMPORTDATEIEN\" + Dim pathKD = "\\share01\Datenarchiv\UNISPED\BMD\STAMMDATEN\" & Geschaeftsjahr & "\" ' "\\192.168.1.20\Daten\DVO - DATENORDNER MIT IMPORTDATEIEN\Archiv\" + 'pathKD = pathArchivKD 'TEST + If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then 'path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir 'pathArchivKD = "" @@ -249,42 +250,48 @@ '------------------------------------------------------------------------------------------- - Dim fileKD As System.IO.StreamWriter - Dim DateinameKD = "BMD_KD_" & Now.ToString("ddMMyyyy_HHmm") & ".csv" - fileKD = My.Computer.FileSystem.OpenTextFileWriter(pathKD & DateinameKD, True, System.Text.Encoding.GetEncoding("iso-8859-15")) - - - fileKD.WriteLine(genStammdatenBeginn()) If True Then 'boolKunden Then '----------------- STAMMDATEN ----------------- Dim dt_Stamm As DataTable = getStammdaten() If dt_Stamm IsNot Nothing AndAlso dt_Stamm.Rows.Count > 0 Then + + Dim fileKD As System.IO.StreamWriter + Dim DateinameKD = "BMD_KD_" & Now.ToString("ddMMyyyy_HHmm") & ".csv" + fileKD = My.Computer.FileSystem.OpenTextFileWriter(pathKD & DateinameKD, True, System.Text.Encoding.GetEncoding("iso-8859-15")) + + + fileKD.WriteLine(genStammdatenBeginn()) + + + initKDNr(dt_Stamm) For Each r In dt_Stamm.Rows fileKD.WriteLine(getPersonenKto(r)) Next bool_DatenVorhanden = True + + + fileKD.Close() + + 'In Archiv sichern + If pathArchivKD <> "" Then + If Not IO.Directory.Exists(pathArchivKD) Then IO.Directory.CreateDirectory(pathArchivKD) + If pathKD <> pathArchivKD Then IO.File.Copy(pathKD & DateinameKD, pathArchivKD & DateinameKD) + End If + + If bool_DatenVorhanden Then + If OpenFile Then Process.Start(pathKD & DateinameKD) + Else + IO.File.Delete(pathKD & DateinameKD) + End If + + updateFibu() ' UPDATE FiBuSchnittstelle --> 0 + End If - updateFibu() ' UPDATE FiBuSchnittstelle --> 0 - End If - fileKD.Close() - - 'In Archiv sichern - If pathArchivKD <> "" Then - If Not IO.Directory.Exists(pathArchivKD) Then IO.Directory.CreateDirectory(pathArchivKD) - If pathKD <> pathArchivKD Then IO.File.Copy(pathKD & DateinameKD, pathArchivKD & DateinameKD) - End If - - If bool_DatenVorhanden Then - If OpenFile Then Process.Start(pathKD & DateinameKD) - Else - IO.File.Delete(pathKD & DateinameKD) - End If - Catch ex As Exception MsgBox(ex.Message & ex.StackTrace) End Try @@ -314,9 +321,9 @@ 'DATEIPFAD für Buchungsdaten '------------------------------------------------------------------------------------------- - Dim path = "" '"\\192.168.1.20\Daten\DVO - DATENORDNER MIT IMPORTDATEIEN\" - Dim pathArchiv = "\\share01\Datenarchiv\UNISPED\BMD\BUCHUNGEN\" & Geschaeftsjahr & "\" ' "\\192.168.1.20\Daten\DVO - DATENORDNER MIT IMPORTDATEIEN\Archiv\" - path = pathArchiv 'TEST + Dim pathArchiv = "\\srv07.unisu.at\Unisped Daten\VERAG AR-Daten\" '"\\192.168.1.20\Daten\DVO - DATENORDNER MIT IMPORTDATEIEN\" + Dim path = "\\share01\Datenarchiv\UNISPED\BMD\BUCHUNGEN\" & Geschaeftsjahr & "\" ' "\\192.168.1.20\Daten\DVO - DATENORDNER MIT IMPORTDATEIEN\Archiv\" + ' path = pathArchiv 'TEST If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then 'path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir 'pathArchiv = "" @@ -334,9 +341,6 @@ End Select - Dim file As System.IO.StreamWriter - Dim Dateiname = "BMD_IMP_" & NameZusatz & Now.ToString("ddMMyyyy_HHmm") & ".csv" - file = My.Computer.FileSystem.OpenTextFileWriter(path & Dateiname, True, System.Text.Encoding.GetEncoding("iso-8859-15")) '----------------- Buchungssätze ----------------- If True Then 'boolBuchungen Then @@ -344,6 +348,10 @@ Dim dt_Buchungen As DataTable = getBuchungen(FIRMA.Firma_ID) If dt_Buchungen IsNot Nothing AndAlso dt_Buchungen.Rows.Count > 0 Then Try + Dim file As System.IO.StreamWriter + Dim Dateiname = "BMD_IMP_" & NameZusatz & Now.ToString("ddMMyyyy_HHmm") & ".csv" + file = My.Computer.FileSystem.OpenTextFileWriter(path & Dateiname, True, System.Text.Encoding.GetEncoding("iso-8859-15")) + ' initKDNr(dt_Buchungen) Dim SummeBuchungen As Double = 0 file.WriteLine(genBuchungenBeginn()) @@ -352,29 +360,33 @@ Next ' file.WriteLine(genBuchungenEnd(SummeBuchungen)) bool_DatenVorhanden = True + + 'Update Filename TrdIn + SQL.doSQL("update [tblTrdinInvoice] Set TrdinDateiname='" & Now.ToString("ddMMyyyyHHmm") & "' WHERE [Firma_ID] = " & FIRMA.Firma_ID & " AND TrdinDateiname is null ", "FMZOLL") + + file.Close() + + 'In Archiv sichern + If pathArchiv <> "" Then + If Not IO.Directory.Exists(pathArchiv) Then IO.Directory.CreateDirectory(pathArchiv) + If path <> pathArchiv Then IO.File.Copy(path & Dateiname, pathArchiv & Dateiname) + End If + + If bool_DatenVorhanden Then + If OpenFile Then Process.Start(path & Dateiname) + Else + IO.File.Delete(path & Dateiname) + End If + Catch ex As Exception MsgBox(ex.Message & ex.StackTrace) End Try - 'Update Filename TrdIn - SQL.doSQL("update [tblTrdinInvoice] Set TrdinDateiname='" & Now.ToString("ddMMyyyyHHmm") & "' WHERE [Firma_ID] = " & FIRMA.Firma_ID & " AND TrdinDateiname is null ", "FMZOLL") - 'SQL.doSQL("update [VERAG].[dbo].[tblTrdinInvoice] set TrdinDateiname='" & Dateiname & "' WHERE [Firma_ID] = 20 AND TrdinDateiname is null ", "FMZOLL") --> Auf 12 Zeichen beschränkt! + End If End If '---------------------------------- - file.Close() - 'In Archiv sichern - If pathArchiv <> "" Then - If Not IO.Directory.Exists(pathArchiv) Then IO.Directory.CreateDirectory(pathArchiv) - If path <> pathArchiv Then IO.File.Copy(path & Dateiname, pathArchiv & Dateiname) - End If - - If bool_DatenVorhanden Then - If OpenFile Then Process.Start(path & Dateiname) - Else - IO.File.Delete(path & Dateiname) - End If Catch ex As Exception MsgBox(ex.Message & ex.StackTrace) @@ -448,10 +460,8 @@ If CBool(row("Steuerpflichtig")) Then genBuchungsZeile &= (getDbl2(row("Steuersatz")) * 100) & ";" 'buchcode === 1 oder 2?? Else - genBuchungsZeile &= ";" 'buchcode === 1 oder 2?? + genBuchungsZeile &= "0;" 'buchcode === 1 oder 2?? End If - genBuchungsZeile &= getDbltr(getDbl(row("SteuerpflichtigerBetragLokal")) + getDbl(row("SteuerfreierBetragLokal")) + getDbl(row("SteuerpflichtigerBetragFremd")) + getDbl(row("SteuerfreierBetragFremd"))) & ";" 'betrag - Dim steuerbetragLokal As Double = 0 If CBool(row("Steuerpflichtig")) Then @@ -459,7 +469,9 @@ steuerbetragLokal += CDbl((getDbl2(row("SteuerpflichtigerBetragFremd")) * getDbl2(row("Steuersatz")))) End If If steuerbetragLokal < 0 Then steuerbetragLokal = steuerbetragLokal * -1 - genBuchungsZeile &= "" & If(steuerbetragLokal <> 0, getDbltr(steuerbetragLokal), "") & ";" 'steuer + + genBuchungsZeile &= getDbltr(getDbl(row("SteuerpflichtigerBetragLokal")) + getDbl(row("SteuerfreierBetragLokal")) + getDbl(row("SteuerpflichtigerBetragFremd")) + getDbl(row("SteuerfreierBetragFremd")) + If(steuerbetragLokal <> 0, getDbltr(steuerbetragLokal), "0")) & ";" 'betrag + steuer (brutto) + genBuchungsZeile &= "" & If(steuerbetragLokal <> 0, getDbltr(steuerbetragLokal), "0") & ";" 'steuer genBuchungsZeile &= FormatStringDVO(SQL.DLookup("[Ordnungsbegriff]", "Adressen", " AdressenNr= " & row("KundenNrZentrale"), "FMZOLL", "")) & ";" ' BuchungsText bei UNISPED ist der FIRMENNAME!! ' genBuchungsZeile &= FormatStringDVO(row("Buchungstext")) & ";" ' Text @@ -494,7 +506,12 @@ Case Else If Not CBool(r("Steuerpflichtig")) Then - Return "" + 'Vorher immer return "" - galube es soll bei eu aber 77 sein... + If SQL.DLookup("[MitgliedslandEU]", "[Währungstabelle]", "[LandKz]='" & r("RechnungsLandKz") & "'", "FMZOLL", False) Then + Return "77" ' EU-LAND + Else + Return "" ' Drittland + End If Else If (r("RechnungsLandKz")).ToString.Replace("AT", "A").Replace("DE", "D") = FIRMA.Firma_LandKz Then 'Abhängig von FIRMA --> INLAND!!!!!! Return "1" 'Steuerpflichtig und AT @@ -537,7 +554,7 @@ Try If o Is Nothing Then Return 0 If o Is DBNull.Value Then Return 0 - Return CDbl(o).ToString("N2").Replace(".", "").Replace(",", ".") + Return CDbl(o).ToString("N2").Replace(".", "") '.Replace(",", ".") Catch ex As Exception Return 0 End Try diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cTherefore.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cTherefore.vb index 3f7c6b6b..97436442 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cTherefore.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cTherefore.vb @@ -9,7 +9,7 @@ Public Class cTherefore Select Case FirmaId Case 7 Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Atilla ab Juni 2011",, deleteFileAfterImport) - Case 1, 11 ', 15,20 + Case 1, 11, 20 ', 15,20 ' 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 2020", "Import ab Jänner 2020", deleteFileAfterImport) Case Else diff --git a/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj b/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj index aec58ad6..a3201551 100644 --- a/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj +++ b/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj @@ -316,6 +316,7 @@ + @@ -330,6 +331,7 @@ + @@ -468,6 +470,10 @@ + + + + @@ -577,6 +583,15 @@ Designer + + Designer + + + Designer + + + Designer + diff --git a/VERAG_PROG_ALLGEMEIN/cAllgemein.vb b/VERAG_PROG_ALLGEMEIN/cAllgemein.vb index dba00d69..5071be7e 100644 --- a/VERAG_PROG_ALLGEMEIN/cAllgemein.vb +++ b/VERAG_PROG_ALLGEMEIN/cAllgemein.vb @@ -24,7 +24,7 @@ Public Class cAllgemein Public Shared TESTSYSTEM As Boolean = True Public Shared PROGNAME = "" - Public Shared PROGID As Integer + Public Shared PROGID As Integer = 16 Public Shared PROGVERSION As String = "" Public Shared USRNAME As String @@ -42,6 +42,8 @@ Public Class cAllgemein Public Shared BENUTZER_BERECHTIGUNGS_GRUPPEN As cBerechtigungenBenutzerGruppenZuordnung_List = Nothing Public Shared PARAMS As cParameterList = Nothing + Public Shared TRANSLATE As cTranslate_LIST = Nothing + Public Shared _LAN As String = "" '"EN" Public Shared SESSION As New cSession @@ -98,6 +100,7 @@ Public Class cAllgemein MITARBEITER = Nothing End If LOAD_PARAM() + LOAD_TRANSLATE() End Sub Public Shared Sub LOAD_BER() @@ -109,6 +112,62 @@ Public Class cAllgemein PARAMS = New cParameterList(PROGID, FIRMA) End Sub + Public Shared Sub LOAD_TRANSLATE() + TRANSLATE = New cTranslate_LIST(PROGID) + End Sub + + Public Shared Sub _TRANSLATE(o As System.Windows.Forms.Control) + _TRANSLATE(o, o, _LAN) + End Sub + + Public Shared Sub _TRANSLATE(o As System.Windows.Forms.Control, lan As String) + _TRANSLATE(o, o, lan) + End Sub + Public Shared Sub _TRANSLATE(o As System.Windows.Forms.Control, s As System.Windows.Forms.Control, lan As String) + If lan = "" Then Exit Sub + If lan = "DE" Then Exit Sub + 'o... Form + 's... SubContainer + 'c... Control + + Dim TextTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.TRANSLATE.list.FindAll(Function(x) x.trs_object = o.Name And x.trs_sprache = lan) + If TextTmp IsNot Nothing Then + For Each TXT As cTranslate In TextTmp + Dim found = o.Controls.Find(TXT.trs_control, True) + If found IsNot Nothing AndAlso found.Count > 0 Then + Dim obj As System.Windows.Forms.Control = found(0) + If obj IsNot Nothing Then + If (TypeOf obj Is System.Windows.Forms.Label) Then + DirectCast(obj, System.Windows.Forms.Label).Text = TXT.trs_text + End If + End If + End If + Next + End If + + + + 'Exit Sub + 'If lan = "DE" Then Exit Sub + 'For Each c As System.Windows.Forms.Control In s.Controls + ' If c.Controls.Count > 0 Then + ' _TRANSLATE(o, c, lan) + ' Else + + ' 'MsgBox(o.Name & " - " & c.Name & " - " & lan) + ' Dim TextTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.TRANSLATE.list.Find(Function(x) x.trs_object = o.Name And x.trs_control = c.Name And x.trs_sprache = lan) + + ' If TextTmp IsNot Nothing Then + ' MsgBox(TextTmp.trs_text) + ' If (TypeOf c Is System.Windows.Forms.Label) Then + + ' DirectCast(c, System.Windows.Forms.Label).Text = TextTmp.trs_text + ' End If + ' End If + ' End If + 'Next + End Sub + Public Shared Function getMaxPosNrIncrement(FilialeNr As Integer, year As Integer) As Integer Dim cnt = 0 @@ -196,6 +255,8 @@ Public Class cAllgemein End Class + + Public Shared Sub buildConnectionDATENARCHIV() Exit Sub