Neue Codeliste I0610 (zust.ZA)

DAKOSY_Worker/cIMPORT_Codelisten.vb

@@ -3,6 +3,7 @@ Imports System.Xml
 Imports System.IO
 Imports System.Text
 Imports System.Data.SqlClient
+Imports DAKOSY_Worker.cAES_ZustaendigeZST
 
 Public Class cIMPORT_Codelisten
 
@@ -31,6 +32,8 @@ Public Class cIMPORT_Codelisten
                 Return Import_I0700(TESTSYSTEM)
             Case "C0141"
                 Return Import_C0141(TESTSYSTEM)
+            Case "I0610"
+                Return Import_I0610(TESTSYSTEM)
         End Select
         Return False
     End Function
@@ -403,7 +406,7 @@ Public Class cIMPORT_Codelisten
                                 Dim Code = ""
                                 Dim Description = ""
                                 If Entry.SelectNodes("Code").Count > 0 Then Code = Entry.SelectNodes("Code")(0).InnerText
-                                 If Entry.SelectNodes("Description").Count > 0 Then Description = Entry.SelectNodes("Description")(0).InnerText
+                                If Entry.SelectNodes("Description").Count > 0 Then Description = Entry.SelectNodes("Description")(0).InnerText
 
                                 LC.Add(New cBeteiligtenKonstellationen.cBeteiligtenKonstellation(Code, Description))
 
@@ -525,6 +528,53 @@ Public Class cIMPORT_Codelisten
     End Function
 
 
+
+    Shared Function Import_I0610(TESTSYSTEM) As Boolean
+        Dim MyData As String = ""
+        Try
+            System.Net.ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12
+
+            Using WC As New System.Net.WebClient()
+                ' C0008_URL()
+                WC.Encoding = ASCIIEncoding.UTF8
+                Dim URL = cDY_Paramter.GET_PARAM_ByName("I0610_URL", TESTSYSTEM, "VERAG")
+                If URL = String.Empty Then Return False
+                ' MsgBox(URL)
+                MyData = WC.DownloadString(URL)
+                Dim doc As New XmlDocument()
+                doc.LoadXml(MyData)
+
+                Dim LC As New cAES_ZustaendigeZST
+                If doc.HasChildNodes Then
+                    If doc.GetElementsByTagName("Codelist").Count > 0 Then
+                        If doc.GetElementsByTagName("Codelist")(0).HasChildNodes Then
+                            For Each Entry As XmlNode In doc.GetElementsByTagName("Codelist")(0).ChildNodes
+                                Dim Code = ""
+                                Dim Qualifier = ""
+                                Dim Description = ""
+                                If Entry.SelectNodes("Code").Count > 0 Then Code = Entry.SelectNodes("Code")(0).InnerText
+                                If Entry.SelectNodes("Qualifier").Count > 0 Then Qualifier = Entry.SelectNodes("Qualifier")(0).InnerText
+                                If Entry.SelectNodes("Description").Count > 0 Then Description = Entry.SelectNodes("Description")(0).InnerText
+
+                                LC.Add(New cAES_ZustaendigeZST.cAES_ZustaendigeZST_I0610(Code, Qualifier, Description))
+
+                            Next
+                        End If
+                    End If
+                End If
+                If LC.Count > 0 Then
+                    Return LC.INSERT_DB(TESTSYSTEM)
+                End If
+            End Using
+
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+        Return False
+
+    End Function
+
+
     Shared Function Import_I0700(TESTSYSTEM) As Boolean
         Dim MyData As String = ""
         Try
@@ -717,6 +767,47 @@ Class cEZA_Unterlagearten
 
 End Class
 
+
+
+Class cAES_ZustaendigeZST
+    Inherits List(Of cAES_ZustaendigeZST_I0610)
+
+    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+
+    Function INSERT_DB(TESTSSYSTEM) As Boolean
+
+        If SQL.doSQL("DELETE FROM [tbl_DY_ZollDE_I0610_ZustaendigeZSTAES]", , , , SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSSYSTEM)) Then
+            Dim ok = True
+            For Each l In Me
+                Dim List As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem2)
+                List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Code", l.Code))
+                List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Qualifier", l.Qualifier))
+                List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Description", l.Description))
+                If Not SQL.doSQL("INSERT INTO [tbl_DY_ZollDE_I0610_ZustaendigeZSTAES] (Code, Qualifier, Description) VALUES (@Code, @Qualifier, @Description); ", "FMZOLL", , List, SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSSYSTEM)) Then
+                    ok = False
+                End If
+            Next
+            Return ok
+        End If
+        Return False
+    End Function
+
+    Class cAES_ZustaendigeZST_I0610
+        Property Code As String = ""
+        Property Qualifier As String = ""
+        Property Description As String = ""
+
+        Sub New(Code, Qualifier, Description)
+            Me.Code = Code
+            Me.Qualifier = Qualifier
+            Me.Description = Description
+
+        End Sub
+    End Class
+
+End Class
+
+
 Class cLaenderCodesC0010
     Inherits List(Of cLaenderCodesC0010)