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

commit

Browse Source
This commit is contained in:
m.ilhan
2024-10-01 16:32:40 +02:00
parent 76fbf96823
commit fad2055152
2987 changed files with 13801 additions and 200 deletions
Download Patch File Download Diff File Expand all files Collapse all files

518
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.Designer.vb generated
View File

@@ -1,518 +0,0 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class usrCntlATLAS_EZA
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.SplitContainer = New System.Windows.Forms.SplitContainer()
Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel()
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()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.lblBezugsnummer = New System.Windows.Forms.Label()
Me.cntxtBezugsnr = New System.Windows.Forms.ContextMenuStrip()
Me.NeueBezugsnummerVergebenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.BezugsnummerKopierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.txtDyMandant = New System.Windows.Forms.Label()
Me.txtDyNiederlassung = New System.Windows.Forms.Label()
Me.MenuStrip = New System.Windows.Forms.MenuStrip()
Me.OptionenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.SpeichernToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.LadenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DateiimportToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DynamicAutomotiveXLSToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.EZAIDToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
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.SuspendLayout()
'
'SplitContainer
'
Me.SplitContainer.Dock = System.Windows.Forms.DockStyle.Fill
Me.SplitContainer.FixedPanel = System.Windows.Forms.FixedPanel.Panel1
Me.SplitContainer.IsSplitterFixed = True
Me.SplitContainer.Location = New System.Drawing.Point(0, 25)
Me.SplitContainer.Margin = New System.Windows.Forms.Padding(0)
Me.SplitContainer.Name = "SplitContainer"
Me.SplitContainer.Orientation = System.Windows.Forms.Orientation.Horizontal
'
'SplitContainer.Panel1
'
Me.SplitContainer.Panel1.Controls.Add(Me.MyFlowLayoutPanel1)
Me.SplitContainer.Panel1.Controls.Add(Me.pnl)
'
'SplitContainer.Panel2
'
Me.SplitContainer.Panel2.BackColor = System.Drawing.Color.WhiteSmoke
Me.SplitContainer.Size = New System.Drawing.Size(934, 687)
Me.SplitContainer.SplitterDistance = 72
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
Me.pnl.Controls.Add(Me.Label6)
Me.pnl.Controls.Add(Me.cboDakosyAction)
Me.pnl.Controls.Add(Me.cboStammreferenz)
Me.pnl.Controls.Add(Me.Button1)
Me.pnl.Controls.Add(Me.Label4)
Me.pnl.Controls.Add(Me.Label5)
Me.pnl.Controls.Add(Me.Label2)
Me.pnl.Controls.Add(Me.Label3)
Me.pnl.Dock = System.Windows.Forms.DockStyle.Right
Me.pnl.Location = New System.Drawing.Point(573, 0)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(361, 72)
Me.pnl.TabIndex = 1
'
'Label6
'
Me.Label6.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(8, 51)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(57, 13)
Me.Label6.TabIndex = 14
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)
Me.Button1.BackColor = System.Drawing.Color.White
Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.Button1.Location = New System.Drawing.Point(200, 5)
Me.Button1.Margin = New System.Windows.Forms.Padding(2)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(159, 42)
Me.Button1.TabIndex = 6
Me.Button1.Text = "An DAKOSY senden -->"
Me.Button1.UseVisualStyleBackColor = False
'
'Label4
'
Me.Label4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(8, 24)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(60, 13)
Me.Label4.TabIndex = 9
Me.Label4.Text = "Rohmasse:"
Me.Label4.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'Label5
'
Me.Label5.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold)
Me.Label5.Location = New System.Drawing.Point(100, 21)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(95, 18)
Me.Label5.TabIndex = 10
Me.Label5.Text = "0 kg"
Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label2
'
Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(8, 8)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(59, 13)
Me.Label2.TabIndex = 7
Me.Label2.Text = "Positionen:"
Me.Label2.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'Label3
'
Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold)
Me.Label3.Location = New System.Drawing.Point(103, 5)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(92, 18)
Me.Label3.TabIndex = 8
Me.Label3.Text = "1"
Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label1
'
Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label1.AutoSize = True
Me.Label1.BackColor = System.Drawing.Color.White
Me.Label1.Location = New System.Drawing.Point(581, 7)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(82, 13)
Me.Label1.TabIndex = 5
Me.Label1.Text = "Bezugsnummer:"
'
'lblBezugsnummer
'
Me.lblBezugsnummer.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblBezugsnummer.BackColor = System.Drawing.Color.White
Me.lblBezugsnummer.ContextMenuStrip = Me.cntxtBezugsnr
Me.lblBezugsnummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblBezugsnummer.Location = New System.Drawing.Point(738, 1)
Me.lblBezugsnummer.Name = "lblBezugsnummer"
Me.lblBezugsnummer.Size = New System.Drawing.Size(193, 23)
Me.lblBezugsnummer.TabIndex = 6
Me.lblBezugsnummer.Text = "4800/000000/17 AAA"
Me.lblBezugsnummer.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'cntxtBezugsnr
'
Me.cntxtBezugsnr.ImageScalingSize = New System.Drawing.Size(24, 24)
Me.cntxtBezugsnr.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NeueBezugsnummerVergebenToolStripMenuItem, Me.BezugsnummerKopierenToolStripMenuItem})
Me.cntxtBezugsnr.Name = "cntxtBezugsnr"
Me.cntxtBezugsnr.Size = New System.Drawing.Size(239, 48)
Me.cntxtBezugsnr.Text = "Bezugsnr"
'
'NeueBezugsnummerVergebenToolStripMenuItem
'
Me.NeueBezugsnummerVergebenToolStripMenuItem.Name = "NeueBezugsnummerVergebenToolStripMenuItem"
Me.NeueBezugsnummerVergebenToolStripMenuItem.Size = New System.Drawing.Size(238, 22)
Me.NeueBezugsnummerVergebenToolStripMenuItem.Text = "neue Bezugsnummer vergeben"
'
'BezugsnummerKopierenToolStripMenuItem
'
Me.BezugsnummerKopierenToolStripMenuItem.Name = "BezugsnummerKopierenToolStripMenuItem"
Me.BezugsnummerKopierenToolStripMenuItem.Size = New System.Drawing.Size(238, 22)
Me.BezugsnummerKopierenToolStripMenuItem.Text = "Bezugsnummer kopieren"
'
'Panel1
'
Me.Panel1.Controls.Add(Me.txtDyMandant)
Me.Panel1.Controls.Add(Me.txtDyNiederlassung)
Me.Panel1.Controls.Add(Me.Label1)
Me.Panel1.Controls.Add(Me.lblBezugsnummer)
Me.Panel1.Controls.Add(Me.MenuStrip)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(934, 25)
Me.Panel1.TabIndex = 1
'
'txtDyMandant
'
Me.txtDyMandant.BackColor = System.Drawing.Color.White
Me.txtDyMandant.Location = New System.Drawing.Point(443, 7)
Me.txtDyMandant.Name = "txtDyMandant"
Me.txtDyMandant.Size = New System.Drawing.Size(48, 13)
Me.txtDyMandant.TabIndex = 21
Me.txtDyMandant.Text = "VERG"
Me.txtDyMandant.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'txtDyNiederlassung
'
Me.txtDyNiederlassung.BackColor = System.Drawing.Color.White
Me.txtDyNiederlassung.Location = New System.Drawing.Point(497, 7)
Me.txtDyNiederlassung.Name = "txtDyNiederlassung"
Me.txtDyNiederlassung.Size = New System.Drawing.Size(76, 13)
Me.txtDyNiederlassung.TabIndex = 20
Me.txtDyNiederlassung.Text = "SUB"
'
'MenuStrip
'
Me.MenuStrip.BackColor = System.Drawing.Color.White
Me.MenuStrip.ImageScalingSize = New System.Drawing.Size(24, 24)
Me.MenuStrip.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.OptionenToolStripMenuItem, Me.DateiimportToolStripMenuItem, Me.ToolStripMenuItem1})
Me.MenuStrip.Location = New System.Drawing.Point(0, 0)
Me.MenuStrip.Name = "MenuStrip"
Me.MenuStrip.Size = New System.Drawing.Size(934, 24)
Me.MenuStrip.TabIndex = 0
'
'OptionenToolStripMenuItem
'
Me.OptionenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SpeichernToolStripMenuItem, Me.LadenToolStripMenuItem})
Me.OptionenToolStripMenuItem.Name = "OptionenToolStripMenuItem"
Me.OptionenToolStripMenuItem.Size = New System.Drawing.Size(69, 20)
Me.OptionenToolStripMenuItem.Text = "Optionen"
'
'SpeichernToolStripMenuItem
'
Me.SpeichernToolStripMenuItem.Name = "SpeichernToolStripMenuItem"
Me.SpeichernToolStripMenuItem.Size = New System.Drawing.Size(126, 22)
Me.SpeichernToolStripMenuItem.Text = "Speichern"
'
'LadenToolStripMenuItem
'
Me.LadenToolStripMenuItem.Name = "LadenToolStripMenuItem"
Me.LadenToolStripMenuItem.Size = New System.Drawing.Size(126, 22)
Me.LadenToolStripMenuItem.Text = "Laden ..."
Me.LadenToolStripMenuItem.Visible = False
'
'DateiimportToolStripMenuItem
'
Me.DateiimportToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DynamicAutomotiveXLSToolStripMenuItem})
Me.DateiimportToolStripMenuItem.Name = "DateiimportToolStripMenuItem"
Me.DateiimportToolStripMenuItem.Size = New System.Drawing.Size(87, 20)
Me.DateiimportToolStripMenuItem.Text = "Datei-Import"
'
'DynamicAutomotiveXLSToolStripMenuItem
'
Me.DynamicAutomotiveXLSToolStripMenuItem.Name = "DynamicAutomotiveXLSToolStripMenuItem"
Me.DynamicAutomotiveXLSToolStripMenuItem.Size = New System.Drawing.Size(224, 22)
Me.DynamicAutomotiveXLSToolStripMenuItem.Text = "Dynamic Automotive (XLSX)"
'
'ToolStripMenuItem1
'
Me.ToolStripMenuItem1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.EZAIDToolStripMenuItem})
Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
Me.ToolStripMenuItem1.Size = New System.Drawing.Size(24, 20)
Me.ToolStripMenuItem1.Text = "?"
'
'EZAIDToolStripMenuItem
'
Me.EZAIDToolStripMenuItem.Name = "EZAIDToolStripMenuItem"
Me.EZAIDToolStripMenuItem.Size = New System.Drawing.Size(109, 22)
Me.EZAIDToolStripMenuItem.Text = "EZA ID"
'
'usrCntlATLAS_EZA
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Controls.Add(Me.SplitContainer)
Me.Controls.Add(Me.Panel1)
Me.Name = "usrCntlATLAS_EZA"
Me.Size = New System.Drawing.Size(934, 712)
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)
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
Me.MenuStrip.ResumeLayout(False)
Me.MenuStrip.PerformLayout()
Me.ResumeLayout(False)
End Sub
Friend WithEvents SplitContainer As System.Windows.Forms.SplitContainer
Friend WithEvents MyFlowLayoutPanel1 As VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel
Friend WithEvents btnAllgemein As System.Windows.Forms.Button
Friend WithEvents btnAdressen As System.Windows.Forms.Button
Friend WithEvents btnAktiveVeredelung As System.Windows.Forms.Button
Friend WithEvents btnPositionen As System.Windows.Forms.Button
Friend WithEvents Button5 As System.Windows.Forms.Button
Friend WithEvents pnl As System.Windows.Forms.Panel
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents lblBezugsnummer As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents MenuStrip As System.Windows.Forms.MenuStrip
Friend WithEvents OptionenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents SpeichernToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents LadenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents cboDakosyAction As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents cntxtBezugsnr As System.Windows.Forms.ContextMenuStrip
Friend WithEvents NeueBezugsnummerVergebenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents cboStammreferenz As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents txtDyMandant As System.Windows.Forms.Label
Friend WithEvents txtDyNiederlassung As System.Windows.Forms.Label
Friend WithEvents btnDV1 As System.Windows.Forms.Button
Friend WithEvents ToolStripMenuItem1 As ToolStripMenuItem
Friend WithEvents EZAIDToolStripMenuItem As ToolStripMenuItem
Friend WithEvents BezugsnummerKopierenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents DateiimportToolStripMenuItem As ToolStripMenuItem
Friend WithEvents DynamicAutomotiveXLSToolStripMenuItem As ToolStripMenuItem
End Class

126
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.resx
View File

@@ -1,126 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="cntxtBezugsnr.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>125, 17</value>
</metadata>
<metadata name="MenuStrip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
</root>

940
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb
View File

@@ -1,940 +0,0 @@
Imports DAKOSY_Worker
Imports Tamir
Imports Tamir.SharpSsh
Imports Microsoft.Office.Interop
Imports VERAG_PROG_ALLGEMEIN
Public Class usrCntlATLAS_EZA
Property ALLG As usrCntlATLAS_EZA_Allg
Property ADRESSEN As usrCntlATLAS_EZA_Adressen
Property POSITIONEN As usrCntlATLAS_EZA_Positionen
Property DV1 As usrCntlATLAS_EZA_DV1
Property Jahr2Stellig As Integer
Property zusatz As String
Property BezugsNr As String = ""
Dim sentToDakosy = False
Property AVISO As VERAG_PROG_ALLGEMEIN.cAviso
Property SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen
Dim cDy_ART As String = "EZA"
Dim EZA As cDakosyEZA = Nothing
Dim DY_ANM As cDakosy_Zollanmeldungen = Nothing
Dim FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Property isSTAMMREF As Boolean = False
Property STAMMREF As String = ""
Sub New(DY_ANM As cDakosy_Zollanmeldungen, AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, Jahr2Stellig As Integer, Optional zusatz As String = "", Optional isSTAMMREF As Boolean = False, Optional STAMMREF As String = "")
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Me.cDy_ART = If(ART = "NCTS", "T2", ART)
Me.Jahr2Stellig = Jahr2Stellig
Me.zusatz = zusatz
Me.AVISO = AVISO
Me.SENDUNG = SENDUNG
Me.DY_ANM = DY_ANM
Me.isSTAMMREF = isSTAMMREF
Me.STAMMREF = STAMMREF
If DY_ANM IsNot Nothing Then
Me.EZA = DAKOSY_Worker.cDakosyEZA.LOADByAnmIDFull(DY_ANM.dy_Id, True)
If Me.EZA IsNot Nothing AndAlso Me.EZA.eza_firma IsNot Nothing Then Me.FIRMA_DY = Me.EZA.eza_firma
End If
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Sub New(EZA As cDakosyEZA, Optional isSTAMMREF As Boolean = False, Optional STAMMREF As String = "")
InitializeComponent()
Me.EZA = EZA
DY_ANM = New cDakosy_Zollanmeldungen(EZA.eza_dyaAnmID)
Me.isSTAMMREF = isSTAMMREF
Me.STAMMREF = STAMMREF
If DY_ANM.dy_AvisoId > 0 Then
Dim AV As New VERAG_PROG_ALLGEMEIN.cAvisoDAL
AVISO = AV.LesenAviso(DY_ANM.dy_AvisoId, "")
End If
If DY_ANM.dy_SendungsId > 0 Then
SENDUNG = New VERAG_PROG_ALLGEMEIN.cSendungen(DY_ANM.dy_SendungsId)
End If
End Sub
Sub New(ART As String, AvisoId As Integer, SENDUNGS_ID As Integer, Jahr2Stellig As Integer, Optional zusatz As String = "", Optional isSTAMMREF As Boolean = False, Optional STAMMREF As String = "")
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.cDy_ART = If(ART <> "", ART, "EX")
If AvisoId > 0 Then
Dim AV As New VERAG_PROG_ALLGEMEIN.cAvisoDAL
AVISO = AV.LesenAviso(AvisoId, "")
End If
If SENDUNGS_ID > 0 Then
SENDUNG = New VERAG_PROG_ALLGEMEIN.cSendungen(SENDUNGS_ID)
End If
Me.isSTAMMREF = isSTAMMREF
Me.STAMMREF = STAMMREF
Me.Jahr2Stellig = Jahr2Stellig
Me.zusatz = zusatz
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Sub New(ART As String, Aviso As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, Jahr2Stellig As Integer, Optional zusatz As String = "", Optional isSTAMMREF As Boolean = False, Optional STAMMREF As String = "", Optional FIRMA_DY As String = "")
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.cDy_ART = If(ART <> "", ART, "EX")
Me.AVISO = Aviso
Me.SENDUNG = SENDUNG
Me.Jahr2Stellig = Jahr2Stellig
Me.zusatz = zusatz
Me.isSTAMMREF = isSTAMMREF
Me.STAMMREF = STAMMREF
If FIRMA_DY <> "" Then Me.FIRMA_DY = FIRMA_DY
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Function getBezugsnr(ByRef BezugsNr)
Dim BezugsNrTmp = ""
Select Case FIRMA_DY
Case "UNISPED"
If If(SENDUNG.tblSnd_DakosyRef, "") <> "" Then
BezugsNrTmp = SENDUNG.tblSnd_DakosyRef
Else
BezugsNrTmp = SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr
End If
Case Else
BezugsNrTmp = SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr '& If(zusatz <> "", "/" & zusatz, "") 'zusatz ' & "/" & Jahr2Stellig
End Select
BezugsNr = BezugsNrTmp
zusatz = "A"
'Soloagne bis die Bezugsnummer noch nicht existiert
While DAKOSY_Worker.cDakosy_Zollanmeldungen.ExistsBezugsNr(BezugsNr) 'IsNot Nothing
BezugsNr = SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr & "/" & zusatz
If zusatz.Length = 1 Then
zusatz = Chr(Asc(zusatz.ToString) + 1)
Else
zusatz = zusatz.Substring(0, 1) & Chr(Asc(zusatz.Substring(0, 2).ToString) + 1)
End If
If zusatz = "Z" Then zusatz = "AA"
End While
lblBezugsnummer.Text = BezugsNr
Return BezugsNr
End Function
Function getKdnr(ByRef art) As Integer
Try
If ADRESSEN IsNot Nothing Then
Select Case art
Case "EMPF" : Return ADRESSEN.usrCntl_Empfaenger.kdFirma.KdNr_value
Case "ABS" : Return ADRESSEN.usrCntl_Versender.kdFirma.KdNr_value
Case "ANM" : Return ADRESSEN.usrCntl_Anmelder.kdFirma.KdNr_value
Case "VERTR" : Return ADRESSEN.usrCntl_Vertretener.kdFirma.KdNr_value
Case "VERTRANM" : Return ADRESSEN.usrCntl_VertreterAnmelder.kdFirma.KdNr_value
End Select
End If
Catch ex As Exception
Return -1
End Try
End Function
Private Sub usrCntlATLAS_Load(sender As Object, e As EventArgs) Handles Me.Load
cboDakosyAction.Items.Clear()
cboDakosyAction.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neuen Datensatz erstellen", DY_ObjektAktion.OBJ_CREATE))
cboDakosyAction.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vohr. DS ändern", DY_ObjektAktion.OBJ_CHANGE))
cboDakosyAction.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vorh. DS stornieren", DY_ObjektAktion.OBJ_CANCEL))
cboDakosyAction.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Datensatz an ZOLL senden", DY_ObjektAktion.OBJ_SEND))
cboDakosyAction.changeItem(DY_ObjektAktion.OBJ_CREATE)
ADRESSEN = New usrCntlATLAS_EZA_Adressen(EZA)
ALLG = New usrCntlATLAS_EZA_Allg(EZA)
POSITIONEN = New usrCntlATLAS_EZA_Positionen(EZA, Me)
DV1 = New usrCntlATLAS_EZA_DV1(EZA)
Select Case FIRMA_DY
Case "VERAG" : txtDyMandant.Text = "VERG"
txtDyNiederlassung.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
' Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
'Case "SUB" : txtDyNiederlassung.Text = "VERG"
'Case "SUW" : txtDyNiederlassung.Text = "ATIL"
''Case "SBG" : txtDyNiederlassung.Text = "IMEX"
'Case "NEU" : txtDyNiederlassung.Text = "IMEX"
'Case "NKD" : txtDyNiederlassung.Text = "IMEX"
'End Select
Case "AMBAR" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "AMBWO"
Case "ATILLA" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "SUW"
Case "UNISPED" : txtDyMandant.Text = "UNAT" : txtDyNiederlassung.Text = "ATSPED"
Case "IMEX" : txtDyMandant.Text = "IMEX" : txtDyNiederlassung.Text = "IME"
End Select
cboStammreferenz.fillWithSQL("SELECT [dySr_Stammreferenz],[dySr_Bezeichnung] FROM [tblDakosy_Stammreferenzen] WHERE dySr_Land='DE' AND dySr_Verfahren='EZA' and dySr_dy_Mandant='" & txtDyMandant.Text & "' and dySr_dy_Niederlassung='" & txtDyNiederlassung.Text.Replace("DTB", "SUB") & "' and dySr_visible=1", False, "FMZOLL", True)
cboStammreferenz.changeItem("")
If isSTAMMREF Then
Me.BezugsNr = "STAMMREFERENZ"
If EZA Is Nothing Then EZA = New cDakosyEZA
EZA.eza_ObjectName = BezugsNr
Button1.Enabled = False
cboDakosyAction.Enabled = False
Else
If EZA Is Nothing Then ' NEUE ZOLLANMELDUNG
Dim kdnr As Object = Nothing
If SENDUNG IsNot Nothing AndAlso SENDUNG.tblSnd_EmpfaengerKdNr > 0 Then
kdnr = SENDUNG.tblSnd_EmpfaengerKdNr
End If
Dim f As New frmDakosyStammreferenz("DE", "EZA", False, kdnr,, FIRMA_DY)
Dim Stammreferenz = Nothing
If f.ShowDialog(Me) Then
Stammreferenz = f.STAMMREF
sentToDakosy = f.sentToDakosy
End If
Try
BezugsNr = getBezugsnr(BezugsNr)
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
EZA = cDakosyEZA.LOADByBezugsNr(BezugsNr, True)
If EZA Is Nothing Then
'Falls zur BezugsNr schon ein Eintrag in der DB vorhanden ist
EZA = cDakosyEZA.LOADByAnmIDFull(f.STAMMREF_DYID, True) ' DyID --> Falls bei der Stammreferenz eine Vorlage hinterlegt ist!
If EZA IsNot Nothing Then
'Stmmreferenz - Werte zurücksetzen, damit nicht falsch übergeben
EZA.eza_dyaAnmID = -1
EZA.eza_Id = -1
Else
EZA = New cDakosyEZA
End If
'Wenn bei der Stammref eine andere NL ausgewählt wurde, wird dies hier korrigiert (zb. IMEX / GLOBAL!):
If f.nl <> txtDyNiederlassung.Text Then
txtDyNiederlassung.Text = f.nl
cboStammreferenz.fillWithSQL("SELECT [dySr_Stammreferenz],[dySr_Bezeichnung] FROM [tblDakosy_Stammreferenzen] WHERE dySr_Land='DE' AND dySr_Verfahren='EZA' and dySr_dy_Mandant='" & txtDyMandant.Text & "' and dySr_dy_Niederlassung='" & txtDyNiederlassung.Text & "' and dySr_visible=1", False, "FMZOLL", True)
End If
loaddataFromAVISO(EZA)
cboStammreferenz.changeItem(Stammreferenz)
End If
'eza_OUT
Else
' eza_OUT is ot nothing
Me.BezugsNr = EZA.eza_ObjectName
'MsgBox(eza_OUT.eza_Hauptverpflichteter_Name)
End If
End If
If If(EZA.eza_firma, "") = "" Then If FIRMA_DY <> "" Then EZA.eza_firma = FIRMA_DY
' If EZA.ncts_ArtAnmeldung Is Nothing Or EZA.ncts_ArtAnmeldung = "" Then
'EZA.ncts_ArtAnmeldung = "T2"
'End If
'hinzufügen, damit alle Controls richtig geladen und initialisiert werden:s
Me.SplitContainer.Panel2.Controls.Add(ALLG)
Me.SplitContainer.Panel2.Controls.Add(POSITIONEN)
Me.SplitContainer.Panel2.Controls.Add(ADRESSEN)
Me.SplitContainer.Panel2.Controls.Add(DV1)
AddHandler ALLG.DV1_changed, Sub(dv1)
btnDV1.Visible = dv1
End Sub
' MsgBox(EZA.ncts_Hauptverpflichteter_Name)
'Werte setzen:
ADRESSEN.setValues(EZA)
ALLG.setValues(EZA)
POSITIONEN.setValues(EZA)
DV1.setValues(EZA)
'Controls wieder entfernen:
Me.SplitContainer.Panel2.Controls.Clear()
'If ALLG.txtRechnungspreis.Text = "" Then ALLG.txtRechnungspreis.Text = BezugsNr
' ADRESSEN.CreateControl()
For Each c In MyFlowLayoutPanel1.Controls
If c.GetType.ToString = GetType(System.Windows.Forms.Button).ToString Then
AddHandler DirectCast(c, System.Windows.Forms.Button).Click, AddressOf buttonClick
End If
Next
SplitContainer.Panel2.Controls.Add(ALLG)
lblBezugsnummer.Text = BezugsNr
ALLG.Dock = DockStyle.Fill
ADRESSEN.Dock = DockStyle.Fill
POSITIONEN.Dock = DockStyle.Fill
DV1.Dock = DockStyle.Fill
AddHandler POSITIONEN.RohmasseChanged, Sub(rohmasse)
Label5.Text = rohmasse.ToString("N2") & " kg"
End Sub
AddHandler POSITIONEN.PosAnzChanged, Sub(anz)
Label3.Text = anz
End Sub
If sentToDakosy Then
Try
Me.Button1.PerformClick()
Me.FindForm.Close()
Catch
End Try
End If
Try
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_DakosyZA_AVISO_Edit", "AVISO") Then
Me.FindForm.Close()
End If
Catch
End Try
End Sub
Sub buttonClick(sender As Object, e As EventArgs) 'HANDLED
Dim btn As System.Windows.Forms.Button = DirectCast(sender, System.Windows.Forms.Button)
For Each c In MyFlowLayoutPanel1.Controls
If c.GetType.ToString = GetType(System.Windows.Forms.Button).ToString Then
DirectCast(c, System.Windows.Forms.Button).BackColor = Drawing.Color.White
DirectCast(c, System.Windows.Forms.Button).ForeColor = Drawing.Color.Black
End If
Next
btn.BackColor = Drawing.Color.SteelBlue 'Drawing.Color.FromArgb(0, 54, 128)
btn.ForeColor = Drawing.Color.White
SplitContainer.Panel2.Controls.Clear()
If btn Is btnAllgemein Then
SplitContainer.Panel2.Controls.Add(ALLG)
ElseIf btn Is btnAdressen Then
SplitContainer.Panel2.Controls.Add(ADRESSEN)
ElseIf btn Is btnPositionen Then
SplitContainer.Panel2.Controls.Add(POSITIONEN)
ElseIf btn Is btnDV1 Then
SplitContainer.Panel2.Controls.Add(DV1)
End If
End Sub
Sub loaddataFromAVISO(ByRef cdy As cDakosyEZA)
Try
'==> VORBLENDUNG:
' Dim cdy As New cDakosyEZA
cdy.eza_ObjectName = BezugsNr
' cdy.EZA_AbgangsDienststellennummer = "DE004102"
'frmZollanmeldung.setAbgangszollstelle(cdy.eza_Eingangszollstelle, AVISO)
frmZollanmeldung.setZollstelle(cdy.eza_AdressierteZollstelle, AVISO)
If cdy.eza_AdressierteZollstelle IsNot Nothing AndAlso cdy.eza_AdressierteZollstelle.Length = 8 Then 'nur 4 stellen erlaubt!! 'DE00 fällt weg
EZA.eza_AdressierteZollstelle = cdy.eza_AdressierteZollstelle.Substring(4, 4)
End If
' cdy.EZA_VersendungsLandCode = "DE"
cdy.eza_dyaArt = cDy_ART
If AVISO IsNot Nothing Then
' cdy.EZA_Befoerderungsmittel_KennzeichenAbgang = AVISO.LKW_Nr
' cdy.EZA_Befoerderungsmittel_KennzeichenGrenzueberschreitend = "X"
End If
' Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(712255) ' VERAG Neuhaus
' Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(712255) ' VERAG Neuhaus
If False Then
If AVISO.Frächter_KdNr IsNot Nothing AndAlso IsNumeric(AVISO.Frächter_KdNr) AndAlso AVISO.Frächter_KdNr > 0 Then
Dim AD_Befoerderer As New VERAG_PROG_ALLGEMEIN.cAdressen(AVISO.Frächter_KdNr) ' Befoerderer
Dim KD_Befoerderer As New VERAG_PROG_ALLGEMEIN.cKunde(AVISO.Frächter_KdNr) ' Befoerderer
Else
' cdy.EZA_SumA_Befoerderer_Name = If(AVISO.Frächter, "")
End If
If SENDUNG IsNot Nothing Then
Dim p As New DAKOSY_Worker.cDakosy_EZA_Warenposition
p.ezaWP_Warenbezeichnung = SENDUNG.tblSnd_Warenbezeichnung
If SENDUNG.tblSnd_Colli IsNot Nothing AndAlso IsNumeric(SENDUNG.tblSnd_Colli) Then
' Dim pk As New DAKOSY_Worker.cDakosy_EZA_WarenpositionPackstuecke
' pk.EZAWpPk_PackstueckeAnzahl = SENDUNG.tblSnd_Colli
' pk.EZAWpPk_Verpackungsart = "PK"
' p.EZAWP_PACKSTUECKE.Add(pk)
End If
p.ezaWP_Rohmasse = SENDUNG.tblSnd_Gewicht
p.ezaWP_Warenbezeichnung = SENDUNG.tblSnd_Warenbezeichnung
cdy.eza_WARENPOS.Add(p)
End If
End If
If SENDUNG IsNot Nothing Then
'Test Vorpapier:
If If(SENDUNG.tblSnd_Vorpapier, "") <> "" Then
EZA.eza_VorpapierArtCode = "T1"
EZA.eza_VorpapierNr = SENDUNG.tblSnd_Vorpapier
End If
Dim Vorsystem = False
If (SENDUNG.VORSYSTEM IsNot Nothing) AndAlso MsgBox("Möchten Sie die Daten aus dem Vorsystem laden?", vbYesNoCancel) Then
Try
Dim SH As New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_FULL(CInt(SENDUNG.VORSYSTEM_Id))
If SH IsNot Nothing Then
Dim ABFERTIGUNGSART = 1 'DEFAULT Fiskal?
EZA.eza_GesamtRohmasse = SH.EZA.TotGrossWeight
If If(SH.EZA.Incoterm, "") <> "" Then
EZA.eza_LieferbedingungCode = SH.EZA.Incoterm
End If
'EZA.pack= SH.EZA.TotPackage
'EZA.eza_Rechnungspreis = SH.EZA.TotGrossWeight
'EZA.eza_Rechnungswaehrung = SENDUNG.tblSnd_WarenwertWaehrung
' If If(SH.EZA.TransportModeBorder, "") <> "" Then EZA.eza_BeförderungsmittelGrenzeArt = SH.EZA.TransportModeBorder
'If If(SH.EZA.TransportBorderType, "") <> "" Then EZA.bef = SH.EZA.TransportBorderType
If If(SH.EZA.PrePaperCode, "") <> "" Then EZA.eza_VorpapierArtCode = SH.EZA.PrePaperCode
If If(SH.EZA.PrePaperNr, "") <> "" Then EZA.eza_VorpapierNr = SH.EZA.PrePaperNr
If If(SH.EZA.CountryCodeDeparture, "") <> "" Then EZA.eza_VersendungsLandCode = SH.EZA.CountryCodeDeparture
If If(SH.EZA.TransportModeBorder, "") <> "" Then EZA.eza_VerkehrszweigInland = SH.EZA.TransportModeBorder
If If(SH.EZA.TransportModeBorder, "") <> "" Then EZA.eza_VerkehrszweigGrenze = SH.EZA.TransportModeBorder
If If(SH.EZA.TransportBorderType, "") <> "" Then EZA.eza_BeförderungsmittelGrenzeArt = SH.EZA.TransportBorderType
'If If(AD.ezaAd_LandCode, "") = "DE" And AD.ezaAd_PLZ IsNot Nothing Then
' EZA.eza_Bestimmungsbundesland = VERAG_PROG_ALLGEMEIN.cDEBundeslaenderPLZ.LOADBundeslandCode_ByPLZ(AD.ezaAd_PLZ)
'ElseIf If(AD.ezaAd_LandCode, "") <> "" Then
' EZA.eza_Bestimmungsbundesland = 25
'End If
Dim InvoiceSum As Double = 0.0
Dim InvoiceCurr As String = ""
For Each SH_POS In SH.EZA.POSITIONS
Dim EZA_POS As New DAKOSY_Worker.cDakosy_EZA_Warenposition
EZA_POS.ezaWP_PackstueckAnzahl = SH_POS.NumberOfPackages
EZA_POS.ezaWP_Rohmasse = SH_POS.GrossWeight
EZA_POS.ezaWP_Eigenmasse = SH_POS.NetWeight
EZA_POS.ezaWP_Warenbezeichnung = SH_POS.GoodsDescription
EZA_POS.ezaWP_WarennummerEZT = SH_POS.GoodsTariff
EZA_POS.ezaWP_UrsprungslandCode = SH_POS.OriginCountryCode
'If If(SH_POS.KindOfPackages, "") <> "" Then EZA_POS.ezaWP_PackstueckArt = SH_POS.KindOfPackages
EZA_POS.ezaWP_PackstueckArt = "PK"
If SH_POS.ItemInvoiceAmount IsNot Nothing Then
EZA_POS.ezaWP_Artikelpreis = SH_POS.ItemInvoiceAmount
EZA_POS.ezaWP_ArtikelpreisWaehrung = SH_POS.ItemInvoiceCurrency
EZA_POS.ezaWP_AHStatWert = SH_POS.ItemInvoiceAmount
InvoiceSum += CDbl(SH_POS.ItemInvoiceAmount)
If SH_POS.ItemInvoiceCurrency = "" Then
InvoiceCurr = SH_POS.ItemInvoiceCurrency
ElseIf SH_POS.ItemInvoiceCurrency <> InvoiceCurr Then
InvoiceCurr = "XXX" ' Wenn währung unterschiedlich XX --> kein Übertrag
End If
End If
For Each SH_POS_DOC In SH_POS.DOCUMENTS
Dim bool_add = False
Dim EZA_POS_DOC As New DAKOSY_Worker.cDakosy_EZA_WarenpositionVorgelegteUnterlagen
EZA_POS_DOC.ezaWpUl_DatumAusstellung = SH_POS_DOC.DocumentDate
EZA_POS_DOC.ezaWpUl_Nummer = SH_POS_DOC.DocumentNr
Select Case SH_POS_DOC.DocumentType
Case "CMR" : EZA_POS_DOC.ezaWpUl_Art = "7HHF" : EZA_POS_DOC.ezaWpUl_Bereich = "4" : EZA_POS_DOC.ezaWpUl_VorlageKz = "J" : bool_add = True
Case "INV" : EZA_POS_DOC.ezaWpUl_Art = "N380" : EZA_POS_DOC.ezaWpUl_Bereich = "4" : EZA_POS_DOC.ezaWpUl_VorlageKz = "J" : bool_add = True
Case "ATR" : EZA_POS_DOC.ezaWpUl_Art = "N018" : EZA_POS_DOC.ezaWpUl_Bereich = "6" : EZA_POS_DOC.ezaWpUl_VorlageKz = "J" : bool_add = True
' Case "EX" : EZA_POS_DOC.ezaWpUl_Art = "N380": EZA_POS_DOC.ezaWpUl_Bereich = "4
End Select
If bool_add Then EZA_POS.ezaWP_UNTERLAGEN.Add(EZA_POS_DOC)
Next
EZA.eza_WARENPOS.Add(EZA_POS)
Next
EZA.eza_Rechnungspreis = InvoiceSum
' If InvoiceCurr <> "XXX" Then EZA.eza_Rechnungswaehrung = InvoiceCurr
If If(SH.EZA.InvoiceCurrency, "") <> "" Then EZA.eza_Rechnungswaehrung = SH.EZA.InvoiceCurrency
Dim LieferbedingungOrtAbsedner = ""
Dim LieferbedingungOrtEmpfaenger = ""
For Each SH_AD In SH.EZA.ADDRESS
Dim EZA_AD As New DAKOSY_Worker.cDakosy_EZA_Adressen
EZA_AD.ezaAd_AdressTyp = SH_AD.AddressCode
EZA_AD.ezaAd_LandCode = SH_AD.CountryCode
EZA_AD.ezaAd_NameFirma1 = SH_AD.Name1
EZA_AD.ezaAd_NameFirma2 = SH_AD.Name2
EZA_AD.ezaAd_NameFirma3 = SH_AD.Name3
EZA_AD.ezaAd_StrasseHausNr1 = SH_AD.Street1
EZA_AD.ezaAd_StrasseHausNr2 = SH_AD.Street2
EZA_AD.ezaAd_Ort = SH_AD.City
EZA_AD.ezaAd_PLZ = SH_AD.PostalCode
EZA_AD.ezaAd_UStIDAnmelder = SH_AD.UStID
If EZA_AD.ezaAd_AdressTyp = "CN" Then 'EMPFÄNGER
EZA_AD.ezaAd_TeilnehmerEORI = SH_AD.EORI
EZA_AD.ezaAd_TeilnehmerNLNR = SH_AD.NLNR
If If(EZA_AD.ezaAd_LandCode, "") = "DE" And EZA_AD.ezaAd_PLZ IsNot Nothing Then
EZA.eza_Bestimmungsbundesland = VERAG_PROG_ALLGEMEIN.cDEBundeslaenderPLZ.LOADBundeslandCode_ByPLZ(EZA_AD.ezaAd_PLZ)
ElseIf If(EZA_AD.ezaAd_LandCode, "") <> "" Then
EZA.eza_Bestimmungsbundesland = 25
End If
If If(EZA_AD.ezaAd_Ort, "") <> "" Then LieferbedingungOrtEmpfaenger = EZA_AD.ezaAd_Ort
End If
If EZA_AD.ezaAd_AdressTyp = "CZ" Then 'ABSENDER
If If(EZA_AD.ezaAd_Ort, "") <> "" Then LieferbedingungOrtAbsedner = EZA_AD.ezaAd_Ort
End If
EZA.eza_ADRESSEN.Add(EZA_AD)
Next
Select Case If(EZA.eza_LieferbedingungCode, "")
Case ""
Case "EXW", "FCA", "FOB", "FAS"
EZA.eza_LieferbedingungSchluessel = 1
EZA.eza_LieferbedingungOrt = LieferbedingungOrtAbsedner
Case Else
EZA.eza_LieferbedingungSchluessel = 3
EZA.eza_LieferbedingungOrt = LieferbedingungOrtEmpfaenger
End Select
Vorsystem = True
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
End If
If Not Vorsystem Then
EZA.eza_GesamtRohmasse = SENDUNG.tblSnd_Gewicht
EZA.eza_Rechnungspreis = SENDUNG.tblSnd_Warenwert
EZA.eza_Rechnungswaehrung = SENDUNG.tblSnd_WarenwertWaehrung
If SENDUNG.tblSnd_Abfertigungsart_ID = 1 Then
If SENDUNG.tblSnd_EmpfaengerKdNr > 0 Then
Dim AD As New DAKOSY_Worker.cDakosy_EZA_Adressen
AD.ezaAd_AdressCode = SENDUNG.tblSnd_EmpfaengerKdNr
AD.ezaAd_AdressTyp = "CN"
Dim ADFmzoll As New VERAG_PROG_ALLGEMEIN.cAdressen(SENDUNG.tblSnd_EmpfaengerKdNr)
Dim KDFmzoll As New VERAG_PROG_ALLGEMEIN.cKunde(SENDUNG.tblSnd_EmpfaengerKdNr)
AD.ezaAd_NameFirma1 = ADFmzoll.Name_1
AD.ezaAd_NameFirma2 = ADFmzoll.Name_2
AD.ezaAd_StrasseHausNr1 = ADFmzoll.Straße
AD.ezaAd_PLZ = ADFmzoll.PLZ
AD.ezaAd_Ort = ADFmzoll.Ort
AD.ezaAd_LandCode = cProgramFunctions.getISO2Land(ADFmzoll.LandKz)
AD.ezaAd_TeilnehmerEORI = KDFmzoll.EORITIN
AD.ezaAd_TeilnehmerNLNR = KDFmzoll.EORITIN_NL
If If(AD.ezaAd_LandCode, "") <> "" Then
EZA.eza_Bestimmungsland = AD.ezaAd_LandCode
End If
If If(AD.ezaAd_LandCode, "") = "DE" And AD.ezaAd_PLZ IsNot Nothing Then
EZA.eza_Bestimmungsbundesland = VERAG_PROG_ALLGEMEIN.cDEBundeslaenderPLZ.LOADBundeslandCode_ByPLZ(AD.ezaAd_PLZ)
ElseIf If(AD.ezaAd_LandCode, "") <> "" Then
EZA.eza_Bestimmungsbundesland = 25
End If
cdy.eza_ADRESSEN.Add(AD)
End If
If SENDUNG.tblSnd_AbsenderKdNr > 0 Then
Dim AD As New DAKOSY_Worker.cDakosy_EZA_Adressen
AD.ezaAd_AdressCode = SENDUNG.tblSnd_AbsenderKdNr
AD.ezaAd_AdressTyp = "CZ"
Dim ADFmzoll As New VERAG_PROG_ALLGEMEIN.cAdressen(SENDUNG.tblSnd_AbsenderKdNr)
Dim KDFmzoll As New VERAG_PROG_ALLGEMEIN.cKunde(SENDUNG.tblSnd_AbsenderKdNr)
AD.ezaAd_NameFirma1 = ADFmzoll.Name_1
AD.ezaAd_NameFirma2 = ADFmzoll.Name_2
AD.ezaAd_StrasseHausNr1 = ADFmzoll.Straße
AD.ezaAd_PLZ = ADFmzoll.PLZ
AD.ezaAd_Ort = ADFmzoll.Ort
AD.ezaAd_LandCode = cProgramFunctions.getISO2Land(ADFmzoll.LandKz)
AD.ezaAd_TeilnehmerEORI = KDFmzoll.EORITIN
AD.ezaAd_TeilnehmerNLNR = KDFmzoll.EORITIN_NL
If If(AD.ezaAd_LandCode, "") <> "" Then
EZA.eza_VersendungsLandCode = AD.ezaAd_LandCode
End If
cdy.eza_ADRESSEN.Add(AD)
End If
End If
End If
End If
cdy.eza_KennzeichenNameBefoerderungsmittelAnkunft = AVISO.LKW_Nr
cdy.eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode = AVISO.LKW_Nationalitaet
'cdy.EZA_BefoerderungsmittelGrenzeKennzeichen = AVISO.LKW_Nr
'cdy.EZA_Ausfuhrland = "DE"
' cdy.EZA_VerkehrszweigGrenze = "3"
' cdy.EZA_VerkehrszweigInland = "3"
' cdy.eza_BeförderungsmittelGrenzeArt = "33"
' cdy.EZA_Rechnungwaehrung = "EUR"
' NCTS= cdy
Catch ex As Exception
MsgBox(ex.StackTrace)
End Try
End Sub
Sub setValue(EZA)
BezugsNr = EZA.ncts_ObjectName
End Sub
Private Sub pnl_Paint(sender As Object, e As PaintEventArgs)
End Sub
Sub loadDYZollanmeldungen(Optional Status As String = "") ' + Speichern
If DY_ANM Is Nothing Then
DY_ANM = New cDakosy_Zollanmeldungen(EZA.eza_dyaAnmID)
End If
DY_ANM.dy_ART = ALLG.EZA_ART 'cDy_ART
DY_ANM.dy_BezugsNr = BezugsNr
DY_ANM.dy_AvisoId = If(AVISO Is Nothing, Nothing, AVISO.AvisoID)
DY_ANM.dy_SendungsId = If(SENDUNG Is Nothing, Nothing, SENDUNG.tblSnd_SendungID)
'Status?
DY_ANM.SAVE() 'Speichern, ID wird erzeugt
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.Refresh()
cboDakosyAction.Focus() 'nur, damit alle _value aktualisuiert sind...
If sentToDakosy OrElse vbYes = MsgBox("Sollen die Daten abgeschickt werden?" & vbNewLine & "Eine Änderung ist nur noch in der Dakosy Software möglich.", vbYesNoCancel) Then
' Dim cDyAnm As New cDakosy_Zollanmeldungen(cDy_ART, BezugsNr, AVISO.AvisoID, SENDUNG.tblSnd_SendungID)
loadDYZollanmeldungen()
If EZA IsNot Nothing Then
'Dim cDY As New cDakosyEZA(cDyAnm.dy_Id, cDyAnm.dy_Erstellung_SB)
EZA.eza_dyaAnmID = DY_ANM.dy_Id
EZA.eza_Erstellung_SB = DY_ANM.dy_Erstellung_SB
EZA.eza_LetzteBearbeitung = Now
EZA.eza_LetzteBearbeitung_SB = DY_ANM.dy_LetzteBearbeitung_SB
EZA.eza_firma = Me.FIRMA_DY
DAKOSY_Interface_SEND.loadInClass_VersandanmeldungEZA(EZA, Me, DY_ANM)
If Not EZA.SAVE_ALL() Then Exit Sub
Dim saveFile = ""
If DAKOSY_Interface_SEND.generateVersandanmeldungEZA(EZA, saveFile, cboDakosyAction._value) Then
If saveFile <> "" Then
If Not cDakosyFunftions.send_Data_To_Dakosy_FTP(saveFile, BezugsNr, DY_ANM.dy_Id, FIRMA_DY) Then
MsgBox("Sendefehler!")
Else
If SENDUNG IsNot Nothing Then SENDUNG.SET_VGMA() ' MA Vorgeschrieben in Sendung setzen.
End If
End If
End If
End If
DY_ANM.UPDATE_DATA()
'Beim Senden soll die Sendung überhnommen + tblSnd_VG_MA gesetzt werden --> damit gleich gesehen wird, dass der Akt in Bearbeitung ist.
DY_ANM.UPDATE_AVISO_SND(DY_ANM.dy_SendungsId)
Me.FindForm.Close()
End If
End Sub
Private Sub SpeichernToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SpeichernToolStripMenuItem.Click
Me.Refresh()
cboDakosyAction.Focus() 'nur, damit alle _value aktualisuiert sind...
' Dim cDyAnm As New cDakosy_Zollanmeldungen(cDy_ART, BezugsNr, If(AVISO Is Nothing, Nothing, AVISO.AvisoID), If(SENDUNG Is Nothing, Nothing, SENDUNG.tblSnd_SendungID))
loadDYZollanmeldungen()
If EZA IsNot Nothing Then
'Dim cDY As New cDakosyEZA(cDyAnm.dy_Id, cDyAnm.dy_Erstellung_SB)
EZA.eza_dyaAnmID = DY_ANM.dy_Id
EZA.eza_Erstellung_SB = DY_ANM.dy_Erstellung_SB
EZA.eza_LetzteBearbeitung = Now
EZA.eza_LetzteBearbeitung_SB = DY_ANM.dy_LetzteBearbeitung_SB
DAKOSY_Interface_SEND.loadInClass_VersandanmeldungEZA(EZA, Me, DY_ANM)
If Not EZA.SAVE_ALL() Then
'gespeichert
End If
End If
DY_ANM.UPDATE_DATA()
End Sub
Private Sub NeueBezugsnummerVergebenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeueBezugsnummerVergebenToolStripMenuItem.Click
BezugsNr = getBezugsnr(BezugsNr)
End Sub
Private Sub EZAIDToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EZAIDToolStripMenuItem.Click
If EZA IsNot Nothing Then
MsgBox(EZA.eza_Id)
End If
End Sub
Private Sub BezugsnummerKopierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BezugsnummerKopierenToolStripMenuItem.Click
Clipboard.SetText(lblBezugsnummer.Text)
End Sub
Private Sub DynamicAutomotiveXLSToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DynamicAutomotiveXLSToolStripMenuItem.Click
importExcel_DynamicAutomotive()
End Sub
Private Function checkExcel_DynamicAutomotive(Blatt As Excel.Worksheet) As Boolean
'Prüfung
Try
If Blatt Is Nothing Then Return False
If Blatt.Range("B23") Is Nothing Then Return False
If Blatt.Range("B23").Value.ToString <> "Code" Then Return False
Catch ex As Exception
MsgBox("Fehler bei der Prüfung!" & ex.Message)
Me.Cursor = Cursors.Default
Return False
End Try
Return True
End Function
Private Function importExcel_DynamicAutomotive() As Boolean
Dim fd As New OpenFileDialog
fd.Filter = "Excel Dateien|*.xls;*.xlsx"
Dim result As DialogResult = fd.ShowDialog()
If Not fd.FileName.EndsWith(".xls") And Not fd.FileName.EndsWith(".xlsx") Then
Me.Cursor = Cursors.Default
Return False
End If
If result = System.Windows.Forms.DialogResult.OK Then
Me.Cursor = Cursors.WaitCursor
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(fd.FileName)
Blatt = Datei.Worksheets(1)
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_DynamicAutomotive(Blatt) Then 'VALIDIERUNG
Me.Cursor = Cursors.Default
Return False
End If
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
Dim startRows As Integer = 24
Dim endRows As Integer = startRows
While endRows < Blatt.UsedRange.Rows.Count
If Not Blatt.Range("B" & endRows) Is Nothing AndAlso Not Blatt.Range("B" & endRows).Value Is Nothing AndAlso Not Blatt.Range("B" & 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
'Laden des Bereiches aus dem Excel:
Dim myRange As Excel.Range
myRange = Blatt.Range("B" & startRows & ":I" & endRows & "")
Dim myArray As Object(,) '<-- declared as 2D Array
myArray = myRange.Value 'store the content of each cell
'myArray(i_soll2 - startRows + 1, 4)
Dim cnt = 0
Try
For i As Integer = 1 To endRows - startRows + 1 Step 1
Dim POSITION As New DAKOSY_Worker.cDakosy_EZA_Warenposition
POSITION.ezaWP_WarennummerEZT = myArray(i, 5).ToString()
POSITION.ezaWP_PackstueckAnzahl = myArray(i, 6).ToString()
POSITION.ezaWP_PackstueckArt = "PK"
POSITION.ezaWP_Artikelpreis = CDbl(myArray(i, 8).ToString()).ToString("N2")
POSITION.ezaWP_ArtikelpreisWaehrung = "EUR"
POSITION.ezaWP_Warenbezeichnung = myArray(i, 2).ToString()
Select Case myArray(i, 4).ToString
Case "TURKEY" : POSITION.ezaWP_UrsprungslandCode = "TR"
Case "ITALY" : POSITION.ezaWP_UrsprungslandCode = "IT"
Case "SPAIN" : POSITION.ezaWP_UrsprungslandCode = "ES"
Case "GERMANY" : POSITION.ezaWP_UrsprungslandCode = "DE"
Case "CZECH REPUBLIC" : POSITION.ezaWP_UrsprungslandCode = "CZ"
Case "FRANCE" : POSITION.ezaWP_UrsprungslandCode = "FR"
End Select
EZA.eza_WARENPOS.Add(POSITION)
cnt += 1
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()
Me.FindForm.SuspendLayout()
POSITIONEN.setValues(EZA, True)
btnPositionen.PerformClick()
MsgBox(cnt & " Datensätze wurden eingelesen. ")
Me.FindForm.ResumeLayout()
Me.Cursor = Cursors.Default
Return True
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
Return True
Else
MsgBox("Keine Datei ausgewählt!")
End If
Me.Cursor = Cursors.Default
Return False
End Function
Private Sub pnl_Paint_1(sender As Object, e As PaintEventArgs) Handles pnl.Paint
End Sub
End Class

197
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Adressen.Designer.vb generated
View File

@@ -1,197 +0,0 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class usrCntlATLAS_EZA_Adressen
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.pnl = New System.Windows.Forms.Panel()
Me.Label1 = New System.Windows.Forms.Label()
Me.txtUstId = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.usrCntl_Vertretener = New SDL.usrCntlAdresseEZA()
Me.usrCntl_Bewilligungsinhaber = New SDL.usrCntlAdresseEZA()
Me.usrCntl_Versender = New SDL.usrCntlAdresseEZA()
Me.usrCntl_Erwerber = New SDL.usrCntlAdresseEZA()
Me.usrCntl_VertreterAnmelder = New SDL.usrCntlAdresseEZA()
Me.usrCntl_Empfaenger = New SDL.usrCntlAdresseEZA()
Me.usrCntl_Anmelder = New SDL.usrCntlAdresseEZA()
Me.PictureBox2 = New System.Windows.Forms.PictureBox()
Me.pnl.SuspendLayout()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'pnl
'
Me.pnl.Controls.Add(Me.Label1)
Me.pnl.Controls.Add(Me.txtUstId)
Me.pnl.Controls.Add(Me.usrCntl_Vertretener)
Me.pnl.Controls.Add(Me.usrCntl_Bewilligungsinhaber)
Me.pnl.Controls.Add(Me.usrCntl_Versender)
Me.pnl.Controls.Add(Me.usrCntl_Erwerber)
Me.pnl.Controls.Add(Me.usrCntl_VertreterAnmelder)
Me.pnl.Controls.Add(Me.usrCntl_Empfaenger)
Me.pnl.Controls.Add(Me.usrCntl_Anmelder)
Me.pnl.Controls.Add(Me.PictureBox2)
Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnl.Location = New System.Drawing.Point(0, 0)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(907, 737)
Me.pnl.TabIndex = 0
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(485, 372)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(40, 13)
Me.Label1.TabIndex = 53
Me.Label1.Text = "USt-Id:"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'txtUstId
'
Me.txtUstId._DateTimeOnly = False
Me.txtUstId._numbersOnly = False
Me.txtUstId._numbersOnlyKommastellen = ""
Me.txtUstId._Prozent = False
Me.txtUstId._ShortDateNew = False
Me.txtUstId._ShortDateOnly = False
Me.txtUstId._TimeOnly = False
Me.txtUstId._value = Nothing
Me.txtUstId._Waehrung = False
Me.txtUstId.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtUstId.ForeColor = System.Drawing.Color.Black
Me.txtUstId.Location = New System.Drawing.Point(534, 369)
Me.txtUstId.MaxLength = 17
Me.txtUstId.MaxLineLength = -1
Me.txtUstId.MaxLines_Warning = ""
Me.txtUstId.MaxLines_Warning_Label = Nothing
Me.txtUstId.Name = "txtUstId"
Me.txtUstId.Size = New System.Drawing.Size(217, 20)
Me.txtUstId.TabIndex = 52
'
'usrCntl_Vertretener
'
Me.usrCntl_Vertretener._Titel = "Vertretener (Adresse für Rechnung):"
Me.usrCntl_Vertretener.BackColor = System.Drawing.Color.PapayaWhip
Me.usrCntl_Vertretener.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.usrCntl_Vertretener.Location = New System.Drawing.Point(482, 544)
Me.usrCntl_Vertretener.Name = "usrCntl_Vertretener"
Me.usrCntl_Vertretener.Size = New System.Drawing.Size(408, 162)
Me.usrCntl_Vertretener.TabIndex = 51
'
'usrCntl_Bewilligungsinhaber
'
Me.usrCntl_Bewilligungsinhaber._Titel = "Bewilligungsinhaber:"
Me.usrCntl_Bewilligungsinhaber.BackColor = System.Drawing.Color.PapayaWhip
Me.usrCntl_Bewilligungsinhaber.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.usrCntl_Bewilligungsinhaber.Location = New System.Drawing.Point(17, 544)
Me.usrCntl_Bewilligungsinhaber.Name = "usrCntl_Bewilligungsinhaber"
Me.usrCntl_Bewilligungsinhaber.Size = New System.Drawing.Size(408, 162)
Me.usrCntl_Bewilligungsinhaber.TabIndex = 50
'
'usrCntl_Versender
'
Me.usrCntl_Versender._Titel = "Versender:"
Me.usrCntl_Versender.BackColor = System.Drawing.Color.PapayaWhip
Me.usrCntl_Versender.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.usrCntl_Versender.Location = New System.Drawing.Point(17, 21)
Me.usrCntl_Versender.Name = "usrCntl_Versender"
Me.usrCntl_Versender.Size = New System.Drawing.Size(408, 162)
Me.usrCntl_Versender.TabIndex = 5
'
'usrCntl_Erwerber
'
Me.usrCntl_Erwerber._Titel = "Erwerber in and. Mitgliedsstaat:"
Me.usrCntl_Erwerber.BackColor = System.Drawing.Color.PapayaWhip
Me.usrCntl_Erwerber.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.usrCntl_Erwerber.Location = New System.Drawing.Point(482, 202)
Me.usrCntl_Erwerber.Name = "usrCntl_Erwerber"
Me.usrCntl_Erwerber.Size = New System.Drawing.Size(408, 162)
Me.usrCntl_Erwerber.TabIndex = 4
'
'usrCntl_VertreterAnmelder
'
Me.usrCntl_VertreterAnmelder._Titel = "Vertreter des Anmelders:"
Me.usrCntl_VertreterAnmelder.BackColor = System.Drawing.Color.PapayaWhip
Me.usrCntl_VertreterAnmelder.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.usrCntl_VertreterAnmelder.Location = New System.Drawing.Point(17, 363)
Me.usrCntl_VertreterAnmelder.Name = "usrCntl_VertreterAnmelder"
Me.usrCntl_VertreterAnmelder.Size = New System.Drawing.Size(408, 162)
Me.usrCntl_VertreterAnmelder.TabIndex = 3
'
'usrCntl_Empfaenger
'
Me.usrCntl_Empfaenger._Titel = "Empfänger:"
Me.usrCntl_Empfaenger.BackColor = System.Drawing.Color.PapayaWhip
Me.usrCntl_Empfaenger.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.usrCntl_Empfaenger.Location = New System.Drawing.Point(482, 21)
Me.usrCntl_Empfaenger.Name = "usrCntl_Empfaenger"
Me.usrCntl_Empfaenger.Size = New System.Drawing.Size(408, 162)
Me.usrCntl_Empfaenger.TabIndex = 2
'
'usrCntl_Anmelder
'
Me.usrCntl_Anmelder._Titel = "Anmelder:"
Me.usrCntl_Anmelder.BackColor = System.Drawing.Color.PapayaWhip
Me.usrCntl_Anmelder.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.usrCntl_Anmelder.Location = New System.Drawing.Point(17, 202)
Me.usrCntl_Anmelder.Name = "usrCntl_Anmelder"
Me.usrCntl_Anmelder.Size = New System.Drawing.Size(408, 162)
Me.usrCntl_Anmelder.TabIndex = 1
'
'PictureBox2
'
Me.PictureBox2.BackgroundImage = Global.SDL.My.Resources.lorry_motion
Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox2.Location = New System.Drawing.Point(421, 73)
Me.PictureBox2.Name = "PictureBox2"
Me.PictureBox2.Size = New System.Drawing.Size(58, 34)
Me.PictureBox2.TabIndex = 49
Me.PictureBox2.TabStop = False
'
'usrCntlATLAS_EZA_Adressen
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.Controls.Add(Me.pnl)
Me.Name = "usrCntlATLAS_EZA_Adressen"
Me.Size = New System.Drawing.Size(907, 737)
Me.pnl.ResumeLayout(False)
Me.pnl.PerformLayout()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents pnl As System.Windows.Forms.Panel
Friend WithEvents usrCntl_Empfaenger As SDL.usrCntlAdresseEZA
Friend WithEvents usrCntl_Anmelder As SDL.usrCntlAdresseEZA
Friend WithEvents usrCntl_Erwerber As SDL.usrCntlAdresseEZA
Friend WithEvents usrCntl_VertreterAnmelder As SDL.usrCntlAdresseEZA
Friend WithEvents usrCntl_Versender As SDL.usrCntlAdresseEZA
Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox
Friend WithEvents usrCntl_Bewilligungsinhaber As SDL.usrCntlAdresseEZA
Friend WithEvents usrCntl_Vertretener As SDL.usrCntlAdresseEZA
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents txtUstId As VERAG_PROG_ALLGEMEIN.MyTextBox
End Class

120
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Adressen.resx
View File

@@ -1,120 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

114
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Adressen.vb
View File

@@ -1,114 +0,0 @@
Public Class usrCntlATLAS_EZA_Adressen
' Dim OWNER As Control
Dim NCTS_OUT As DAKOSY_Worker.cDakosyEZA = Nothing
'Sub New(OWNER As Control, NCTS_OUT As DAKOSY_Worker.cDakosyEZA)
Sub New(NCTS_OUT As DAKOSY_Worker.cDakosyEZA)
InitializeComponent()
'Me.OWNER = OWNER
Me.NCTS_OUT = NCTS_OUT
End Sub
Public Sub usrCntlATLAS_NCTS_Adressen_Load(sender As Object, e As EventArgs) Handles Me.Load
' usrCntlSumA_Befoerderer.initME()
End Sub
Public Sub getValues(ByRef EZA As DAKOSY_Worker.cDakosyEZA)
EZA.eza_ADRESSEN.Clear()
If usrCntl_Versender.txtName1.Text.Trim <> "" Or usrCntl_Versender.txtEORI.Text.Trim <> "" Then
EZA.eza_ADRESSEN.Add(getAdresseFromUsrcntl("CZ", usrCntl_Versender))
End If
If usrCntl_Empfaenger.txtName1.Text.Trim <> "" Or usrCntl_Empfaenger.txtEORI.Text.Trim <> "" Then
EZA.eza_ADRESSEN.Add(getAdresseFromUsrcntl("CN", usrCntl_Empfaenger))
End If
If usrCntl_Anmelder.txtName1.Text.Trim <> "" Or usrCntl_Anmelder.txtEORI.Text.Trim <> "" Then
EZA.eza_ADRESSEN.Add(getAdresseFromUsrcntl("DT", usrCntl_Anmelder))
End If
If usrCntl_VertreterAnmelder.txtName1.Text.Trim <> "" Or usrCntl_VertreterAnmelder.txtEORI.Text.Trim <> "" Then
EZA.eza_ADRESSEN.Add(getAdresseFromUsrcntl("AG", usrCntl_VertreterAnmelder))
End If
'If usrCntl_Bewilligungsinhaber.txtName1.Text.Trim <> "" Or usrCntl_Bewilligungsinhaber.txtEORI.Text.Trim <> "" Then
'EZA.eza_ADRESSEN.Add(getAdresseFromUsrcntl(" "))
'End If
If usrCntl_Erwerber.txtName1.Text.Trim <> "" Or usrCntl_Erwerber.txtEORI.Text.Trim <> "" Then
EZA.eza_ADRESSEN.Add(getAdresseFromUsrcntl("UC", usrCntl_Erwerber))
End If
If usrCntl_Vertretener.txtName1.Text.Trim <> "" Or usrCntl_Vertretener.txtEORI.Text.Trim <> "" Then
EZA.eza_ADRESSEN.Add(getAdresseFromUsrcntl("AA", usrCntl_Vertretener))
End If
End Sub
Function getAdresseFromUsrcntl(typ As String, usrCntl As usrCntlAdresseEZA) As DAKOSY_Worker.cDakosy_EZA_Adressen
Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen
ADR.ezaAd_AdressTyp = typ
ADR.ezaAd_NameFirma1 = cProgramFunctions.isLeerNothing(usrCntl.txtName1.Text)
ADR.ezaAd_NameFirma2 = cProgramFunctions.isLeerNothing(usrCntl.txtName2.Text)
ADR.ezaAd_StrasseHausNr1 = cProgramFunctions.isLeerNothing(usrCntl.txtStrasse.Text)
ADR.ezaAd_PLZ = cProgramFunctions.isLeerNothing(usrCntl.txtPlz.Text)
ADR.ezaAd_Ort = cProgramFunctions.isLeerNothing(usrCntl.txtOrt.Text)
ADR.ezaAd_LandCode = cProgramFunctions.isLeerNothing(usrCntl.sbLand._value)
ADR.ezaAd_TeilnehmerEORI = cProgramFunctions.isLeerNothing(usrCntl.txtEORI.Text)
ADR.ezaAd_TeilnehmerNLNR = cProgramFunctions.isLeerNothing(usrCntl.txtEORINL.Text)
ADR.ezaAd_AdressCode = cProgramFunctions.isLeerNothing(usrCntl.kdFirma.KdNr)
' ADR.ezaAd_TeilnehmerNLNR = cProgramFunctions.isLeerNothing(usrCntl.txtEORINL.Text)
If typ = "UC" Then
ADR.ezaAd_FinanzamtIDAnmelder = cProgramFunctions.isLeerNothing(txtUstId.Text)
End If
' ADR. ezaAd_UStIDAnmelder As Object = Nothing ' VARCHAR (14) NULL,
' ADR. ezaAd_FinanzamtIDAnmelder As Object = Nothing ' VARCHAR (4) NULL,
' Property ezaAd_Bewilligungsnummer As Object = Nothing ' VARCHAR (35) NULL,
' Property ezaAd_BewilligungsFachVerfahren As Object = Nothing ' VARCHAR (35) NULL,
' Property ezaAd_BewilligungsnummerEndverwender As Object = Nothing ' VARCHAR (35) NULL,
Return ADR
End Function
Sub setAdresseFromUsrcntl(usrCntl As usrCntlAdresseEZA, ADR As DAKOSY_Worker.cDakosy_EZA_Adressen)
usrCntl.kdFirma.KdNr = If(ADR.ezaAd_AdressCode IsNot Nothing, ADR.ezaAd_AdressCode, -1)
usrCntl.txtName1.Text = If(ADR.ezaAd_NameFirma1, "")
usrCntl.txtName2.Text = If(ADR.ezaAd_NameFirma2, "")
usrCntl.txtStrasse.Text = If(ADR.ezaAd_StrasseHausNr1, "")
usrCntl.txtPlz.Text = If(ADR.ezaAd_PLZ, "")
usrCntl.txtOrt.Text = If(ADR.ezaAd_Ort, "")
usrCntl.txtEORI.Text = If(ADR.ezaAd_TeilnehmerEORI, "")
usrCntl.txtEORINL.Text = If(ADR.ezaAd_TeilnehmerNLNR, "")
usrCntl.sbLand.SET_VALUE(If(ADR.ezaAd_LandCode, ""))
If usrCntl Is usrCntl_Erwerber Then
txtUstId.Text = If(ADR.ezaAd_FinanzamtIDAnmelder, "")
End If
End Sub
Public Sub setValues(EZA As DAKOSY_Worker.cDakosyEZA)
If EZA Is Nothing OrElse EZA.eza_ADRESSEN Is Nothing Then Exit Sub
For Each ADR In EZA.eza_ADRESSEN
Select Case ADR.ezaAd_AdressTyp
Case "CZ" : setAdresseFromUsrcntl(usrCntl_Versender, ADR)
Case "CN" : setAdresseFromUsrcntl(usrCntl_Empfaenger, ADR)
Case "DT" : setAdresseFromUsrcntl(usrCntl_Anmelder, ADR)
Case "AG" : setAdresseFromUsrcntl(usrCntl_VertreterAnmelder, ADR)
Case "UC" : setAdresseFromUsrcntl(usrCntl_Erwerber, ADR)
Case "AA" : setAdresseFromUsrcntl(usrCntl_Vertretener, ADR)
' Case "" : setAdresseFromUsrcntl(usrCntl_Versender, ADR)
End Select
Next
End Sub
End Class

1400
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Allg.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

120
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Allg.resx
View File

@@ -1,120 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

587
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Allg.vb
View File

@@ -1,587 +0,0 @@
Public Class usrCntlATLAS_EZA_Allg
Property EZA_ART = "EZA"
Dim EZA As DAKOSY_Worker.cDakosyEZA = Nothing
Public Event DV1_changed(DV1 As Boolean)
Sub New(EZA As DAKOSY_Worker.cDakosyEZA)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.EZA = EZA
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub usrCntlATLAS_EZA_Load(sender As Object, e As EventArgs) Handles Me.Load
'MySearchBox1.initSearchBox(Me.FindForm, "AdressenNr, [Name 1] FROM Adressen", {"[Name 1]", "Ort", "PLZ"}, "", "[Name 1]", "AdressenNr", "AdressenNr")
'sbEingangZollstelleID.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
' sbAdrZollstelle.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() AND basncd_dstnr LIKE 'DE00%' ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
sbEingangZollstelleID.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
sbAdrZollstelle.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
'sbTatAusfuhrZollstelleID.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
sbBestimmungsland.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
sbVersendungsLand.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
sbKennzeichenInlandLand.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "Code", "FMZOLL", , 400, 200)
txtRechnungspreisWaehrung.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land FROM tbl_DY_ZollDE_I0400_Waehrungsliste", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "Code", "FMZOLL", , 400, 200)
cboZollrStatus.Items.Clear()
cboZollrStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboZollrStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CO", "CO"))
cboZollrStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IM", "IM"))
cboZollrStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EU", "EU"))
cboStatStatus.Items.Clear()
cboStatStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboStatStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("01 - Ware, statistisch nicht erfassbar", "01"))
cboStatStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("03 - Ware wird von Betiligtem gemeldet", "03"))
cboStatStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("04 - Ware ist statistisch zu erfassen", "04"))
cboVerfahren.Items.Clear()
cboVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("01 - Überführung von Waren in den zollrechtlich freien Verkehr", "01"))
cboVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("40 - Gleichzeitige Überführung in den zollrechtlich freien Verkehr ohne MWSt-freie Lieferung", "40"))
cboVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("42 - Gleichzeitige Überführung in den zollrechtlich freien Verkehr mit MWSt-freie Lieferung", "42"))
cboVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("45 - Überführung von Waren in den zollrechtlich und mehrwertsteuer- oder verbrauchsteuerrechtlich freien Verkehr und deren Überführung in ein Steuerlagerverfahren ", "45"))
cboVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("49 - Überführung von Gemeinschaftswaren in den steuerrechtlich freien Verkehr im Rahmen des Warenverkehrs zwischen Teilen des Zollgebiets der Gemeinschaft", "49"))
cboVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("61 - Wiedereinfuhr mit gleichzeitiger Überführung in den zoll- und steuerrechtlich freien Verkehr ohne mehrwertsteuerbefreiende Lieferung - Vorübergehende Ausfuhr im Rahmen der passiven Veredelung", "61"))
cboVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("63 - Wiedereinfuhr und gleichzeitige Überführung in den zoll- und steuerrechtlich freien Verkehr mit mehrwertsteuerbefreiender Lieferung in einen anderen Mitgliedstaat. - Vorübergehende Ausfuhr im Rahmen der passiven Veredelung", "63"))
cboVerkehrszweigInland.Items.Clear()
cboVerkehrszweigInland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboVerkehrszweigInland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1 - Seeverkehr", "1"))
cboVerkehrszweigInland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("2 - Eisenbahnverkehr", "2"))
cboVerkehrszweigInland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("3 - Straßenverkehr", "3"))
cboVerkehrszweigInland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4 - Luftverkehr", "4"))
cboVerkehrszweigInland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("5 - Postsendungen", "5"))
cboVerkehrszweigInland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("7 - Feste Transporteinrichtungen", "7"))
cboVerkehrszweigInland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("8 - Binnenschifffahrt", "8"))
cboVerkehrszweigInland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("9 - Eigener Antrieb", "9"))
cboVerkehrszweigInland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("10 - Seeverkehr", "10"))
cboVerkehrszweigInland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("12 - Waggon auf Seeschiff", "12"))
cboVerkehrszweigInland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("16 - Straßenfahrzeug auf Seeschiff", "16"))
cboVerkehrszweigInland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("17 - Anhänger/Auflieger auf Seeschiff", "17"))
cboVerkehrszweigInland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("18 - Binnenschiff auf Seeschiff", "18"))
cboVerkehrszweigInland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("20 - Eisenbahnverkehr", "20"))
cboVerkehrszweigInland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("23 - Straßenfahrzeug auf Eisenbahn", "23"))
cboVerkehrszweigInland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("30 - Straßenverkehr", "30"))
cboVerkehrszweigInland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("40 - Luftverkehr", "40"))
cboVerkehrszweigInland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("50 - Postsendungen", "50"))
cboVerkehrszweigInland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("70 - Feste Transporteinrichtungen", "70"))
cboVerkehrszweigInland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("80 - Binnenschifffahrt", "80"))
cboVerkehrszweigInland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("90 - Eigener Antrieb", "90"))
cboVerkehrszweigInland.changeItem("3")
cboVerkehrszweigGrenze.Items.Clear()
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1 - Seeverkehr", "1"))
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("2 - Eisenbahnverkehr", "2"))
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("3 - Straßenverkehr", "3"))
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4 - Luftverkehr", "4"))
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("5 - Postsendungen", "5"))
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("7 - Feste Transporteinrichtungen", "7"))
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("8 - Binnenschifffahrt", "8"))
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("9 - Eigener Antrieb", "9"))
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("10 - Seeverkehr", "10"))
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("12 - Waggon auf Seeschiff", "12"))
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("16 - Straßenfahrzeug auf Seeschiff", "16"))
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("17 - Anhänger/Auflieger auf Seeschiff", "17"))
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("18 - Binnenschiff auf Seeschiff", "18"))
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("20 - Eisenbahnverkehr", "20"))
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("23 - Straßenfahrzeug auf Eisenbahn", "23"))
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("30 - Straßenverkehr", "30"))
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("40 - Luftverkehr", "40"))
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("50 - Postsendungen", "50"))
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("70 - Feste Transporteinrichtungen", "70"))
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("80 - Binnenschifffahrt", "80"))
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("90 - Eigener Antrieb", "90"))
cboVerkehrszweigGrenze.changeItem("3")
cboGeschaeftsArt.Items.Clear()
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("A - Post- und Expresssendungen", "A"))
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("E - Zugelassende Wirtschaftsbeteiligte", "E"))
cboArtGrenzUeberschreitung.Items.Clear()
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("01 - LKW", "01"))
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("02 - Schiff (einschl. sonstiger Wasserfahrzeuge wie Segel-, Ruderboote, Jetski etc.)", "02"))
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("03 - Waggon (einschl. sonstiger Schienenfahrzeuge)", "03"))
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("04 - Flugzeug (einschl. sonstiger Luftfahrtgeräte wie Hubschrauber etc.)", "04"))
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("05 - PKW (einschl. sonstiger Kraftfahrzeuge wie Motorrad, Roller etc.)", "05"))
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("06 - Ohne (einschl. muskelkraftbetriebener Beförderungsmittel wie Fahrrad etc.)", "06"))
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("07 - Andere (Postsendung, Rohrleitung, Bef.mittel mit eigenem Antrieb)", "07"))
cboArtGrenzUeberschreitung.changeItem("01")
cboZahlungsweise.Items.Clear()
cboZahlungsweise.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboZahlungsweise.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("A - Barzahlung", "A"))
cboZahlungsweise.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("B - Barzahlung", "B"))
cboZahlungsweise.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("C - Scheck", "C"))
cboZahlungsweise.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("D - Andere (z.B. Abbuchung vom Konto eines Zollagenten)", "D"))
cboZahlungsweise.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("E - Zahlungsaufschub", "E"))
cboZahlungsweise.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("F - Zahlungsaufschub für Zölle oder ein entsprechendes einzelstaatliches Verfahren", "F"))
cboZahlungsweise.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("G - Zahlungsaufschub für die Mehrwertsteuer (Art. 23 der sechsten Mehrwertsteuerrichtlinie) und unmittelbare buchmäßige Erfassung nach Art. 248 ZK-DVO", "G"))
cboZahlungsweise.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("L - SEPA-Lastschriftverfahren", "L"))
cboZahlungsweise.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("S - Sicherheitsleistung", "S"))
cboZahlungsweise.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Y - Barzahlung und unverzügliche Mitteilung der Zollschuld anstatt einer Sicherheitsleistung gemäß Art. 244 UZK-IA", "Y"))
cboZahlungsweise.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Z - Zahlungsaufschub und unverzügliche Mitteilung der Zollschuld anstatt einer Sicherheitsleistung gemäß Art. 244 UZK-IA", "Z"))
cboLieferbedingungen.Items.Clear()
cboLieferbedingungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboLieferbedingungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CFR - Kosten und Fracht", "CFR"))
cboLieferbedingungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CIF - Kosten, Versicherung und Fracht", "CIF"))
cboLieferbedingungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CIP - Fracht und Versicherung bezahlt bis", "CIP"))
cboLieferbedingungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CPT - Fracht bezahlt bis", "CPT"))
cboLieferbedingungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DAF - Frei Grenze", "DAF"))
cboLieferbedingungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DAP - Geliefert benannter Ort", "DAP"))
cboLieferbedingungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DAT - Geliefert Terminal", "DAT"))
cboLieferbedingungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DDP - Geliefert verzollt", "DDP"))
cboLieferbedingungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DDU - Geliefert unverzollt", "DDU"))
cboLieferbedingungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DEQ - Geliefert ab Kai", "DEQ"))
cboLieferbedingungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DES - Geliefert ab Schiff", "DES"))
cboLieferbedingungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EXW - Ab Werk", "EXW"))
cboLieferbedingungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FAS - Frei längsseits Schiff", "FAS"))
cboLieferbedingungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FCA - Frei Frachtführer", "FCA"))
cboLieferbedingungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FOB - Frei an Bord", "FOB"))
cboLieferbedingungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("XXX - Andere Lieferbedingungen als vorstehend angegeben", "XXX"))
cboLieferbedingungen.changeItem("")
cboGeschaeftsArt.Items.Clear()
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("11 - Endgültiger Kauf/Verkauf", "11"))
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("12 - Ansichts- oder Probesendungen, Sendungen mit Rückgaberecht und Kommissionsgeschäfte (einschließlich Konsignationslager)", "12"))
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("13 - Kompensationsgeschäfte (Tauschhandel)", "13"))
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("14 - Finanzierungsleasing (Mietkauf)", "14"))
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("19 - Sonstige Geschäfte mit Eigentumsübertragung und mit Gegenleistung", "19"))
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("21 - Rücksendung von Waren", "21"))
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("22 - Ersatz für zurückgesandte Waren", "22"))
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("23 - Ersatz für nicht zurückgesandte Waren (z. B. wegen Garantie)", "23"))
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("29 - Sonstige Rücksendung und sonstige unentgeltliche Ersatzlieferung von Waren", "29"))
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("31 - Warenlieferungen im Rahmen von durch die Europäische Gemeinschaft ganz oder teilweise finanzierten Hilfsprogrammen", "31"))
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("32 - Andere Hilfslieferungen öffentlicher Stellen (z. B. militärische und humanitäre Hilfslieferungen Deutschlands)", "32"))
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("33 - Sonstige Hilfslieferungen (von privaten oder von nicht öffentlichen Stellen)", "33"))
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("34 - Sonstige Geschäfte mit Eigentumsübertragung, jedoch ohne Gegenleistung in Form von finanziellen Leistungen oder Sachleistungen", "34"))
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("41 - Warensendung zur Lohnveredelung, die voraussichtlich in das ursprüngliche Ausfuhrland zurückgelangen", "41"))
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("42 - Warensendung zur Lohnveredelung, die voraussichtlich nicht in das ursprüngliche Ausfuhrland zurückgelangen", "42"))
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("51 - Warensendung nach Lohnveredelung, die in das ursprüngliche Ausfuhrland zurückgelangen", "51"))
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("52 - Warensendung nach Lohnveredelung, die nicht in das ursprüngliche Ausfuhrland zurückgelangen", "52"))
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("67 - Warensendungen zur und nach Reparatur", "67"))
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("69 - Vorübergehende Warenverkehre (für nationale Zwecke); ausgenommen die unter Schlüsselnummer 41, 42, 51, 52 und 91 zu erfassenden Warensendungen - sonstige vorübergehende Warenverkehre bis einschließlich 24 Monaten", "69"))
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("71 - Für militärische Zwecke", "71"))
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("72 - für zivile Zwecke (z.B. Airbus, ausgenommen die unter Schlüsselnummer 11 bis 14 oder 19 zu erfassenden Warenbewegungen)", "72"))
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("81 - Geschäfte mit Lieferung von Baumaterial und technischen Ausrüstungen im Rahmen von Hoch- oder Tiefbauarbeiten als Teil eines Generalvertrags, bei denen keine einzelnen Waren in Rechnung gestellt werden, sondern eine einzige Rechnung den Gesamtwert der Waren erfasst.", "81"))
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("91 - Andere Geschäfte - vorübergehende Warenverkehre über 24 Monate (z.B. Miete, Leihe und Operate Leasing)", "91"))
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("92 - Lagerverkehr für ausländische Rechnung", "92"))
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("99 - Andere Geschäfte - nicht anderweitig erfasst", "99"))
cboGeschaeftsArt.changeItem("")
'cboBewEndverwendung
' txtAnmeldeDatum._value = Now.ToString("dd.MM.yyyy HH:mm")
sbBestimmungsBundesland.Items.Clear()
sbBestimmungsBundesland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
sbBestimmungsBundesland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("01 - Schleswig-Holstein", "01"))
sbBestimmungsBundesland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("02 - Hamburg", "02"))
sbBestimmungsBundesland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("03 - Niedersachsen", "03"))
sbBestimmungsBundesland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("04 - Bremen", "04"))
sbBestimmungsBundesland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("05 - Nordrhein-Westfalen", "05"))
sbBestimmungsBundesland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("06 - Hessen", "06"))
sbBestimmungsBundesland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("07 - Rheinland-Pfalz", "07"))
sbBestimmungsBundesland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("08 - Baden-Württemberg", "08"))
sbBestimmungsBundesland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("09 - Bayern", "09"))
sbBestimmungsBundesland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("10 - Saarland", "10"))
sbBestimmungsBundesland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("11 - Berlin", "11"))
sbBestimmungsBundesland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("12 - Brandenburg", "12"))
sbBestimmungsBundesland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("13 - Mecklenburg-Vorpommern", "13"))
sbBestimmungsBundesland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("14 - Sachsen", "14"))
sbBestimmungsBundesland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("15 - Sachsen-Anhalt", "15"))
sbBestimmungsBundesland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("16 - Thüringen", "16"))
sbBestimmungsBundesland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("25 - Für das Ausland bestimmt", "25"))
sbBestimmungsBundesland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("99 - Ursprungsausland", "99"))
cboLieferbedingungSchluessel.Items.Clear()
cboLieferbedingungSchluessel.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboLieferbedingungSchluessel.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1 - ab Werk", "1"))
cboLieferbedingungSchluessel.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("3 - frei deutsche Grenze", "3"))
cboArtVerfahrenUeberfuehrung.Items.Clear()
cboArtVerfahrenUeberfuehrung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EZA-A - Einzelzollanmeldung, Abgabe einer herkömmlichen Zollanmeldung", "EZA-A"))
cboArtVerfahrenUeberfuehrung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EZA-D - vorzeitige Einzelzollanmeldung, Abgabe einer herkömmlichen Zollanmeldung", "EZA-D"))
cboArtVerfahrenUeberfuehrung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZA-C - vereinfachte Einzelzollanmeldung", "VZA-C"))
cboArtVerfahrenUeberfuehrung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZA-F - vereinfachte, vorzeitige Einzelzollanmeldung", "VZA-F"))
cboArtVerfahrenUeberfuehrung.changeItem("")
cboVertretungsart.Items.Clear()
cboVertretungsart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboVertretungsart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("0 - Keine Vertretung, sondern Handeln im eigenen Namen und für eigene Rechnung", "0"))
cboVertretungsart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1 - Vertretung im Namen und für Rechnung eines Anderen (direkte Vertretung)", "1"))
cboVertretungsart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("2 - Vertretung im eigenen Namen, aber für Rechnung eines Anderen (indirekte Vertretung)", "2"))
cboVertretungsart.changeItem("")
cboVPArt.Items.Clear()
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("0 - Keine Vertretung, sondern Handeln im eigenen Namen und für eigene Rechnung", "0"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1 - Vertretung im Namen und für Rechnung eines Anderen (direkte Vertretung)", "1"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("2 - Vertretung im eigenen Namen, aber für Rechnung eines Anderen (indirekte Vertretung)", "2"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("A - Ausbesserungsschein", "A"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AE - Ausfuhranmeldung für Erstattungszwecke", "AE"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATA - Als Versandschein genutzt", "ATA"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATA - Carnet ATA", "ATA"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("at-AV - Aktive Veredelung als vorangegangenes Verfahren (sowohl im Papierverfahren als auch im IT-Verfahren ATLAS)", "at-AV"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATNEU - Summarische Anmeldung im IT-Verfahren ATLAS, Verfahrensbereich SumA ", "ATNEU"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("at-ZL - Zolllagerverfahren als vorangegangenes Verfahren (sowohl im Papierverfahren als auch im IT-Verfahren ATLAS)", "at-ZL"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AV - Abmeldung aus der aktiven Veredelung", "AV"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ESUMA - Eingangs - SumA", "ESUMA"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FV - Anmeldung aus d. fr. Verkehr zur bes. Verw.", "FV"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("GB - Vom Verfahren erzeugte Registriernummer, die nicht angenommen, für ungültig erklärt oder storniert wurde", "GB"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("MAN - Rheinmanifest", "MAN"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("MO - Anm.für ausfuhrabgabepflichtige MO-Waren", "MO"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("OESUMA - Ohne ESumA gemäß Art. 136 UZK, Art. 104 UZK-DA (ohne Carnet ATA und Truppenverwendung) oder aufgrund eines Abkommens, z.B. EU - CH", "OESUMA"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("OHNE", "OHNE"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("POST - Zollinhaltserklärung(für im Postverkehr gestellte Sendungen, die nicht im Postübergabebogen erfasst werden)", "POST"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("PUEB - Postübergabebogen(für im Postverkehr gestellte Sendungen, die im Postübergabebogen erfasst werden)", "PUEB"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T- - Versandschein", "T-"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TIR - Carnet TIR", "TIR"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TRPPVW - Truppenverwendung", "TRPPVW"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T1 - Versandschein", "T1"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T1CF - Container - Frachtbrief", "T1CF"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T1DF - Deutscher Frachtbrief", "T1DF"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T1IC - IC - Übergabeschein TR", "T1IC"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T1IE - Internationaler Expreßgutschein (TIEx) - T1", "T1IE"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T1IF - Internationaler Frachtbrief (CIM) - T1", "T1IF"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T2 - Versandschein", "T2"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T2AN - Versandschein (Andorra)", "T2AN"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T2CF - Container - Frachtbrief", "T2CF"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T2DF - Deutscher Frachtbrief", "T2DF"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T2F - Versandschein", "T2F"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T2IC - IC - Übergabeschein TR - T2", "T2IC"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T2IE - Internationaler Expreßgutschein (TIEx)", "T2IE"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T2IF - Internationaler Frachtbrief (CIM)", "T2IF"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T2L - Versandschein T2L", "T2L"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T2LF - Versandschein T2LF", "T2LF"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T2M - Versandschein", "T2M"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T2SM - Versandschein (San Marino)", "T2SM"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T5 - Kontrollexemplar", "T5"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("V - Verwendungsschein", "V"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VO - Verwendungsschein", "VO"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VV - Anm.aus der vorübergehenden Verwendung", "VV"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Z - Zollanmeldung", "Z"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ZL - Zolllagerverfahren", "ZL"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("444TF - Versandschein T2F (Art. 444 ZK-DVO)", "444TF"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("444T1 - Versandschein T1 (Art. 444 ZK-DVO)", "444T1"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("444T2 - Versandschein T2 (Art. 111 Übereinkommen)", "444T2"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("445 - Versandverfahren Art. 445 ZK-DVO", "445"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("447TF - Versandschein T2F (Art. 447 ZK-DVO)", "447TF"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("447T1 - Versandschein T1 (Art. 447 ZK-DVO)", "447T1"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("447T2 - Versandschein T2 (Art. 111 Übereinkommen)", "447T2"))
cboVPArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("448 - Versandverfahren Art. 448 ZK-DVO", "448"))
cboVPArt.changeItem("")
'btnAllgemein_Click(btnT2, New EventArgs)
' setValues(EZA)
End Sub
Public Sub getValues(ByRef EZA As DAKOSY_Worker.cDakosyEZA)
EZA.eza_AnmeldungArt = cProgramFunctions.isLeerNothing(cboArtVerfahrenUeberfuehrung._value)
' EZA.eza_VerfahrenBeantragtCode = cProgramFunctions.isLeerNothing(cboVerfahren._value)
EZA.eza_ZollrechtlicherStatus = cProgramFunctions.isLeerNothing(cboZollrStatus._value)
EZA.eza_Statistikstatus = cProgramFunctions.isLeerNothing(cboStatStatus._value)
EZA.eza_VerfahrenBeantragtCode = cProgramFunctions.isLeerNothing(cboVerfahren._value)
EZA.eza_DV1Kz = If(cbxDV1.Checked, True, Nothing)
EZA.eza_FiskalvertretungKz = If(cbxFiskalvertretung.Checked, True, Nothing)
'EZA. = cProgramFunctions.isLeerNothing(cboArtVerfahrenUeberfuehrung._value)
EZA.eza_Eingangszollstelle = cProgramFunctions.isLeerNothing(sbEingangZollstelleID._value)
If sbAdrZollstelle._value.Length = 8 Then
EZA.eza_AdressierteZollstelle = sbAdrZollstelle._value.Substring(4, 4)
End If
EZA.eza_VertretungsVerhaeltnisCode = cProgramFunctions.isLeerNothing(cboVertretungsart._value)
' EZA.eza_AnschreibungDatum =
EZA.eza_VersendungsLandCode = cProgramFunctions.isLeerNothing(sbVersendungsLand._value)
EZA.eza_Bestimmungsland = cProgramFunctions.isLeerNothing(sbBestimmungsland._value)
EZA.eza_Bestimmungsbundesland = cProgramFunctions.isLeerNothing(sbBestimmungsBundesland._value)
EZA.eza_Warenort = cProgramFunctions.isLeerNothing(txtWarenort.Text)
EZA.eza_KennzeichenNameBefoerderungsmittelAnkunft = cProgramFunctions.isLeerNothing(txtKennzeichenInland._value)
EZA.eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode = cProgramFunctions.isLeerNothing(sbKennzeichenInlandLand._value)
EZA.eza_BeförderungsmittelGrenzeArt = cProgramFunctions.isLeerNothing(cboArtGrenzUeberschreitung._value)
EZA.eza_VerkehrszweigInland = cProgramFunctions.isLeerNothing(cboVerkehrszweigInland._value)
EZA.eza_VerkehrszweigGrenze = cProgramFunctions.isLeerNothing(cboVerkehrszweigGrenze._value)
'EZA.bef = cProgramFunctions.isLeerNothing(txtBeschrBefmittelGrenze.Text)
'EZA. = cProgramFunctions.isLeerNothing(txtWarenort.Text)
EZA.eza_Zahlungsart = cProgramFunctions.isLeerNothing(cboZahlungsweise._value)
EZA.eza_ArtGeschaeftCode = cProgramFunctions.isLeerNothing(cboGeschaeftsArt._value)
EZA.eza_Rechnungspreis = cProgramFunctions.isLeerNothingDbl(txtRechnungspreis._value)
EZA.eza_Rechnungswaehrung = cProgramFunctions.isLeerNothing(txtRechnungspreisWaehrung._value)
EZA.eza_LieferbedingungCode = cProgramFunctions.isLeerNothing(cboLieferbedingungen._value)
EZA.eza_LieferbedingungSchluessel = cProgramFunctions.isLeerNothing(cboLieferbedingungSchluessel._value)
EZA.eza_LieferbedingungOrt = cProgramFunctions.isLeerNothing(txtLieferbedingungort.Text)
EZA.eza_LieferbedingungText = cProgramFunctions.isLeerNothing(txtLieferbedingungText.Text)
EZA.eza_AnmelderistEmpfaenger = Nothing
EZA.eza_GesamtRohmasse = cProgramFunctions.isLeerNothingDbl(txtRohmasse.Text)
EZA.eza_ContainerNr1 = cProgramFunctions.isLeerNothing(txtContainerNr1.Text)
EZA.eza_ContainerNr2 = cProgramFunctions.isLeerNothing(txtContainerNr2.Text)
EZA.eza_ContainerNr3 = cProgramFunctions.isLeerNothing(txtContainerNr3.Text)
EZA.eza_SUMABA.Clear()
If cboVPArt._value <> "" Then
EZA.eza_VorpapierArtCode = cProgramFunctions.isLeerNothing(cboVPArt._value)
EZA.eza_VorpapierNr = cProgramFunctions.isLeerNothing(txtVPReferenz.Text)
If txtVP_ATB1.Text <> "" Then
Dim SUMA As New DAKOSY_Worker.cDakosy_EZA_SumABeendigungsAnteil()
SUMA.ezaBa_SumARegistriernummer = txtVP_ATB1.Text
SUMA.ezaBa_SumAPosNr = txtVP_ATBNr1.Text
SUMA.ezaBa_BeendigungsPackstueckzahl = txtVP_ATBPk1.Text
If EZA.eza_VorpapierArtCode = "ATNEU" Then SUMA.ezaBa_Artidentifikation = "REG"
EZA.eza_SUMABA.Add(SUMA)
End If
If txtVP_ATB2.Text <> "" Then
Dim SUMA As New DAKOSY_Worker.cDakosy_EZA_SumABeendigungsAnteil()
SUMA.ezaBa_SumARegistriernummer = txtVP_ATB2.Text
SUMA.ezaBa_SumAPosNr = txtVP_ATBNr2.Text
SUMA.ezaBa_BeendigungsPackstueckzahl = txtVP_ATBPk2.Text
If EZA.eza_VorpapierArtCode = "ATNEU" Then SUMA.ezaBa_Artidentifikation = "REG"
EZA.eza_SUMABA.Add(SUMA)
End If
'If EZA.eza_SUMABA.Count > 0 Then
' EZA.eza_BeendigungsanteilArtCode = "REG"
'End If
Else
EZA.eza_VorpapierArtCode = Nothing
EZA.eza_VorpapierNr = Nothing
End If
Select Case cbxAnmelderIstEmpfänger.CheckState
Case CheckState.Checked : EZA.eza_AnmelderistEmpfaenger = "J"
Case CheckState.Unchecked : EZA.eza_AnmelderistEmpfaenger = "N"
End Select
End Sub
Public Sub setValues(EZA As DAKOSY_Worker.cDakosyEZA)
If EZA Is Nothing Then Exit Sub
cboArtVerfahrenUeberfuehrung.changeItem(If(EZA.eza_AnmeldungArt, ""))
' cboVerfahren.changeItem(If(EZA.eza_VerfahrenBeantragtCode, ""))
cboZollrStatus.changeItem(If(EZA.eza_ZollrechtlicherStatus, ""))
cboStatStatus.changeItem(If(EZA.eza_Statistikstatus, ""))
cboVerfahren.changeItem(If(EZA.eza_VerfahrenBeantragtCode, ""))
cbxDV1.Checked = If(EZA.eza_DV1Kz, False)
cbxFiskalvertretung.Checked = If(EZA.eza_FiskalvertretungKz, False)
sbEingangZollstelleID.SET_VALUE(EZA.eza_Eingangszollstelle)
sbAdrZollstelle.SET_VALUE("DE00" & EZA.eza_AdressierteZollstelle)
cboVertretungsart.changeItem(If(EZA.eza_VertretungsVerhaeltnisCode, ""))
sbVersendungsLand.SET_VALUE(EZA.eza_VersendungsLandCode)
sbBestimmungsland.SET_VALUE(EZA.eza_Bestimmungsland)
sbBestimmungsBundesland.changeItem(EZA.eza_Bestimmungsbundesland)
txtWarenort.Text = If(EZA.eza_Warenort, "")
txtKennzeichenInland.Text = If(EZA.eza_KennzeichenNameBefoerderungsmittelAnkunft, "")
sbKennzeichenInlandLand.SET_VALUE(EZA.eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode)
cboArtGrenzUeberschreitung.changeItem(If(EZA.eza_BeförderungsmittelGrenzeArt, ""))
cboVerkehrszweigInland.changeItem(If(EZA.eza_VerkehrszweigInland, ""))
cboVerkehrszweigGrenze.changeItem(If(EZA.eza_VerkehrszweigGrenze, ""))
cboZahlungsweise.changeItem(If(EZA.eza_Zahlungsart, ""))
cboGeschaeftsArt.changeItem(If(EZA.eza_ArtGeschaeftCode, ""))
txtRechnungspreis._value = If(EZA.eza_Rechnungspreis, "")
txtRechnungspreisWaehrung.SET_VALUE(If(EZA.eza_Rechnungswaehrung, ""))
cboLieferbedingungen.changeItem(If(EZA.eza_LieferbedingungCode, ""))
cboLieferbedingungSchluessel.changeItem(If(EZA.eza_LieferbedingungSchluessel, ""))
txtLieferbedingungort.Text = If(EZA.eza_LieferbedingungOrt, "")
txtLieferbedingungText.Text = If(EZA.eza_LieferbedingungText, "")
txtRohmasse.Text = If(EZA.eza_GesamtRohmasse, "")
txtContainerNr1.Text = If(EZA.eza_ContainerNr1, "")
txtContainerNr2.Text = If(EZA.eza_ContainerNr2, "")
txtContainerNr3.Text = If(EZA.eza_ContainerNr3, "")
'cbxVorzeitigeAnmeldung.Checked=EZA.vorzeitige"!!!!!!!!!!!!!!!!!!!!!!!!!
cbxAnmelderIstEmpfänger.CheckState = CheckState.Indeterminate
If EZA.eza_AnmelderistEmpfaenger IsNot Nothing Then
Select Case EZA.eza_AnmelderistEmpfaenger
Case "J" : cbxAnmelderIstEmpfänger.CheckState = CheckState.Checked
Case "N" : cbxAnmelderIstEmpfänger.CheckState = CheckState.Unchecked
End Select
End If
Select Case EZA_ART
Case "EZA" : initButton(btnCo)
Case "VZA" : initButton(btnEU)
End Select
cboVPArt.changeItem(If(EZA.eza_VorpapierArtCode, ""))
txtVPReferenz.Text = If(EZA.eza_VorpapierNr, "")
If EZA.eza_SUMABA IsNot Nothing Then
If EZA.eza_SUMABA.Count > 0 Then
txtVP_ATB1.Text = If(EZA.eza_SUMABA(0).ezaBa_SumARegistriernummer, "")
txtVP_ATBNr1.Text = If(EZA.eza_SUMABA(0).ezaBa_SumAPosNr, "")
txtVP_ATBPk1.Text = If(EZA.eza_SUMABA(0).ezaBa_BeendigungsPackstueckzahl, "")
End If
If EZA.eza_SUMABA.Count > 1 Then
txtVP_ATB2.Text = If(EZA.eza_SUMABA(1).ezaBa_SumARegistriernummer, "")
txtVP_ATBNr2.Text = If(EZA.eza_SUMABA(1).ezaBa_SumAPosNr, "")
txtVP_ATBPk2.Text = If(EZA.eza_SUMABA(1).ezaBa_BeendigungsPackstueckzahl, "")
End If
End If
End Sub
Private Sub btnAllgemein_Click(sender As Object, e As EventArgs) Handles btnCo.Click, btnEU.Click
initButton(sender)
End Sub
Sub initButton(sender As Button)
setBtn(btnCo, False)
setBtn(btnEU, False)
If sender Is Nothing Then
Else
If sender Is btnCo Then
EZA_ART = "EZA"
If cbxVorzeitigeAnmeldung.Checked Then
txtArtDetail.Text = "Vorzeitige Einzelzollanmeldung" & vbNewLine & "Abgabe einer herkömmlichen Zollanmeldung"
cboArtVerfahrenUeberfuehrung.changeItem("EZA-D")
Else
txtArtDetail.Text = "Einzelzollanmeldung" & vbNewLine & "Abgabe einer herkömmlichen Zollanmeldung"
cboArtVerfahrenUeberfuehrung.changeItem("EZA-A")
End If
ElseIf sender Is btnEU Then
EZA_ART = "VZA"
If cbxVorzeitigeAnmeldung.Checked Then
txtArtDetail.Text = "Vorzeitige, vereinfachte Einzelzollanmeldung"
cboArtVerfahrenUeberfuehrung.changeItem("VZA-F")
Else
txtArtDetail.Text = "Vereinfachte Einzelzollanmeldung"
cboArtVerfahrenUeberfuehrung.changeItem("VZA-C")
End If
End If
setBtn(sender, True)
End If
End Sub
Sub setBtn(btn As Button, value As Boolean)
If value Then
btn.BackColor = Color.OrangeRed
btn.ForeColor = Color.White
Else
btn.BackColor = Color.White
btn.ForeColor = Color.Black
End If
End Sub
'Private Sub sbVersendungsLand_TextChanged() Handles sbVersendungsLand.VALUE_CHANGED
' If sbVersendungsLand._value <> "" And txtWarenort.Text = "" Then
' txtWarenort.Text = sbVersendungsLand._value
' End If
'End Sub
Private Sub cboLieferbedingungen_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboLieferbedingungen.SelectedIndexChanged
If cboLieferbedingungen._value = "XXX" Then
txtLieferbedingungText.Enabled = True
txtLieferbedingungort.Enabled = False
Else
txtLieferbedingungText.Enabled = False
txtLieferbedingungort.Enabled = True
End If
End Sub
Private Sub cboArtVerfahrenUeberfuehrung_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboArtVerfahrenUeberfuehrung.SelectedIndexChanged
Select Case cboArtVerfahrenUeberfuehrung._value
Case "EZA-A" : initButton(btnCo) : cbxVorzeitigeAnmeldung.Checked = False
Case "EZA-D" : initButton(btnCo) : cbxVorzeitigeAnmeldung.Checked = True
Case "VZA-C" : initButton(btnEU) : cbxVorzeitigeAnmeldung.Checked = False
Case "VZA-F" : initButton(btnEU) : cbxVorzeitigeAnmeldung.Checked = True
Case Else : initButton(Nothing)
End Select
End Sub
Private Sub cbxVorzeitigeAnmeldung_CheckedChanged(sender As Object, e As EventArgs) Handles cbxVorzeitigeAnmeldung.CheckedChanged, cbxFiskalvertretung.CheckedChanged
Select Case EZA_ART
Case "EZA" : initButton(btnCo)
Case "VZA" : initButton(btnEU)
End Select
End Sub
Private Sub cbxDV1_CheckedChanged(sender As Object, e As EventArgs) Handles cbxDV1.CheckedChanged
RaiseEvent DV1_changed(cbxDV1.Checked)
End Sub
Private Sub cboVPArt_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboVPArt.SelectedIndexChanged
txtVP_ATB1.Enabled = (cboVPArt._value <> "")
txtVP_ATB2.Enabled = (cboVPArt._value <> "")
txtVP_ATBNr1.Enabled = (cboVPArt._value <> "")
txtVP_ATBNr2.Enabled = (cboVPArt._value <> "")
txtVPReferenz.Enabled = (cboVPArt._value <> "")
txtVP_ATBPk1.Enabled = (cboVPArt._value <> "")
txtVP_ATBPk2.Enabled = (cboVPArt._value <> "")
End Sub
Private Sub cboVPArt_LostFocus(sender As Object, e As EventArgs) Handles cboVPArt.LostFocus
If cboVPArt._value <> "" Then
txtVPReferenz.Focus() 'wg.enabled
End If
End Sub
End Class

325
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_DV1.Designer.vb generated
View File

@@ -1,325 +0,0 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class usrCntlATLAS_EZA_DV1
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.pnl = New System.Windows.Forms.Panel()
Me.cboVertretungsverhaeltnis = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.label11 = New System.Windows.Forms.Label()
Me.cboWeiterverkUeberlVerwendung = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboLizenzgebuehren = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboBedingungen = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboEinschraenkungen = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboVerbundenheit = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.txtWeiterverkUeberlVerwendungUmstände = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtBedingungenLeistungArt = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtLizenzgebuehrenUmstand = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtVerbundenheitEinzelheiten = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label9 = New System.Windows.Forms.Label()
Me.pnl.SuspendLayout()
Me.SuspendLayout()
'
'pnl
'
Me.pnl.Controls.Add(Me.cboVertretungsverhaeltnis)
Me.pnl.Controls.Add(Me.label11)
Me.pnl.Controls.Add(Me.cboWeiterverkUeberlVerwendung)
Me.pnl.Controls.Add(Me.cboLizenzgebuehren)
Me.pnl.Controls.Add(Me.cboBedingungen)
Me.pnl.Controls.Add(Me.cboEinschraenkungen)
Me.pnl.Controls.Add(Me.cboVerbundenheit)
Me.pnl.Controls.Add(Me.Label5)
Me.pnl.Controls.Add(Me.txtWeiterverkUeberlVerwendungUmstände)
Me.pnl.Controls.Add(Me.txtBedingungenLeistungArt)
Me.pnl.Controls.Add(Me.txtLizenzgebuehrenUmstand)
Me.pnl.Controls.Add(Me.txtVerbundenheitEinzelheiten)
Me.pnl.Controls.Add(Me.Label4)
Me.pnl.Controls.Add(Me.Label3)
Me.pnl.Controls.Add(Me.Label2)
Me.pnl.Controls.Add(Me.Label1)
Me.pnl.Controls.Add(Me.Label9)
Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnl.Location = New System.Drawing.Point(0, 0)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(907, 628)
Me.pnl.TabIndex = 0
'
'cboVertretungsverhaeltnis
'
Me.cboVertretungsverhaeltnis._allowedValuesFreiText = Nothing
Me.cboVertretungsverhaeltnis._allowFreiText = False
Me.cboVertretungsverhaeltnis._value = ""
Me.cboVertretungsverhaeltnis.DropDownWidth = 350
Me.cboVertretungsverhaeltnis.FormattingEnabled = True
Me.cboVertretungsverhaeltnis.Location = New System.Drawing.Point(169, 44)
Me.cboVertretungsverhaeltnis.Name = "cboVertretungsverhaeltnis"
Me.cboVertretungsverhaeltnis.Size = New System.Drawing.Size(233, 21)
Me.cboVertretungsverhaeltnis.TabIndex = 1
'
'label11
'
Me.label11.Location = New System.Drawing.Point(3, 48)
Me.label11.Name = "label11"
Me.label11.Size = New System.Drawing.Size(160, 13)
Me.label11.TabIndex = 0
Me.label11.Text = "Vertretungsverhältnis:"
Me.label11.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'cboWeiterverkUeberlVerwendung
'
Me.cboWeiterverkUeberlVerwendung._allowedValuesFreiText = Nothing
Me.cboWeiterverkUeberlVerwendung._allowFreiText = False
Me.cboWeiterverkUeberlVerwendung._value = ""
Me.cboWeiterverkUeberlVerwendung.DropDownWidth = 350
Me.cboWeiterverkUeberlVerwendung.FormattingEnabled = True
Me.cboWeiterverkUeberlVerwendung.Location = New System.Drawing.Point(169, 160)
Me.cboWeiterverkUeberlVerwendung.Name = "cboWeiterverkUeberlVerwendung"
Me.cboWeiterverkUeberlVerwendung.Size = New System.Drawing.Size(233, 21)
Me.cboWeiterverkUeberlVerwendung.TabIndex = 15
'
'cboLizenzgebuehren
'
Me.cboLizenzgebuehren._allowedValuesFreiText = Nothing
Me.cboLizenzgebuehren._allowFreiText = False
Me.cboLizenzgebuehren._value = ""
Me.cboLizenzgebuehren.DropDownWidth = 350
Me.cboLizenzgebuehren.FormattingEnabled = True
Me.cboLizenzgebuehren.Location = New System.Drawing.Point(169, 141)
Me.cboLizenzgebuehren.Name = "cboLizenzgebuehren"
Me.cboLizenzgebuehren.Size = New System.Drawing.Size(233, 21)
Me.cboLizenzgebuehren.TabIndex = 12
'
'cboBedingungen
'
Me.cboBedingungen._allowedValuesFreiText = Nothing
Me.cboBedingungen._allowFreiText = False
Me.cboBedingungen._value = ""
Me.cboBedingungen.DropDownWidth = 350
Me.cboBedingungen.FormattingEnabled = True
Me.cboBedingungen.Location = New System.Drawing.Point(169, 122)
Me.cboBedingungen.Name = "cboBedingungen"
Me.cboBedingungen.Size = New System.Drawing.Size(233, 21)
Me.cboBedingungen.TabIndex = 9
'
'cboEinschraenkungen
'
Me.cboEinschraenkungen._allowedValuesFreiText = Nothing
Me.cboEinschraenkungen._allowFreiText = False
Me.cboEinschraenkungen._value = ""
Me.cboEinschraenkungen.DropDownWidth = 350
Me.cboEinschraenkungen.FormattingEnabled = True
Me.cboEinschraenkungen.Location = New System.Drawing.Point(169, 103)
Me.cboEinschraenkungen.Name = "cboEinschraenkungen"
Me.cboEinschraenkungen.Size = New System.Drawing.Size(233, 21)
Me.cboEinschraenkungen.TabIndex = 7
'
'cboVerbundenheit
'
Me.cboVerbundenheit._allowedValuesFreiText = Nothing
Me.cboVerbundenheit._allowFreiText = False
Me.cboVerbundenheit._value = ""
Me.cboVerbundenheit.DropDownWidth = 350
Me.cboVerbundenheit.FormattingEnabled = True
Me.cboVerbundenheit.Location = New System.Drawing.Point(169, 83)
Me.cboVerbundenheit.Name = "cboVerbundenheit"
Me.cboVerbundenheit.Size = New System.Drawing.Size(233, 21)
Me.cboVerbundenheit.TabIndex = 4
'
'Label5
'
Me.Label5.Location = New System.Drawing.Point(401, 68)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(130, 13)
Me.Label5.TabIndex = 2
Me.Label5.Text = "Art/Umstände:"
'
'txtWeiterverkUeberlVerwendungUmstände
'
Me.txtWeiterverkUeberlVerwendungUmstände._DateTimeOnly = False
Me.txtWeiterverkUeberlVerwendungUmstände._numbersOnly = True
Me.txtWeiterverkUeberlVerwendungUmstände._numbersOnlyKommastellen = ""
Me.txtWeiterverkUeberlVerwendungUmstände._Prozent = False
Me.txtWeiterverkUeberlVerwendungUmstände._ShortDateNew = False
Me.txtWeiterverkUeberlVerwendungUmstände._ShortDateOnly = False
Me.txtWeiterverkUeberlVerwendungUmstände._TimeOnly = False
Me.txtWeiterverkUeberlVerwendungUmstände._value = ""
Me.txtWeiterverkUeberlVerwendungUmstände._Waehrung = False
Me.txtWeiterverkUeberlVerwendungUmstände.ForeColor = System.Drawing.Color.Black
Me.txtWeiterverkUeberlVerwendungUmstände.Location = New System.Drawing.Point(401, 160)
Me.txtWeiterverkUeberlVerwendungUmstände.MaxLength = 100
Me.txtWeiterverkUeberlVerwendungUmstände.MaxLineLength = -1
Me.txtWeiterverkUeberlVerwendungUmstände.MaxLines_Warning = ""
Me.txtWeiterverkUeberlVerwendungUmstände.MaxLines_Warning_Label = Nothing
Me.txtWeiterverkUeberlVerwendungUmstände.Name = "txtWeiterverkUeberlVerwendungUmstände"
Me.txtWeiterverkUeberlVerwendungUmstände.Size = New System.Drawing.Size(130, 20)
Me.txtWeiterverkUeberlVerwendungUmstände.TabIndex = 16
Me.txtWeiterverkUeberlVerwendungUmstände.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'txtBedingungenLeistungArt
'
Me.txtBedingungenLeistungArt._DateTimeOnly = False
Me.txtBedingungenLeistungArt._numbersOnly = True
Me.txtBedingungenLeistungArt._numbersOnlyKommastellen = ""
Me.txtBedingungenLeistungArt._Prozent = False
Me.txtBedingungenLeistungArt._ShortDateNew = False
Me.txtBedingungenLeistungArt._ShortDateOnly = False
Me.txtBedingungenLeistungArt._TimeOnly = False
Me.txtBedingungenLeistungArt._value = ""
Me.txtBedingungenLeistungArt._Waehrung = False
Me.txtBedingungenLeistungArt.ForeColor = System.Drawing.Color.Black
Me.txtBedingungenLeistungArt.Location = New System.Drawing.Point(401, 122)
Me.txtBedingungenLeistungArt.MaxLength = 100
Me.txtBedingungenLeistungArt.MaxLineLength = -1
Me.txtBedingungenLeistungArt.MaxLines_Warning = ""
Me.txtBedingungenLeistungArt.MaxLines_Warning_Label = Nothing
Me.txtBedingungenLeistungArt.Name = "txtBedingungenLeistungArt"
Me.txtBedingungenLeistungArt.Size = New System.Drawing.Size(130, 20)
Me.txtBedingungenLeistungArt.TabIndex = 10
Me.txtBedingungenLeistungArt.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'txtLizenzgebuehrenUmstand
'
Me.txtLizenzgebuehrenUmstand._DateTimeOnly = False
Me.txtLizenzgebuehrenUmstand._numbersOnly = True
Me.txtLizenzgebuehrenUmstand._numbersOnlyKommastellen = ""
Me.txtLizenzgebuehrenUmstand._Prozent = False
Me.txtLizenzgebuehrenUmstand._ShortDateNew = False
Me.txtLizenzgebuehrenUmstand._ShortDateOnly = False
Me.txtLizenzgebuehrenUmstand._TimeOnly = False
Me.txtLizenzgebuehrenUmstand._value = ""
Me.txtLizenzgebuehrenUmstand._Waehrung = False
Me.txtLizenzgebuehrenUmstand.ForeColor = System.Drawing.Color.Black
Me.txtLizenzgebuehrenUmstand.Location = New System.Drawing.Point(401, 141)
Me.txtLizenzgebuehrenUmstand.MaxLength = 100
Me.txtLizenzgebuehrenUmstand.MaxLineLength = -1
Me.txtLizenzgebuehrenUmstand.MaxLines_Warning = ""
Me.txtLizenzgebuehrenUmstand.MaxLines_Warning_Label = Nothing
Me.txtLizenzgebuehrenUmstand.Name = "txtLizenzgebuehrenUmstand"
Me.txtLizenzgebuehrenUmstand.Size = New System.Drawing.Size(130, 20)
Me.txtLizenzgebuehrenUmstand.TabIndex = 13
Me.txtLizenzgebuehrenUmstand.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'txtVerbundenheitEinzelheiten
'
Me.txtVerbundenheitEinzelheiten._DateTimeOnly = False
Me.txtVerbundenheitEinzelheiten._numbersOnly = True
Me.txtVerbundenheitEinzelheiten._numbersOnlyKommastellen = ""
Me.txtVerbundenheitEinzelheiten._Prozent = False
Me.txtVerbundenheitEinzelheiten._ShortDateNew = False
Me.txtVerbundenheitEinzelheiten._ShortDateOnly = False
Me.txtVerbundenheitEinzelheiten._TimeOnly = False
Me.txtVerbundenheitEinzelheiten._value = ""
Me.txtVerbundenheitEinzelheiten._Waehrung = False
Me.txtVerbundenheitEinzelheiten.ForeColor = System.Drawing.Color.Black
Me.txtVerbundenheitEinzelheiten.Location = New System.Drawing.Point(401, 84)
Me.txtVerbundenheitEinzelheiten.MaxLength = 100
Me.txtVerbundenheitEinzelheiten.MaxLineLength = -1
Me.txtVerbundenheitEinzelheiten.MaxLines_Warning = ""
Me.txtVerbundenheitEinzelheiten.MaxLines_Warning_Label = Nothing
Me.txtVerbundenheitEinzelheiten.Name = "txtVerbundenheitEinzelheiten"
Me.txtVerbundenheitEinzelheiten.Size = New System.Drawing.Size(130, 20)
Me.txtVerbundenheitEinzelheiten.TabIndex = 5
Me.txtVerbundenheitEinzelheiten.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'Label4
'
Me.Label4.Location = New System.Drawing.Point(3, 163)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(160, 13)
Me.Label4.TabIndex = 14
Me.Label4.Text = "Weiterverk./Überl./Verwend.:"
Me.Label4.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'Label3
'
Me.Label3.Location = New System.Drawing.Point(3, 144)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(160, 13)
Me.Label3.TabIndex = 11
Me.Label3.Text = "Lizenzgebühren:"
Me.Label3.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'Label2
'
Me.Label2.Location = New System.Drawing.Point(3, 125)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(160, 13)
Me.Label2.TabIndex = 8
Me.Label2.Text = "Bedingungen/Leistungen:"
Me.Label2.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'Label1
'
Me.Label1.Location = New System.Drawing.Point(3, 106)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(160, 13)
Me.Label1.TabIndex = 6
Me.Label1.Text = "Einschränkungen:"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'Label9
'
Me.Label9.Location = New System.Drawing.Point(3, 87)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(160, 13)
Me.Label9.TabIndex = 3
Me.Label9.Text = "Verbundenheit Einzelheiten:"
Me.Label9.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'usrCntlATLAS_EZA_DV1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.Controls.Add(Me.pnl)
Me.Name = "usrCntlATLAS_EZA_DV1"
Me.Size = New System.Drawing.Size(907, 628)
Me.pnl.ResumeLayout(False)
Me.pnl.PerformLayout()
Me.ResumeLayout(False)
End Sub
Friend WithEvents pnl As System.Windows.Forms.Panel
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label9 As System.Windows.Forms.Label
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents txtWeiterverkUeberlVerwendungUmstände As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtBedingungenLeistungArt As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtLizenzgebuehrenUmstand As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtVerbundenheitEinzelheiten As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents cboWeiterverkUeberlVerwendung As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents cboLizenzgebuehren As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents cboBedingungen As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents cboEinschraenkungen As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents cboVerbundenheit As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents cboVertretungsverhaeltnis As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents label11 As System.Windows.Forms.Label
End Class

120
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_DV1.resx
View File

@@ -1,120 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

112
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_DV1.vb
View File

@@ -1,112 +0,0 @@
Public Class usrCntlATLAS_EZA_DV1
' Dim OWNER As Control
Dim NCTS_OUT As DAKOSY_Worker.cDakosyEZA = Nothing
'Sub New(OWNER As Control, NCTS_OUT As DAKOSY_Worker.cDakosyEZA)
Sub New(NCTS_OUT As DAKOSY_Worker.cDakosyEZA)
InitializeComponent()
'Me.OWNER = OWNER
Me.NCTS_OUT = NCTS_OUT
End Sub
Public Sub usrCntlATLAS_NCTS_Adressen_Load(sender As Object, e As EventArgs) Handles Me.Load
' usrCntlSumA_Befoerderer.initME()
cboVerbundenheit.Items.Clear()
cboVerbundenheit.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboVerbundenheit.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("0 - Verkäufer und Käufer sind nicht miteinander verbunden", "0"))
cboVerbundenheit.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1 - Verkäufer und Käufer sind miteinander verbunden, aber die Verbundenheit hat den Preis der eingeführten Ware nicht beeinflusst", "1"))
cboVerbundenheit.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("2 - Verkäufer und Käufer sind miteinander verbunden, die Verbundenheit hat den Preis der eingeführten Ware beeinflusst", "2"))
cboEinschraenkungen.Items.Clear()
cboEinschraenkungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboEinschraenkungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("J - Einschränkungen", "J"))
cboEinschraenkungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("N - Keine Einschränkungen", "N"))
cboBedingungen.Items.Clear()
cboBedingungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboBedingungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("J - Bedingungen", "J"))
cboBedingungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("N - Keine Bedingungen", "N"))
cboLizenzgebuehren.Items.Clear()
cboLizenzgebuehren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboLizenzgebuehren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("J - Lizenzgebühren zu zahlen", "J"))
cboLizenzgebuehren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("N - Keine Lizenzgebühren zu zahlen", "N"))
cboWeiterverkUeberlVerwendung.Items.Clear()
cboWeiterverkUeberlVerwendung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboWeiterverkUeberlVerwendung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("J - Verbindung mit weiterer Vereinbarung des Kaufgeschäftes", "J"))
cboWeiterverkUeberlVerwendung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("N - Keine Verbindung mit weiterer Vereinbarung des Kaufgeschäftes", "N"))
cboVertretungsverhaeltnis.Items.Clear()
cboVertretungsverhaeltnis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboVertretungsverhaeltnis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("0 - Keine Vertretung, sondern Handeln im eigenen Namen und für eigene Rechnung", "0"))
cboVertretungsverhaeltnis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1 - Vertretung im Namen und für Rechnung eines Anderen (direkte Vertretung)", "1"))
cboVertretungsverhaeltnis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("2 - Vertretung im eigenen Namen, aber für Rechnung eines Anderen (indirekte Vertretung)", "2"))
cboVertretungsverhaeltnis.changeItem("")
End Sub
Public Sub getValues(ByRef EZA As DAKOSY_Worker.cDakosyEZA)
If CInt(If(EZA.eza_DV1Kz, 0)) <> 0 Then
'EZA.eza_DV1Kz = cProgramFunctions.isLeerNothing(usrCntl_Kaeufer.txtAnsprechpartner.Text)
'EZA.eza_DV1Vertretungsverhaeltnis = cProgramFunctions.isLeerNothing(cboVerbundenheit.txtAnsprechpartner.Text)
' EZA.eza_DV1FruehereEntscheidungen = cProgramFunctions.isLeerNothing(usrCntl_Kaeufer.txtAnsprechpartner.Text)
EZA.eza_DV1Vertretungsverhaeltnis = cProgramFunctions.isLeerNothing(cboVertretungsverhaeltnis._value)
EZA.eza_DV1Verbundenheit = cProgramFunctions.isLeerNothing(cboVerbundenheit._value)
EZA.eza_DV1VerbungenheitEinzelheiten = cProgramFunctions.isLeerNothing(txtVerbundenheitEinzelheiten.Text)
EZA.eza_DV1EinschraenkungenKz = cProgramFunctions.isLeerNothing(cboEinschraenkungen._value)
EZA.eza_DV1BedingungenLeistungenKz = cProgramFunctions.isLeerNothing(cboBedingungen._value)
EZA.eza_DV1BedingungenLeistungenArt = cProgramFunctions.isLeerNothing(txtBedingungenLeistungArt.Text)
EZA.eza_DV1LizenzgebuehrenKz = cProgramFunctions.isLeerNothing(cboLizenzgebuehren._value)
EZA.eza_DV1LizenzgebuehrenUmstand = cProgramFunctions.isLeerNothing(txtLizenzgebuehrenUmstand.Text)
EZA.eza_DV1SpezielleVereinbarungKz = cProgramFunctions.isLeerNothing(cboWeiterverkUeberlVerwendung._value)
EZA.eza_DV1SpezielleVereinbarungUmstand = cProgramFunctions.isLeerNothing(txtWeiterverkUeberlVerwendungUmstände.Text)
Else
EZA.eza_DV1Vertretungsverhaeltnis = Nothing
EZA.eza_DV1Verbundenheit = Nothing
EZA.eza_DV1VerbungenheitEinzelheiten = Nothing
EZA.eza_DV1EinschraenkungenKz = Nothing
EZA.eza_DV1BedingungenLeistungenKz = Nothing
EZA.eza_DV1BedingungenLeistungenArt = Nothing
EZA.eza_DV1LizenzgebuehrenKz = Nothing
EZA.eza_DV1LizenzgebuehrenUmstand = Nothing
EZA.eza_DV1SpezielleVereinbarungKz = Nothing
EZA.eza_DV1SpezielleVereinbarungUmstand = Nothing
End If
End Sub
Public Sub setValues(EZA As DAKOSY_Worker.cDakosyEZA)
If CInt(If(EZA.eza_DV1Kz, 0)) <> 0 Then
cboVertretungsverhaeltnis.changeItem(If(EZA.eza_DV1Vertretungsverhaeltnis, ""))
cboVerbundenheit.changeItem(If(EZA.eza_DV1Verbundenheit, ""))
txtVerbundenheitEinzelheiten.Text = If(EZA.eza_DV1VerbungenheitEinzelheiten, "")
cboEinschraenkungen.changeItem(If(EZA.eza_DV1EinschraenkungenKz, ""))
cboBedingungen.changeItem(If(EZA.eza_DV1BedingungenLeistungenKz, ""))
txtBedingungenLeistungArt.Text = If(EZA.eza_DV1BedingungenLeistungenArt, "")
cboLizenzgebuehren.changeItem(If(EZA.eza_DV1LizenzgebuehrenKz, ""))
txtLizenzgebuehrenUmstand.Text = (If(EZA.eza_DV1LizenzgebuehrenUmstand, ""))
cboWeiterverkUeberlVerwendung.changeItem(If(EZA.eza_DV1SpezielleVereinbarungKz, ""))
txtWeiterverkUeberlVerwendungUmstände.Text = If(EZA.eza_DV1SpezielleVereinbarungUmstand, "")
End If
End Sub
End Class

1116
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Position.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

150
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Position.resx
View File

@@ -1,150 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="Button3.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAHaSURBVEhLvdW7SlhBFIVh701EGyGKpEjAywv4Aham
iIXaio1dELXwFVRs7ARBQbHSwi5lijTBWhAvfSKExJBKEEWP/8iM7JmzziWKFh/k7Fl7FhgZG7Ise1Vy
6JwPvG9S8+eSQ4fCTrxVZ88hhxQNYgvHdUvJNfq9bXUe5AYs9OEbMq9WKZkmbPidHZVxog+Cb7COa79Y
q5SzHizjD8KOLI0+CJ2ZhZQsZdaLXZ9J5UqjDwLhR1IkV8r3Ii79ufLF5h//ERBYSRZSD6VwvyB7uIXK
OXe4sPdHZQGhOqVryUz5iwl7d1RkEawqdZepefADs+iw90YlKcJVpUVO8VHdmRukWHxK6Qwa1X25gcLy
vrmszFd8QuE7LIcpLljwF1aZV/uWHAZc0I9N/PMXVvmJ0mdQDh0W2+DK1MVlSp9BOWShC0uwb+P/KCzN
DQi+g3tB1EXWoZhZsjT6cAit4sovlZlGnRep294flTnJgnKEKbT7fFXpub0/KnMITCYL1m+MiZ2iUvd3
9cBmo8WA0LhZCn5hDtHbaHZU6QmGbC5asgjaUvd/MaJyFplQegP36gyjxWaihRThUPpZnStkXel3fFDn
uUGKxTG0qrMi5EfRrM5yg5cmhy8na7gHtvbLF9T64qAAAAAASUVORK5CYII=
</value>
</data>
<metadata name="UlCode.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="UlArtTxt.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="UlNummer.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="UlADat.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="UlVorhanden.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
</root>

375
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Position.vb
View File

@@ -1,375 +0,0 @@
Public Class usrCntlATLAS_EZA_Position
'' Public Event ADD()
' Public Event REMOVE(id)
' Public Event NEXT_POS()
' Public Event PREV_POS()
Dim WARE As DAKOSY_Worker.cDakosy_EZA_Warenposition = Nothing
Event RohmasseChanged(rohmasse As Double)
Dim id As Integer = -1
Dim PK_EDIT = -1
Dim UL_EDIT = -1
Dim VP_EDIT = -1
Dim USRCNTL_EZA As usrCntlATLAS_EZA = Nothing
Sub New(id As Integer, USRCNTL_EZA As usrCntlATLAS_EZA)
InitializeComponent()
Me.id = id
Me.USRCNTL_EZA = USRCNTL_EZA
End Sub
Sub New(id As Integer, WARE As DAKOSY_Worker.cDakosy_EZA_Warenposition, USRCNTL_EZA As usrCntlATLAS_EZA)
InitializeComponent()
Me.id = id
Me.WARE = WARE
Me.USRCNTL_EZA = USRCNTL_EZA
End Sub
Public Sub initSrch(Optional blockEvents As Boolean = False)
sbPkTyp.initSearchBox(Me.FindForm, " [Code] ,[Description] as Verpackungsart, Code + ' ' + Description as display FROM tbl_DY_ZollDE_C0017_PackstueckeVerpackungsarten", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
sbUlArt.initSearchBox(Me.FindForm, " [Code] ,[Description] as Art, Code + ' ' + Description as display FROM tbl_DY_ZollDE_I0200_Unterlagearten", {"Description", "'%'+Code", "DocumentCode", "Division"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
' sbExportAusLand.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "Code", "FMZOLL", , 400, 200)
sbPkTyp.SET_VALUE("Pk")
setvalue(WARE, blockEvents)
End Sub
Private Sub usrCntlATLAS_NCTS_Position_Load(sender As Object, e As EventArgs) Handles Me.Load
' cboColliMenge.Items.Clear()
' cboColliMenge.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
' cboColliMenge.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VQ", "VQ"))
' cboColliMenge.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VG", "VG"))
' cboColliMenge.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VL", "VL"))
' cboColliMenge.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VR", "VR"))
' cboColliMenge.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VY", "VY"))
' cboColliMenge.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VO", "VO"))
' Me.Parent.KeyDown += New KeyEventHandler(usrCntlATLAS_NCTS_Position_KeyDown)
sbPkTyp.initSearchBox(Me.FindForm, " [Code] ,[Description] as Verpackungsart, Code + ' ' + Description as display FROM tbl_DY_ZollDE_C0017_PackstueckeVerpackungsarten", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
sbUlArt.initSearchBox(Me.FindForm, " [Code] ,[Description] as Art, Code + ' ' + Description as display FROM tbl_DY_ZollDE_I0200_Unterlagearten", {"Description", "'%'+Code", "DocumentCode", "Division"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
' sbExportAusLand.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "Code", "FMZOLL", , 400, 200)
sbPkTyp.SET_VALUE("Pk")
' Me.cboVorangegangenesVerfahren.changeItem(If(WARE.ezaWP_VerfahrensCodeVorangegangenesVerfahren, ""))
' Me.cboAngVerfahren.changeItem(If(WARE.ezaWP_AnmeldeVErfahren, ""))
sbAHStatMasseinheit.initSearchBox(Me.FindForm, " CodeQualifier ,[Description] as Art, CodeQualifier + ' ' + Description as display FROM [tbl_DY_ZollDE_I0700_Masseinheiten]", {"CodeQualifier", "Description", "'%'+Code"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "CodeQualifier", "CodeQualifier", "display", "FMZOLL", , 400, 200)
sbUrsprungsland.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "Code", "FMZOLL", , 400, 200)
cboZT.Items.Clear()
cboZT.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Absender", "ABS"))
cboZT.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Empfänger", "EMPF"))
cboZT.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Anmelder", "ANM"))
cboZT.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vertretener", "VERTR"))
cboZT.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VertreterAnmelder", "VERTRANM"))
cboZT.changeItem("EMPF")
cboAngVerfahren.Items.Clear()
cboAngVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboAngVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("01 - Überführung von Waren in den zollrechtlich freien Verkehr", "01"))
cboAngVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("40 - Gleichzeitige Überführung in den zollrechtlich freien Verkehr ohne MWSt-freie Lieferung", "40"))
cboAngVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("42 - Gleichzeitige Überführung in den zollrechtlich freien Verkehr mit MWSt-freie Lieferung", "42"))
cboAngVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("45 - Überführung von Waren in den zollrechtlich und mehrwertsteuer- oder verbrauchsteuerrechtlich freien Verkehr und deren Überführung in ein Steuerlagerverfahren ", "45"))
cboAngVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("49 - Überführung von Gemeinschaftswaren in den steuerrechtlich freien Verkehr im Rahmen des Warenverkehrs zwischen Teilen des Zollgebiets der Gemeinschaft", "49"))
cboAngVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("61 - Wiedereinfuhr mit gleichzeitiger Überführung in den zoll- und steuerrechtlich freien Verkehr ohne mehrwertsteuerbefreiende Lieferung - Vorübergehende Ausfuhr im Rahmen der passiven Veredelung", "61"))
cboAngVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("63 - Wiedereinfuhr und gleichzeitige Überführung in den zoll- und steuerrechtlich freien Verkehr mit mehrwertsteuerbefreiender Lieferung in einen anderen Mitgliedstaat. - Vorübergehende Ausfuhr im Rahmen der passiven Veredelung", "63"))
cboBeguenstigung.Items.Clear()
cboBeguenstigung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboBeguenstigung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("100 - Anwendung des Drittlandszollsatzes (Angabe aus statistischen und dv- technischen Gründen notwendig)", "100"))
cboBeguenstigung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("110 - Zolltarifliche Maßnahme 'erga omnes' unter Zollaussetzung", "110"))
cboBeguenstigung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("115 - Zolltarifliche Maßnahme 'erga omnes' unter Zollaussetzung zur besonderen Verwendung (Artikel 82 Zollkodex)", "115"))
cboBeguenstigung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("118 - Zolltarifliche Maßnahme 'erga omnes' unter Zollaussetzung mit Bescheinigung über die Beschaffenheit der Ware", "118"))
cboBeguenstigung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("119 - Zolltarifliche Maßnahme 'erga omnes' unter zeitweiliger Aussetzung der Zölle für mit Luftfahrttauglichkeitsbescheinigung eingeführte Waren", "119"))
cboBeguenstigung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("120 - Zolltarifliche Maßnahme 'erga omnes' im Rahmen eines Zollkontigents", "120"))
cboBeguenstigung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("123 - Zolltarifliche Maßnahme 'erga omnes' im Rahmen eines Zollkontingents zur besonderen Verwendung", "123"))
cboBeguenstigung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("125 - Zolltarifliche Maßnahme 'erga omnes' im Rahmen eines Zollkontingents mit Bescheinigung über die Beschaffenheit der Ware", "125"))
cboBeguenstigung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("128 - Zolltarifliche Maßnahme 'erga omnes' im Rahmen eines Zollkontingents nach passiver Veredelung", "128"))
cboBeguenstigung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("140 - Zolltarifliche Maßnahme 'erga omnes' zur besonderen Verwendung aufgrund des gemeinsamen Zolltarifs", "140"))
cboBeguenstigung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("150 - Zolltarifliche Maßnahme 'erga omnes' mit Bescheinigung über die Beschaffenheit der Ware", "150"))
cboBeguenstigung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("200 - Anwendung des APS Zollsatzes ohne weitere Bedingungen oder Einschränkungen", "200"))
cboBeguenstigung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("220 - Anwendung des APS Zollsatzes im Rahmen eines Zollkontingents", "220"))
cboBeguenstigung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("223 - Anwendung des APS Zollsatzes im Rahmen eines Zollkontingents zur besonderen Verwendung", "223"))
cboBeguenstigung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("225 - Anwendung des APS Zollsatzes im Rahmen eines Zollkontingents mit Bescheinigung über die Beschaffenheit der Ware", "225"))
cboBeguenstigung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("240 - Anwendung des APS Zollsatzes zur besonderen Verwendung aufgrund des gemeinsamen Zolltarifs", "240"))
cboBeguenstigung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("250 - Anwendung des APS Zollsatzes mit Bescheinigung über die Beschaffenheit der Ware", "250"))
cboBeguenstigung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("300 - Anwendung des betreffenden Präferenz-Zollsatzes ohne weitere Bedingungen oder Einschränkungen", "300"))
cboBeguenstigung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("310 - Präferenzabkommen : Zollaussetzungen", "310"))
cboBeguenstigung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("315 - Präferenzaussetzung bei Vorlage einer Bewilligung der besonderen Verwendung", "315"))
cboBeguenstigung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("320 - Anwendung des betreffenden Präferenz-Zollsatzes im Rahmen eines Zollkontingents", "320"))
cboBeguenstigung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("323 - Anwendung des betreffenden Präferenz-Zollsatzes im Rahmen eines Zollkontingents zur besonderen Verwendung", "323"))
cboBeguenstigung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("325 - Anwendung des betreffenden Präferenz-Zollsatzes im Rahmen eines Zollkontingents mit Bescheinigung über die Beschaffenheit der Ware", "325"))
cboBeguenstigung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("340 - Anwendung des betreffenden Präferenz-Zollsatzes zur besonderen Verwendung aufgrund des gemeinsamen Zolltarifs", "340"))
cboBeguenstigung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("350 - Anwendung des betreffenden Präferenz-Zollsatzes mit Bescheinigung über die Beschaffenheit der Ware", "350"))
cboBeguenstigung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("400 - Keine Abgabenerhebung in Anwendung der von der Europäischen Union geschlossenen Zollunionsabkommen Nach Art. 20 Abs. 1 des Beschlusses Nr. 1/95 (VSF Z 41 25 Nr. 5) ist die Erhebung von Agrarteilbeträgen für bestimmte, landwirtschaftliche Verarbeitungserzeugnisse zulässig, auch wenn diese von der Zollunion erfasst werden.", "400"))
cboBeguenstigung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("420 - Kontingent im Rahmen einer Zollunion", "420"))
txtArtikelpreisWaehrung.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land FROM tbl_DY_ZollDE_I0400_Waehrungsliste", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "Code", "FMZOLL", , 400, 200)
setvalue(WARE)
End Sub
Sub initZT()
Button2.Tag = ""
Button2.Visible = False
If USRCNTL_EZA IsNot Nothing Then
Dim ztKdnr = USRCNTL_EZA.getKdnr(cboZT._value)
If ztKdnr > 0 Then
sbKundenzolltarif.initSearchBox(Me.FindForm, " zollArt_id,[zollArt_Artikelnummer] AS ArtikelNr,[zollArt_Warencodenummer] as Tarifnummer,[zollArt_Kurzbezeichnung] as Bezeichnung FROM [tblZollArtikel]", {"zollArt_Artikelnummer", "zollArt_Warencodenummer", "zollArt_Kurzbezeichnung", "zollArt_Warenbeschreibung"}, " ( zollArt_Kundennummer ='" & ztKdnr & "') ", "zollArt_Warencodenummer", "zollArt_id", "Tarifnummer", "FMZOLL", , 500, 200, {"zollArt_id"})
Button2.Visible = True
Button2.Tag = ztKdnr
End If
End If
End Sub
Sub setvalue(WARE As DAKOSY_Worker.cDakosy_EZA_Warenposition, Optional blockEvents As Boolean = False)
If WARE IsNot Nothing Then
Me.txtWarenbezeichnung.Text = If(WARE.ezaWP_Warenbezeichnung, "")
Me.txtRohmasse.Text = If(WARE.ezaWP_Rohmasse, "")
If Not blockEvents Then RaiseEvent RohmasseChanged(If(IsNumeric(txtRohmasse.Text), CDbl(txtRohmasse.Text), 0))
Me.txtEigenmasse.Text = If(WARE.ezaWP_Eigenmasse, "")
Me.txtWarenwert._value = If(WARE.ezaWP_Artikelpreis, "")
Me.txtArtikelpreisWaehrung.SET_VALUE(If(WARE.ezaWP_ArtikelpreisWaehrung, ""))
' Me.txtWarennummer.Text = If(WARE.ezaWP_WarennummerEZT, "")
txtAHStatMenge.Text = If(WARE.ezaWP_AHStatMenge, "")
sbAHStatMasseinheit.SET_VALUE(If(WARE.ezaWP_AHStatMengeMasseinheit, "") & If(WARE.ezaWP_AHStatMengeQualifier, "").ToString.Trim)
Me.txtWTZ1.Text = If(WARE.ezaWP_WarennummerZusatzCode1, "")
Me.txtWTZ2.Text = If(WARE.ezaWP_WarennummerZusatzCode2, "")
Me.txtWarennummer.Text = If(WARE.ezaWP_WarennummerEZT, "")
Me.txtPkAnzahl.Text = If(WARE.ezaWP_PackstueckAnzahl, "")
Me.sbPkTyp._value = If(WARE.ezaWP_PackstueckArt, "")
Me.txtPkMarke.Text = If(WARE.ezaWP_PackstueckZeichen, "")
Me.txtPositionszusatz.Text = If(WARE.ezaWP_PositionsZusatz, "")
Me.cboAngVerfahren.changeItem(If(WARE.ezaWP_AnmeldeVErfahren, ""))
Me.cboVorangegangenesVerfahren.changeItem(If(WARE.ezaWP_VerfahrensCodeVorangegangenesVerfahren, ""))
Me.cboBeguenstigung.changeItem(If(WARE.ezaWP_BeguenstigungBenatragtCode, ""))
Me.sbUrsprungsland.SET_VALUE(If(WARE.ezaWP_UrsprungslandCode, ""))
dgvUnterlage.Rows.Clear()
If WARE.ezaWP_UNTERLAGEN IsNot Nothing Then
For Each Ul In WARE.ezaWP_UNTERLAGEN
Dim UlTxt = sbUlArt.GET_VALUE_OnlyReturn(Ul.ezaWpUl_Bereich & "/" & Ul.ezaWpUl_Art)
dgvUnterlage.Rows.Add(Ul.ezaWpUl_Bereich & "/" & Ul.ezaWpUl_Art, UlTxt, Ul.ezaWpUl_Nummer, Ul.ezaWpUl_DatumAusstellung, CBool(If(Ul.ezaWpUl_VorlageKz, False).ToString.Replace("J", "1").Replace("N", "0")))
Next
End If
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
addUnterlage()
End Sub
Sub addUnterlage()
Try
Label22.Visible = False
If sbUlArt._value = "" Then Label22.Visible = True : sbUlArt.Focus() : Exit Sub
If UL_EDIT >= 0 Then
dgvUnterlage.Rows.RemoveAt(UL_EDIT)
dgvUnterlage.Rows.Insert(UL_EDIT, sbUlArt._value, sbUlArt.Text, txtUlNummer.Text, txtUlAusstellDat.Text, cbx.Checked)
UL_EDIT = -1
Button1.BackgroundImage = My.Resources.plus
lklBearbeitungAbbrechenUl.Visible = False
Else
dgvUnterlage.Rows.Add(sbUlArt._value, sbUlArt.Text, txtUlNummer.Text, txtUlAusstellDat.Text, cbx.Checked)
End If
txtUlAusstellDat.Text = "" : txtUlNummer.Text = "" : sbUlArt.SET_VALUE("")
dgvUnterlage.FirstDisplayedScrollingRowIndex = dgvUnterlage.RowCount - 1
dgvUnterlage.ClearSelection()
sbUlArt.Focus()
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
End Sub
Private Sub UnterlageKeyDown(sender As Object, e As KeyEventArgs) Handles txtUlAusstellDat.KeyDown, txtUlNummer.KeyDown, sbUlArt.KeyDown, cbx.KeyDown
If e.KeyCode = Keys.Return Then
sbUlArt.Focus() ' Damit datum -_> Leave formatiert wird
addUnterlage()
e.Handled = True
End If
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
If dgvUnterlage.SelectedRows.Count > 0 Then
If MsgBox("Möchten Sie den Eintrag in 'Unterlagen' wirklich löschen?", vbYesNoCancel) = vbYes Then
dgvUnterlage.Rows.Remove(dgvUnterlage.SelectedRows(0))
End If
End If
dgvUnterlage.ClearSelection()
End Sub
Private Sub txtRohmasse_TextChanged(sender As Object, e As EventArgs) Handles txtRohmasse.TextChanged
RaiseEvent RohmasseChanged(If(IsNumeric(txtRohmasse.Text), CDbl(txtRohmasse.Text), 0))
End Sub
Private Sub dgvUnterlage_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvUnterlage.CellDoubleClick
If e.RowIndex < 0 Then Exit Sub
editableRowUL(e.RowIndex)
End Sub
Sub editableRowUL(index As Integer)
txtUlNummer.Text = dgvUnterlage.Rows(index).Cells("UlNummer").Value
sbUlArt.SET_VALUE(dgvUnterlage.Rows(index).Cells("UlCode").Value)
txtUlAusstellDat.Text = dgvUnterlage.Rows(index).Cells("UlADat").Value
cbx.Checked = dgvUnterlage.Rows(index).Cells("UlVorhanden").Value
UL_EDIT = index
Button1.BackgroundImage = My.Resources.stift
lklBearbeitungAbbrechenUl.Visible = True
End Sub
Private Sub lklBearbeitungAbbrechenUl_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lklBearbeitungAbbrechenUl.LinkClicked
UL_EDIT = -1
txtUlNummer.Text = ""
sbUlArt.SET_VALUE("")
txtUlAusstellDat.Text = ""
Button1.BackgroundImage = My.Resources.plus
lklBearbeitungAbbrechenUl.Visible = False
End Sub
Private Sub txtEigenmasse_TextChanged() Handles txtEigenmasse.ValueChanged, txtRohmasse.ValueChanged, txtEigenmasse.TextChanged
Label7.Visible = False
If IsNumeric(txtRohmasse._value) And IsNumeric(txtEigenmasse._value) Then
If CDbl(txtRohmasse._value) < CDbl(txtEigenmasse._value) Then
Label7.Visible = True
End If
End If
End Sub
Private Sub pnl_Paint(sender As Object, e As PaintEventArgs) Handles pnl.Paint
End Sub
Private Sub cboAngVerfahren_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboAngVerfahren.SelectedIndexChanged
cboVorangegangenesVerfahren.Items.Clear()
cboVorangegangenesVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
If cboAngVerfahren._value.StartsWith("01") Then
cboVorangegangenesVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("0100 - ", "00"))
cboVorangegangenesVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("0171 - ", "71"))
cboVorangegangenesVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("0178 - ", "78"))
End If
If cboAngVerfahren._value.StartsWith("40") Then
cboVorangegangenesVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4000 - ", "00"))
cboVorangegangenesVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4010 - ", "10"))
cboVorangegangenesVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4031 - ", "31"))
cboVorangegangenesVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4051 - ", "51"))
cboVorangegangenesVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4054 - ", "54"))
cboVorangegangenesVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4071 - ", "71"))
cboVorangegangenesVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4078 - ", "78"))
cboVorangegangenesVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4090 - ", "90"))
End If
If cboAngVerfahren._value.StartsWith("42") Then
cboVorangegangenesVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4200 - ", "00"))
cboVorangegangenesVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4210 - ", "10"))
cboVorangegangenesVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4222 - ", "22"))
cboVorangegangenesVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4223 - ", "23"))
cboVorangegangenesVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4251 - ", "51"))
cboVorangegangenesVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4254 - ", "54"))
cboVorangegangenesVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4271 - ", "71"))
cboVorangegangenesVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4278 - ", "78"))
cboVorangegangenesVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4291 - ", "91"))
End If
If cboAngVerfahren._value.StartsWith("45") Then
cboVorangegangenesVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4500 - ", "00"))
cboVorangegangenesVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4571 - ", "71"))
cboVorangegangenesVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4578 - ", "78"))
End If
If cboAngVerfahren._value.StartsWith("49") Then
cboVorangegangenesVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4900 - ", "00"))
cboVorangegangenesVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4951 - ", "51"))
cboVorangegangenesVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4954 - ", "54"))
cboVorangegangenesVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4971 - ", "71"))
cboVorangegangenesVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4978 - ", "78"))
cboVorangegangenesVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4991 - ", "91"))
End If
If cboAngVerfahren._value.StartsWith("61") Then
cboVorangegangenesVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("6121 - ", "21"))
cboVorangegangenesVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("6123 - ", "23"))
End If
If cboAngVerfahren._value.StartsWith("63") Then
cboVorangegangenesVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("6321 - ", "21"))
cboVorangegangenesVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("6323 - ", "23"))
End If
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
btn380Handelsrg.PerformClick()
btn018ATR.PerformClick()
btn7HHFDirektbef.PerformClick()
End Sub
Private Sub MySearchBox1_TextChanged() Handles sbKundenzolltarif.VALUE_CHANGED
If sbKundenzolltarif._value <> "" Then
Dim ZT As New VERAG_PROG_ALLGEMEIN.cZollArtikel(sbKundenzolltarif._value)
If ZT IsNot Nothing AndAlso ZT.hasEntry Then
txtWarennummer.Text = If(ZT.zollArt_Warencodenummer, "")
txtWarenbezeichnung.Text = If(ZT.zollArt_Warenbeschreibung, "")
txtWTZ1.Text = If(ZT.zollArt_Zusatzcode_1, "")
txtWTZ2.Text = If(ZT.zollArt_Zusatzcode_2, "")
End If
End If
End Sub
Private Sub sbKundenzolltarif_GotFocus(sender As Object, e As EventArgs) Handles sbKundenzolltarif.GotFocus, cboZT.SelectedIndexChanged
initZT()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
If IsNumeric(Button2.Tag) Then
Dim f As New frmKundenUebersichtZOLL(Button2.Tag)
f.selectedTAB = "Zolltarif"
f.Show(Me)
End If
End Sub
Private Sub txtEigenmasse_TextChanged(sender As Object, e As EventArgs)
End Sub
'Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
'Private Sub sbAHStatMasseinheit_VALUE_CHANGED() Handles sbAHStatMasseinheit.VALUE_CHANGED
' txtAHStatMasseinheitQualifier.Text = SQL.getValueTxtBySql("")
'End Sub
End Class

181
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Positionen.Designer.vb generated
View File

@@ -1,181 +0,0 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class usrCntlATLAS_EZA_Positionen
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.pnl = New System.Windows.Forms.Panel()
Me.MyPanel2 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
Me.Button1 = New System.Windows.Forms.Button()
Me.btn = New System.Windows.Forms.Button()
Me.dgvPositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.index = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.ID = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.Ware = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.Timer = New System.Windows.Forms.Timer(Me.components)
Me.pnl.SuspendLayout()
Me.MyPanel1.SuspendLayout()
CType(Me.dgvPositionen, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'pnl
'
Me.pnl.Controls.Add(Me.MyPanel2)
Me.pnl.Controls.Add(Me.MyPanel1)
Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnl.Location = New System.Drawing.Point(0, 0)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(928, 501)
Me.pnl.TabIndex = 0
'
'MyPanel2
'
Me.MyPanel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.MyPanel2.Dock = System.Windows.Forms.DockStyle.Fill
Me.MyPanel2.Location = New System.Drawing.Point(214, 0)
Me.MyPanel2.Name = "MyPanel2"
Me.MyPanel2.Size = New System.Drawing.Size(714, 501)
Me.MyPanel2.TabIndex = 1
'
'MyPanel1
'
Me.MyPanel1.Controls.Add(Me.Button1)
Me.MyPanel1.Controls.Add(Me.btn)
Me.MyPanel1.Controls.Add(Me.dgvPositionen)
Me.MyPanel1.Dock = System.Windows.Forms.DockStyle.Left
Me.MyPanel1.Location = New System.Drawing.Point(0, 0)
Me.MyPanel1.Name = "MyPanel1"
Me.MyPanel1.Size = New System.Drawing.Size(214, 501)
Me.MyPanel1.TabIndex = 0
'
'Button1
'
Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.Button1.BackgroundImage = Global.SDL.My.Resources.del
Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Location = New System.Drawing.Point(159, 478)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(28, 23)
Me.Button1.TabIndex = 3
Me.Button1.UseVisualStyleBackColor = True
'
'btn
'
Me.btn.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.btn.BackgroundImage = Global.SDL.My.Resources.plus
Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn.Location = New System.Drawing.Point(186, 478)
Me.btn.Name = "btn"
Me.btn.Size = New System.Drawing.Size(28, 23)
Me.btn.TabIndex = 2
Me.btn.UseVisualStyleBackColor = True
'
'dgvPositionen
'
Me.dgvPositionen.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvPositionen.AllowUserToAddRows = False
Me.dgvPositionen.AllowUserToDeleteRows = False
Me.dgvPositionen.AllowUserToResizeColumns = False
Me.dgvPositionen.AllowUserToResizeRows = False
Me.dgvPositionen.BackgroundColor = System.Drawing.Color.White
Me.dgvPositionen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvPositionen.ColumnHeadersVisible = False
Me.dgvPositionen.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.index, Me.ID, Me.Ware})
DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvPositionen.DefaultCellStyle = DataGridViewCellStyle2
Me.dgvPositionen.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvPositionen.Location = New System.Drawing.Point(0, 0)
Me.dgvPositionen.MultiSelect = False
Me.dgvPositionen.Name = "dgvPositionen"
Me.dgvPositionen.ReadOnly = True
Me.dgvPositionen.RowHeadersVisible = False
Me.dgvPositionen.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
Me.dgvPositionen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvPositionen.Size = New System.Drawing.Size(214, 501)
Me.dgvPositionen.TabIndex = 5
'
'index
'
Me.index.HeaderText = "index"
Me.index.Name = "index"
Me.index.ReadOnly = True
Me.index.Visible = False
'
'ID
'
DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
Me.ID.DefaultCellStyle = DataGridViewCellStyle1
Me.ID.HeaderText = "ID"
Me.ID.Name = "ID"
Me.ID.ReadOnly = True
Me.ID.Width = 30
'
'Ware
'
Me.Ware.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.Ware.HeaderText = "Ware"
Me.Ware.Name = "Ware"
Me.Ware.ReadOnly = True
'
'Timer
'
Me.Timer.Enabled = True
Me.Timer.Interval = 1000
'
'usrCntlATLAS_NCTS_Positionen
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Controls.Add(Me.pnl)
Me.Name = "usrCntlATLAS_NCTS_Positionen"
Me.Size = New System.Drawing.Size(928, 501)
Me.pnl.ResumeLayout(False)
Me.MyPanel1.ResumeLayout(False)
CType(Me.dgvPositionen, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents pnl As System.Windows.Forms.Panel
Friend WithEvents MyPanel2 As VERAG_PROG_ALLGEMEIN.MyPanel
Friend WithEvents MyPanel1 As VERAG_PROG_ALLGEMEIN.MyPanel
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents btn As System.Windows.Forms.Button
Friend WithEvents dgvPositionen As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents Timer As System.Windows.Forms.Timer
Friend WithEvents index As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents ID As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents Ware As System.Windows.Forms.DataGridViewTextBoxColumn
End Class

132
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Positionen.resx
View File

@@ -1,132 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="index.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="ID.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="Ware.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="Timer.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
</root>

313
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Positionen.vb
View File

@@ -1,313 +0,0 @@
Public Class usrCntlATLAS_EZA_Positionen
Dim EZA As DAKOSY_Worker.cDakosyEZA = Nothing
Dim USRCNTL_EZA As usrCntlATLAS_EZA = Nothing
Dim POS As New List(Of usrCntlATLAS_EZA_Position)
Dim sectionChangeBLOCK = False
Dim gesRohmasse = 0
Event RohmasseChanged(gesRohmasse As Double)
Event PosAnzChanged(anzahlPos As Double)
Sub New(EZA As DAKOSY_Worker.cDakosyEZA, USRCNTL_EZA As usrCntlATLAS_EZA)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
Me.EZA = EZA
Me.USRCNTL_EZA = USRCNTL_EZA
End Sub
Private Sub usrCntlATLAS_ncts_Load(sender As Object, e As EventArgs) Handles Me.Load
addItem()
'setValues(NCTS.ncts_WARENPOS)
End Sub
Public Sub setValues(ncts_POS As DAKOSY_Worker.cDakosyEZA, Optional blockEvents As Boolean = False)
If ncts_POS Is Nothing Then Exit Sub
POS.Clear()
For Each p In ncts_POS.eza_WARENPOS
addItem(p, blockEvents) 'MyPanel2.Controls.Add()
Next
MyPanel2.Controls.Clear()
If Not blockEvents Then MyListBox1_SelectedIndexChanged(dgvPositionen, New EventArgs)
End Sub
Sub initListBox(Optional selectedIndex = -1)
If dgvPositionen.ColumnCount <= 0 Then Exit Sub
If selectedIndex >= 0 Then sectionChangeBLOCK = True
Dim cnt As Integer = 1
dgvPositionen.Rows.Clear()
For Each p In POS
p.lblPosNr.Text = cnt
dgvPositionen.Rows.Add(POS.IndexOf(p), cnt, p.txtWarenbezeichnung.Text)
cnt += 1
Next
If selectedIndex >= 0 Then
' MyListBox1.SetSelected(selectedIndex, True)
' sectionChangeBLOCK = False
End If
End Sub
Private Sub dgvPositionen_KeyDown(sender As Object, e As KeyEventArgs) Handles dgvPositionen.KeyDown
If e.KeyCode = Keys.Delete Then
removeItem(dgvPositionen.SelectedRows(0).Cells("index").Value)
End If
End Sub
Private Sub MyListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles dgvPositionen.SelectionChanged
Try
If sectionChangeBLOCK Then Exit Sub
MyPanel2.Controls.Clear()
If dgvPositionen.SelectedRows.Count > 0 Then
MyPanel2.Controls.Add(POS(dgvPositionen.SelectedRows(0).Cells("index").Value))
POS(dgvPositionen.SelectedRows(0).Cells("index").Value).txtWarenbezeichnung.Focus()
' Try : DirectCast(MyPanel2.Controls(0), usrCntlATLAS_EZA_Position).txtWarenbezeichnung.Focus() : Catch : End Try
' initListBox(MyListBox1.SelectedIndex())
End If
Catch ex As Exception
End Try
End Sub
Private Sub usrCntlATLAS_EZA_Position_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
If e.Control = True Then
If e.KeyCode = Keys.Oemplus Then addItem()
If e.KeyCode = Keys.OemMinus Then
If dgvPositionen.SelectedRows.Count > 0 Then
removeItem(dgvPositionen.SelectedRows(0).Cells("index").Value)
End If
End If
End If
End Sub
Protected Overrides Function ProcessCmdKey(ByRef msg As Message, ByVal keyData As Keys) As Boolean
Try
If keyData = (Keys.Control Or Keys.Add) Then
'RaiseEvent a() : Return True
addItem()
Return True
ElseIf keyData = (Keys.Control Or Keys.Subtract) Then
'RaiseEvent REMOVE(ID) : Return True
removeItem(dgvPositionen.SelectedRows(0).Cells("index").Value)
Return True
ElseIf keyData = Keys.PageUp Then
'RaiseEvent PREV_POS() : Return True
PREV_POS()
Return True
ElseIf keyData = Keys.PageDown Then
'RaiseEvent NEXT_POS() : Return True
NEXT_POS()
Return True
End If
Catch ex As Exception
End Try
Return False
End Function
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
addItem()
End Sub
Function addItem(Optional POSTMP As DAKOSY_Worker.cDakosy_EZA_Warenposition = Nothing, Optional blockEvents As Boolean = False) As usrCntlATLAS_EZA_Position
Dim u = New usrCntlATLAS_EZA_Position(POS.Count, POSTMP, USRCNTL_EZA)
AddHandler u.RohmasseChanged, Sub(r)
gesRohmasse = 0
For Each p In POS
gesRohmasse += If(IsNumeric(p.txtRohmasse.Text), p.txtRohmasse.Text, 0)
Next
If Not blockEvents Then RaiseEvent RohmasseChanged(gesRohmasse)
End Sub
u.Dock = DockStyle.Fill
' AddHandler u.ADD, AddressOf addItem
' AddHandler u.REMOVE, AddressOf removeItem
' AddHandler u.NEXT_POS, AddressOf NEXT_POS
' AddHandler u.PREV_POS, AddressOf PREV_POS
POS.Add(u)
u.initSrch(blockEvents)
initListBox()
If Not blockEvents Then
dgvPositionen.ClearSelection()
If dgvPositionen.RowCount > 0 Then dgvPositionen.Rows(dgvPositionen.RowCount - 1).Selected = True
RaiseEvent PosAnzChanged(POS.Count)
End If
Return u
End Function
Sub removeItem(index)
Try
If index < 0 Then Exit Sub
'If index < 0 Then Exit Sub
If dgvPositionen.Rows.Count > index Then
If vbYes = MsgBox("Möchten Sie die Position wirklich löschen?", vbYesNoCancel) Then
dgvPositionen.ClearSelection()
POS.RemoveAt(index)
initListBox()
If dgvPositionen.Rows.Count > index Then
dgvPositionen.Rows(index).Selected = True 'SetSelected(index, True)
ElseIf dgvPositionen.Rows.Count > 0 Then
dgvPositionen.Rows(0).Selected = True
End If
End If
End If
RaiseEvent PosAnzChanged(POS.Count)
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Sub NEXT_POS()
If dgvPositionen.SelectedRows.Count > 0 Then
If dgvPositionen.RowCount > dgvPositionen.SelectedRows(0).Index + 1 Then
Dim i = dgvPositionen.SelectedRows(0).Index
dgvPositionen.ClearSelection()
dgvPositionen.Rows(i + 1).Selected = True
' POS(dgvPositionen.SelectedRows(0).Cells("index").Value).txtWarenbezeichnung.Focus()
End If
End If
End Sub
Sub PREV_POS()
If dgvPositionen.SelectedRows.Count > 0 Then
If dgvPositionen.SelectedRows(0).Index > 0 Then
Dim i = dgvPositionen.SelectedRows(0).Index
dgvPositionen.ClearSelection()
dgvPositionen.Rows(i - 1).Selected = True
' POS(dgvPositionen.SelectedRows(0).Cells("index").Value).txtWarenbezeichnung.Focus()
End If
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If dgvPositionen.SelectedRows.Count > 0 Then
removeItem(dgvPositionen.SelectedRows(0).Cells("index").Value)
End If
End Sub
Private Sub Timer_Tick(sender As Object, e As EventArgs) Handles Timer.Tick
refreshDGV()
End Sub
Public Sub refreshDGV()
With dgvPositionen
If dgvPositionen.ColumnCount = 0 Then Exit Sub
For Each r As DataGridViewRow In .Rows
Dim index = r.Cells("index").Value
'r.Cells("ID").Value = POS(index)..Text
If POS.Count > index Then
r.Cells("Ware").Value = POS(index).txtWarenbezeichnung.Text
End If
Next
End With
End Sub
Public Sub getValues(ByRef EZA As DAKOSY_Worker.cDakosyEZA)
' Dim POSITIONEN As List(Of DAKOSY_Worker.cDakosy_NCTSOut_Warenposition)
EZA.eza_WARENPOS.Clear()
Dim cnt As Integer = 1
For Each P In POS
Dim POSITION As New DAKOSY_Worker.cDakosy_EZA_Warenposition
POSITION.ezaWP_PositionsNummer = cnt
POSITION.ezaWP_WarennummerEZT = cProgramFunctions.isLeerNothing(P.txtWarennummer.Text)
POSITION.ezaWP_WarennummerZusatzCode1 = cProgramFunctions.isLeerNothing(P.txtWTZ1.Text)
POSITION.ezaWP_WarennummerZusatzCode2 = cProgramFunctions.isLeerNothing(P.txtWTZ2.Text)
POSITION.ezaWP_Warenbezeichnung = cProgramFunctions.isLeerNothing(P.txtWarenbezeichnung.Text)
POSITION.ezaWP_Artikelpreis = cProgramFunctions.isLeerNothingDbl(P.txtWarenwert._value)
POSITION.ezaWP_ArtikelpreisWaehrung = cProgramFunctions.isLeerNothing(P.txtArtikelpreisWaehrung._value)
'POSITION.ezaWP_WarenwertWaehrung = P.XXXXXXXXXXXX.Text
'POSITION.ezaWP_SchaetzKz = P.XXXXXXXXXXXX.Text
'POSITION.ezaWP_WarenwertProzent = P.XXXXXXXXXXXX.Text
'POSITION.ezaWP_VersendungslandPositionCode = P.XXXXXXXXXXXX.Text
'POSITION.ezaWP_BestimmungslandPositionCode = P.XXXXXXXXXXXX.Text
POSITION.ezaWP_Rohmasse = cProgramFunctions.isLeerNothingDbl(P.txtRohmasse.Text)
POSITION.ezaWP_Eigenmasse = cProgramFunctions.isLeerNothingDbl(P.txtEigenmasse.Text)
If IsNumeric(P.txtAHStatMenge.Text) Then
POSITION.ezaWP_AHStatMenge = CInt(P.txtAHStatMenge.Text) 'keine Kommast.
Else
POSITION.ezaWP_AHStatMenge = Nothing
End If
If P.sbAHStatMasseinheit IsNot Nothing AndAlso P.sbAHStatMasseinheit._value IsNot Nothing AndAlso P.sbAHStatMasseinheit._value.Length > 3 Then
POSITION.ezaWP_AHStatMengeMasseinheit = cProgramFunctions.isLeerNothing(P.sbAHStatMasseinheit._value.Substring(0, 3))
POSITION.ezaWP_AHStatMengeQualifier = cProgramFunctions.isLeerNothing(P.sbAHStatMasseinheit._value.Substring(3))
Else
POSITION.ezaWP_AHStatMengeMasseinheit = cProgramFunctions.isLeerNothing(P.sbAHStatMasseinheit._value)
POSITION.ezaWP_AHStatMengeQualifier = Nothing
End If
POSITION.ezaWP_PositionsZusatz = cProgramFunctions.isLeerNothing(P.txtPositionszusatz.Text)
POSITION.ezaWP_PackstueckAnzahl = cProgramFunctions.isLeerNothing(P.txtPkAnzahl.Text)
POSITION.ezaWP_PackstueckZeichen = cProgramFunctions.isLeerNothing(P.txtPkMarke.Text)
POSITION.ezaWP_PackstueckArt = cProgramFunctions.isLeerNothing(P.sbPkTyp._value)
' If P.cboVorangegangenesVerfahren._value <> "" Then
'POSITION.ezaWP_VerfahrensCodeVorangegangenesVerfahren = P.cboVorangegangenesVerfahren._value.Substring(2, 2)
'' Else
' POSITION.ezaWP_VerfahrensCodeVorangegangenesVerfahren = Nothing
' End If
POSITION.ezaWP_AnmeldeVErfahren = cProgramFunctions.isLeerNothing(P.cboAngVerfahren._value)
POSITION.ezaWP_VerfahrensCodeVorangegangenesVerfahren = cProgramFunctions.isLeerNothing(P.cboVorangegangenesVerfahren._value)
POSITION.ezaWP_BeguenstigungBenatragtCode = cProgramFunctions.isLeerNothing(P.cboBeguenstigung._value)
POSITION.ezaWP_UrsprungslandCode = cProgramFunctions.isLeerNothing(P.sbUrsprungsland._value)
POSITION.ezaWP_UNTERLAGEN = New List(Of DAKOSY_Worker.cDakosy_EZA_WarenpositionVorgelegteUnterlagen)
For Each r As DataGridViewRow In P.dgvUnterlage.Rows
Dim Ul As New DAKOSY_Worker.cDakosy_EZA_WarenpositionVorgelegteUnterlagen
Dim split = r.Cells("UlCode").Value.ToString.Split("/")
If split.Length > 1 Then
Ul.ezaWpUl_Bereich = split(0)
Ul.ezaWpUl_Art = split(1)
End If
Ul.ezaWpUl_Nummer = r.Cells("UlNummer").Value
Ul.ezaWpUl_DatumAusstellung = r.Cells("UlADat").Value
Ul.ezaWpUl_VorlageKz = r.Cells("UlVorhanden").Value
'...?
POSITION.ezaWP_UNTERLAGEN.Add(Ul)
Next
If cProgramFunctions.isLeerNothingDbl(P.txtWarenwert._value, 0) > 0 Then
'POSITION.kostenpositionen --> Nettopreis '''''AbzugHinzurechnung
POSITION.ezaWP_Zollwert = CDbl(P.txtWarenwert._value)
POSITION.ezaWP_AHStatWert = CDbl(P.txtWarenwert._value)
'POSITION.abzughinzurechnung
End If
EZA.eza_WARENPOS.Add(POSITION)
cnt += 1
Next
' NCTS.ncts_WARENPOS
End Sub
Private Sub MyPanel2_ControlAdded(sender As Object, e As ControlEventArgs) Handles MyPanel2.ControlAdded
Try : DirectCast(e.Control, usrCntlATLAS_EZA_Position).txtWarenbezeichnung.Focus() : Catch : End Try
End Sub
End Class