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
@@ -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)
 

initATLASAufschubkonten/frmStartOptions.Designer.vb

@@ -25,6 +25,7 @@ Partial Class frmStartOptions
         Me.components = New System.ComponentModel.Container()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStartOptions))
         Me.pnl = New System.Windows.Forms.Panel()
+        Me.Label21 = New System.Windows.Forms.Label()
         Me.Button16 = New System.Windows.Forms.Button()
         Me.Button14 = New System.Windows.Forms.Button()
         Me.Label20 = New System.Windows.Forms.Label()
@@ -159,7 +160,8 @@ Partial Class frmStartOptions
         Me.lklAufschubkontenATLASEZOLL = New System.Windows.Forms.LinkLabel()
         Me.lblRoutineManager = New System.Windows.Forms.Label()
         Me.txtGJ_UNISPED = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.Label21 = New System.Windows.Forms.Label()
+        Me.LinkLabel38 = New System.Windows.Forms.LinkLabel()
+        Me.PictureBox17 = New System.Windows.Forms.PictureBox()
         Me.pnl.SuspendLayout()
         CType(Me.piceZollAnh, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.tbcntr.SuspendLayout()
@@ -184,6 +186,7 @@ Partial Class frmStartOptions
         CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.PictureBox17, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'pnl
@@ -253,6 +256,16 @@ Partial Class frmStartOptions
         Me.pnl.Size = New System.Drawing.Size(861, 827)
         Me.pnl.TabIndex = 0
         '
+        'Label21
+        '
+        Me.Label21.AutoSize = True
+        Me.Label21.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
+        Me.Label21.Location = New System.Drawing.Point(264, 298)
+        Me.Label21.Name = "Label21"
+        Me.Label21.Size = New System.Drawing.Size(75, 13)
+        Me.Label21.TabIndex = 69
+        Me.Label21.Text = "Geschäftsjahr:"
+        '
         'Button16
         '
         Me.Button16.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -653,6 +666,8 @@ Partial Class frmStartOptions
         '
         'TabPage1
         '
+        Me.TabPage1.Controls.Add(Me.LinkLabel38)
+        Me.TabPage1.Controls.Add(Me.PictureBox17)
         Me.TabPage1.Controls.Add(Me.LinkLabel37)
         Me.TabPage1.Controls.Add(Me.PictureBox16)
         Me.TabPage1.Controls.Add(Me.Button15)
@@ -1931,15 +1946,27 @@ Partial Class frmStartOptions
         Me.txtGJ_UNISPED.Size = New System.Drawing.Size(53, 20)
         Me.txtGJ_UNISPED.TabIndex = 68
         '
-        'Label21
+        'LinkLabel38
         '
-        Me.Label21.AutoSize = True
+        Me.LinkLabel38.AutoSize = True
-        Me.Label21.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
+        Me.LinkLabel38.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.Label21.Location = New System.Drawing.Point(264, 298)
+        Me.LinkLabel38.Location = New System.Drawing.Point(475, 125)
-        Me.Label21.Name = "Label21"
+        Me.LinkLabel38.Name = "LinkLabel38"
-        Me.Label21.Size = New System.Drawing.Size(75, 13)
+        Me.LinkLabel38.Size = New System.Drawing.Size(141, 13)
-        Me.Label21.TabIndex = 69
+        Me.LinkLabel38.TabIndex = 59
-        Me.Label21.Text = "Geschäftsjahr:"
+        Me.LinkLabel38.TabStop = True
+        Me.LinkLabel38.Text = "I0610 - Zust. Zollstelle (AES)"
+        '
+        'PictureBox17
+        '
+        Me.PictureBox17.BackgroundImage = CType(resources.GetObject("PictureBox17.BackgroundImage"), System.Drawing.Image)
+        Me.PictureBox17.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.PictureBox17.Location = New System.Drawing.Point(630, 120)
+        Me.PictureBox17.Name = "PictureBox17"
+        Me.PictureBox17.Size = New System.Drawing.Size(18, 18)
+        Me.PictureBox17.TabIndex = 60
+        Me.PictureBox17.TabStop = False
+        Me.PictureBox17.Visible = False
         '
         'frmStartOptions
         '
@@ -1982,6 +2009,7 @@ Partial Class frmStartOptions
         CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.PictureBox17, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
 
     End Sub
@@ -2121,4 +2149,6 @@ Partial Class frmStartOptions
     Friend WithEvents PictureBox16 As PictureBox
     Friend WithEvents Label21 As Label
     Friend WithEvents txtGJ_UNISPED As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents LinkLabel38 As LinkLabel
+    Friend WithEvents PictureBox17 As PictureBox
 End Class

initATLASAufschubkonten/frmStartOptions.resx

@@ -140,6 +140,30 @@
         WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/
         nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de
         CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII=
+</value>
+  </data>
+  <data name="PictureBox17.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj
+        oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB
+        QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC
+        j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ
+        VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox
+        XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf
+        9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe
+        VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh
+        42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A
+        pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin
+        lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS
+        d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp
+        hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ
+        LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs
+        8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ
+        NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P
+        ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x
+        WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/
+        nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de
+        CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII=
 </value>
   </data>
   <data name="PictureBox16.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">

initATLASAufschubkonten/frmStartOptions.vb

@@ -195,11 +195,34 @@ Public Class frmStartOptions
                                          Me.Refresh()
                                          DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("C0014", True)
                                          DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("C0014", False)
-
                                          Me.Refresh()
                                          DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("C0141", True)
                                          DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("C0141", False)
                                          Me.Refresh()
+                                         DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("I0400", True)
+                                         DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("I0400", False)
+                                         Me.Refresh()
+                                         DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("I0700", True)
+                                         DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("I0700", False)
+                                         Me.Refresh()
+                                         DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("C0010", True)
+                                         DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("C0010", False)
+                                         Me.Refresh()
+                                         DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("C0013", True)
+                                         DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("C0013", False)
+                                         Me.Refresh()
+                                         DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("A0122", True)
+                                         DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("A0122", False)
+                                         Me.Refresh()
+                                         DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("A0127", True)
+                                         DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("A0127", False)
+                                         Me.Refresh()
+                                         DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("I0200", True)
+                                         DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("I0200", False)
+                                         Me.Refresh()
+                                         DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("I6010", True)
+                                         DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("I6010", False)
+                                         Me.Refresh()
                                          closeMe()
                                      End Sub
             Case "KD_DATA_DAKOSY"
@@ -1941,7 +1964,13 @@ Public Class frmStartOptions
     End Sub
 
     Private Sub LinkLabel12_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel12.LinkClicked
-
+        Me.Cursor = Cursors.WaitCursor
+        Try
+            DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("A0127", True) 'TESTSYSTEM
+            Dim erg = DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("A0127", False) 'ECHTSYSTEM
+            showPic(erg, PictureBox5)
+        Catch ex As Exception : VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name) : End Try
+        Me.Cursor = Cursors.Default
     End Sub
 
     Private Sub LinkLabel13_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel13.LinkClicked
@@ -3213,4 +3242,14 @@ Public Class frmStartOptions
         Catch ex As Exception : VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name) : End Try
         Me.Cursor = Cursors.Default
     End Sub
+
+    Private Sub LinkLabel38_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel38.LinkClicked
+        Me.Cursor = Cursors.WaitCursor
+        Try
+            DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("I0610", True) 'TESTSYSTEM
+            Dim erg = DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("I0610", False) 'ECHTSYSTEM
+            showPic(erg, PictureBox17)
+        Catch ex As Exception : VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name) : End Try
+        Me.Cursor = Cursors.Default
+    End Sub
 End Class