edv/ADMIN
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

cWorkerVerrw, StartOptions

Browse Source
This commit is contained in:
d.breimaier
2024-11-29 10:16:56 +01:00
parent 2a3f4e09d9
commit ec7bd277e4
3 changed files with 49 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
initATLASAufschubkonten/cWorker_Verwahrung.vb
View File

@@ -101,10 +101,10 @@ Public Class cWorker_Verwahrung
Select Case BezugsNr.Substring(0, 4) Select Case BezugsNr.Substring(0, 4)
Case 4803, 4809 Case 4803, 4809
Standort = "VERAG AG" Standort = "VERAG AG"
Case 5601 'Case 5601
Standort = "UNISPED GmbH" ' Standort = "UNISPED GmbH"
Case 5701 'Case 5701
Standort = "AMBAR GmbH" ' Standort = "AMBAR GmbH"
Case 4810, 5103, 5901 Case 4810, 5103, 5901
Standort = "VERAG GmbH" Standort = "VERAG GmbH"
Case 5501 Case 5501

38
initATLASAufschubkonten/frmStartOptions.Designer.vb generated
View File

@@ -173,6 +173,7 @@ Partial Class frmStartOptions
Me.LinkLabel30 = New System.Windows.Forms.LinkLabel() Me.LinkLabel30 = New System.Windows.Forms.LinkLabel()
Me.Label11 = New System.Windows.Forms.Label() Me.Label11 = New System.Windows.Forms.Label()
Me.TabPage4 = New System.Windows.Forms.TabPage() Me.TabPage4 = New System.Windows.Forms.TabPage()
Me.cbxUTATestkunden = New System.Windows.Forms.CheckBox()
Me.cbxITalt = New System.Windows.Forms.CheckBox() Me.cbxITalt = New System.Windows.Forms.CheckBox()
Me.cbxPlose = New System.Windows.Forms.CheckBox() Me.cbxPlose = New System.Windows.Forms.CheckBox()
Me.Label46 = New System.Windows.Forms.Label() Me.Label46 = New System.Windows.Forms.Label()
@@ -279,7 +280,7 @@ Partial Class frmStartOptions
Me.txtGJ_UNISPED = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtGJ_UNISPED = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Button21 = New System.Windows.Forms.Button() Me.Button21 = New System.Windows.Forms.Button()
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.cbxUTATestkunden = New System.Windows.Forms.CheckBox() Me.LinkLabel67 = New System.Windows.Forms.LinkLabel()
Me.pnl.SuspendLayout() Me.pnl.SuspendLayout()
CType(Me.PictureBox24, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox24, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox23, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox23, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -2242,6 +2243,7 @@ Partial Class frmStartOptions
' '
'TabPage4 'TabPage4
' '
Me.TabPage4.Controls.Add(Me.LinkLabel67)
Me.TabPage4.Controls.Add(Me.cbxUTATestkunden) Me.TabPage4.Controls.Add(Me.cbxUTATestkunden)
Me.TabPage4.Controls.Add(Me.cbxITalt) Me.TabPage4.Controls.Add(Me.cbxITalt)
Me.TabPage4.Controls.Add(Me.cbxPlose) Me.TabPage4.Controls.Add(Me.cbxPlose)
@@ -2330,6 +2332,19 @@ Partial Class frmStartOptions
Me.TabPage4.Text = "VERAG 360" Me.TabPage4.Text = "VERAG 360"
Me.TabPage4.UseVisualStyleBackColor = True 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 'cbxITalt
' '
Me.cbxITalt.AutoSize = True Me.cbxITalt.AutoSize = True
@@ -3627,18 +3642,16 @@ Partial Class frmStartOptions
Me.DataGridViewTextBoxColumn1.MinimumWidth = 8 Me.DataGridViewTextBoxColumn1.MinimumWidth = 8
Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
' '
'cbxUTATestkunden 'LinkLabel67
' '
Me.cbxUTATestkunden.AutoSize = True Me.LinkLabel67.AutoSize = True
Me.cbxUTATestkunden.Checked = True Me.LinkLabel67.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.cbxUTATestkunden.CheckState = System.Windows.Forms.CheckState.Checked Me.LinkLabel67.Location = New System.Drawing.Point(18, 393)
Me.cbxUTATestkunden.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.LinkLabel67.Name = "LinkLabel67"
Me.cbxUTATestkunden.Location = New System.Drawing.Point(532, 374) Me.LinkLabel67.Size = New System.Drawing.Size(135, 13)
Me.cbxUTATestkunden.Name = "cbxUTATestkunden" Me.LinkLabel67.TabIndex = 151
Me.cbxUTATestkunden.Size = New System.Drawing.Size(170, 17) Me.LinkLabel67.TabStop = True
Me.cbxUTATestkunden.TabIndex = 150 Me.LinkLabel67.Text = "Ländercode ISO2 einfügen"
Me.cbxUTATestkunden.Text = "nur Testkunden (2) importieren"
Me.cbxUTATestkunden.UseVisualStyleBackColor = True
' '
'frmStartOptions 'frmStartOptions
' '
@@ -3952,4 +3965,5 @@ Partial Class frmStartOptions
Friend WithEvents cbxITalt As CheckBox Friend WithEvents cbxITalt As CheckBox
Friend WithEvents cbxPlose As CheckBox Friend WithEvents cbxPlose As CheckBox
Friend WithEvents cbxUTATestkunden As CheckBox Friend WithEvents cbxUTATestkunden As CheckBox
Friend WithEvents LinkLabel67 As LinkLabel
End Class End Class

22
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -5339,15 +5339,27 @@ Public Class frmStartOptions
showPic(ok, PictureBox25) showPic(ok, PictureBox25)
End Sub 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 SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim dtiso2Laneder As DataTable = SQL.loadDgvBySql(iso2Laneder, "FMZOLL") Dim dtiso2Laneder As DataTable = SQL.loadDgvBySql(iso2Laneder, "FMZOLL")
If dtiso2Laneder.Rows.Count > 0 Then If dtiso2Laneder.Rows.Count > 0 Then
For Each r As DataRow In dtiso2Laneder.Rows 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 Next
MsgBox("alle Länder gesetzt!") MsgBox("alle Länder gesetzt!")
Else Else
@@ -5403,4 +5415,8 @@ Public Class frmStartOptions
End If End If
End Sub End Sub
Private Sub LinkLabel67_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel67.LinkClicked
End Sub
End Class End Class