Import Excel DY
This commit is contained in:
@@ -24,8 +24,17 @@ Partial Class usrCntlATLAS_EZA
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Me.SplitContainer = New System.Windows.Forms.SplitContainer()
|
||||
Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components)
|
||||
Me.btnAllgemein = New System.Windows.Forms.Button()
|
||||
Me.btnAdressen = New System.Windows.Forms.Button()
|
||||
Me.btnAktiveVeredelung = New System.Windows.Forms.Button()
|
||||
Me.btnPositionen = New System.Windows.Forms.Button()
|
||||
Me.btnDV1 = New System.Windows.Forms.Button()
|
||||
Me.Button5 = New System.Windows.Forms.Button()
|
||||
Me.pnl = New System.Windows.Forms.Panel()
|
||||
Me.Label6 = New System.Windows.Forms.Label()
|
||||
Me.cboDakosyAction = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.cboStammreferenz = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.Label4 = New System.Windows.Forms.Label()
|
||||
Me.Label5 = New System.Windows.Forms.Label()
|
||||
@@ -48,26 +57,18 @@ Partial Class usrCntlATLAS_EZA
|
||||
Me.DynamicAutomotiveXLSToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.GEZEXLSXToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.MEYLEXLSXToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.FressnapToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.VERAGIMPORTFormatToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.EZAIDToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.FressnapToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components)
|
||||
Me.btnAllgemein = New System.Windows.Forms.Button()
|
||||
Me.btnAdressen = New System.Windows.Forms.Button()
|
||||
Me.btnAktiveVeredelung = New System.Windows.Forms.Button()
|
||||
Me.btnPositionen = New System.Windows.Forms.Button()
|
||||
Me.btnDV1 = New System.Windows.Forms.Button()
|
||||
Me.Button5 = New System.Windows.Forms.Button()
|
||||
Me.cboDakosyAction = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.cboStammreferenz = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SplitContainer.Panel1.SuspendLayout()
|
||||
Me.SplitContainer.SuspendLayout()
|
||||
Me.MyFlowLayoutPanel1.SuspendLayout()
|
||||
Me.pnl.SuspendLayout()
|
||||
Me.cntxtBezugsnr.SuspendLayout()
|
||||
Me.Panel1.SuspendLayout()
|
||||
Me.MenuStrip.SuspendLayout()
|
||||
Me.MyFlowLayoutPanel1.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'SplitContainer
|
||||
@@ -93,6 +94,128 @@ Partial Class usrCntlATLAS_EZA
|
||||
Me.SplitContainer.SplitterWidth = 1
|
||||
Me.SplitContainer.TabIndex = 0
|
||||
'
|
||||
'MyFlowLayoutPanel1
|
||||
'
|
||||
Me.MyFlowLayoutPanel1.BackColor = System.Drawing.Color.WhiteSmoke
|
||||
Me.MyFlowLayoutPanel1.Controls.Add(Me.btnAllgemein)
|
||||
Me.MyFlowLayoutPanel1.Controls.Add(Me.btnAdressen)
|
||||
Me.MyFlowLayoutPanel1.Controls.Add(Me.btnAktiveVeredelung)
|
||||
Me.MyFlowLayoutPanel1.Controls.Add(Me.btnPositionen)
|
||||
Me.MyFlowLayoutPanel1.Controls.Add(Me.btnDV1)
|
||||
Me.MyFlowLayoutPanel1.Controls.Add(Me.Button5)
|
||||
Me.MyFlowLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.MyFlowLayoutPanel1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.MyFlowLayoutPanel1.Margin = New System.Windows.Forms.Padding(1)
|
||||
Me.MyFlowLayoutPanel1.Name = "MyFlowLayoutPanel1"
|
||||
Me.MyFlowLayoutPanel1.Size = New System.Drawing.Size(573, 72)
|
||||
Me.MyFlowLayoutPanel1.TabIndex = 0
|
||||
'
|
||||
'btnAllgemein
|
||||
'
|
||||
Me.btnAllgemein.BackColor = System.Drawing.Color.SteelBlue
|
||||
Me.btnAllgemein.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
|
||||
Me.btnAllgemein.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnAllgemein.ForeColor = System.Drawing.SystemColors.ControlLightLight
|
||||
Me.btnAllgemein.Image = Global.SDL.My.Resources.Resources.android_note12
|
||||
Me.btnAllgemein.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||
Me.btnAllgemein.Location = New System.Drawing.Point(2, 2)
|
||||
Me.btnAllgemein.Margin = New System.Windows.Forms.Padding(2)
|
||||
Me.btnAllgemein.Name = "btnAllgemein"
|
||||
Me.btnAllgemein.Padding = New System.Windows.Forms.Padding(0, 12, 0, 3)
|
||||
Me.btnAllgemein.Size = New System.Drawing.Size(75, 67)
|
||||
Me.btnAllgemein.TabIndex = 0
|
||||
Me.btnAllgemein.Text = "Allgemein"
|
||||
Me.btnAllgemein.TextAlign = System.Drawing.ContentAlignment.BottomCenter
|
||||
Me.btnAllgemein.UseVisualStyleBackColor = False
|
||||
'
|
||||
'btnAdressen
|
||||
'
|
||||
Me.btnAdressen.BackColor = System.Drawing.Color.White
|
||||
Me.btnAdressen.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
|
||||
Me.btnAdressen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnAdressen.Image = Global.SDL.My.Resources.Resources.house1
|
||||
Me.btnAdressen.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||
Me.btnAdressen.Location = New System.Drawing.Point(81, 2)
|
||||
Me.btnAdressen.Margin = New System.Windows.Forms.Padding(2)
|
||||
Me.btnAdressen.Name = "btnAdressen"
|
||||
Me.btnAdressen.Padding = New System.Windows.Forms.Padding(0, 0, 0, 3)
|
||||
Me.btnAdressen.Size = New System.Drawing.Size(75, 67)
|
||||
Me.btnAdressen.TabIndex = 1
|
||||
Me.btnAdressen.Text = "Adressen"
|
||||
Me.btnAdressen.TextAlign = System.Drawing.ContentAlignment.BottomCenter
|
||||
Me.btnAdressen.UseVisualStyleBackColor = False
|
||||
'
|
||||
'btnAktiveVeredelung
|
||||
'
|
||||
Me.btnAktiveVeredelung.BackColor = System.Drawing.Color.White
|
||||
Me.btnAktiveVeredelung.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
|
||||
Me.btnAktiveVeredelung.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnAktiveVeredelung.Image = Global.SDL.My.Resources.Resources.aktiveVeredelung1
|
||||
Me.btnAktiveVeredelung.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||
Me.btnAktiveVeredelung.Location = New System.Drawing.Point(160, 2)
|
||||
Me.btnAktiveVeredelung.Margin = New System.Windows.Forms.Padding(2)
|
||||
Me.btnAktiveVeredelung.Name = "btnAktiveVeredelung"
|
||||
Me.btnAktiveVeredelung.Padding = New System.Windows.Forms.Padding(0, 6, 0, 3)
|
||||
Me.btnAktiveVeredelung.Size = New System.Drawing.Size(94, 67)
|
||||
Me.btnAktiveVeredelung.TabIndex = 3
|
||||
Me.btnAktiveVeredelung.Text = "Pass. Veredel."
|
||||
Me.btnAktiveVeredelung.TextAlign = System.Drawing.ContentAlignment.BottomCenter
|
||||
Me.btnAktiveVeredelung.UseVisualStyleBackColor = False
|
||||
Me.btnAktiveVeredelung.Visible = False
|
||||
'
|
||||
'btnPositionen
|
||||
'
|
||||
Me.btnPositionen.BackColor = System.Drawing.Color.White
|
||||
Me.btnPositionen.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
|
||||
Me.btnPositionen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnPositionen.Image = Global.SDL.My.Resources.Resources.list_new_small2
|
||||
Me.btnPositionen.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||
Me.btnPositionen.Location = New System.Drawing.Point(258, 2)
|
||||
Me.btnPositionen.Margin = New System.Windows.Forms.Padding(2)
|
||||
Me.btnPositionen.Name = "btnPositionen"
|
||||
Me.btnPositionen.Padding = New System.Windows.Forms.Padding(0, 0, 0, 3)
|
||||
Me.btnPositionen.Size = New System.Drawing.Size(81, 67)
|
||||
Me.btnPositionen.TabIndex = 4
|
||||
Me.btnPositionen.Text = "Positionen"
|
||||
Me.btnPositionen.TextAlign = System.Drawing.ContentAlignment.BottomCenter
|
||||
Me.btnPositionen.UseVisualStyleBackColor = False
|
||||
'
|
||||
'btnDV1
|
||||
'
|
||||
Me.btnDV1.BackColor = System.Drawing.Color.White
|
||||
Me.btnDV1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
|
||||
Me.btnDV1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnDV1.Image = Global.SDL.My.Resources.Resources.moneybag1
|
||||
Me.btnDV1.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||
Me.btnDV1.Location = New System.Drawing.Point(343, 2)
|
||||
Me.btnDV1.Margin = New System.Windows.Forms.Padding(2)
|
||||
Me.btnDV1.Name = "btnDV1"
|
||||
Me.btnDV1.Padding = New System.Windows.Forms.Padding(0, 2, 0, 3)
|
||||
Me.btnDV1.Size = New System.Drawing.Size(94, 67)
|
||||
Me.btnDV1.TabIndex = 6
|
||||
Me.btnDV1.Text = "D.V.1"
|
||||
Me.btnDV1.TextAlign = System.Drawing.ContentAlignment.BottomCenter
|
||||
Me.btnDV1.UseVisualStyleBackColor = False
|
||||
Me.btnDV1.Visible = False
|
||||
'
|
||||
'Button5
|
||||
'
|
||||
Me.Button5.BackColor = System.Drawing.Color.White
|
||||
Me.Button5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
|
||||
Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button5.Image = Global.SDL.My.Resources.Resources.android_note12
|
||||
Me.Button5.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||
Me.Button5.Location = New System.Drawing.Point(441, 2)
|
||||
Me.Button5.Margin = New System.Windows.Forms.Padding(2)
|
||||
Me.Button5.Name = "Button5"
|
||||
Me.Button5.Padding = New System.Windows.Forms.Padding(0, 12, 0, 3)
|
||||
Me.Button5.Size = New System.Drawing.Size(81, 67)
|
||||
Me.Button5.TabIndex = 5
|
||||
Me.Button5.Text = "Referenzen"
|
||||
Me.Button5.TextAlign = System.Drawing.ContentAlignment.BottomCenter
|
||||
Me.Button5.UseVisualStyleBackColor = False
|
||||
Me.Button5.Visible = False
|
||||
'
|
||||
'pnl
|
||||
'
|
||||
Me.pnl.BackColor = System.Drawing.Color.WhiteSmoke
|
||||
@@ -121,6 +244,35 @@ Partial Class usrCntlATLAS_EZA
|
||||
Me.Label6.Text = "Stammref.:"
|
||||
Me.Label6.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||
'
|
||||
'cboDakosyAction
|
||||
'
|
||||
Me.cboDakosyAction._allowedValuesFreiText = Nothing
|
||||
Me.cboDakosyAction._allowFreiText = False
|
||||
Me.cboDakosyAction._value = ""
|
||||
Me.cboDakosyAction.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.cboDakosyAction.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
|
||||
Me.cboDakosyAction.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.cboDakosyAction.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.cboDakosyAction.FormattingEnabled = True
|
||||
Me.cboDakosyAction.Location = New System.Drawing.Point(200, 48)
|
||||
Me.cboDakosyAction.Name = "cboDakosyAction"
|
||||
Me.cboDakosyAction.Size = New System.Drawing.Size(158, 21)
|
||||
Me.cboDakosyAction.TabIndex = 1
|
||||
'
|
||||
'cboStammreferenz
|
||||
'
|
||||
Me.cboStammreferenz._allowedValuesFreiText = Nothing
|
||||
Me.cboStammreferenz._allowFreiText = True
|
||||
Me.cboStammreferenz._value = ""
|
||||
Me.cboStammreferenz.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
|
||||
Me.cboStammreferenz.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.cboStammreferenz.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.cboStammreferenz.FormattingEnabled = True
|
||||
Me.cboStammreferenz.Location = New System.Drawing.Point(71, 48)
|
||||
Me.cboStammreferenz.Name = "cboStammreferenz"
|
||||
Me.cboStammreferenz.Size = New System.Drawing.Size(129, 21)
|
||||
Me.cboStammreferenz.TabIndex = 13
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
@@ -295,7 +447,7 @@ Partial Class usrCntlATLAS_EZA
|
||||
'
|
||||
'DateiimportToolStripMenuItem
|
||||
'
|
||||
Me.DateiimportToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DynamicAutomotiveXLSToolStripMenuItem, Me.GEZEXLSXToolStripMenuItem, Me.MEYLEXLSXToolStripMenuItem, Me.FressnapToolStripMenuItem})
|
||||
Me.DateiimportToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DynamicAutomotiveXLSToolStripMenuItem, Me.GEZEXLSXToolStripMenuItem, Me.MEYLEXLSXToolStripMenuItem, Me.FressnapToolStripMenuItem, Me.VERAGIMPORTFormatToolStripMenuItem})
|
||||
Me.DateiimportToolStripMenuItem.Name = "DateiimportToolStripMenuItem"
|
||||
Me.DateiimportToolStripMenuItem.Size = New System.Drawing.Size(87, 20)
|
||||
Me.DateiimportToolStripMenuItem.Text = "Datei-Import"
|
||||
@@ -303,21 +455,33 @@ Partial Class usrCntlATLAS_EZA
|
||||
'DynamicAutomotiveXLSToolStripMenuItem
|
||||
'
|
||||
Me.DynamicAutomotiveXLSToolStripMenuItem.Name = "DynamicAutomotiveXLSToolStripMenuItem"
|
||||
Me.DynamicAutomotiveXLSToolStripMenuItem.Size = New System.Drawing.Size(224, 22)
|
||||
Me.DynamicAutomotiveXLSToolStripMenuItem.Size = New System.Drawing.Size(238, 22)
|
||||
Me.DynamicAutomotiveXLSToolStripMenuItem.Text = "Dynamic Automotive (XLSX)"
|
||||
'
|
||||
'GEZEXLSXToolStripMenuItem
|
||||
'
|
||||
Me.GEZEXLSXToolStripMenuItem.Name = "GEZEXLSXToolStripMenuItem"
|
||||
Me.GEZEXLSXToolStripMenuItem.Size = New System.Drawing.Size(224, 22)
|
||||
Me.GEZEXLSXToolStripMenuItem.Size = New System.Drawing.Size(238, 22)
|
||||
Me.GEZEXLSXToolStripMenuItem.Text = "GEZE (XLSX)"
|
||||
'
|
||||
'MEYLEXLSXToolStripMenuItem
|
||||
'
|
||||
Me.MEYLEXLSXToolStripMenuItem.Name = "MEYLEXLSXToolStripMenuItem"
|
||||
Me.MEYLEXLSXToolStripMenuItem.Size = New System.Drawing.Size(224, 22)
|
||||
Me.MEYLEXLSXToolStripMenuItem.Size = New System.Drawing.Size(238, 22)
|
||||
Me.MEYLEXLSXToolStripMenuItem.Text = "MEYLE (XLSX)"
|
||||
'
|
||||
'FressnapToolStripMenuItem
|
||||
'
|
||||
Me.FressnapToolStripMenuItem.Name = "FressnapToolStripMenuItem"
|
||||
Me.FressnapToolStripMenuItem.Size = New System.Drawing.Size(238, 22)
|
||||
Me.FressnapToolStripMenuItem.Text = "Fressnapf (XLSX)"
|
||||
'
|
||||
'VERAGIMPORTFormatToolStripMenuItem
|
||||
'
|
||||
Me.VERAGIMPORTFormatToolStripMenuItem.Name = "VERAGIMPORTFormatToolStripMenuItem"
|
||||
Me.VERAGIMPORTFormatToolStripMenuItem.Size = New System.Drawing.Size(238, 22)
|
||||
Me.VERAGIMPORTFormatToolStripMenuItem.Text = "VERAG-IMPORT-Format (XLSX)"
|
||||
'
|
||||
'ToolStripMenuItem1
|
||||
'
|
||||
Me.ToolStripMenuItem1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.EZAIDToolStripMenuItem})
|
||||
@@ -331,163 +495,6 @@ Partial Class usrCntlATLAS_EZA
|
||||
Me.EZAIDToolStripMenuItem.Size = New System.Drawing.Size(109, 22)
|
||||
Me.EZAIDToolStripMenuItem.Text = "EZA ID"
|
||||
'
|
||||
'FressnapToolStripMenuItem
|
||||
'
|
||||
Me.FressnapToolStripMenuItem.Name = "FressnapToolStripMenuItem"
|
||||
Me.FressnapToolStripMenuItem.Size = New System.Drawing.Size(224, 22)
|
||||
Me.FressnapToolStripMenuItem.Text = "Fressnapf (XLSX)"
|
||||
'
|
||||
'MyFlowLayoutPanel1
|
||||
'
|
||||
Me.MyFlowLayoutPanel1.BackColor = System.Drawing.Color.WhiteSmoke
|
||||
Me.MyFlowLayoutPanel1.Controls.Add(Me.btnAllgemein)
|
||||
Me.MyFlowLayoutPanel1.Controls.Add(Me.btnAdressen)
|
||||
Me.MyFlowLayoutPanel1.Controls.Add(Me.btnAktiveVeredelung)
|
||||
Me.MyFlowLayoutPanel1.Controls.Add(Me.btnPositionen)
|
||||
Me.MyFlowLayoutPanel1.Controls.Add(Me.btnDV1)
|
||||
Me.MyFlowLayoutPanel1.Controls.Add(Me.Button5)
|
||||
Me.MyFlowLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.MyFlowLayoutPanel1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.MyFlowLayoutPanel1.Margin = New System.Windows.Forms.Padding(1)
|
||||
Me.MyFlowLayoutPanel1.Name = "MyFlowLayoutPanel1"
|
||||
Me.MyFlowLayoutPanel1.Size = New System.Drawing.Size(573, 72)
|
||||
Me.MyFlowLayoutPanel1.TabIndex = 0
|
||||
'
|
||||
'btnAllgemein
|
||||
'
|
||||
Me.btnAllgemein.BackColor = System.Drawing.Color.SteelBlue
|
||||
Me.btnAllgemein.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
|
||||
Me.btnAllgemein.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnAllgemein.ForeColor = System.Drawing.SystemColors.ControlLightLight
|
||||
Me.btnAllgemein.Image = Global.SDL.My.Resources.Resources.android_note12
|
||||
Me.btnAllgemein.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||
Me.btnAllgemein.Location = New System.Drawing.Point(2, 2)
|
||||
Me.btnAllgemein.Margin = New System.Windows.Forms.Padding(2)
|
||||
Me.btnAllgemein.Name = "btnAllgemein"
|
||||
Me.btnAllgemein.Padding = New System.Windows.Forms.Padding(0, 12, 0, 3)
|
||||
Me.btnAllgemein.Size = New System.Drawing.Size(75, 67)
|
||||
Me.btnAllgemein.TabIndex = 0
|
||||
Me.btnAllgemein.Text = "Allgemein"
|
||||
Me.btnAllgemein.TextAlign = System.Drawing.ContentAlignment.BottomCenter
|
||||
Me.btnAllgemein.UseVisualStyleBackColor = False
|
||||
'
|
||||
'btnAdressen
|
||||
'
|
||||
Me.btnAdressen.BackColor = System.Drawing.Color.White
|
||||
Me.btnAdressen.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
|
||||
Me.btnAdressen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnAdressen.Image = Global.SDL.My.Resources.Resources.house1
|
||||
Me.btnAdressen.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||
Me.btnAdressen.Location = New System.Drawing.Point(81, 2)
|
||||
Me.btnAdressen.Margin = New System.Windows.Forms.Padding(2)
|
||||
Me.btnAdressen.Name = "btnAdressen"
|
||||
Me.btnAdressen.Padding = New System.Windows.Forms.Padding(0, 0, 0, 3)
|
||||
Me.btnAdressen.Size = New System.Drawing.Size(75, 67)
|
||||
Me.btnAdressen.TabIndex = 1
|
||||
Me.btnAdressen.Text = "Adressen"
|
||||
Me.btnAdressen.TextAlign = System.Drawing.ContentAlignment.BottomCenter
|
||||
Me.btnAdressen.UseVisualStyleBackColor = False
|
||||
'
|
||||
'btnAktiveVeredelung
|
||||
'
|
||||
Me.btnAktiveVeredelung.BackColor = System.Drawing.Color.White
|
||||
Me.btnAktiveVeredelung.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
|
||||
Me.btnAktiveVeredelung.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnAktiveVeredelung.Image = Global.SDL.My.Resources.Resources.aktiveVeredelung1
|
||||
Me.btnAktiveVeredelung.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||
Me.btnAktiveVeredelung.Location = New System.Drawing.Point(160, 2)
|
||||
Me.btnAktiveVeredelung.Margin = New System.Windows.Forms.Padding(2)
|
||||
Me.btnAktiveVeredelung.Name = "btnAktiveVeredelung"
|
||||
Me.btnAktiveVeredelung.Padding = New System.Windows.Forms.Padding(0, 6, 0, 3)
|
||||
Me.btnAktiveVeredelung.Size = New System.Drawing.Size(94, 67)
|
||||
Me.btnAktiveVeredelung.TabIndex = 3
|
||||
Me.btnAktiveVeredelung.Text = "Pass. Veredel."
|
||||
Me.btnAktiveVeredelung.TextAlign = System.Drawing.ContentAlignment.BottomCenter
|
||||
Me.btnAktiveVeredelung.UseVisualStyleBackColor = False
|
||||
Me.btnAktiveVeredelung.Visible = False
|
||||
'
|
||||
'btnPositionen
|
||||
'
|
||||
Me.btnPositionen.BackColor = System.Drawing.Color.White
|
||||
Me.btnPositionen.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
|
||||
Me.btnPositionen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnPositionen.Image = Global.SDL.My.Resources.Resources.list_new_small2
|
||||
Me.btnPositionen.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||
Me.btnPositionen.Location = New System.Drawing.Point(258, 2)
|
||||
Me.btnPositionen.Margin = New System.Windows.Forms.Padding(2)
|
||||
Me.btnPositionen.Name = "btnPositionen"
|
||||
Me.btnPositionen.Padding = New System.Windows.Forms.Padding(0, 0, 0, 3)
|
||||
Me.btnPositionen.Size = New System.Drawing.Size(81, 67)
|
||||
Me.btnPositionen.TabIndex = 4
|
||||
Me.btnPositionen.Text = "Positionen"
|
||||
Me.btnPositionen.TextAlign = System.Drawing.ContentAlignment.BottomCenter
|
||||
Me.btnPositionen.UseVisualStyleBackColor = False
|
||||
'
|
||||
'btnDV1
|
||||
'
|
||||
Me.btnDV1.BackColor = System.Drawing.Color.White
|
||||
Me.btnDV1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
|
||||
Me.btnDV1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnDV1.Image = Global.SDL.My.Resources.Resources.moneybag1
|
||||
Me.btnDV1.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||
Me.btnDV1.Location = New System.Drawing.Point(343, 2)
|
||||
Me.btnDV1.Margin = New System.Windows.Forms.Padding(2)
|
||||
Me.btnDV1.Name = "btnDV1"
|
||||
Me.btnDV1.Padding = New System.Windows.Forms.Padding(0, 2, 0, 3)
|
||||
Me.btnDV1.Size = New System.Drawing.Size(94, 67)
|
||||
Me.btnDV1.TabIndex = 6
|
||||
Me.btnDV1.Text = "D.V.1"
|
||||
Me.btnDV1.TextAlign = System.Drawing.ContentAlignment.BottomCenter
|
||||
Me.btnDV1.UseVisualStyleBackColor = False
|
||||
Me.btnDV1.Visible = False
|
||||
'
|
||||
'Button5
|
||||
'
|
||||
Me.Button5.BackColor = System.Drawing.Color.White
|
||||
Me.Button5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
|
||||
Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button5.Image = Global.SDL.My.Resources.Resources.android_note12
|
||||
Me.Button5.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||
Me.Button5.Location = New System.Drawing.Point(441, 2)
|
||||
Me.Button5.Margin = New System.Windows.Forms.Padding(2)
|
||||
Me.Button5.Name = "Button5"
|
||||
Me.Button5.Padding = New System.Windows.Forms.Padding(0, 12, 0, 3)
|
||||
Me.Button5.Size = New System.Drawing.Size(81, 67)
|
||||
Me.Button5.TabIndex = 5
|
||||
Me.Button5.Text = "Referenzen"
|
||||
Me.Button5.TextAlign = System.Drawing.ContentAlignment.BottomCenter
|
||||
Me.Button5.UseVisualStyleBackColor = False
|
||||
Me.Button5.Visible = False
|
||||
'
|
||||
'cboDakosyAction
|
||||
'
|
||||
Me.cboDakosyAction._allowedValuesFreiText = Nothing
|
||||
Me.cboDakosyAction._allowFreiText = False
|
||||
Me.cboDakosyAction._value = ""
|
||||
Me.cboDakosyAction.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.cboDakosyAction.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
|
||||
Me.cboDakosyAction.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.cboDakosyAction.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.cboDakosyAction.FormattingEnabled = True
|
||||
Me.cboDakosyAction.Location = New System.Drawing.Point(200, 48)
|
||||
Me.cboDakosyAction.Name = "cboDakosyAction"
|
||||
Me.cboDakosyAction.Size = New System.Drawing.Size(158, 21)
|
||||
Me.cboDakosyAction.TabIndex = 1
|
||||
'
|
||||
'cboStammreferenz
|
||||
'
|
||||
Me.cboStammreferenz._allowedValuesFreiText = Nothing
|
||||
Me.cboStammreferenz._allowFreiText = True
|
||||
Me.cboStammreferenz._value = ""
|
||||
Me.cboStammreferenz.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
|
||||
Me.cboStammreferenz.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.cboStammreferenz.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.cboStammreferenz.FormattingEnabled = True
|
||||
Me.cboStammreferenz.Location = New System.Drawing.Point(71, 48)
|
||||
Me.cboStammreferenz.Name = "cboStammreferenz"
|
||||
Me.cboStammreferenz.Size = New System.Drawing.Size(129, 21)
|
||||
Me.cboStammreferenz.TabIndex = 13
|
||||
'
|
||||
'usrCntlATLAS_EZA
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
@@ -500,6 +507,7 @@ Partial Class usrCntlATLAS_EZA
|
||||
Me.SplitContainer.Panel1.ResumeLayout(False)
|
||||
CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.SplitContainer.ResumeLayout(False)
|
||||
Me.MyFlowLayoutPanel1.ResumeLayout(False)
|
||||
Me.pnl.ResumeLayout(False)
|
||||
Me.pnl.PerformLayout()
|
||||
Me.cntxtBezugsnr.ResumeLayout(False)
|
||||
@@ -507,7 +515,6 @@ Partial Class usrCntlATLAS_EZA
|
||||
Me.Panel1.PerformLayout()
|
||||
Me.MenuStrip.ResumeLayout(False)
|
||||
Me.MenuStrip.PerformLayout()
|
||||
Me.MyFlowLayoutPanel1.ResumeLayout(False)
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
@@ -548,4 +555,5 @@ Partial Class usrCntlATLAS_EZA
|
||||
Friend WithEvents GEZEXLSXToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents MEYLEXLSXToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents FressnapToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents VERAGIMPORTFormatToolStripMenuItem As ToolStripMenuItem
|
||||
End Class
|
||||
|
||||
@@ -1135,236 +1135,228 @@ Public Class usrCntlATLAS_EZA
|
||||
|
||||
Private Function importExcel_MEYLE() As Boolean
|
||||
|
||||
Dim fd As New OpenFileDialog With {
|
||||
.Filter = "Excel Dateien|*.xls;*.xlsx",
|
||||
.Multiselect = True,
|
||||
.Title = "Bitte eine oder mehrere Excel-Dateien auswählen"
|
||||
}
|
||||
|
||||
Dim result As DialogResult = fd.ShowDialog()
|
||||
|
||||
If result <> DialogResult.OK Then
|
||||
Me.Cursor = Cursors.Default
|
||||
MsgBox("Keine Datei ausgewählt!")
|
||||
|
||||
Return False
|
||||
|
||||
Else
|
||||
|
||||
Dim cnt = 0
|
||||
Dim f As New frmImportFromAVISOAnhaenge(AVISO, SENDUNG)
|
||||
f.ShowDialog(Me)
|
||||
Dim LIST_FILES = f.LIST_FILES
|
||||
If Not f.DialogResult = DialogResult.OK Then Return False
|
||||
If LIST_FILES.Count = 0 Then Return False
|
||||
|
||||
|
||||
If EZA.eza_WARENPOS.Count > 0 Then
|
||||
If vbYes = MsgBox("Sollten die aktuellen Einträge gelöscht werden?", vbYesNo) Then
|
||||
EZA.eza_WARENPOS.Clear() 'Zurücksetzen
|
||||
End If
|
||||
|
||||
Dim cnt = 0
|
||||
|
||||
|
||||
If EZA.eza_WARENPOS.Count > 0 Then
|
||||
If vbYes = MsgBox("Sollten die aktuellen Einträge gelöscht werden?", vbYesNo) Then
|
||||
EZA.eza_WARENPOS.Clear() 'Zurücksetzen
|
||||
End If
|
||||
End If
|
||||
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
|
||||
For Each filePath As String In LIST_FILES
|
||||
If Not filePath.ToLower.EndsWith(".xls") AndAlso Not filePath.ToLower.EndsWith(".xlsx") Then
|
||||
' Ungültige Datei – überspringen oder abbrechen
|
||||
Continue For
|
||||
End If
|
||||
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
|
||||
For Each filePath As String In fd.FileNames
|
||||
If Not filePath.ToLower.EndsWith(".xls") AndAlso Not filePath.ToLower.EndsWith(".xlsx") Then
|
||||
' Ungültige Datei – überspringen oder abbrechen
|
||||
Continue For
|
||||
End If
|
||||
|
||||
|
||||
|
||||
Dim exclApp As New Excel.Application 'Object 'as Application
|
||||
Dim Datei As Excel.Workbook ' 'as WorkBook
|
||||
Dim Blatt As Excel.Worksheet 'Object 'as WorkSheet
|
||||
|
||||
Dim exclApp As New Excel.Application 'Object 'as Application
|
||||
Dim Datei As Excel.Workbook ' 'as WorkBook
|
||||
Dim Blatt As Excel.Worksheet 'Object 'as WorkSheet
|
||||
With exclApp
|
||||
Try
|
||||
|
||||
.CutCopyMode = False
|
||||
.DisplayAlerts = False
|
||||
|
||||
|
||||
Datei = .Workbooks.Open(filePath)
|
||||
Blatt = Datei.Worksheets(1)
|
||||
|
||||
Datei.Activate()
|
||||
|
||||
With exclApp
|
||||
Try
|
||||
Blatt.ShowAllData() 'Falls Filter ausgewählt wurde
|
||||
Catch ex As Exception
|
||||
|
||||
.CutCopyMode = False
|
||||
.DisplayAlerts = False
|
||||
End Try
|
||||
|
||||
Dim startFound As Boolean = False
|
||||
Dim endFound As Boolean = False
|
||||
|
||||
If Not checkExcel_MEYLE(Blatt) Then 'VALIDIERUNG
|
||||
Me.Cursor = Cursors.Default
|
||||
Return False
|
||||
End If
|
||||
|
||||
|
||||
Datei = .Workbooks.Open(fd.FileName)
|
||||
Blatt = Datei.Worksheets(1)
|
||||
Dim startRows As Integer = 6
|
||||
|
||||
Datei.Activate()
|
||||
|
||||
Try
|
||||
Blatt.ShowAllData() 'Falls Filter ausgewählt wurde
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
|
||||
Dim startFound As Boolean = False
|
||||
Dim endFound As Boolean = False
|
||||
|
||||
If Not checkExcel_MEYLE(Blatt) Then 'VALIDIERUNG
|
||||
Me.Cursor = Cursors.Default
|
||||
Return False
|
||||
Dim endRows As Integer = startRows
|
||||
While endRows < Blatt.UsedRange.Rows.Count
|
||||
If Not Blatt.Range("A" & endRows) Is Nothing AndAlso Not Blatt.Range("A" & endRows).Value Is Nothing AndAlso Not Blatt.Range("A" & endRows).Value.ToString.Trim = "" Then
|
||||
endFound = True
|
||||
Else
|
||||
Exit While
|
||||
End If
|
||||
endRows += 1
|
||||
End While
|
||||
endRows -= 1
|
||||
|
||||
If Not endFound Then
|
||||
MsgBox("Keine Daten vorhanden!")
|
||||
Me.Cursor = Cursors.Default
|
||||
Return False
|
||||
End If
|
||||
|
||||
|
||||
Dim startRows As Integer = 6
|
||||
' Neue DataTable erstellen
|
||||
Dim DATA As New DataTable()
|
||||
|
||||
Dim endRows As Integer = startRows
|
||||
While endRows < Blatt.UsedRange.Rows.Count
|
||||
If Not Blatt.Range("A" & endRows) Is Nothing AndAlso Not Blatt.Range("A" & endRows).Value Is Nothing AndAlso Not Blatt.Range("A" & endRows).Value.ToString.Trim = "" Then
|
||||
endFound = True
|
||||
Else
|
||||
Exit While
|
||||
End If
|
||||
endRows += 1
|
||||
End While
|
||||
endRows -= 1
|
||||
' Spalten anhand der Anzahl im Range anlegen
|
||||
Dim colCount As Integer = Blatt.Range("A1:M1").Columns.Count
|
||||
For c As Integer = 1 To colCount
|
||||
DATA.Columns.Add("Spalte" & c, GetType(String))
|
||||
Next
|
||||
|
||||
If Not endFound Then
|
||||
MsgBox("Keine Daten vorhanden!")
|
||||
Me.Cursor = Cursors.Default
|
||||
Return False
|
||||
End If
|
||||
|
||||
|
||||
' Neue DataTable erstellen
|
||||
Dim DATA As New DataTable()
|
||||
|
||||
' Spalten anhand der Anzahl im Range anlegen
|
||||
Dim colCount As Integer = Blatt.Range("A1:M1").Columns.Count
|
||||
' Range direkt durchlaufen
|
||||
For r As Integer = startRows To endRows
|
||||
Dim newRow As DataRow = DATA.NewRow()
|
||||
For c As Integer = 1 To colCount
|
||||
DATA.Columns.Add("Spalte" & c, GetType(String))
|
||||
Dim value = Blatt.Cells(r, c).Value
|
||||
newRow(c - 1) = If(value IsNot Nothing, value.ToString(), "")
|
||||
Next
|
||||
DATA.Rows.Add(newRow)
|
||||
Next
|
||||
|
||||
' Range direkt durchlaufen
|
||||
For r As Integer = startRows To endRows
|
||||
Dim newRow As DataRow = DATA.NewRow()
|
||||
For c As Integer = 1 To colCount
|
||||
Dim value = Blatt.Cells(r, c).Value
|
||||
newRow(c - 1) = If(value IsNot Nothing, value.ToString(), "")
|
||||
Next
|
||||
DATA.Rows.Add(newRow)
|
||||
Next
|
||||
|
||||
' DataTable durchlaufen und Zeilen löschen, bei denen Spalte 6 "summe" enthält
|
||||
For i As Integer = DATA.Rows.Count - 1 To 0 Step -1
|
||||
Dim cellValue As String = DATA.Rows(i)(6).ToString().ToLower() ' Spalte 6 = Index 5
|
||||
If cellValue.Contains("summe") Then
|
||||
DATA.Rows.RemoveAt(i)
|
||||
End If
|
||||
Next
|
||||
' DataTable durchlaufen und Zeilen löschen, bei denen Spalte 6 "summe" enthält
|
||||
For i As Integer = DATA.Rows.Count - 1 To 0 Step -1
|
||||
Dim cellValue As String = DATA.Rows(i)(6).ToString().ToLower() ' Spalte 6 = Index 5
|
||||
If cellValue.Contains("summe") Then
|
||||
DATA.Rows.RemoveAt(i)
|
||||
End If
|
||||
Next
|
||||
|
||||
|
||||
'--------------------------------------------------------------------------------------------------------------
|
||||
'--------------------------------------------------------------------------------------------------------------
|
||||
|
||||
' Spaltenüberschriften ausgeben
|
||||
' Spaltenüberschriften ausgeben
|
||||
For Each col As DataColumn In DATA.Columns
|
||||
Console.Write(col.ColumnName & vbTab)
|
||||
Next
|
||||
Console.WriteLine()
|
||||
|
||||
' Alle Zeilen ausgeben
|
||||
For Each row As DataRow In DATA.Rows
|
||||
For Each col As DataColumn In DATA.Columns
|
||||
Console.Write(col.ColumnName & vbTab)
|
||||
Console.Write(row(col).ToString() & vbTab)
|
||||
Next
|
||||
Console.WriteLine()
|
||||
Next
|
||||
|
||||
' Alle Zeilen ausgeben
|
||||
For Each row As DataRow In DATA.Rows
|
||||
For Each col As DataColumn In DATA.Columns
|
||||
Console.Write(row(col).ToString() & vbTab)
|
||||
Next
|
||||
Console.WriteLine()
|
||||
Next
|
||||
'--------------------------------------------------------------------------------------------------------------
|
||||
'-------------HIER WERDEN DIE Zeilen kommuliert---------------------------------------------------------
|
||||
'--------------------------------------------------------------------------------------------------------------
|
||||
|
||||
'--------------------------------------------------------------------------------------------------------------
|
||||
'-------------HIER WERDEN DIE Zeilen kommuliert---------------------------------------------------------
|
||||
'--------------------------------------------------------------------------------------------------------------
|
||||
' Neue Tabelle mit gleicher Struktur
|
||||
Dim resultDATA As DataTable = DATA.Clone()
|
||||
'0 = Wartentarifnummer
|
||||
'6 = Wartenbeschreibung
|
||||
'12 = Währung (immer gleich)?
|
||||
' Gruppieren nach den Schlüsseln Spalte 0, 6 und 12
|
||||
Dim groups = From row In DATA.AsEnumerable()
|
||||
Group row By key1 = row(0), key2 = row(6), key3 = row(12) Into grp = Group
|
||||
Select key1, key2, key3, grp
|
||||
|
||||
' Neue Tabelle mit gleicher Struktur
|
||||
Dim resultDATA As DataTable = DATA.Clone()
|
||||
'0 = Wartentarifnummer
|
||||
'6 = Wartenbeschreibung
|
||||
'12 = Währung (immer gleich)?
|
||||
' Gruppieren nach den Schlüsseln Spalte 0, 6 und 12
|
||||
Dim groups = From row In DATA.AsEnumerable()
|
||||
Group row By key1 = row(0), key2 = row(6), key3 = row(12) Into grp = Group
|
||||
Select key1, key2, key3, grp
|
||||
' Gruppen durchlaufen und kumulierte Zeilen erstellen
|
||||
For Each g In groups
|
||||
Dim newRow As DataRow = resultDATA.NewRow()
|
||||
|
||||
' Gruppen durchlaufen und kumulierte Zeilen erstellen
|
||||
For Each g In groups
|
||||
Dim newRow As DataRow = resultDATA.NewRow()
|
||||
' Gruppierungsspalten setzen
|
||||
newRow(0) = g.key1
|
||||
newRow(6) = g.key2
|
||||
newRow(12) = g.key3
|
||||
|
||||
' Gruppierungsspalten setzen
|
||||
newRow(0) = g.key1
|
||||
newRow(6) = g.key2
|
||||
newRow(12) = g.key3
|
||||
' Summen berechnen
|
||||
newRow(7) = g.grp.Sum(Function(r) ToDoubleSafe(r(7)))
|
||||
newRow(9) = g.grp.Sum(Function(r) ToDoubleSafe(r(9)))
|
||||
newRow(11) = g.grp.Sum(Function(r) ToDoubleSafe(r(11)))
|
||||
|
||||
' Summen berechnen
|
||||
newRow(7) = g.grp.Sum(Function(r) ToDoubleSafe(r(7)))
|
||||
newRow(9) = g.grp.Sum(Function(r) ToDoubleSafe(r(9)))
|
||||
newRow(11) = g.grp.Sum(Function(r) ToDoubleSafe(r(11)))
|
||||
' Restliche Spalten Nothing lassen (bleibt automatisch so)
|
||||
|
||||
' Restliche Spalten Nothing lassen (bleibt automatisch so)
|
||||
resultDATA.Rows.Add(newRow)
|
||||
Next
|
||||
|
||||
resultDATA.Rows.Add(newRow)
|
||||
Next
|
||||
' Falls du das Ergebnis in DATA zurückschreiben willst:
|
||||
DATA = resultDATA
|
||||
|
||||
' Falls du das Ergebnis in DATA zurückschreiben willst:
|
||||
DATA = resultDATA
|
||||
'--------------------------------------------------------------------------------------------------------------
|
||||
'--------------------------------------------------------------------------------------------------------------
|
||||
|
||||
'--------------------------------------------------------------------------------------------------------------
|
||||
'--------------------------------------------------------------------------------------------------------------
|
||||
' Spaltenüberschriften ausgeben
|
||||
For Each col As DataColumn In DATA.Columns
|
||||
Console.Write(col.ColumnName & vbTab)
|
||||
Next
|
||||
Console.WriteLine()
|
||||
|
||||
' Spaltenüberschriften ausgeben
|
||||
' Alle Zeilen ausgeben
|
||||
For Each row As DataRow In DATA.Rows
|
||||
For Each col As DataColumn In DATA.Columns
|
||||
Console.Write(col.ColumnName & vbTab)
|
||||
Console.Write(row(col).ToString() & vbTab)
|
||||
Next
|
||||
Console.WriteLine()
|
||||
Next
|
||||
|
||||
' Alle Zeilen ausgeben
|
||||
'--------------------------------------------------------------------------------------------------------------
|
||||
|
||||
|
||||
Dim HandlesRgNr = ""
|
||||
If Blatt.Range("B3") IsNot Nothing AndAlso Blatt.Range("B3").Value IsNot Nothing Then
|
||||
HandlesRgNr = Blatt.Range("B3").Value.ToString().Trim()
|
||||
End If
|
||||
Dim HandlesRgDat = ""
|
||||
If Blatt.Range("B1") IsNot Nothing AndAlso Blatt.Range("B1").Value IsNot Nothing Then
|
||||
HandlesRgDat = Blatt.Range("B1").Value.ToString().Trim()
|
||||
End If
|
||||
|
||||
' MsgBox("A" & startRows & ":I" & endRows & "")
|
||||
|
||||
|
||||
|
||||
Try
|
||||
For Each row As DataRow In DATA.Rows
|
||||
For Each col As DataColumn In DATA.Columns
|
||||
Console.Write(row(col).ToString() & vbTab)
|
||||
Next
|
||||
Console.WriteLine()
|
||||
Next
|
||||
' Prüfen, ob Spalte 1 (Index 0) gefüllt ist
|
||||
If row(0) IsNot Nothing AndAlso row(0).ToString().Trim() <> "" Then
|
||||
|
||||
'--------------------------------------------------------------------------------------------------------------
|
||||
Dim POSITION As New DAKOSY_Worker.cDakosy_EZA_Warenposition
|
||||
POSITION.ezaWP_WarennummerEZT = row(0).ToString()
|
||||
POSITION.ezaWP_PackstueckAnzahl = "0" ' row(5).ToString()
|
||||
POSITION.ezaWP_PackstueckArt = "PK"
|
||||
|
||||
' Sicher konvertieren, falls leer oder ungültig
|
||||
Dim preis As Double
|
||||
Double.TryParse(row(11).ToString(), preis)
|
||||
POSITION.ezaWP_Artikelpreis = preis.ToString("N2")
|
||||
|
||||
Dim HandlesRgNr = ""
|
||||
If Blatt.Range("B3") IsNot Nothing AndAlso Blatt.Range("B3").Value IsNot Nothing Then
|
||||
HandlesRgNr = Blatt.Range("B3").Value.ToString().Trim()
|
||||
End If
|
||||
Dim HandlesRgDat = ""
|
||||
If Blatt.Range("B1") IsNot Nothing AndAlso Blatt.Range("B1").Value IsNot Nothing Then
|
||||
HandlesRgDat = Blatt.Range("B1").Value.ToString().Trim()
|
||||
End If
|
||||
POSITION.ezaWP_ArtikelpreisWaehrung = row(12).ToString()
|
||||
POSITION.ezaWP_Warenbezeichnung = row(6).ToString()
|
||||
|
||||
' MsgBox("A" & startRows & ":I" & endRows & "")
|
||||
Dim masse As Double
|
||||
Double.TryParse(row(9).ToString(), masse)
|
||||
POSITION.ezaWP_Eigenmasse = masse.ToString("N1")
|
||||
|
||||
' Ursprungsland ggf. per Select Case setzen
|
||||
'Select Case row(3).ToString()
|
||||
' Case "TURKEY" : POSITION.ezaWP_UrsprungslandCode = "TR"
|
||||
' Case "ITALY" : POSITION.ezaWP_UrsprungslandCode = "IT"
|
||||
' ...
|
||||
'End Select
|
||||
|
||||
|
||||
Try
|
||||
For Each row As DataRow In DATA.Rows
|
||||
' Prüfen, ob Spalte 1 (Index 0) gefüllt ist
|
||||
If row(0) IsNot Nothing AndAlso row(0).ToString().Trim() <> "" Then
|
||||
|
||||
Dim POSITION As New DAKOSY_Worker.cDakosy_EZA_Warenposition
|
||||
POSITION.ezaWP_WarennummerEZT = row(0).ToString()
|
||||
POSITION.ezaWP_PackstueckAnzahl = "0" ' row(5).ToString()
|
||||
POSITION.ezaWP_PackstueckArt = "PK"
|
||||
|
||||
' Sicher konvertieren, falls leer oder ungültig
|
||||
Dim preis As Double
|
||||
Double.TryParse(row(11).ToString(), preis)
|
||||
POSITION.ezaWP_Artikelpreis = preis.ToString("N2")
|
||||
|
||||
POSITION.ezaWP_ArtikelpreisWaehrung = row(12).ToString()
|
||||
POSITION.ezaWP_Warenbezeichnung = row(6).ToString()
|
||||
|
||||
Dim masse As Double
|
||||
Double.TryParse(row(9).ToString(), masse)
|
||||
POSITION.ezaWP_Eigenmasse = masse.ToString("N1")
|
||||
|
||||
' Ursprungsland ggf. per Select Case setzen
|
||||
'Select Case row(3).ToString()
|
||||
' Case "TURKEY" : POSITION.ezaWP_UrsprungslandCode = "TR"
|
||||
' Case "ITALY" : POSITION.ezaWP_UrsprungslandCode = "IT"
|
||||
' ...
|
||||
'End Select
|
||||
|
||||
POSITION.ezaWP_UNTERLAGEN.Add(New DAKOSY_Worker.cDakosy_EZA_WarenpositionVorgelegteUnterlagen With {
|
||||
POSITION.ezaWP_UNTERLAGEN.Add(New DAKOSY_Worker.cDakosy_EZA_WarenpositionVorgelegteUnterlagen With {
|
||||
.ezaWpUl_Art = "N380",
|
||||
.ezaWpUl_Bereich = "4",
|
||||
.ezaWpUl_VorlageKz = "J",
|
||||
@@ -1372,55 +1364,54 @@ Public Class usrCntlATLAS_EZA
|
||||
.ezaWpUl_DatumAusstellung = Nothing
|
||||
})
|
||||
|
||||
EZA.eza_WARENPOS.Add(POSITION)
|
||||
cnt += 1
|
||||
End If
|
||||
Next
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler beim Einlesen der Excel-Datei!" & vbNewLine & vbNewLine & ex.Message & ex.StackTrace)
|
||||
Me.Cursor = Cursors.Default
|
||||
Return False
|
||||
End Try
|
||||
|
||||
|
||||
.Visible = False
|
||||
|
||||
' AddHandler exclApp.WorkbookBeforeClose, AddressOf BeforeBookClose
|
||||
'Excelobjekte freistellten
|
||||
' For Each obj In New Object() {exclApp, Datei, Datei, Blatt, Blatt}
|
||||
' System.Runtime.InteropServices.Marshal.FinalReleaseComObject(obj)
|
||||
' Next
|
||||
Datei.Close()
|
||||
|
||||
|
||||
|
||||
|
||||
EZA.eza_WARENPOS.Add(POSITION)
|
||||
cnt += 1
|
||||
End If
|
||||
Next
|
||||
Catch ex As Exception
|
||||
'
|
||||
MsgBox("Fehler beim Einlesen der Excel-Datei!" & vbNewLine & vbNewLine & ex.Message & ex.StackTrace)
|
||||
Me.Cursor = Cursors.Default
|
||||
MsgBox("FEHLER! Datei im richtigen Format?" & vbNewLine & vbNewLine & ex.Message & ex.StackTrace)
|
||||
' Return False
|
||||
Return False
|
||||
End Try
|
||||
End With
|
||||
|
||||
|
||||
.Visible = False
|
||||
|
||||
' AddHandler exclApp.WorkbookBeforeClose, AddressOf BeforeBookClose
|
||||
'Excelobjekte freistellten
|
||||
' For Each obj In New Object() {exclApp, Datei, Datei, Blatt, Blatt}
|
||||
' System.Runtime.InteropServices.Marshal.FinalReleaseComObject(obj)
|
||||
' Next
|
||||
Datei.Close()
|
||||
|
||||
|
||||
|
||||
' >>> Hier kannst du jede gültige Excel-Datei weiterverarbeiten:
|
||||
Console.WriteLine("Verarbeite Datei: " & filePath)
|
||||
' z. B. Excel öffnen, Range lesen etc.
|
||||
Next
|
||||
|
||||
Me.FindForm.SuspendLayout()
|
||||
POSITIONEN.setValues(EZA, True)
|
||||
btnPositionen.PerformClick()
|
||||
Me.FindForm.ResumeLayout()
|
||||
Catch ex As Exception
|
||||
'
|
||||
Me.Cursor = Cursors.Default
|
||||
MsgBox("FEHLER! Datei im richtigen Format?" & vbNewLine & vbNewLine & ex.Message & ex.StackTrace)
|
||||
' Return False
|
||||
End Try
|
||||
End With
|
||||
|
||||
MsgBox(cnt & " Datensätze wurden eingelesen. ")
|
||||
|
||||
Me.Cursor = Cursors.Default
|
||||
Return True
|
||||
|
||||
End If
|
||||
' >>> Hier kannst du jede gültige Excel-Datei weiterverarbeiten:
|
||||
Console.WriteLine("Verarbeite Datei: " & filePath)
|
||||
' z. B. Excel öffnen, Range lesen etc.
|
||||
Next
|
||||
|
||||
Me.FindForm.SuspendLayout()
|
||||
POSITIONEN.setValues(EZA, True)
|
||||
btnPositionen.PerformClick()
|
||||
Me.FindForm.ResumeLayout()
|
||||
|
||||
MsgBox(cnt & " Datensätze wurden eingelesen. ")
|
||||
|
||||
Me.Cursor = Cursors.Default
|
||||
Return True
|
||||
|
||||
|
||||
Me.Cursor = Cursors.Default
|
||||
Return False
|
||||
@@ -1487,17 +1478,15 @@ Public Class usrCntlATLAS_EZA
|
||||
End Sub
|
||||
|
||||
Private Function importExcel_Fressnapf() As Boolean
|
||||
Dim fd As New OpenFileDialog With {
|
||||
.Filter = "Excel Dateien|*.xls;*.xlsx",
|
||||
.Multiselect = True,
|
||||
.Title = "Bitte eine oder mehrere Excel-Dateien auswählen"
|
||||
}
|
||||
|
||||
If fd.ShowDialog() <> DialogResult.OK Then
|
||||
Me.Cursor = Cursors.Default
|
||||
MsgBox("Keine Datei ausgewählt!")
|
||||
Return False
|
||||
End If
|
||||
Dim f As New frmImportFromAVISOAnhaenge(AVISO, SENDUNG)
|
||||
f.ShowDialog(Me)
|
||||
Dim LIST_FILES = f.LIST_FILES
|
||||
If Not f.DialogResult = DialogResult.OK Then Return False
|
||||
If LIST_FILES.Count = 0 Then Return False
|
||||
|
||||
|
||||
|
||||
|
||||
Dim cnt As Integer = 0
|
||||
|
||||
@@ -1509,7 +1498,7 @@ Public Class usrCntlATLAS_EZA
|
||||
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
|
||||
For Each filePath As String In fd.FileNames
|
||||
For Each filePath As String In LIST_FILES
|
||||
If Not (filePath.ToLower().EndsWith(".xls") OrElse filePath.ToLower().EndsWith(".xlsx")) Then
|
||||
Continue For
|
||||
End If
|
||||
@@ -1783,6 +1772,8 @@ Public Class usrCntlATLAS_EZA
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Private Sub VERAGIMPORTFormatToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VERAGIMPORTFormatToolStripMenuItem.Click
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
|
||||
Reference in New Issue
Block a user