Neue Codeliste I0610 (zust.ZA)

2023-01-23 08:14:28 +01:00
parent 311eedea2f
commit 424af199ed
4 changed files with 196 additions and 12 deletions
--- a/initATLASAufschubkonten/frmStartOptions.Designer.vb
+++ b/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.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:"
+        Me.LinkLabel38.AutoSize = True
+        Me.LinkLabel38.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.LinkLabel38.Location = New System.Drawing.Point(475, 125)
+        Me.LinkLabel38.Name = "LinkLabel38"
+        Me.LinkLabel38.Size = New System.Drawing.Size(141, 13)
+        Me.LinkLabel38.TabIndex = 59
+        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
--- a/initATLASAufschubkonten/frmStartOptions.resx
+++ b/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">
--- a/initATLASAufschubkonten/frmStartOptions.vb
+++ b/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