cWorkerVerrw, StartOptions

2024-11-29 10:16:56 +01:00
parent 2a3f4e09d9
commit ec7bd277e4
3 changed files with 49 additions and 19 deletions
--- a/initATLASAufschubkonten/cWorker_Verwahrung.vb
+++ b/initATLASAufschubkonten/cWorker_Verwahrung.vb
@@ -101,10 +101,10 @@ Public Class cWorker_Verwahrung
                            Select Case BezugsNr.Substring(0, 4)
                                Case 4803, 4809
                                    Standort = "VERAG AG"
-                                Case 5601
-                                    Standort = "UNISPED GmbH"
-                                Case 5701
-                                    Standort = "AMBAR GmbH"
+                                'Case 5601
+                                '    Standort = "UNISPED GmbH"
+                                'Case 5701
+                                '    Standort = "AMBAR GmbH"
                                Case 4810, 5103, 5901
                                    Standort = "VERAG GmbH"
                                Case 5501
--- a/initATLASAufschubkonten/frmStartOptions.Designer.vb
+++ b/initATLASAufschubkonten/frmStartOptions.Designer.vb
@@ -173,6 +173,7 @@ Partial Class frmStartOptions
        Me.LinkLabel30 = New System.Windows.Forms.LinkLabel()
        Me.Label11 = New System.Windows.Forms.Label()
        Me.TabPage4 = New System.Windows.Forms.TabPage()
+        Me.cbxUTATestkunden = New System.Windows.Forms.CheckBox()
        Me.cbxITalt = New System.Windows.Forms.CheckBox()
        Me.cbxPlose = New System.Windows.Forms.CheckBox()
        Me.Label46 = New System.Windows.Forms.Label()
@@ -279,7 +280,7 @@ Partial Class frmStartOptions
        Me.txtGJ_UNISPED = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.Button21 = New System.Windows.Forms.Button()
        Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.cbxUTATestkunden = New System.Windows.Forms.CheckBox()
+        Me.LinkLabel67 = New System.Windows.Forms.LinkLabel()
        Me.pnl.SuspendLayout()
        CType(Me.PictureBox24, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.PictureBox23, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -2242,6 +2243,7 @@ Partial Class frmStartOptions
        '
        'TabPage4
        '
+        Me.TabPage4.Controls.Add(Me.LinkLabel67)
        Me.TabPage4.Controls.Add(Me.cbxUTATestkunden)
        Me.TabPage4.Controls.Add(Me.cbxITalt)
        Me.TabPage4.Controls.Add(Me.cbxPlose)
@@ -2330,6 +2332,19 @@ Partial Class frmStartOptions
        Me.TabPage4.Text = "VERAG 360"
        Me.TabPage4.UseVisualStyleBackColor = True
        '
+        'cbxUTATestkunden
+        '
+        Me.cbxUTATestkunden.AutoSize = True
+        Me.cbxUTATestkunden.Checked = True
+        Me.cbxUTATestkunden.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.cbxUTATestkunden.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cbxUTATestkunden.Location = New System.Drawing.Point(532, 374)
+        Me.cbxUTATestkunden.Name = "cbxUTATestkunden"
+        Me.cbxUTATestkunden.Size = New System.Drawing.Size(170, 17)
+        Me.cbxUTATestkunden.TabIndex = 150
+        Me.cbxUTATestkunden.Text = "nur Testkunden (2) importieren"
+        Me.cbxUTATestkunden.UseVisualStyleBackColor = True
+        '
        'cbxITalt
        '
        Me.cbxITalt.AutoSize = True
@@ -3627,18 +3642,16 @@ Partial Class frmStartOptions
        Me.DataGridViewTextBoxColumn1.MinimumWidth = 8
        Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
        '
-        'cbxUTATestkunden
+        'LinkLabel67
        '
-        Me.cbxUTATestkunden.AutoSize = True
-        Me.cbxUTATestkunden.Checked = True
-        Me.cbxUTATestkunden.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.cbxUTATestkunden.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cbxUTATestkunden.Location = New System.Drawing.Point(532, 374)
-        Me.cbxUTATestkunden.Name = "cbxUTATestkunden"
-        Me.cbxUTATestkunden.Size = New System.Drawing.Size(170, 17)
-        Me.cbxUTATestkunden.TabIndex = 150
-        Me.cbxUTATestkunden.Text = "nur Testkunden (2) importieren"
-        Me.cbxUTATestkunden.UseVisualStyleBackColor = True
+        Me.LinkLabel67.AutoSize = True
+        Me.LinkLabel67.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.LinkLabel67.Location = New System.Drawing.Point(18, 393)
+        Me.LinkLabel67.Name = "LinkLabel67"
+        Me.LinkLabel67.Size = New System.Drawing.Size(135, 13)
+        Me.LinkLabel67.TabIndex = 151
+        Me.LinkLabel67.TabStop = True
+        Me.LinkLabel67.Text = "Ländercode ISO2 einfügen"
        '
        'frmStartOptions
        '
@@ -3952,4 +3965,5 @@ Partial Class frmStartOptions
    Friend WithEvents cbxITalt As CheckBox
    Friend WithEvents cbxPlose As CheckBox
    Friend WithEvents cbxUTATestkunden As CheckBox
+    Friend WithEvents LinkLabel67 As LinkLabel
 End Class
--- a/initATLASAufschubkonten/frmStartOptions.vb
+++ b/initATLASAufschubkonten/frmStartOptions.vb
@@ -5339,15 +5339,27 @@ Public Class frmStartOptions
        showPic(ok, PictureBox25)
    End Sub

-    Private Sub LinkLabel64_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel64.LinkClicked
+    Private Sub LinkLabel64_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel64.LinkClicked, LinkLabel67.LinkClicked
+
+        Dim iso2Laneder = ""
+
+        Select Case sender.Name
+            Case "LinkLabel64" : iso2Laneder = "select distinct (Lieferland) FROM [VERAG].[dbo].[tblUTAImportNew] where Lieferland_ISO2 is null"
+            Case "LinkLabel67" : iso2Laneder = "select distinct (LandNr) FROM [VERAG].[dbo].[tbl_IDS_Länder] where Lieferland_ISO2 is null"
+
+        End Select

-        Dim iso2Laneder = "select distinct (Lieferland) FROM [VERAG].[dbo].[tblUTAImportNew] where Lieferland_ISO2 is null"
        Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
        Dim dtiso2Laneder As DataTable = SQL.loadDgvBySql(iso2Laneder, "FMZOLL")

        If dtiso2Laneder.Rows.Count > 0 Then
            For Each r As DataRow In dtiso2Laneder.Rows
-                SQL.doSQL("Update [VERAG].[dbo].[tblUTAImportNew]  set  Lieferland_ISO2 = '" & VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromISO3Land(r.Item("Lieferland")) & "' where Lieferland = '" & r.Item("Lieferland") & "'", "FMZOLL")
+                Select Case sender.Name
+                    Case "LinkLabel64" : SQL.doSQL("Update [VERAG].[dbo].[tblUTAImportNew]  set  Lieferland_ISO2 = '" & VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromISO3Land(r.Item("Lieferland")) & "' where Lieferland = '" & r.Item("Lieferland") & "'", "FMZOLL")
+                    Case "LinkLabel67" : SQL.doSQL("Update [VERAG].[dbo].[tbl_IDS_Länder]  set  Lieferland_ISO2 = '" & VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromLandNr(r.Item("LandNr")) & "' where LandNr = '" & r.Item("LandNr") & "'", "FMZOLL")
+                End Select
+
+
            Next
            MsgBox("alle Länder gesetzt!")
        Else
@@ -5403,4 +5415,8 @@ Public Class frmStartOptions
        End If

    End Sub
+
+    Private Sub LinkLabel67_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel67.LinkClicked
+
+    End Sub
 End Class