diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlVerpflichtungserklärungFahrer.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlVerpflichtungserklärungFahrer.vb index 920f6c95..71ddfba2 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlVerpflichtungserklärungFahrer.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlVerpflichtungserklärungFahrer.vb @@ -212,6 +212,25 @@ Dim notFoundTMP = SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr & " " & SENDUNG.tblSnd_Empfaenger & vbNewLine + + 'Dakosy--NCTS004---------------------------------------- + If SENDUNG.FilialenNr > 0 And SENDUNG.AbfertigungsNr > 0 Then + Dim DyPos = SENDUNG.AbfertigungsNr.ToString + If SENDUNG.AbfertigungsNr.ToString.Length >= 8 Then + + DyPos = CInt(SENDUNG.AbfertigungsNr.ToString.Substring(2)) + End If + Dim dt As DataTable = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql("Select [ncts_Id] FROM [tblDakosy_NCTSOut004] WHERE (ncts_ObjectName LIKE '%" & SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr & "%' OR ncts_ObjectName LIKE '%" & SENDUNG.FilialenNr & "-" & SENDUNG.AbfertigungsNr & "%' OR ncts_ObjectName LIKE '%" & SENDUNG.FilialenNr & "/" & DyPos & "' OR ncts_ObjectName LIKE '%" & SENDUNG.FilialenNr & "-" & DyPos & "' OR ncts_ObjectName='" & SENDUNG.tblSnd_DakosyRef & "') AND ncts_Status between '50' and '60' ORDER BY ncts_ObjectName", "FMZOLL") + ' If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then + For Each row As DataRow In dt.Rows + Dim DY As New DAKOSY_Worker.cDakosyNCTSOut004(row("ncts_Id")) + If DY IsNot Nothing AndAlso DY.ncts_MRN IsNot Nothing Then + MyDatagridview1.Rows.Add(DY.ncts_MRN) + End If + Next + notFoundTMP = "" + ' Else + End If 'Dakosy------------------------------------------ If SENDUNG.FilialenNr > 0 And SENDUNG.AbfertigungsNr > 0 Then Dim DyPos = SENDUNG.AbfertigungsNr.ToString @@ -230,6 +249,7 @@ notFoundTMP = "" ' Else End If + 'E-ZOLL-------------------------------------- If SENDUNG.FilialenNr > 0 And SENDUNG.AbfertigungsNr > 0 Then diff --git a/SDL/SDL.vbproj b/SDL/SDL.vbproj index 52844455..dd88e54a 100644 --- a/SDL/SDL.vbproj +++ b/SDL/SDL.vbproj @@ -964,6 +964,48 @@ Form + + usrCntlATLAS_NCTS004.vb + + + UserControl + + + usrCntlATLAS_NCTS004_Allg.vb + + + UserControl + + + usrCntlATLAS_NCTS004_Adressen.vb + + + UserControl + + + usrCntlATLAS_NCTS004_Sicherheit.vb + + + UserControl + + + usrCntlATLAS_NCTS004_SicherheitPos.vb + + + UserControl + + + usrCntlATLAS_NCTS004_Position.vb + + + UserControl + + + usrCntlATLAS_NCTS004_Positionen.vb + + + UserControl + frmRoutenauswahl.vb @@ -3175,6 +3217,27 @@ frmDY_LogBuch.vb + + usrCntlATLAS_NCTS004.vb + + + usrCntlATLAS_NCTS004_Allg.vb + + + usrCntlATLAS_NCTS004_Adressen.vb + + + usrCntlATLAS_NCTS004_Sicherheit.vb + + + usrCntlATLAS_NCTS004_SicherheitPos.vb + + + usrCntlATLAS_NCTS004_Position.vb + + + usrCntlATLAS_NCTS004_Positionen.vb + frmRoutenauswahl.vb diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Adressen.vb b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Adressen.vb index 0b0d7f13..40421d5e 100644 --- a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Adressen.vb +++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Adressen.vb @@ -170,7 +170,6 @@ 'usrCntlSumA_Befoerderer.txtAnsprechpartner.Text=NCTS.ncts_SumA_Befoerderer_Ansprechpartner ' git es nicht End Sub - Public Sub getValues_TR(ByRef NCTS As VERAG_PROG_ALLGEMEIN.cNCTS_TR) NCTS.ncts_Hauptverpflichteter_Name = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.kdFirma.Text) diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004.Designer.vb b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004.Designer.vb new file mode 100644 index 00000000..e220e338 --- /dev/null +++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004.Designer.vb @@ -0,0 +1,500 @@ + +Partial Class usrCntlATLAS_NCTS004 + Inherits System.Windows.Forms.UserControl + + 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + 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. + + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.SplitContainer = New System.Windows.Forms.SplitContainer() + Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components) + Me.btnAllgemein = New System.Windows.Forms.Button() + Me.btnAdressen = New System.Windows.Forms.Button() + Me.btnSicherheit = New System.Windows.Forms.Button() + Me.btnPositionen = New System.Windows.Forms.Button() + Me.Button5 = New System.Windows.Forms.Button() + Me.pnl = New System.Windows.Forms.Panel() + Me.Label8 = New System.Windows.Forms.Label() + Me.Label7 = New System.Windows.Forms.Label() + Me.Label6 = New System.Windows.Forms.Label() + Me.cboStammreferenz = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboDakosyAction = 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.components) + Me.NeueBezugsnummerVergebenToolStripMenuItem = 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.btnVerschlüsse = New System.Windows.Forms.Button() + 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.btnSicherheit) + Me.MyFlowLayoutPanel1.Controls.Add(Me.btnVerschlüsse) + Me.MyFlowLayoutPanel1.Controls.Add(Me.btnPositionen) + 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 + ' + 'btnSicherheit + ' + Me.btnSicherheit.BackColor = System.Drawing.Color.White + Me.btnSicherheit.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.btnSicherheit.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnSicherheit.Image = Global.SDL.My.Resources.Resources.sicherheit1 + Me.btnSicherheit.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.btnSicherheit.Location = New System.Drawing.Point(160, 2) + Me.btnSicherheit.Margin = New System.Windows.Forms.Padding(2) + Me.btnSicherheit.Name = "btnSicherheit" + Me.btnSicherheit.Padding = New System.Windows.Forms.Padding(0, 0, 0, 3) + Me.btnSicherheit.Size = New System.Drawing.Size(81, 67) + Me.btnSicherheit.TabIndex = 2 + Me.btnSicherheit.Text = "Sicherheit" + Me.btnSicherheit.TextAlign = System.Drawing.ContentAlignment.BottomCenter + Me.btnSicherheit.UseVisualStyleBackColor = 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(330, 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 + ' + '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(415, 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.Label8) + Me.pnl.Controls.Add(Me.Label7) + Me.pnl.Controls.Add(Me.Label6) + Me.pnl.Controls.Add(Me.cboStammreferenz) + Me.pnl.Controls.Add(Me.cboDakosyAction) + 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 + ' + 'Label8 + ' + Me.Label8.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Label8.AutoSize = True + Me.Label8.Location = New System.Drawing.Point(8, 34) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(60, 13) + Me.Label8.TabIndex = 14 + Me.Label8.Text = "Rohmasse:" + Me.Label8.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'Label7 + ' + Me.Label7.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold) + Me.Label7.Location = New System.Drawing.Point(73, 31) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(122, 18) + Me.Label7.TabIndex = 13 + Me.Label7.Text = "0 kg" + Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + '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 = 12 + Me.Label6.Text = "Stammref.:" + Me.Label6.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'cboStammreferenz + ' + Me.cboStammreferenz._allowedValuesFreiText = Nothing + Me.cboStammreferenz._allowFreiText = False + 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(66, 48) + Me.cboStammreferenz.Name = "cboStammreferenz" + Me.cboStammreferenz.Size = New System.Drawing.Size(129, 21) + Me.cboStammreferenz.TabIndex = 11 + ' + 'cboDakosyAction + ' + Me.cboDakosyAction._allowedValuesFreiText = Nothing + Me.cboDakosyAction._allowFreiText = False + Me.cboDakosyAction._value = "" + 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 + ' + '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, 19) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(67, 13) + Me.Label4.TabIndex = 9 + Me.Label4.Text = "Packstücke:" + 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(73, 16) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(122, 18) + Me.Label5.TabIndex = 10 + Me.Label5.Text = "0 Pk" + 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, 4) + 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, 1) + 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.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NeueBezugsnummerVergebenToolStripMenuItem}) + Me.cntxtBezugsnr.Name = "cntxtBezugsnr" + Me.cntxtBezugsnr.Size = New System.Drawing.Size(239, 26) + Me.cntxtBezugsnr.Text = "Bezugsnr" + ' + 'NeueBezugsnummerVergebenToolStripMenuItem + ' + Me.NeueBezugsnummerVergebenToolStripMenuItem.Name = "NeueBezugsnummerVergebenToolStripMenuItem" + Me.NeueBezugsnummerVergebenToolStripMenuItem.Size = New System.Drawing.Size(238, 22) + Me.NeueBezugsnummerVergebenToolStripMenuItem.Text = "neue Bezugsnummer vergeben" + ' + 'Panel1 + ' + Me.Panel1.Controls.Add(Me.txtDyMandant) + Me.Panel1.Controls.Add(Me.Label1) + Me.Panel1.Controls.Add(Me.txtDyNiederlassung) + 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 = 19 + 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(63, 13) + Me.txtDyNiederlassung.TabIndex = 18 + Me.txtDyNiederlassung.Text = "SUB" + ' + 'MenuStrip + ' + Me.MenuStrip.BackColor = System.Drawing.Color.White + Me.MenuStrip.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.OptionenToolStripMenuItem}) + 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 ..." + ' + 'btnVerschlüsse + ' + Me.btnVerschlüsse.BackColor = System.Drawing.Color.White + Me.btnVerschlüsse.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.btnVerschlüsse.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnVerschlüsse.Image = Global.SDL.My.Resources.Resources.seal3 + Me.btnVerschlüsse.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.btnVerschlüsse.Location = New System.Drawing.Point(245, 2) + Me.btnVerschlüsse.Margin = New System.Windows.Forms.Padding(2) + Me.btnVerschlüsse.Name = "btnVerschlüsse" + Me.btnVerschlüsse.Padding = New System.Windows.Forms.Padding(0, 6, 0, 3) + Me.btnVerschlüsse.Size = New System.Drawing.Size(81, 67) + Me.btnVerschlüsse.TabIndex = 3 + Me.btnVerschlüsse.Text = "Verschlüsse" + Me.btnVerschlüsse.TextAlign = System.Drawing.ContentAlignment.BottomCenter + Me.btnVerschlüsse.UseVisualStyleBackColor = False + Me.btnVerschlüsse.Visible = False + ' + 'usrCntlATLAS_NCTS004 + ' + 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_NCTS004" + 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 btnSicherheit 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 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 Label4 As Label + Friend WithEvents Label7 As Label + Friend WithEvents Label8 As Label + Friend WithEvents btnVerschlüsse As Button +End Class diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004.resx b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004.resx new file mode 100644 index 00000000..c31215db --- /dev/null +++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 125, 17 + + + 17, 17 + + \ No newline at end of file diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004.vb b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004.vb new file mode 100644 index 00000000..72a0c55c --- /dev/null +++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004.vb @@ -0,0 +1,636 @@ +Imports DAKOSY_Worker +Imports Tamir +Imports Tamir.SharpSsh + +Public Class usrCntlATLAS_NCTS004 + + Property ALLG As usrCntlATLAS_NCTS004_Allg + Property ADRESSEN As usrCntlATLAS_NCTS004_Adressen + Property SICHERHEIT As usrCntlATLAS_NCTS004_Sicherheit + Property POSITIONEN As usrCntlATLAS_NCTS004_Positionen + 'Property VERSCHLUESSE As usrCntlATLAS_NCTS_Verschluesse + 'Property FilialeNr As Integer + ' Property AbfertigungsNr As Integer + Property Jahr2Stellig As Integer + Property zusatz As String + Property BezugsNr As String = "" + ' Property AvisoId As Integer + 'Property SENDUNGS_ID As Integer + Property AVISO As VERAG_PROG_ALLGEMEIN.cAviso + Property SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen + Dim sentToDakosy = False + + Property isSTAMMREF As Boolean = False ' Wenn das Formular als Stammreferenz bearbeitet wird + Property STAMMREF As String = "" ' Wenn eine Stammrefereenz als Grundlage dient + + Dim FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + + Dim cDy_ART As String = If(FIRMA_DY = "ATILLA", "T2", "T1") + + Dim ncts_OUT As cDakosyNCTSOut004 = Nothing + Dim DY_ANM As cDakosy_Zollanmeldungen = Nothing + + Sub New(ncts_OUT As cDakosyNCTSOut004, Optional isSTAMMREF As Boolean = False, Optional STAMMREF As String = "") + InitializeComponent() + Me.isSTAMMREF = isSTAMMREF + Me.STAMMREF = STAMMREF + Me.ncts_OUT = ncts_OUT + DY_ANM = New cDakosy_Zollanmeldungen(ncts_OUT.ncts_dyaAnmID) + + 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(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.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.ncts_OUT = DAKOSY_Worker.cDakosyNCTSOut004.LOADByAnmIDFull(DY_ANM.dy_Id, True) + Me.cDy_ART = If(DY_ANM.dy_ART, "") + If Me.cDy_ART = "" And Me.ncts_OUT IsNot Nothing Then Me.cDy_ART = If(Me.ncts_OUT.ncts_Declarationtype, "") + If Me.cDy_ART = "" Then Me.cDy_ART = "T1" + If ncts_OUT IsNot Nothing Then + Me.FIRMA_DY = If(Me.ncts_OUT.ncts_firma, "") + End If + + End If + 'DY_ANM = New cDakosy_Zollanmeldungen(ncts_OUT.ncts_dyaAnmID) + + + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + 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 = "NCTS", "T1", ART) + + 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.Jahr2Stellig = Jahr2Stellig + Me.isSTAMMREF = isSTAMMREF + Me.STAMMREF = STAMMREF + 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 = "NCTS", "T1", ART) + + Me.AVISO = Aviso + Me.SENDUNG = SENDUNG + Me.isSTAMMREF = isSTAMMREF + Me.STAMMREF = STAMMREF + + Me.Jahr2Stellig = Jahr2Stellig + Me.zusatz = zusatz + 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 = BezugsNrTmp & "/" & 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 + + Private Sub usrCntlATLAS_Load(sender As Object, e As EventArgs) Handles Me.Load + 'MsgBox("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) + + 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 "ATILLA" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "SUW" + Case "UNISPED" : txtDyMandant.Text = "UNAT" : txtDyNiederlassung.Text = "ATSPED" + Case "IMEX" : txtDyMandant.Text = "IMEX" : txtDyNiederlassung.Text = "IME" + Case "AMBAR" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "AMBWO" + End Select + + + cboStammreferenz.fillWithSQL("SELECT [dySr_Stammreferenz],[dySr_Bezeichnung] FROM [tblDakosy_Stammreferenzen] WHERE dySr_Land='DE' AND dySr_Verfahren='NCTS' and dySr_dy_Mandant='" & txtDyMandant.Text & "' and dySr_dy_Niederlassung IN ('','" & txtDyNiederlassung.Text & "') and dySr_visible=1", False, "FMZOLL", True) + cboStammreferenz.changeItem("") + + SICHERHEIT = New usrCntlATLAS_NCTS004_Sicherheit(ncts_OUT, FIRMA_DY) + 'VERSCHLUESSE = New usrCntlATLAS_NCTS_Verschluesse() 'ncts_OUT) + ADRESSEN = New usrCntlATLAS_NCTS004_Adressen(ncts_OUT, FIRMA_DY) ') + ALLG = New usrCntlATLAS_NCTS004_Allg(ncts_OUT) + POSITIONEN = New usrCntlATLAS_NCTS004_Positionen(ncts_OUT) + + + If isSTAMMREF Then + Me.BezugsNr = "STAMMREFERENZ" + If ncts_OUT Is Nothing Then ncts_OUT = New cDakosyNCTSOut004 + ncts_OUT.ncts_ObjectName = BezugsNr + Else + If ncts_OUT Is Nothing Then ' NEUE ZOLLANMELDUNG + Dim f As New frmDakosyStammreferenz("DE", "NCTS", False,,, 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 + ncts_OUT = cDakosyNCTSOut004.LOADByBezugsNr(BezugsNr, True) + If ncts_OUT Is Nothing Then + 'Falls zur BezugsNr schon ein Eintrag in der DB vorhanden ist + ncts_OUT = cDakosyNCTSOut004.LOADByAnmIDFull(f.STAMMREF_DYID, True) ' DyID --> Falls bei der Stammreferenz eine Vorlage hinterlegt ist! + + + If ncts_OUT IsNot Nothing Then + 'Stmmreferenz - Werte zurücksetzen, damit nicht falsch übergeben + ncts_OUT.ncts_dyaAnmID = -1 + ncts_OUT.ncts_Id = -1 + Else + ncts_OUT = New cDakosyNCTSOut004 + End If + + + loaddataFromAVISO(ncts_OUT) + cboStammreferenz.changeItem(Stammreferenz) + + + End If + 'ncts_OUT + + Else + ' ncts_OUT is ot nothing + Me.BezugsNr = ncts_OUT.ncts_ObjectName + 'MsgBox(ncts_OUT.ncts_Hauptverpflichteter_Name) + + End If + End If + If If(ncts_OUT.ncts_firma, "") = "" Then If FIRMA_DY <> "" Then ncts_OUT.ncts_firma = FIRMA_DY + + If If(Me.cDy_ART, "") <> "" Then + 'Muss noch überschrieben werdne, da sonst Art von Stammref hergenommen wird... + ncts_OUT.ncts_Declarationtype = Me.cDy_ART + Else + 'Wenn keine Art --> T1 + If ncts_OUT.ncts_Declarationtype Is Nothing Or ncts_OUT.ncts_Declarationtype = "" Then + ncts_OUT.ncts_Declarationtype = "T1" + End If + End If + + + 'hinzufügen, damit alle Controls richtig geladen und initialisiert werden:s + Me.SplitContainer.Panel2.Controls.Add(SICHERHEIT) + 'Me.SplitContainer.Panel2.Controls.Add(VERSCHLUESSE) + Me.SplitContainer.Panel2.Controls.Add(ALLG) + Me.SplitContainer.Panel2.Controls.Add(POSITIONEN) + Me.SplitContainer.Panel2.Controls.Add(ADRESSEN) + + ' MsgBox(ncts_OUT.ncts_Hauptverpflichteter_Name) + 'Werte setzen: + SICHERHEIT.setValues(ncts_OUT.ncts_GUARANTEE) + ' VERSCHLUESSE.setValues(ncts_OUT) + ADRESSEN.setValues(ncts_OUT) + ALLG.setValues(ncts_OUT) + POSITIONEN.setValues(ncts_OUT) + + If If(ncts_OUT.ncts_Stammreferenz, "") <> "" Then cboStammreferenz.changeItem(ncts_OUT.ncts_Stammreferenz) + + 'Controls wieder entfernen: + Me.SplitContainer.Panel2.Controls.Clear() + + + ' If ALLG.txtKennnummer.Text = "" Then ALLG.txtKennnummer.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 + + AddHandler ADRESSEN.Button1.Click, Sub() + Dim origin = "" + Dim destination = "" + + 'Dim usrCntlVers = ADRESSEN.usrCntlVersender + 'origin &= usrCntlVers.txtStrasse.Text & " " + 'origin &= usrCntlVers.sbLand._value & " " + 'origin &= usrCntlVers.txtPlz.Text & " " + 'origin &= usrCntlVers.txtOrt.Text & " " + + If ALLG.sbAbgangZollstelle._value <> "" Then + origin = ALLG.sbAbgangZollstelle._value.Substring(0, 2) & " " & ALLG.sbAbgangZollstelle.Text + End If + + + Dim usrCntlEmpf = ADRESSEN.usrCntlEmpfaenger + destination &= usrCntlEmpf.txtStrasse.Text & " " + destination &= usrCntlEmpf.sbLand._value & " " + destination &= usrCntlEmpf.txtPlz.Text & " " + destination &= usrCntlEmpf.txtOrt.Text & " " + + + Dim duration = "" + Dim distance = "" + VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance(origin, destination, duration, "", distance) + + ADRESSEN.lblWegstreckeVonNach.Text = "von: " & origin & vbNewLine + ADRESSEN.lblWegstreckeVonNach.Text &= "nach: " & destination + + ADRESSEN.lblWegstrecke.Text = distance + ADRESSEN.lblWegZeit.Text = duration + End Sub + + + SplitContainer.Panel2.Controls.Add(ALLG) + lblBezugsnummer.Text = BezugsNr + + + + + ALLG.Dock = DockStyle.Fill + ADRESSEN.Dock = DockStyle.Fill + POSITIONEN.Dock = DockStyle.Fill + SICHERHEIT.Dock = DockStyle.Fill + 'VERSCHLUESSE.Dock = DockStyle.Fill + + ' + ' + AddHandler POSITIONEN.RohmasseChanged, Sub(rohmasse, packstuecke) + Label5.Text = packstuecke.ToString("N0") & " Pk" + Label7.Text = rohmasse.ToString("N2") & " kg" + + End Sub + AddHandler POSITIONEN.PosAnzChanged, Sub(anz) + Label3.Text = anz + End Sub + + If isSTAMMREF Then + Button1.Visible = False + cboDakosyAction.Visible = False + lblBezugsnummer.Text = "STAMMREFERENZ" + lblBezugsnummer.ForeColor = Color.Red + End If + + + 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 btnSicherheit Then + SplitContainer.Panel2.Controls.Add(SICHERHEIT) + 'ElseIf btn Is btnVerschlüsse Then + ' SplitContainer.Panel2.Controls.Add(VERSCHLUESSE) + ElseIf btn Is btnPositionen Then + SplitContainer.Panel2.Controls.Add(POSITIONEN) + End If + End Sub + + + + + Sub loaddataFromAVISO(ByRef cdy As cDakosyNCTSOut004) + Try + + '==> VORBLENDUNG: + + ' Dim cdy As New cDakosyNCTSOut + cdy.ncts_ObjectName = BezugsNr + cdy.ncts_CustomsOfficeOfDeparture = "" '"DE007701" ' Neuhaus (öSTERR:) + frmZollanmeldung.setZollstelle(cdy.ncts_CustomsOfficeOfDeparture, AVISO) + + cdy.ncts_dyaArt = cDy_ART + If AVISO IsNot Nothing Then + cdy.ncts_DepartureTransportMeans_1_IdentificationNumber = AVISO.LKW_Nr + cdy.ncts_DepartureTransportMeans_1_Nationality = AVISO.LKW_Nationalitaet + If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "ATILLA" Then + 'cdy.transportm = "X" + Else + 'cdy.ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend = AVISO.LKW_Nr + ' cdy.ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode = AVISO.LKW_Nationalitaet + End If + + End If + + + cdy.ncts_InlandModeOfTransport = "3" + cdy.ncts_ModeOfTransportAtTheBorder = "3" + 'cdy.ncts_Befoerderungsmittel_ArtGrenzueberschreitung = "35" + + + + If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "ATILLA" Or (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" And AVISO.ImEx = "EXPORT") Then + cdy.ncts_Security = True + cdy.ncts_SpecificCircomstanceIndicator = "C" + cdy.ncts_TransportCharges = "D" + cdy.ncts_PlaceOfLoading_Country = "DE" + 'cdy.ncts_SumA_KennnummerSendung = "OHNE" + + 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 + cdy.ncts_Carrier_IdentificationNumber = KD_Befoerderer.EORITIN + If KD_Befoerderer.EORITIN IsNot Nothing Then cdy.ncts_Carrier_SubsidiaryNumber = KD_Befoerderer.EORITIN_NL + 'cdy.ncts_Carrier_name = (If(AD_Befoerderer.Name_1, "") & " " & If(AD_Befoerderer.Name_2, "")).trim + 'cdy.ncts_Carrier_st = AD_Befoerderer.Straße + 'cdy.ncts_SumA_Befoerderer_PLZ = AD_Befoerderer.PLZ + 'cdy.ncts_SumA_Befoerderer_Ort = AD_Befoerderer.Ordnungsbegriff + 'cdy.ncts_SumA_Befoerderer_Land = cProgramFunctions.getISO2Land(AD_Befoerderer.LandKz) + Else + 'cdy.ncts_SumA_Befoerderer_Name = If(AVISO.Frächter, "") + End If + End If + + + + If SENDUNG IsNot Nothing Then + + Dim HC As DAKOSY_Worker.cDakosy_NCTSOut004_HouseConsignment = Nothing + If cdy.ncts_HOUSE_CONSIGNMENT.Count > 0 Then + HC = cdy.ncts_HOUSE_CONSIGNMENT(0) + Else + HC = New DAKOSY_Worker.cDakosy_NCTSOut004_HouseConsignment + cdy.ncts_HOUSE_CONSIGNMENT.Add(HC) ' schon wieder...'nciht mehr anfügen + End If + + + Dim p As DAKOSY_Worker.cDakosy_NCTSOut004_HouseConsignment_ConsignmentItem = Nothing + If HC.nctsWP_CONSIGNMENT_ITEM.Count > 0 Then + p = HC.nctsWP_CONSIGNMENT_ITEM(0) + Else + p = New DAKOSY_Worker.cDakosy_NCTSOut004_HouseConsignment_ConsignmentItem + HC.nctsWP_CONSIGNMENT_ITEM.Add(p) ' schon wieder...'nciht mehr anfügen + End If + + p.nctsHCCI_DescriptionOfGoods = SENDUNG.tblSnd_Warenbezeichnung + If SENDUNG.tblSnd_Colli IsNot Nothing AndAlso IsNumeric(SENDUNG.tblSnd_Colli) Then + Dim pk As New DAKOSY_Worker.cDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packaging + pk.nctsHCCIPK_NumberOfPackages = SENDUNG.tblSnd_Colli + pk.nctsHCCIPK_TypeOfPackages = "PK" + 'pk.nctsHCCIPK_GoodsItemNumber = "OHNE" -->BEIPACK Verweis auf andere Pos- + p.nctsHCCI_PACKAGING.Add(pk) + End If + p.nctsHCCI_GrossMass = SENDUNG.tblSnd_Gewicht + p.nctsHCCI_GoodsValue = SENDUNG.tblSnd_Warenwert + p.nctsHCCI_CurrencyOfGoodsValue = SENDUNG.tblSnd_WarenwertWaehrung + ' p.nctsWP_Warenbezeichnung = SENDUNG.tblSnd_Warenbezeichnung + 'If If(p.nctsWP_VorpapierTyp, "") = "" Then p.nctsWP_VorpapierTyp = "OHNE" + + If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "ATILLA" Then + ' p.nctsWP_BesondereVermeke_Export = True + End If + 'cdy.ncts_WARENPOS.Add(p) + + Select Case cdy.ncts_CustomsOfficeOfDeparture + Case "DE007458" 'Bad Reichenhall --> Empfänger muss tat. Empf. sein; Gest.Adresse nicht akzeptiert!! + + If SENDUNG.tblSnd_EmpfaengerKdNr > 0 Then + Dim adEMPF As New VERAG_PROG_ALLGEMEIN.cAdressen(SENDUNG.tblSnd_EmpfaengerKdNr) + Dim kdEMPF As New VERAG_PROG_ALLGEMEIN.cKunde(SENDUNG.tblSnd_EmpfaengerKdNr) + cdy.ncts_Consignee_IdentificationNumber = kdEMPF.EORITIN + cdy.ncts_Consignee_SubsidiaryNumber = kdEMPF.EORITIN_NL + cdy.ncts_Consignee_Name = If(adEMPF.Name_1, "") & If(adEMPF.Name_2, "") + cdy.ncts_Consignee_StreetNumber = adEMPF.Straße + cdy.ncts_Consignee_Postcode = adEMPF.PLZ + cdy.ncts_Consignee_City = adEMPF.Ort + If adEMPF.LandKz IsNot Nothing Then cdy.ncts_Consignee_Country = cProgramFunctions.getISO2Land(adEMPF.LandKz) + cdy.ncts_CustomsOfficeOfDestinationDeclared = cProgramFunctions.isLeerNothing(SENDUNG.NCTS_Bestimmungszollstelle) + + End If + + Case Else + cdy.ncts_Consignee_IdentificationNumber = cProgramFunctions.isLeerNothing(SENDUNG.NCTS_Verzollungsadresse_EORI) + cdy.ncts_Consignee_SubsidiaryNumber = cProgramFunctions.isLeerNothing(SENDUNG.NCTS_Verzollungsadresse_EORI_NL) + cdy.ncts_Consignee_Name = cProgramFunctions.isLeerNothing(SENDUNG.tblSnd_NCTSVerzollungsadresse) + cdy.ncts_Consignee_StreetNumber = cProgramFunctions.isLeerNothing(SENDUNG.NCTS_Verzollungsadresse_Strasse) + cdy.ncts_Consignee_Postcode = cProgramFunctions.isLeerNothing(SENDUNG.NCTS_Verzollungsadresse_PLZ) + cdy.ncts_Consignee_City = cProgramFunctions.isLeerNothing(SENDUNG.NCTS_Verzollungsadresse_Ort) + cdy.ncts_Consignee_Country = cProgramFunctions.isLeerNothing(SENDUNG.NCTS_Verzollungsadresse_Land) + cdy.ncts_CustomsOfficeOfDestinationDeclared = cProgramFunctions.isLeerNothing(SENDUNG.NCTS_Bestimmungszollstelle) + + End Select + + + If SENDUNG.tblSnd_AbsenderKdNr > 0 Then + Dim adVERSENDER As New VERAG_PROG_ALLGEMEIN.cAdressen(SENDUNG.tblSnd_AbsenderKdNr) + Dim kdVERSENDER As New VERAG_PROG_ALLGEMEIN.cKunde(SENDUNG.tblSnd_AbsenderKdNr) + cdy.ncts_Consignor_IdentificationNumber = kdVERSENDER.EORITIN + cdy.ncts_Consignor_SubsidiaryNumber = kdVERSENDER.EORITIN_NL + cdy.ncts_Consignor_Name = If(adVERSENDER.Name_1, "") & If(adVERSENDER.Name_2, "") + cdy.ncts_Consignor_StreetNumber = adVERSENDER.Straße + cdy.ncts_Consignor_Postcode = adVERSENDER.PLZ + cdy.ncts_Consignor_City = adVERSENDER.Ort + If adVERSENDER.LandKz IsNot Nothing Then cdy.ncts_Consignor_Country = cProgramFunctions.getISO2Land(adVERSENDER.LandKz) + ' cdy.ncts_BestimmungsstelleDienststellennummer = cProgramFunctions.isLeerNothing(SENDUNG.NCTS_Bestimmungszollstelle) + + End If + + End If + + + ' NCTS= cdy + Catch ex As Exception + MsgBox(ex.StackTrace) + End Try + End Sub + + + Sub setValue(ncts_OUT) + BezugsNr = ncts_OUT.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(ncts_OUT.ncts_dyaAnmID) + End If + DY_ANM.dy_ART = ALLG.NCTS_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() + Me.Cursor = Cursors.WaitCursor + 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 ncts_OUT IsNot Nothing Then + 'Dim cDY As New cDakosyNCTSOut(cDyAnm.dy_Id, cDyAnm.dy_Erstellung_SB) + ncts_OUT.ncts_dyaAnmID = DY_ANM.dy_Id + ncts_OUT.ncts_Erstellung_SB = DY_ANM.dy_Erstellung_SB + ncts_OUT.ncts_LetzteBearbeitung = Now + ncts_OUT.ncts_LetzteBearbeitung_SB = DY_ANM.dy_LetzteBearbeitung_SB + ncts_OUT.ncts_firma = Me.FIRMA_DY + DAKOSY_Interface_SEND.loadInClass_VersandanmeldungNCTSDE_004(ncts_OUT, Me, DY_ANM, Me.FIRMA_DY) + + If Not ncts_OUT.SAVE_ALL() Then Exit Sub + + Dim saveFile = "" + If DAKOSY_Interface_SEND.generateVersandanmeldungNCTSDE_004(ncts_OUT, saveFile, cboDakosyAction._value) Then + If saveFile <> "" Then + If cDakosyFunftions.send_Data_To_Dakosy_FTP(saveFile, BezugsNr, DY_ANM.dy_Id, Me.FIRMA_DY) Then + DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_ANM, DAKOSY_Worker.cDY_Statusliste.S_03) + If SENDUNG IsNot Nothing Then SENDUNG.SET_VGMA() ' MA Vorgeschrieben in Sendung setzen. + Else + DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_ANM, DAKOSY_Worker.cDY_Statusliste.S_09) + MsgBox("Sendefehler!") + 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 + Me.Cursor = Cursors.Default + End Sub + + + + Private Sub SpeichernToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SpeichernToolStripMenuItem.Click + + Me.Refresh() + + ' 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 ncts_OUT IsNot Nothing Then + 'Dim cDY As New cDakosyNCTSOut(cDyAnm.dy_Id, cDyAnm.dy_Erstellung_SB) + ncts_OUT.ncts_dyaAnmID = DY_ANM.dy_Id + ncts_OUT.ncts_Erstellung_SB = DY_ANM.dy_Erstellung_SB + ncts_OUT.ncts_LetzteBearbeitung = Now + ncts_OUT.ncts_LetzteBearbeitung_SB = DY_ANM.dy_LetzteBearbeitung_SB + DAKOSY_Interface_SEND.loadInClass_VersandanmeldungNCTSDE_004(ncts_OUT, Me, DY_ANM, FIRMA_DY) + + If Not ncts_OUT.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 + +End Class + diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Adressen.Designer.vb b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Adressen.Designer.vb new file mode 100644 index 00000000..1d5044ca --- /dev/null +++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Adressen.Designer.vb @@ -0,0 +1,285 @@ + +Partial Class usrCntlATLAS_NCTS004_Adressen + Inherits System.Windows.Forms.UserControl + + 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + 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. + + Private Sub InitializeComponent() + Me.pnl = New System.Windows.Forms.Panel() + Me.lblWegstreckeVonNach = New System.Windows.Forms.Label() + Me.lblWegZeit = New System.Windows.Forms.Label() + Me.lblWegstrecke = New System.Windows.Forms.Label() + Me.Button1 = New System.Windows.Forms.Button() + Me.lblBefullen = New System.Windows.Forms.Label() + Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.grp = New System.Windows.Forms.GroupBox() + Me.usrCntlSumA_Versender = New SDL.usrCntlAdresse() + Me.cbxSumABeforderer = New System.Windows.Forms.CheckBox() + Me.usrCntlSumA_Empfaenger = New SDL.usrCntlAdresse() + Me.PictureBox1 = New System.Windows.Forms.PictureBox() + Me.usrCntlSumA_Befoerderer = New SDL.usrCntlAdresse() + Me.usrCntlZugelEmpfaenger = New SDL.usrCntlAdresse() + Me.usrCntlEmpfaenger = New SDL.usrCntlAdresse() + Me.usrCntlVersender = New SDL.usrCntlAdresse() + Me.usrCntlHauptverpflichteter = New SDL.usrCntlAdresse() + Me.PictureBox2 = New System.Windows.Forms.PictureBox() + Me.pnl.SuspendLayout() + Me.grp.SuspendLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'pnl + ' + Me.pnl.Controls.Add(Me.lblWegstreckeVonNach) + Me.pnl.Controls.Add(Me.lblWegZeit) + Me.pnl.Controls.Add(Me.lblWegstrecke) + Me.pnl.Controls.Add(Me.Button1) + Me.pnl.Controls.Add(Me.lblBefullen) + Me.pnl.Controls.Add(Me.MyComboBox1) + Me.pnl.Controls.Add(Me.grp) + Me.pnl.Controls.Add(Me.usrCntlSumA_Befoerderer) + Me.pnl.Controls.Add(Me.usrCntlZugelEmpfaenger) + Me.pnl.Controls.Add(Me.usrCntlEmpfaenger) + Me.pnl.Controls.Add(Me.usrCntlVersender) + Me.pnl.Controls.Add(Me.usrCntlHauptverpflichteter) + 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, 628) + Me.pnl.TabIndex = 0 + ' + 'lblWegstreckeVonNach + ' + Me.lblWegstreckeVonNach.Location = New System.Drawing.Point(160, 324) + Me.lblWegstreckeVonNach.Name = "lblWegstreckeVonNach" + Me.lblWegstreckeVonNach.Size = New System.Drawing.Size(265, 29) + Me.lblWegstreckeVonNach.TabIndex = 55 + ' + 'lblWegZeit + ' + Me.lblWegZeit.AutoSize = True + Me.lblWegZeit.Location = New System.Drawing.Point(20, 375) + Me.lblWegZeit.Name = "lblWegZeit" + Me.lblWegZeit.Size = New System.Drawing.Size(19, 13) + Me.lblWegZeit.TabIndex = 54 + Me.lblWegZeit.Text = "----" + Me.lblWegZeit.Visible = False + ' + 'lblWegstrecke + ' + Me.lblWegstrecke.AutoSize = True + Me.lblWegstrecke.Location = New System.Drawing.Point(20, 360) + Me.lblWegstrecke.Name = "lblWegstrecke" + Me.lblWegstrecke.Size = New System.Drawing.Size(19, 13) + Me.lblWegstrecke.TabIndex = 53 + Me.lblWegstrecke.Text = "----" + Me.lblWegstrecke.Visible = False + ' + 'Button1 + ' + Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button1.Location = New System.Drawing.Point(17, 324) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(137, 29) + Me.Button1.TabIndex = 52 + Me.Button1.Text = "Strecke berechnen" + Me.Button1.UseVisualStyleBackColor = True + Me.Button1.Visible = False + ' + 'lblBefullen + ' + Me.lblBefullen.AutoSize = True + Me.lblBefullen.Location = New System.Drawing.Point(569, 8) + Me.lblBefullen.Name = "lblBefullen" + Me.lblBefullen.Size = New System.Drawing.Size(48, 13) + Me.lblBefullen.TabIndex = 51 + Me.lblBefullen.Text = "Befüllen:" + ' + 'MyComboBox1 + ' + Me.MyComboBox1._allowedValuesFreiText = Nothing + Me.MyComboBox1._allowFreiText = False + Me.MyComboBox1._value = "" + Me.MyComboBox1.FormattingEnabled = True + Me.MyComboBox1.Location = New System.Drawing.Point(623, 5) + Me.MyComboBox1.Name = "MyComboBox1" + Me.MyComboBox1.Size = New System.Drawing.Size(267, 21) + Me.MyComboBox1.TabIndex = 50 + ' + 'grp + ' + Me.grp.Controls.Add(Me.usrCntlSumA_Versender) + Me.grp.Controls.Add(Me.cbxSumABeforderer) + Me.grp.Controls.Add(Me.usrCntlSumA_Empfaenger) + Me.grp.Controls.Add(Me.PictureBox1) + Me.grp.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.grp.Location = New System.Drawing.Point(3, 443) + Me.grp.Name = "grp" + Me.grp.Size = New System.Drawing.Size(897, 182) + Me.grp.TabIndex = 10 + Me.grp.TabStop = False + Me.grp.Text = "SumA - Sicherheit" + ' + 'usrCntlSumA_Versender + ' + Me.usrCntlSumA_Versender._Titel = "SumA Versender:" + Me.usrCntlSumA_Versender.BackColor = System.Drawing.Color.WhiteSmoke + Me.usrCntlSumA_Versender.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.usrCntlSumA_Versender.Enabled = False + Me.usrCntlSumA_Versender.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.usrCntlSumA_Versender.Location = New System.Drawing.Point(14, 40) + Me.usrCntlSumA_Versender.Name = "usrCntlSumA_Versender" + Me.usrCntlSumA_Versender.Size = New System.Drawing.Size(408, 132) + Me.usrCntlSumA_Versender.TabIndex = 6 + ' + 'cbxSumABeforderer + ' + Me.cbxSumABeforderer.AutoSize = True + Me.cbxSumABeforderer.Checked = True + Me.cbxSumABeforderer.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxSumABeforderer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbxSumABeforderer.Location = New System.Drawing.Point(14, 25) + Me.cbxSumABeforderer.Name = "cbxSumABeforderer" + Me.cbxSumABeforderer.Size = New System.Drawing.Size(115, 17) + Me.cbxSumABeforderer.TabIndex = 9 + Me.cbxSumABeforderer.Text = "SumA = Beförderer" + Me.cbxSumABeforderer.UseVisualStyleBackColor = True + ' + 'usrCntlSumA_Empfaenger + ' + Me.usrCntlSumA_Empfaenger._Titel = "SumA Empfänger:" + Me.usrCntlSumA_Empfaenger.BackColor = System.Drawing.Color.WhiteSmoke + Me.usrCntlSumA_Empfaenger.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.usrCntlSumA_Empfaenger.Enabled = False + Me.usrCntlSumA_Empfaenger.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.usrCntlSumA_Empfaenger.Location = New System.Drawing.Point(479, 40) + Me.usrCntlSumA_Empfaenger.Name = "usrCntlSumA_Empfaenger" + Me.usrCntlSumA_Empfaenger.Size = New System.Drawing.Size(408, 132) + Me.usrCntlSumA_Empfaenger.TabIndex = 7 + ' + 'PictureBox1 + ' + Me.PictureBox1.BackgroundImage = Global.SDL.My.Resources.Resources.lorry_motion + Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.PictureBox1.Location = New System.Drawing.Point(418, 83) + Me.PictureBox1.Name = "PictureBox1" + Me.PictureBox1.Size = New System.Drawing.Size(58, 34) + Me.PictureBox1.TabIndex = 49 + Me.PictureBox1.TabStop = False + Me.PictureBox1.Visible = False + ' + 'usrCntlSumA_Befoerderer + ' + Me.usrCntlSumA_Befoerderer._Titel = "Beförderer:" + Me.usrCntlSumA_Befoerderer.BackColor = System.Drawing.Color.PapayaWhip + Me.usrCntlSumA_Befoerderer.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.usrCntlSumA_Befoerderer.Location = New System.Drawing.Point(17, 29) + Me.usrCntlSumA_Befoerderer.Name = "usrCntlSumA_Befoerderer" + Me.usrCntlSumA_Befoerderer.Size = New System.Drawing.Size(408, 132) + Me.usrCntlSumA_Befoerderer.TabIndex = 5 + ' + 'usrCntlZugelEmpfaenger + ' + Me.usrCntlZugelEmpfaenger._Titel = "Zugelassener Empfänger:" + Me.usrCntlZugelEmpfaenger.BackColor = System.Drawing.Color.PapayaWhip + Me.usrCntlZugelEmpfaenger.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.usrCntlZugelEmpfaenger.Location = New System.Drawing.Point(482, 307) + Me.usrCntlZugelEmpfaenger.Name = "usrCntlZugelEmpfaenger" + Me.usrCntlZugelEmpfaenger.Size = New System.Drawing.Size(408, 132) + Me.usrCntlZugelEmpfaenger.TabIndex = 4 + ' + 'usrCntlEmpfaenger + ' + Me.usrCntlEmpfaenger._Titel = "Empfänger:" + Me.usrCntlEmpfaenger.BackColor = System.Drawing.Color.PapayaWhip + Me.usrCntlEmpfaenger.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.usrCntlEmpfaenger.Location = New System.Drawing.Point(482, 176) + Me.usrCntlEmpfaenger.Name = "usrCntlEmpfaenger" + Me.usrCntlEmpfaenger.Size = New System.Drawing.Size(408, 132) + Me.usrCntlEmpfaenger.TabIndex = 3 + ' + 'usrCntlVersender + ' + Me.usrCntlVersender._Titel = "Versender:" + Me.usrCntlVersender.BackColor = System.Drawing.Color.PapayaWhip + Me.usrCntlVersender.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.usrCntlVersender.Location = New System.Drawing.Point(17, 176) + Me.usrCntlVersender.Name = "usrCntlVersender" + Me.usrCntlVersender.Size = New System.Drawing.Size(408, 132) + Me.usrCntlVersender.TabIndex = 2 + ' + 'usrCntlHauptverpflichteter + ' + Me.usrCntlHauptverpflichteter._Titel = "Hauptverpflichteter:" + Me.usrCntlHauptverpflichteter.BackColor = System.Drawing.Color.PapayaWhip + Me.usrCntlHauptverpflichteter.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.usrCntlHauptverpflichteter.Location = New System.Drawing.Point(482, 29) + Me.usrCntlHauptverpflichteter.Name = "usrCntlHauptverpflichteter" + Me.usrCntlHauptverpflichteter.Size = New System.Drawing.Size(408, 132) + Me.usrCntlHauptverpflichteter.TabIndex = 1 + ' + 'PictureBox2 + ' + Me.PictureBox2.BackgroundImage = Global.SDL.My.Resources.Resources.lorry_motion + Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.PictureBox2.Location = New System.Drawing.Point(421, 221) + Me.PictureBox2.Name = "PictureBox2" + Me.PictureBox2.Size = New System.Drawing.Size(58, 34) + Me.PictureBox2.TabIndex = 49 + Me.PictureBox2.TabStop = False + ' + 'usrCntlATLAS_ncts_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_ncts_Adressen" + Me.Size = New System.Drawing.Size(907, 628) + Me.pnl.ResumeLayout(False) + Me.pnl.PerformLayout() + Me.grp.ResumeLayout(False) + Me.grp.PerformLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents pnl As System.Windows.Forms.Panel + Friend WithEvents usrCntlVersender As SDL.usrCntlAdresse + Friend WithEvents usrCntlHauptverpflichteter As SDL.usrCntlAdresse + Friend WithEvents usrCntlZugelEmpfaenger As SDL.usrCntlAdresse + Friend WithEvents usrCntlEmpfaenger As SDL.usrCntlAdresse + Friend WithEvents usrCntlSumA_Befoerderer As SDL.usrCntlAdresse + Friend WithEvents grp As System.Windows.Forms.GroupBox + Friend WithEvents usrCntlSumA_Versender As SDL.usrCntlAdresse + Friend WithEvents cbxSumABeforderer As System.Windows.Forms.CheckBox + Friend WithEvents usrCntlSumA_Empfaenger As SDL.usrCntlAdresse + Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox + Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox + Friend WithEvents lblBefullen As System.Windows.Forms.Label + Friend WithEvents MyComboBox1 As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents lblWegZeit As Label + Friend WithEvents lblWegstrecke As Label + Friend WithEvents Button1 As Button + Friend WithEvents lblWegstreckeVonNach As Label +End Class diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Adressen.resx b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Adressen.resx new file mode 100644 index 00000000..1af7de15 --- /dev/null +++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Adressen.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Adressen.vb b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Adressen.vb new file mode 100644 index 00000000..5f85a371 --- /dev/null +++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Adressen.vb @@ -0,0 +1,451 @@ +Public Class usrCntlATLAS_NCTS004_Adressen + ' Dim OWNER As Control + Dim ncts_OUT As DAKOSY_Worker.cDakosyNCTSOut004 = Nothing + Dim NCTS_TR As VERAG_PROG_ALLGEMEIN.cNCTS_TR = Nothing + 'Sub New(OWNER As Control, ncts_OUT As DAKOSY_Worker.cDakosyNCTSOut) + Dim FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Sub New(ncts_OUT As DAKOSY_Worker.cDakosyNCTSOut004, FIRMA_DY As String) + InitializeComponent() + 'Me.OWNER = OWNER + Me.ncts_OUT = ncts_OUT + Me.FIRMA_DY = FIRMA_DY + End Sub + + Sub New(NCTS_TR As VERAG_PROG_ALLGEMEIN.cNCTS_TR, FIRMA_DY As String) + InitializeComponent() + 'Me.OWNER = OWNER + Me.NCTS_TR = NCTS_TR + Me.FIRMA_DY = FIRMA_DY + End Sub + + Public Sub usrCntlATLAS_ncts_Adressen_Load(sender As Object, e As EventArgs) Handles Me.Load + ' usrCntlSumA_Befoerderer.initME() + MyComboBox1.Items.Clear() + Select Case FIRMA_DY + Case "UNISPED" + MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Unisped Speditions GMBH (AT)", "UNISPED_AT")) + MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Unisped Speditions GMBH (DE)", "UNISPED_DE")) + MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EKOL Sultanbeyli -Istanbul", "EKOL")) + MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("MARS Istanbul", "MARS")) + MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SGS Hamburg", "SGS")) + MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TOBB Ankara", "TOBB")) + Case Else + MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG Spedition GMBH", "VERAG_GMBH")) + MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG Spedition AG", "VERAG_AG")) + ' MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA", "ATILLA")) + MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EKOL Sultanbeyli -Istanbul", "EKOL")) + MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("MARS Istanbul", "MARS")) + MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SGS Hamburg", "SGS")) + MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TOBB Ankara", "TOBB")) + End Select + + End Sub + + + Public Sub getValues(ByRef NCTS As DAKOSY_Worker.cDakosyNCTSOut004) + + NCTS.ncts_HolderOfTheTransitProcedure_Name = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.kdFirma.Text) + NCTS.ncts_HolderOfTheTransitProcedure_StreetNumber = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.txtStrasse.Text) + NCTS.ncts_HolderOfTheTransitProcedure_Postcode = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.txtPlz.Text) + NCTS.ncts_HolderOfTheTransitProcedure_City = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.txtOrt.Text) + NCTS.ncts_HolderOfTheTransitProcedure_Country = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.sbLand._value) + NCTS.ncts_HolderOfTheTransitProcedure_IdentificationNumber = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.txtEORI.Text) + + + + NCTS.ncts_Consignor_Name = cProgramFunctions.isLeerNothing(usrCntlVersender.kdFirma.Text) + NCTS.ncts_Consignor_StreetNumber = cProgramFunctions.isLeerNothing(usrCntlVersender.txtStrasse.Text) + NCTS.ncts_Consignor_Postcode = cProgramFunctions.isLeerNothing(usrCntlVersender.txtPlz.Text) + NCTS.ncts_Consignor_City = cProgramFunctions.isLeerNothing(usrCntlVersender.txtOrt.Text) + NCTS.ncts_Consignor_Country = cProgramFunctions.isLeerNothing(usrCntlVersender.sbLand._value) + NCTS.ncts_Consignor_IdentificationNumber = cProgramFunctions.isLeerNothing(usrCntlVersender.txtEORI.Text) + NCTS.ncts_Consignor_SubsidiaryNumber = cProgramFunctions.isLeerNothing(usrCntlVersender.txtEORINL.Text) + 'NCTS.ncts_Versender_TIN = cProgramFunctions.isLeerNothing(usrCntlVersender..Text) + + + NCTS.ncts_Consignee_Name = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.kdFirma.Text) + NCTS.ncts_Consignee_StreetNumber = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.txtStrasse.Text) + NCTS.ncts_Consignee_Postcode = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.txtPlz.Text) + NCTS.ncts_Consignee_City = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.txtOrt.Text) + NCTS.ncts_Consignee_Country = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.sbLand._value) + NCTS.ncts_Consignee_IdentificationNumber = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.txtEORI.Text) + NCTS.ncts_Consignee_SubsidiaryNumber = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.txtEORINL.Text) + 'NCTS.ncts_ZugelassenerEmpfaenger_EORI = cProgramFunctions.isLeerNothing(usrCntlZugelEmpfaenger.txtEORI.Text) + ' MsgBox(NCTS.ncts_ZugelassenerEmpfaenger_EORI) + 'SumA: Beförderer + '-------------------------------- + + 'NCTS.ncts_Carrier_IdentificationNumber = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.kdFirma.Text) + 'NCTS.ncts_SumA_Befoerderer_StrasseHausnummer = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtStrasse.Text) + 'NCTS.ncts_SumA_Befoerderer_PLZ = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtPlz.Text) + 'NCTS.ncts_SumA_Befoerderer_Ort = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtOrt.Text) + 'NCTS.ncts_SumA_Befoerderer_Land = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.sbLand._value) + NCTS.ncts_Carrier_IdentificationNumber = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtEORI.Text) + NCTS.ncts_Carrier_SubsidiaryNumber = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtEORINL.Text) + + 'If cbxSumABeforderer.Checked Then + ' NCTS.ncts_SumA_Empfaenger_Name = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.kdFirma.Text) + ' NCTS.ncts_SumA_Empfaenger_StrasseHausnummer = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtStrasse.Text) + ' NCTS.ncts_SumA_Empfaenger_PLZ = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtPlz.Text) + ' NCTS.ncts_SumA_Empfaenger_Ort = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtOrt.Text) + ' NCTS.ncts_SumA_Empfaenger_Land = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.sbLand._value) + ' NCTS.ncts_SumA_Empfaenger_EORI = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtEORI.Text) + ' NCTS.ncts_SumA_Empfaenger_NLNR = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtEORINL.Text) + + ' NCTS.ncts_SumA_Versender_Name = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.kdFirma.Text) + ' NCTS.ncts_SumA_Versender_StrasseHausnummer = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtStrasse.Text) + ' NCTS.ncts_SumA_Versender_PLZ = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtPlz.Text) + ' NCTS.ncts_SumA_Versender_Ort = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtOrt.Text) + ' NCTS.ncts_SumA_Versender_Land = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.sbLand._value) + ' NCTS.ncts_SumA_Versender_EORI = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtEORI.Text) + ' NCTS.ncts_SumA_Versender_NLNR = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtEORINL.Text) + 'Else + ' NCTS.ncts_SumA_Empfaenger_Name = cProgramFunctions.isLeerNothing(usrCntlSumA_Empfaenger.kdFirma.Text) + ' NCTS.ncts_SumA_Empfaenger_StrasseHausnummer = cProgramFunctions.isLeerNothing(usrCntlSumA_Empfaenger.txtStrasse.Text) + ' NCTS.ncts_SumA_Empfaenger_PLZ = cProgramFunctions.isLeerNothing(usrCntlSumA_Empfaenger.txtPlz.Text) + ' NCTS.ncts_SumA_Empfaenger_Ort = cProgramFunctions.isLeerNothing(usrCntlSumA_Empfaenger.txtOrt.Text) + ' NCTS.ncts_SumA_Empfaenger_Land = cProgramFunctions.isLeerNothing(usrCntlSumA_Empfaenger.sbLand._value) + ' NCTS.ncts_SumA_Empfaenger_EORI = cProgramFunctions.isLeerNothing(usrCntlSumA_Empfaenger.txtEORI.Text) + ' NCTS.ncts_SumA_Empfaenger_NLNR = cProgramFunctions.isLeerNothing(usrCntlSumA_Empfaenger.txtEORINL.Text) + + ' NCTS.ncts_SumA_Versender_Name = cProgramFunctions.isLeerNothing(usrCntlSumA_Versender.kdFirma.Text) + ' NCTS.ncts_SumA_Versender_StrasseHausnummer = cProgramFunctions.isLeerNothing(usrCntlSumA_Versender.txtStrasse.Text) + ' NCTS.ncts_SumA_Versender_PLZ = cProgramFunctions.isLeerNothing(usrCntlSumA_Versender.txtPlz.Text) + ' NCTS.ncts_SumA_Versender_Ort = cProgramFunctions.isLeerNothing(usrCntlSumA_Versender.txtOrt.Text) + ' NCTS.ncts_SumA_Versender_Land = cProgramFunctions.isLeerNothing(usrCntlSumA_Versender.sbLand._value) + ' NCTS.ncts_SumA_Versender_EORI = cProgramFunctions.isLeerNothing(usrCntlSumA_Versender.txtEORI.Text) + ' NCTS.ncts_SumA_Versender_NLNR = cProgramFunctions.isLeerNothing(usrCntlSumA_Versender.txtEORINL.Text) + + 'End If + End Sub + + + Public Sub setValues(NCTS As DAKOSY_Worker.cDakosyNCTSOut004) + + 'usrCntlSumA_Befoerderer.initME() + If NCTS Is Nothing Then Exit Sub + + + usrCntlHauptverpflichteter.kdFirma.Text = NCTS.ncts_HolderOfTheTransitProcedure_Name + usrCntlHauptverpflichteter.txtStrasse.Text = NCTS.ncts_HolderOfTheTransitProcedure_StreetNumber + usrCntlHauptverpflichteter.txtPlz.Text = NCTS.ncts_HolderOfTheTransitProcedure_Postcode + usrCntlHauptverpflichteter.txtOrt.Text = NCTS.ncts_HolderOfTheTransitProcedure_City + usrCntlHauptverpflichteter.txtEORI.Text = NCTS.ncts_HolderOfTheTransitProcedure_IdentificationNumber + 'usrCntlHauptverpflichteter.txtEORINL.Text = NCTS.ncts_HolderOfTheTransitProcedure_su + usrCntlHauptverpflichteter.sbLand.SET_VALUE(NCTS.ncts_HolderOfTheTransitProcedure_Country) + + 'usrCntlZugelEmpfaenger.txtEORI.Text = NCTS.ncts_ZugelassenerEmpfaenger_EORI + 'usrCntlHauptverpflichteter.txtAnsprechpartner.Text=NCTS.ncts_Hauptverpflichteter_Ansprechpartner ' git es nicht + + usrCntlVersender.kdFirma.Text = NCTS.ncts_Consignor_Name + usrCntlVersender.txtStrasse.Text = NCTS.ncts_Consignor_StreetNumber + usrCntlVersender.txtPlz.Text = NCTS.ncts_Consignor_Postcode + usrCntlVersender.txtOrt.Text = NCTS.ncts_Consignor_City + usrCntlVersender.txtEORI.Text = NCTS.ncts_Consignor_IdentificationNumber + usrCntlVersender.txtEORINL.Text = NCTS.ncts_Consignor_SubsidiaryNumber + usrCntlVersender.sbLand.SET_VALUE(NCTS.ncts_Consignor_Country) + 'usrCntlVersender.txtAnsprechpartner.Text=NCTS.ncts_Versender_Ansprechpartner ' git es nicht + + usrCntlEmpfaenger.kdFirma.Text = NCTS.ncts_Consignee_Name + usrCntlEmpfaenger.txtStrasse.Text = NCTS.ncts_Consignee_StreetNumber + usrCntlEmpfaenger.txtPlz.Text = NCTS.ncts_Consignee_Postcode + usrCntlEmpfaenger.txtOrt.Text = NCTS.ncts_Consignee_City + usrCntlEmpfaenger.txtEORI.Text = NCTS.ncts_Consignee_IdentificationNumber + usrCntlEmpfaenger.txtEORINL.Text = NCTS.ncts_Consignee_SubsidiaryNumber + usrCntlEmpfaenger.sbLand.SET_VALUE(NCTS.ncts_Consignee_Country) + 'usrCntlEmpfaenger.txtAnsprechpartner.Text=NCTS.ncts_Empfaenger_Ansprechpartner ' git es nicht + + ' usrCntlHauptverpflichteter.txtEORI.Text = NCTS.ncts_ZugelassenerEmpfaenger_EORI + 'usrCntlHauptverpflichteter.txtEORINL.Text = NCTS.ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender + 'usrCntlHauptverpflichteter.sbLand.SET_VALUE(NCTS.ncts_Hauptverpflichteter_Land) + 'usrCntlHauptverpflichteter.txtAnsprechpartner.Text=NCTS.ncts_Hauptverpflichteter_Ansprechpartner ' git es nicht + + 'usrCntlSumA_Befoerderer.kdFirma.Text = NCTS.ncts_SumA_Befoerderer_Name + 'usrCntlSumA_Befoerderer.txtStrasse.Text = NCTS.ncts_SumA_Befoerderer_StrasseHausnummer + 'usrCntlSumA_Befoerderer.txtPlz.Text = NCTS.ncts_SumA_Befoerderer_PLZ + 'usrCntlSumA_Befoerderer.txtOrt.Text = NCTS.ncts_SumA_Befoerderer_Ort + usrCntlSumA_Befoerderer.txtEORI.Text = NCTS.ncts_Carrier_IdentificationNumber + usrCntlSumA_Befoerderer.txtEORINL.Text = NCTS.ncts_Carrier_SubsidiaryNumber + 'usrCntlSumA_Befoerderer.sbLand.SET_VALUE(NCTS.ncts_SumA_Befoerderer_Land) + 'usrCntlSumA_Befoerderer.txtAnsprechpartner.Text=NCTS.ncts_SumA_Befoerderer_Ansprechpartner ' git es nicht + + End Sub + 'Public Sub setValues(NCTS As DAKOSY_Worker.cDakosyNCTSOut004) + + ' 'usrCntlSumA_Befoerderer.initME() + ' If NCTS Is Nothing Then Exit Sub + + + ' usrCntlHauptverpflichteter.kdFirma.Text = NCTS.ncts_HolderOfTheTransitProcedure_Name + ' usrCntlHauptverpflichteter.txtStrasse.Text = NCTS.ncts_HolderOfTheTransitProcedure_StreetNumber + ' usrCntlHauptverpflichteter.txtPlz.Text = NCTS.ncts_HolderOfTheTransitProcedure_Postcode + ' usrCntlHauptverpflichteter.txtOrt.Text = NCTS.ncts_HolderOfTheTransitProcedure_City + ' usrCntlHauptverpflichteter.txtEORI.Text = NCTS.ncts_HolderOfTheTransitProcedure_IdentificationNumber + ' 'usrCntlHauptverpflichteter.txtEORINL.Text = NCTS.ncts_HolderOfTheTransitProcedure_su + ' usrCntlHauptverpflichteter.sbLand.SET_VALUE(NCTS.ncts_HolderOfTheTransitProcedure_Country) + + ' 'usrCntlZugelEmpfaenger.txtEORI.Text = NCTS.ncts_ZugelassenerEmpfaenger_EORI + ' 'usrCntlHauptverpflichteter.txtAnsprechpartner.Text=NCTS.ncts_Hauptverpflichteter_Ansprechpartner ' git es nicht + + ' usrCntlVersender.kdFirma.Text = NCTS.ncts_Consignor_Name + ' usrCntlVersender.txtStrasse.Text = NCTS.ncts_Consignor_StreetNumber + ' usrCntlVersender.txtPlz.Text = NCTS.ncts_Consignor_Postcode + ' usrCntlVersender.txtOrt.Text = NCTS.ncts_Consignor_City + ' usrCntlVersender.txtEORI.Text = NCTS.ncts_Consignor_IdentificationNumber + ' usrCntlVersender.txtEORINL.Text = NCTS.ncts_Consignor_SubsidiaryNumber + ' usrCntlVersender.sbLand.SET_VALUE(NCTS.ncts_Consignor_Country) + ' 'usrCntlVersender.txtAnsprechpartner.Text=NCTS.ncts_Versender_Ansprechpartner ' git es nicht + + ' usrCntlEmpfaenger.kdFirma.Text = NCTS.ncts_Consignee_Name + ' usrCntlEmpfaenger.txtStrasse.Text = NCTS.ncts_Consignee_StreetNumber + ' usrCntlEmpfaenger.txtPlz.Text = NCTS.ncts_Consignee_Postcode + ' usrCntlEmpfaenger.txtOrt.Text = NCTS.ncts_Consignee_City + ' usrCntlEmpfaenger.txtEORI.Text = NCTS.ncts_Consignee_IdentificationNumber + ' usrCntlEmpfaenger.txtEORINL.Text = NCTS.ncts_Consignee_SubsidiaryNumber + ' usrCntlEmpfaenger.sbLand.SET_VALUE(NCTS.ncts_Consignee_Country) + ' 'usrCntlEmpfaenger.txtAnsprechpartner.Text=NCTS.ncts_Empfaenger_Ansprechpartner ' git es nicht + + ' ' usrCntlHauptverpflichteter.txtEORI.Text = NCTS.ncts_ZugelassenerEmpfaenger_EORI + ' 'usrCntlHauptverpflichteter.txtEORINL.Text = NCTS.ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender + ' 'usrCntlHauptverpflichteter.sbLand.SET_VALUE(NCTS.ncts_Hauptverpflichteter_Land) + ' 'usrCntlHauptverpflichteter.txtAnsprechpartner.Text=NCTS.ncts_Hauptverpflichteter_Ansprechpartner ' git es nicht + + ' 'usrCntlSumA_Befoerderer.kdFirma.Text = NCTS.ncts_Carrier_AdressCode + ' 'usrCntlSumA_Befoerderer.txtStrasse.Text = NCTS.ncts_SumA_Befoerderer_StrasseHausnummer + ' 'usrCntlSumA_Befoerderer.txtPlz.Text = NCTS.ncts_SumA_Befoerderer_PLZ + ' 'usrCntlSumA_Befoerderer.txtOrt.Text = NCTS.ncts_SumA_Befoerderer_Ort + ' usrCntlSumA_Befoerderer.txtEORI.Text = NCTS.ncts_Carrier_IdentificationNumber + ' usrCntlSumA_Befoerderer.txtEORINL.Text = NCTS.ncts_Carrier_SubsidiaryNumber + ' 'usrCntlSumA_Befoerderer.sbLand.SET_VALUE(NCTS.ncts_SumA_Befoerderer_Land) + ' 'usrCntlSumA_Befoerderer.txtAnsprechpartner.Text=NCTS.ncts_SumA_Befoerderer_Ansprechpartner ' git es nicht + + 'End Sub + + 'Public Sub getValues_TR(ByRef NCTS As VERAG_PROG_ALLGEMEIN.cNCTS_TR) + + ' NCTS.ncts_Hauptverpflichteter_Name = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.kdFirma.Text) + ' NCTS.ncts_Hauptverpflichteter_StrasseHausnummer = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.txtStrasse.Text) + ' NCTS.ncts_Hauptverpflichteter_PLZ = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.txtPlz.Text) + ' NCTS.ncts_Hauptverpflichteter_Ort = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.txtOrt.Text) + ' NCTS.ncts_Hauptverpflichteter_Land = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.sbLand._value) + ' NCTS.ncts_Hauptverpflichteter_EORI = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.txtEORI.Text) + ' NCTS.ncts_Hauptverpflichteter_NLNR = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.txtEORINL.Text) + + + ' NCTS.ncts_Versender_Name = cProgramFunctions.isLeerNothing(usrCntlVersender.kdFirma.Text) + ' NCTS.ncts_Versender_StrasseHausnummer = cProgramFunctions.isLeerNothing(usrCntlVersender.txtStrasse.Text) + ' NCTS.ncts_Versender_PLZ = cProgramFunctions.isLeerNothing(usrCntlVersender.txtPlz.Text) + ' NCTS.ncts_Versender_Ort = cProgramFunctions.isLeerNothing(usrCntlVersender.txtOrt.Text) + ' NCTS.ncts_Versender_Land = cProgramFunctions.isLeerNothing(usrCntlVersender.sbLand._value) + ' NCTS.ncts_Versender_EORI = cProgramFunctions.isLeerNothing(usrCntlVersender.txtEORI.Text) + ' NCTS.ncts_Versender_NLNR = cProgramFunctions.isLeerNothing(usrCntlVersender.txtEORINL.Text) + ' 'NCTS.ncts_Versender_TIN = cProgramFunctions.isLeerNothing(usrCntlVersender..Text) + + + ' NCTS.ncts_Empfaenger_Name = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.kdFirma.Text) + ' NCTS.ncts_Empfaenger_StrasseHausnummer = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.txtStrasse.Text) + ' NCTS.ncts_Empfaenger_PLZ = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.txtPlz.Text) + ' NCTS.ncts_Empfaenger_Ort = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.txtOrt.Text) + ' NCTS.ncts_Empfaenger_Land = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.sbLand._value) + ' NCTS.ncts_Empfaenger_EORI = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.txtEORI.Text) + ' NCTS.ncts_Empfaenger_NLNR = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.txtEORINL.Text) + ' NCTS.ncts_ZugelassenerEmpfaenger_EORI = cProgramFunctions.isLeerNothing(usrCntlZugelEmpfaenger.txtEORI.Text) + + ' 'SumA: Beförderer + ' '-------------------------------- + + ' NCTS.ncts_SumA_Befoerderer_Name = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.kdFirma.Text) + ' NCTS.ncts_SumA_Befoerderer_StrasseHausnummer = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtStrasse.Text) + ' NCTS.ncts_SumA_Befoerderer_PLZ = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtPlz.Text) + ' NCTS.ncts_SumA_Befoerderer_Ort = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtOrt.Text) + ' NCTS.ncts_SumA_Befoerderer_Land = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.sbLand._value) + ' NCTS.ncts_SumA_Befoerderer_EORI = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtEORI.Text) + ' NCTS.ncts_SumA_Befoerderer_NLNR = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtEORINL.Text) + + ' If cbxSumABeforderer.Checked Then + ' NCTS.ncts_SumA_Empfaenger_Name = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.kdFirma.Text) + ' NCTS.ncts_SumA_Empfaenger_StrasseHausnummer = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtStrasse.Text) + ' NCTS.ncts_SumA_Empfaenger_PLZ = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtPlz.Text) + ' NCTS.ncts_SumA_Empfaenger_Ort = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtOrt.Text) + ' NCTS.ncts_SumA_Empfaenger_Land = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.sbLand._value) + ' NCTS.ncts_SumA_Empfaenger_EORI = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtEORI.Text) + ' NCTS.ncts_SumA_Empfaenger_NLNR = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtEORINL.Text) + + ' NCTS.ncts_SumA_Versender_Name = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.kdFirma.Text) + ' NCTS.ncts_SumA_Versender_StrasseHausnummer = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtStrasse.Text) + ' NCTS.ncts_SumA_Versender_PLZ = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtPlz.Text) + ' NCTS.ncts_SumA_Versender_Ort = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtOrt.Text) + ' NCTS.ncts_SumA_Versender_Land = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.sbLand._value) + ' NCTS.ncts_SumA_Versender_EORI = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtEORI.Text) + ' NCTS.ncts_SumA_Versender_NLNR = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtEORINL.Text) + ' Else + ' NCTS.ncts_SumA_Empfaenger_Name = cProgramFunctions.isLeerNothing(usrCntlSumA_Empfaenger.kdFirma.Text) + ' NCTS.ncts_SumA_Empfaenger_StrasseHausnummer = cProgramFunctions.isLeerNothing(usrCntlSumA_Empfaenger.txtStrasse.Text) + ' NCTS.ncts_SumA_Empfaenger_PLZ = cProgramFunctions.isLeerNothing(usrCntlSumA_Empfaenger.txtPlz.Text) + ' NCTS.ncts_SumA_Empfaenger_Ort = cProgramFunctions.isLeerNothing(usrCntlSumA_Empfaenger.txtOrt.Text) + ' NCTS.ncts_SumA_Empfaenger_Land = cProgramFunctions.isLeerNothing(usrCntlSumA_Empfaenger.sbLand._value) + ' NCTS.ncts_SumA_Empfaenger_EORI = cProgramFunctions.isLeerNothing(usrCntlSumA_Empfaenger.txtEORI.Text) + ' NCTS.ncts_SumA_Empfaenger_NLNR = cProgramFunctions.isLeerNothing(usrCntlSumA_Empfaenger.txtEORINL.Text) + + ' NCTS.ncts_SumA_Versender_Name = cProgramFunctions.isLeerNothing(usrCntlSumA_Versender.kdFirma.Text) + ' NCTS.ncts_SumA_Versender_StrasseHausnummer = cProgramFunctions.isLeerNothing(usrCntlSumA_Versender.txtStrasse.Text) + ' NCTS.ncts_SumA_Versender_PLZ = cProgramFunctions.isLeerNothing(usrCntlSumA_Versender.txtPlz.Text) + ' NCTS.ncts_SumA_Versender_Ort = cProgramFunctions.isLeerNothing(usrCntlSumA_Versender.txtOrt.Text) + ' NCTS.ncts_SumA_Versender_Land = cProgramFunctions.isLeerNothing(usrCntlSumA_Versender.sbLand._value) + ' NCTS.ncts_SumA_Versender_EORI = cProgramFunctions.isLeerNothing(usrCntlSumA_Versender.txtEORI.Text) + ' NCTS.ncts_SumA_Versender_NLNR = cProgramFunctions.isLeerNothing(usrCntlSumA_Versender.txtEORINL.Text) + + ' End If + 'End Sub + + + 'Public Sub setValues_TR(NCTS As VERAG_PROG_ALLGEMEIN.cNCTS_TR) + + ' 'usrCntlSumA_Befoerderer.initME() + ' If NCTS Is Nothing Then Exit Sub + + + ' usrCntlHauptverpflichteter.kdFirma.Text = NCTS.ncts_Hauptverpflichteter_Name + ' usrCntlHauptverpflichteter.txtStrasse.Text = NCTS.ncts_Hauptverpflichteter_StrasseHausnummer + ' usrCntlHauptverpflichteter.txtPlz.Text = NCTS.ncts_Hauptverpflichteter_PLZ + ' usrCntlHauptverpflichteter.txtOrt.Text = NCTS.ncts_Hauptverpflichteter_Ort + ' usrCntlHauptverpflichteter.txtEORI.Text = NCTS.ncts_Hauptverpflichteter_EORI + ' usrCntlHauptverpflichteter.txtEORINL.Text = NCTS.ncts_Hauptverpflichteter_NLNR + ' usrCntlHauptverpflichteter.sbLand.SET_VALUE(NCTS.ncts_Hauptverpflichteter_Land) + + ' 'usrCntlHauptverpflichteter.txtAnsprechpartner.Text=NCTS.ncts_Hauptverpflichteter_Ansprechpartner ' git es nicht + + ' usrCntlVersender.kdFirma.Text = NCTS.ncts_Versender_Name + ' usrCntlVersender.txtStrasse.Text = NCTS.ncts_Versender_StrasseHausnummer + ' usrCntlVersender.txtPlz.Text = NCTS.ncts_Versender_PLZ + ' usrCntlVersender.txtOrt.Text = NCTS.ncts_Versender_Ort + ' usrCntlVersender.txtEORI.Text = NCTS.ncts_Versender_EORI + ' usrCntlVersender.txtEORINL.Text = NCTS.ncts_Versender_NLNR + ' usrCntlVersender.sbLand.SET_VALUE(NCTS.ncts_Versender_Land) + ' 'usrCntlVersender.txtAnsprechpartner.Text=NCTS.ncts_Versender_Ansprechpartner ' git es nicht + + ' usrCntlEmpfaenger.kdFirma.Text = NCTS.ncts_Empfaenger_Name + ' usrCntlEmpfaenger.txtStrasse.Text = NCTS.ncts_Empfaenger_StrasseHausnummer + ' usrCntlEmpfaenger.txtPlz.Text = NCTS.ncts_Empfaenger_PLZ + ' usrCntlEmpfaenger.txtOrt.Text = NCTS.ncts_Empfaenger_Ort + ' usrCntlEmpfaenger.txtEORI.Text = NCTS.ncts_Empfaenger_EORI + ' usrCntlEmpfaenger.txtEORINL.Text = NCTS.ncts_Empfaenger_NLNR + ' usrCntlEmpfaenger.sbLand.SET_VALUE(NCTS.ncts_Empfaenger_Land) + ' 'usrCntlEmpfaenger.txtAnsprechpartner.Text=NCTS.ncts_Empfaenger_Ansprechpartner ' git es nicht + + ' usrCntlZugelEmpfaenger.txtEORI.Text = NCTS.ncts_ZugelassenerEmpfaenger_EORI + ' 'usrCntlHauptverpflichteter.txtEORINL.Text = NCTS.ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender + ' 'usrCntlHauptverpflichteter.sbLand.SET_VALUE(NCTS.ncts_Hauptverpflichteter_Land) + ' 'usrCntlHauptverpflichteter.txtAnsprechpartner.Text=NCTS.ncts_Hauptverpflichteter_Ansprechpartner ' git es nicht + + ' usrCntlSumA_Befoerderer.kdFirma.Text = NCTS.ncts_SumA_Befoerderer_Name + ' usrCntlSumA_Befoerderer.txtStrasse.Text = NCTS.ncts_SumA_Befoerderer_StrasseHausnummer + ' usrCntlSumA_Befoerderer.txtPlz.Text = NCTS.ncts_SumA_Befoerderer_PLZ + ' usrCntlSumA_Befoerderer.txtOrt.Text = NCTS.ncts_SumA_Befoerderer_Ort + ' usrCntlSumA_Befoerderer.txtEORI.Text = NCTS.ncts_SumA_Befoerderer_EORI + ' usrCntlSumA_Befoerderer.txtEORINL.Text = NCTS.ncts_SumA_Befoerderer_NLNR + ' usrCntlSumA_Befoerderer.sbLand.SET_VALUE(NCTS.ncts_SumA_Befoerderer_Land) + ' 'usrCntlSumA_Befoerderer.txtAnsprechpartner.Text=NCTS.ncts_SumA_Befoerderer_Ansprechpartner ' git es nicht + + 'End Sub + + Private Sub cbxSumABeforderer_CheckedChanged(sender As Object, e As EventArgs) Handles cbxSumABeforderer.CheckedChanged + usrCntlSumA_Versender.Enabled = Not cbxSumABeforderer.Checked + usrCntlSumA_Empfaenger.Enabled = Not cbxSumABeforderer.Checked + If cbxSumABeforderer.Checked Then + usrCntlSumA_Versender.BackColor = Color.WhiteSmoke + usrCntlSumA_Empfaenger.BackColor = Color.WhiteSmoke + PictureBox1.Visible = False + Else + usrCntlSumA_Versender.BackColor = Color.PapayaWhip + usrCntlSumA_Empfaenger.BackColor = Color.PapayaWhip + PictureBox1.Visible = True + End If + End Sub + + Private Sub MyComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles MyComboBox1.SelectedIndexChanged + Select Case MyComboBox1._value + Case "VERAG_AG" + usrCntlHauptverpflichteter.txtEORI.Text = "ATEOS1000000199" + usrCntlHauptverpflichteter.txtEORINL.Text = "0001" + usrCntlHauptverpflichteter.kdFirma.Text = "VERAG SPEDITION AG" + usrCntlHauptverpflichteter.txtStrasse.Text = "SUBEN 14-15" + usrCntlHauptverpflichteter.txtPlz.Text = "4975" + usrCntlHauptverpflichteter.txtOrt.Text = "Suben" + usrCntlHauptverpflichteter.sbLand.SET_VALUE("AT") + Case "VERAG_GMBH" + Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(712255) ' VERAG Neuhaus + Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(712255) ' VERAG Neuhaus + usrCntlHauptverpflichteter.txtEORI.Text = "DE4824105" ' KD.EORITIN + usrCntlHauptverpflichteter.txtEORINL.Text = "0000" + usrCntlHauptverpflichteter.kdFirma.Text = (If(AD.Name_1, "") & " " & If(AD.Name_2, "")).trim + usrCntlHauptverpflichteter.txtStrasse.Text = AD.Straße + usrCntlHauptverpflichteter.txtPlz.Text = AD.PLZ + usrCntlHauptverpflichteter.txtOrt.Text = AD.Ort + usrCntlHauptverpflichteter.sbLand.SET_VALUE(cProgramFunctions.getISO2Land(AD.LandKz)) + + + Case "UNISPED_AT" + usrCntlHauptverpflichteter.txtEORI.Text = "ATEOS1000000088" + usrCntlHauptverpflichteter.txtEORINL.Text = "0000" + usrCntlHauptverpflichteter.kdFirma.Text = "UNISPED Speditions GmbH" + usrCntlHauptverpflichteter.txtStrasse.Text = "SUBEN 15" + usrCntlHauptverpflichteter.txtPlz.Text = "4975" + usrCntlHauptverpflichteter.txtOrt.Text = "Suben" + usrCntlHauptverpflichteter.sbLand.SET_VALUE("AT") + Case "UNISPED_DE" + usrCntlHauptverpflichteter.txtEORI.Text = "DE7467540" ' KD.EORITIN + usrCntlHauptverpflichteter.txtEORINL.Text = "0000" + usrCntlHauptverpflichteter.kdFirma.Text = "UNISPED Deutschland Speditions GmbH" + usrCntlHauptverpflichteter.txtStrasse.Text = "HARTHAM 6" + usrCntlHauptverpflichteter.txtPlz.Text = "94152" + usrCntlHauptverpflichteter.txtOrt.Text = "NEUHAUS AM INN" + usrCntlHauptverpflichteter.sbLand.SET_VALUE("DE") + + + Case "TOBB" + usrCntlHauptverpflichteter.txtEORI.Text = "ITTR0000000000152" + usrCntlHauptverpflichteter.txtEORINL.Text = "" + usrCntlHauptverpflichteter.kdFirma.Text = "TOBB UND Lojistik A.S." + usrCntlHauptverpflichteter.txtStrasse.Text = "Bumlupmar Bulvan Nr. 252" + usrCntlHauptverpflichteter.txtPlz.Text = "6530" + usrCntlHauptverpflichteter.txtOrt.Text = "Ankara" + usrCntlHauptverpflichteter.sbLand.SET_VALUE("TR") + Case "EKOL" + usrCntlHauptverpflichteter.txtEORI.Text = "ITTR0000000000152" + usrCntlHauptverpflichteter.txtEORINL.Text = "" + usrCntlHauptverpflichteter.kdFirma.Text = "EKOL Lojistik AS." + usrCntlHauptverpflichteter.txtStrasse.Text = "Ekol Cad. No 2" + usrCntlHauptverpflichteter.txtPlz.Text = "34935" + usrCntlHauptverpflichteter.txtOrt.Text = "Sultanbeyli -Istanbul" + usrCntlHauptverpflichteter.sbLand.SET_VALUE("TR") + Case "SGS" + usrCntlHauptverpflichteter.txtEORI.Text = "DE3331326" + usrCntlHauptverpflichteter.txtEORINL.Text = "0000" + usrCntlHauptverpflichteter.kdFirma.Text = "SGS GERMANY GmbH" + usrCntlHauptverpflichteter.txtStrasse.Text = "Rödingsmarkt 16" + usrCntlHauptverpflichteter.txtPlz.Text = "20459" + usrCntlHauptverpflichteter.txtOrt.Text = "Hamburg" + usrCntlHauptverpflichteter.sbLand.SET_VALUE("DE") + Case "MARS" + usrCntlHauptverpflichteter.txtEORI.Text = "BGKTR6120538808Z8" + usrCntlHauptverpflichteter.txtEORINL.Text = "" + usrCntlHauptverpflichteter.kdFirma.Text = "MARS LOJISTIK ULUS.TAS.DEP.DAGITIM VE TIC A.S." + usrCntlHauptverpflichteter.txtStrasse.Text = "Yenibosna Merkez Nr.21" + usrCntlHauptverpflichteter.txtPlz.Text = "00000" + usrCntlHauptverpflichteter.txtOrt.Text = "ISTANBUL" + usrCntlHauptverpflichteter.sbLand.SET_VALUE("TR") + Case Else + usrCntlHauptverpflichteter.txtEORI.Text = "" + usrCntlHauptverpflichteter.txtEORINL.Text = "" + usrCntlHauptverpflichteter.kdFirma.Text = "" + usrCntlHauptverpflichteter.txtStrasse.Text = "" + usrCntlHauptverpflichteter.txtPlz.Text = "" + usrCntlHauptverpflichteter.txtOrt.Text = "" + usrCntlHauptverpflichteter.sbLand.SET_VALUE("") + + End Select + End Sub + + +End Class diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Allg.Designer.vb b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Allg.Designer.vb new file mode 100644 index 00000000..4c0145fb --- /dev/null +++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Allg.Designer.vb @@ -0,0 +1,1528 @@ + +Partial Class usrCntlATLAS_NCTS004_Allg + Inherits System.Windows.Forms.UserControl + + 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + 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. + + Private Sub InitializeComponent() + Me.pnl = New System.Windows.Forms.Panel() + Me.cbxWegStrecke = New System.Windows.Forms.CheckBox() + Me.lblWegstreckeVonNach = New System.Windows.Forms.Label() + Me.lblWegZeit = New System.Windows.Forms.Label() + Me.lblWegstrecke = New System.Windows.Forms.Label() + Me.Button1 = New System.Windows.Forms.Button() + Me.LinkLabel1 = New System.Windows.Forms.LinkLabel() + Me.txtKennnummer = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label21 = New System.Windows.Forms.Label() + Me.cboZahlungsweiseBefKosten = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.Label20 = New System.Windows.Forms.Label() + Me.cboBesondereUmstaende = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.Label19 = New System.Windows.Forms.Label() + Me.cbxSumASicherheit = New System.Windows.Forms.CheckBox() + Me.cboArtGrenzUeberschreitung = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.Label17 = New System.Windows.Forms.Label() + Me.cboVerkehrszweig = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.Label15 = New System.Windows.Forms.Label() + Me.Label16 = New System.Windows.Forms.Label() + Me.lklRoutenauswahl = New System.Windows.Forms.LinkLabel() + Me.sbRoute5 = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.sbRoute9 = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.sbRoute8 = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.sbRoute7 = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.sbRoute6 = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.sbRoute4 = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.sbRoute3 = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.sbRoute2 = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.sbRoute1 = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.Label14 = New System.Windows.Forms.Label() + Me.pic = New System.Windows.Forms.PictureBox() + Me.txtArtDetail = New System.Windows.Forms.TextBox() + Me.Label13 = New System.Windows.Forms.Label() + Me.btnTIR = New System.Windows.Forms.Button() + Me.btnT2F = New System.Windows.Forms.Button() + Me.btnT2 = New System.Windows.Forms.Button() + Me.btnT1 = New System.Windows.Forms.Button() + Me.btnTMinus = New System.Windows.Forms.Button() + Me.txtBeladungsort = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label3 = New System.Windows.Forms.Label() + Me.txtWiedergestellungsdatum = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label2 = New System.Windows.Forms.Label() + Me.sbDurchgangszollstelle5 = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.sbDurchgangszollstelle9 = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.sbDurchgangszollstelle8 = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.sbDurchgangszollstelle7 = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.sbDurchgangszollstelle6 = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.sbDurchgangszollstelle4 = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.sbDurchgangszollstelle3 = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.sbDurchgangszollstelle2 = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.sbDurchgangszollstelle1 = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.sbBestimmungsland = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.Label11 = New System.Windows.Forms.Label() + Me.Label12 = New System.Windows.Forms.Label() + Me.sbVersendungsLand = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.sbBestimmungZollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.Label10 = New System.Windows.Forms.Label() + Me.Label9 = New System.Windows.Forms.Label() + Me.sbAbgangZollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.Label8 = New System.Windows.Forms.Label() + Me.Label18 = New System.Windows.Forms.Label() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.sbKennzeichenGrenzeLand = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.txtKennzeichenAbgang = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.sbKennzeichenAbgangLand = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.txtKennzeichenGrenze = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.PictureBox2 = New System.Windows.Forms.PictureBox() + Me.PictureBox1 = New System.Windows.Forms.PictureBox() + Me.Label4 = New System.Windows.Forms.Label() + Me.Label5 = New System.Windows.Forms.Label() + Me.Label6 = New System.Windows.Forms.Label() + Me.Label7 = New System.Windows.Forms.Label() + Me.txtLadeort = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtEntladeort = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cboVerfahrensart = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.Label22 = New System.Windows.Forms.Label() + Me.pnl.SuspendLayout() + CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() + Me.Panel1.SuspendLayout() + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'pnl + ' + Me.pnl.Controls.Add(Me.Label22) + Me.pnl.Controls.Add(Me.cboVerfahrensart) + Me.pnl.Controls.Add(Me.cbxWegStrecke) + Me.pnl.Controls.Add(Me.lblWegstreckeVonNach) + Me.pnl.Controls.Add(Me.lblWegZeit) + Me.pnl.Controls.Add(Me.lblWegstrecke) + Me.pnl.Controls.Add(Me.Button1) + Me.pnl.Controls.Add(Me.LinkLabel1) + Me.pnl.Controls.Add(Me.txtKennnummer) + Me.pnl.Controls.Add(Me.Label21) + Me.pnl.Controls.Add(Me.cboZahlungsweiseBefKosten) + Me.pnl.Controls.Add(Me.Label20) + Me.pnl.Controls.Add(Me.cboBesondereUmstaende) + Me.pnl.Controls.Add(Me.Label19) + Me.pnl.Controls.Add(Me.cbxSumASicherheit) + Me.pnl.Controls.Add(Me.cboArtGrenzUeberschreitung) + Me.pnl.Controls.Add(Me.Label17) + Me.pnl.Controls.Add(Me.cboVerkehrszweig) + Me.pnl.Controls.Add(Me.Label15) + Me.pnl.Controls.Add(Me.Label16) + Me.pnl.Controls.Add(Me.lklRoutenauswahl) + Me.pnl.Controls.Add(Me.sbRoute5) + Me.pnl.Controls.Add(Me.sbRoute9) + Me.pnl.Controls.Add(Me.sbRoute8) + Me.pnl.Controls.Add(Me.sbRoute7) + Me.pnl.Controls.Add(Me.sbRoute6) + Me.pnl.Controls.Add(Me.sbRoute4) + Me.pnl.Controls.Add(Me.sbRoute3) + Me.pnl.Controls.Add(Me.sbRoute2) + Me.pnl.Controls.Add(Me.sbRoute1) + Me.pnl.Controls.Add(Me.Label14) + Me.pnl.Controls.Add(Me.pic) + Me.pnl.Controls.Add(Me.txtArtDetail) + Me.pnl.Controls.Add(Me.Label13) + Me.pnl.Controls.Add(Me.btnTIR) + Me.pnl.Controls.Add(Me.btnT2F) + Me.pnl.Controls.Add(Me.btnT2) + Me.pnl.Controls.Add(Me.btnT1) + Me.pnl.Controls.Add(Me.btnTMinus) + Me.pnl.Controls.Add(Me.txtBeladungsort) + Me.pnl.Controls.Add(Me.Label3) + Me.pnl.Controls.Add(Me.txtWiedergestellungsdatum) + Me.pnl.Controls.Add(Me.Label2) + Me.pnl.Controls.Add(Me.sbDurchgangszollstelle5) + Me.pnl.Controls.Add(Me.sbDurchgangszollstelle9) + Me.pnl.Controls.Add(Me.sbDurchgangszollstelle8) + Me.pnl.Controls.Add(Me.sbDurchgangszollstelle7) + Me.pnl.Controls.Add(Me.sbDurchgangszollstelle6) + Me.pnl.Controls.Add(Me.sbDurchgangszollstelle4) + Me.pnl.Controls.Add(Me.sbDurchgangszollstelle3) + Me.pnl.Controls.Add(Me.sbDurchgangszollstelle2) + Me.pnl.Controls.Add(Me.sbDurchgangszollstelle1) + Me.pnl.Controls.Add(Me.Label1) + Me.pnl.Controls.Add(Me.sbBestimmungsland) + Me.pnl.Controls.Add(Me.Label11) + Me.pnl.Controls.Add(Me.Label12) + Me.pnl.Controls.Add(Me.sbVersendungsLand) + Me.pnl.Controls.Add(Me.sbBestimmungZollstelle) + Me.pnl.Controls.Add(Me.Label10) + Me.pnl.Controls.Add(Me.Label9) + Me.pnl.Controls.Add(Me.sbAbgangZollstelle) + Me.pnl.Controls.Add(Me.Label8) + Me.pnl.Controls.Add(Me.Label18) + Me.pnl.Controls.Add(Me.Panel1) + Me.pnl.Controls.Add(Me.txtLadeort) + Me.pnl.Controls.Add(Me.txtEntladeort) + 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(930, 503) + Me.pnl.TabIndex = 0 + ' + 'cbxWegStrecke + ' + Me.cbxWegStrecke.AutoSize = True + Me.cbxWegStrecke.Checked = True + Me.cbxWegStrecke.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxWegStrecke.Location = New System.Drawing.Point(865, 177) + Me.cbxWegStrecke.Name = "cbxWegStrecke" + Me.cbxWegStrecke.Size = New System.Drawing.Size(50, 17) + Me.cbxWegStrecke.TabIndex = 63 + Me.cbxWegStrecke.Text = "LKW" + Me.cbxWegStrecke.UseVisualStyleBackColor = True + ' + 'lblWegstreckeVonNach + ' + Me.lblWegstreckeVonNach.Location = New System.Drawing.Point(719, 47) + Me.lblWegstreckeVonNach.Name = "lblWegstreckeVonNach" + Me.lblWegstreckeVonNach.Size = New System.Drawing.Size(119, 29) + Me.lblWegstreckeVonNach.TabIndex = 62 + Me.lblWegstreckeVonNach.Visible = False + ' + 'lblWegZeit + ' + Me.lblWegZeit.AutoSize = True + Me.lblWegZeit.Location = New System.Drawing.Point(719, 213) + Me.lblWegZeit.Name = "lblWegZeit" + Me.lblWegZeit.Size = New System.Drawing.Size(10, 13) + Me.lblWegZeit.TabIndex = 61 + Me.lblWegZeit.Text = "-" + ' + 'lblWegstrecke + ' + Me.lblWegstrecke.AutoSize = True + Me.lblWegstrecke.Location = New System.Drawing.Point(719, 198) + Me.lblWegstrecke.Name = "lblWegstrecke" + Me.lblWegstrecke.Size = New System.Drawing.Size(10, 13) + Me.lblWegstrecke.TabIndex = 60 + Me.lblWegstrecke.Text = "-" + ' + 'Button1 + ' + Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button1.Location = New System.Drawing.Point(722, 174) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(137, 21) + Me.Button1.TabIndex = 59 + Me.Button1.Text = "Strecke berechnen" + Me.Button1.UseVisualStyleBackColor = True + ' + 'LinkLabel1 + ' + Me.LinkLabel1.AutoSize = True + Me.LinkLabel1.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.LinkLabel1.Location = New System.Drawing.Point(719, 327) + Me.LinkLabel1.Name = "LinkLabel1" + Me.LinkLabel1.Size = New System.Drawing.Size(115, 13) + Me.LinkLabel1.TabIndex = 37 + Me.LinkLabel1.TabStop = True + Me.LinkLabel1.Text = "=Abgang Kennz./Land" + ' + 'txtKennnummer + ' + Me.txtKennnummer._DateTimeOnly = False + Me.txtKennnummer._numbersOnly = False + Me.txtKennnummer._numbersOnlyKommastellen = "" + Me.txtKennnummer._numbersOnlyTrennzeichen = True + Me.txtKennnummer._Prozent = False + Me.txtKennnummer._ShortDateNew = False + Me.txtKennnummer._ShortDateOnly = False + Me.txtKennnummer._TimeOnly = False + Me.txtKennnummer._TimeOnly_Seconds = False + Me.txtKennnummer._value = Nothing + Me.txtKennnummer._Waehrung = False + Me.txtKennnummer._WaehrungZeichen = True + Me.txtKennnummer.ForeColor = System.Drawing.Color.Black + Me.txtKennnummer.Location = New System.Drawing.Point(694, 460) + Me.txtKennnummer.MaxLength = 70 + Me.txtKennnummer.MaxLineLength = -1 + Me.txtKennnummer.MaxLines_Warning = "" + Me.txtKennnummer.MaxLines_Warning_Label = Nothing + Me.txtKennnummer.Name = "txtKennnummer" + Me.txtKennnummer.Size = New System.Drawing.Size(214, 20) + Me.txtKennnummer.TabIndex = 56 + ' + 'Label21 + ' + Me.Label21.Location = New System.Drawing.Point(553, 463) + Me.Label21.Name = "Label21" + Me.Label21.Size = New System.Drawing.Size(135, 13) + Me.Label21.TabIndex = 55 + Me.Label21.Text = "SumA Kennummer" + Me.Label21.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'cboZahlungsweiseBefKosten + ' + Me.cboZahlungsweiseBefKosten._allowedValuesFreiText = Nothing + Me.cboZahlungsweiseBefKosten._allowFreiText = False + Me.cboZahlungsweiseBefKosten._value = "" + Me.cboZahlungsweiseBefKosten.DropDownWidth = 350 + Me.cboZahlungsweiseBefKosten.FormattingEnabled = True + Me.cboZahlungsweiseBefKosten.Location = New System.Drawing.Point(145, 479) + Me.cboZahlungsweiseBefKosten.Name = "cboZahlungsweiseBefKosten" + Me.cboZahlungsweiseBefKosten.Size = New System.Drawing.Size(211, 21) + Me.cboZahlungsweiseBefKosten.TabIndex = 58 + ' + 'Label20 + ' + Me.Label20.Location = New System.Drawing.Point(-28, 482) + Me.Label20.Name = "Label20" + Me.Label20.Size = New System.Drawing.Size(167, 13) + Me.Label20.TabIndex = 57 + Me.Label20.Text = "Zahlungsw. Befd.Kosten:" + Me.Label20.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'cboBesondereUmstaende + ' + Me.cboBesondereUmstaende._allowedValuesFreiText = Nothing + Me.cboBesondereUmstaende._allowFreiText = False + Me.cboBesondereUmstaende._value = "" + Me.cboBesondereUmstaende.DropDownWidth = 350 + Me.cboBesondereUmstaende.FormattingEnabled = True + Me.cboBesondereUmstaende.Location = New System.Drawing.Point(145, 460) + Me.cboBesondereUmstaende.Name = "cboBesondereUmstaende" + Me.cboBesondereUmstaende.Size = New System.Drawing.Size(211, 21) + Me.cboBesondereUmstaende.TabIndex = 54 + ' + 'Label19 + ' + Me.Label19.Location = New System.Drawing.Point(4, 463) + Me.Label19.Name = "Label19" + Me.Label19.Size = New System.Drawing.Size(135, 13) + Me.Label19.TabIndex = 53 + Me.Label19.Text = "Besondere Umstände:" + Me.Label19.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'cbxSumASicherheit + ' + Me.cbxSumASicherheit.AutoSize = True + Me.cbxSumASicherheit.Checked = True + Me.cbxSumASicherheit.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxSumASicherheit.Location = New System.Drawing.Point(15, 105) + Me.cbxSumASicherheit.Name = "cbxSumASicherheit" + Me.cbxSumASicherheit.Size = New System.Drawing.Size(104, 17) + Me.cbxSumASicherheit.TabIndex = 9 + Me.cbxSumASicherheit.Text = "SumA Sicherheit" + Me.cbxSumASicherheit.UseVisualStyleBackColor = True + ' + 'cboArtGrenzUeberschreitung + ' + Me.cboArtGrenzUeberschreitung._allowedValuesFreiText = Nothing + Me.cboArtGrenzUeberschreitung._allowFreiText = False + Me.cboArtGrenzUeberschreitung._value = "" + Me.cboArtGrenzUeberschreitung.DropDownWidth = 350 + Me.cboArtGrenzUeberschreitung.FormattingEnabled = True + Me.cboArtGrenzUeberschreitung.Location = New System.Drawing.Point(315, 325) + Me.cboArtGrenzUeberschreitung.Name = "cboArtGrenzUeberschreitung" + Me.cboArtGrenzUeberschreitung.Size = New System.Drawing.Size(41, 21) + Me.cboArtGrenzUeberschreitung.TabIndex = 41 + ' + 'Label17 + ' + Me.Label17.Location = New System.Drawing.Point(1, 328) + Me.Label17.Name = "Label17" + Me.Label17.Size = New System.Drawing.Size(135, 13) + Me.Label17.TabIndex = 38 + Me.Label17.Text = "Verkehrszweig:" + Me.Label17.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'cboVerkehrszweig + ' + Me.cboVerkehrszweig._allowedValuesFreiText = Nothing + Me.cboVerkehrszweig._allowFreiText = False + Me.cboVerkehrszweig._value = "" + Me.cboVerkehrszweig.DropDownWidth = 350 + Me.cboVerkehrszweig.FormattingEnabled = True + Me.cboVerkehrszweig.Location = New System.Drawing.Point(142, 325) + Me.cboVerkehrszweig.Name = "cboVerkehrszweig" + Me.cboVerkehrszweig.Size = New System.Drawing.Size(140, 21) + Me.cboVerkehrszweig.TabIndex = 39 + ' + 'Label15 + ' + Me.Label15.Location = New System.Drawing.Point(553, 290) + Me.Label15.Name = "Label15" + Me.Label15.Size = New System.Drawing.Size(135, 13) + Me.Label15.TabIndex = 34 + Me.Label15.Text = "Entladeort:" + Me.Label15.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'Label16 + ' + Me.Label16.Location = New System.Drawing.Point(1, 290) + Me.Label16.Name = "Label16" + Me.Label16.Size = New System.Drawing.Size(135, 13) + Me.Label16.TabIndex = 32 + Me.Label16.Text = "Ladeort:" + Me.Label16.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'lklRoutenauswahl + ' + Me.lklRoutenauswahl.AutoSize = True + Me.lklRoutenauswahl.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.lklRoutenauswahl.Location = New System.Drawing.Point(625, 372) + Me.lklRoutenauswahl.Name = "lklRoutenauswahl" + Me.lklRoutenauswahl.Size = New System.Drawing.Size(81, 13) + Me.lklRoutenauswahl.TabIndex = 43 + Me.lklRoutenauswahl.TabStop = True + Me.lklRoutenauswahl.Text = "Routenauswahl" + ' + 'sbRoute5 + ' + Me.sbRoute5._allowFreitext = False + Me.sbRoute5._AllowSetValue = False + Me.sbRoute5._allowSpaceAsSplitter = False + Me.sbRoute5._autoSizeGross = False + Me.sbRoute5._hideIfListEmpty = True + Me.sbRoute5._value = "" + Me.sbRoute5.conn_art = "FMZOLL" + Me.sbRoute5.dgvpos = "LEFT" + Me.sbRoute5.DISPLAY_PARAM = Nothing + Me.sbRoute5.INVISIBLE_COLUMNS = Nothing + Me.sbRoute5.key_visible = False + Me.sbRoute5.KEYPARAM = Nothing + Me.sbRoute5.Location = New System.Drawing.Point(399, 407) + Me.sbRoute5.Name = "sbRoute5" + Me.sbRoute5.searchActive = True + Me.sbRoute5.Size = New System.Drawing.Size(154, 20) + Me.sbRoute5.SQL_ORDER_BY = Nothing + Me.sbRoute5.SQL_SELECT = Nothing + Me.sbRoute5.SQL_WHERE = Nothing + Me.sbRoute5.SQL_WhereParamList = Nothing + Me.sbRoute5.TabIndex = 48 + Me.sbRoute5.usrcntl = Nothing + ' + 'sbRoute9 + ' + Me.sbRoute9._allowFreitext = False + Me.sbRoute9._AllowSetValue = False + Me.sbRoute9._allowSpaceAsSplitter = False + Me.sbRoute9._autoSizeGross = False + Me.sbRoute9._hideIfListEmpty = True + Me.sbRoute9._value = "" + Me.sbRoute9.conn_art = "FMZOLL" + Me.sbRoute9.dgvpos = "LEFT" + Me.sbRoute9.DISPLAY_PARAM = Nothing + Me.sbRoute9.INVISIBLE_COLUMNS = Nothing + Me.sbRoute9.key_visible = False + Me.sbRoute9.KEYPARAM = Nothing + Me.sbRoute9.Location = New System.Drawing.Point(552, 426) + Me.sbRoute9.Name = "sbRoute9" + Me.sbRoute9.searchActive = True + Me.sbRoute9.Size = New System.Drawing.Size(154, 20) + Me.sbRoute9.SQL_ORDER_BY = Nothing + Me.sbRoute9.SQL_SELECT = Nothing + Me.sbRoute9.SQL_WHERE = Nothing + Me.sbRoute9.SQL_WhereParamList = Nothing + Me.sbRoute9.TabIndex = 52 + Me.sbRoute9.usrcntl = Nothing + ' + 'sbRoute8 + ' + Me.sbRoute8._allowFreitext = False + Me.sbRoute8._AllowSetValue = False + Me.sbRoute8._allowSpaceAsSplitter = False + Me.sbRoute8._autoSizeGross = False + Me.sbRoute8._hideIfListEmpty = True + Me.sbRoute8._value = "" + Me.sbRoute8.conn_art = "FMZOLL" + Me.sbRoute8.dgvpos = "LEFT" + Me.sbRoute8.DISPLAY_PARAM = Nothing + Me.sbRoute8.INVISIBLE_COLUMNS = Nothing + Me.sbRoute8.key_visible = False + Me.sbRoute8.KEYPARAM = Nothing + Me.sbRoute8.Location = New System.Drawing.Point(399, 426) + Me.sbRoute8.Name = "sbRoute8" + Me.sbRoute8.searchActive = True + Me.sbRoute8.Size = New System.Drawing.Size(154, 20) + Me.sbRoute8.SQL_ORDER_BY = Nothing + Me.sbRoute8.SQL_SELECT = Nothing + Me.sbRoute8.SQL_WHERE = Nothing + Me.sbRoute8.SQL_WhereParamList = Nothing + Me.sbRoute8.TabIndex = 51 + Me.sbRoute8.usrcntl = Nothing + ' + 'sbRoute7 + ' + Me.sbRoute7._allowFreitext = False + Me.sbRoute7._AllowSetValue = False + Me.sbRoute7._allowSpaceAsSplitter = False + Me.sbRoute7._autoSizeGross = False + Me.sbRoute7._hideIfListEmpty = True + Me.sbRoute7._value = "" + Me.sbRoute7.conn_art = "FMZOLL" + Me.sbRoute7.dgvpos = "LEFT" + Me.sbRoute7.DISPLAY_PARAM = Nothing + Me.sbRoute7.INVISIBLE_COLUMNS = Nothing + Me.sbRoute7.key_visible = False + Me.sbRoute7.KEYPARAM = Nothing + Me.sbRoute7.Location = New System.Drawing.Point(246, 426) + Me.sbRoute7.Name = "sbRoute7" + Me.sbRoute7.searchActive = True + Me.sbRoute7.Size = New System.Drawing.Size(154, 20) + Me.sbRoute7.SQL_ORDER_BY = Nothing + Me.sbRoute7.SQL_SELECT = Nothing + Me.sbRoute7.SQL_WHERE = Nothing + Me.sbRoute7.SQL_WhereParamList = Nothing + Me.sbRoute7.TabIndex = 50 + Me.sbRoute7.usrcntl = Nothing + ' + 'sbRoute6 + ' + Me.sbRoute6._allowFreitext = False + Me.sbRoute6._AllowSetValue = False + Me.sbRoute6._allowSpaceAsSplitter = False + Me.sbRoute6._autoSizeGross = False + Me.sbRoute6._hideIfListEmpty = True + Me.sbRoute6._value = "" + Me.sbRoute6.conn_art = "FMZOLL" + Me.sbRoute6.dgvpos = "LEFT" + Me.sbRoute6.DISPLAY_PARAM = Nothing + Me.sbRoute6.INVISIBLE_COLUMNS = Nothing + Me.sbRoute6.key_visible = False + Me.sbRoute6.KEYPARAM = Nothing + Me.sbRoute6.Location = New System.Drawing.Point(552, 407) + Me.sbRoute6.Name = "sbRoute6" + Me.sbRoute6.searchActive = True + Me.sbRoute6.Size = New System.Drawing.Size(154, 20) + Me.sbRoute6.SQL_ORDER_BY = Nothing + Me.sbRoute6.SQL_SELECT = Nothing + Me.sbRoute6.SQL_WHERE = Nothing + Me.sbRoute6.SQL_WhereParamList = Nothing + Me.sbRoute6.TabIndex = 49 + Me.sbRoute6.usrcntl = Nothing + ' + 'sbRoute4 + ' + Me.sbRoute4._allowFreitext = False + Me.sbRoute4._AllowSetValue = False + Me.sbRoute4._allowSpaceAsSplitter = False + Me.sbRoute4._autoSizeGross = False + Me.sbRoute4._hideIfListEmpty = True + Me.sbRoute4._value = "" + Me.sbRoute4.conn_art = "FMZOLL" + Me.sbRoute4.dgvpos = "LEFT" + Me.sbRoute4.DISPLAY_PARAM = Nothing + Me.sbRoute4.INVISIBLE_COLUMNS = Nothing + Me.sbRoute4.key_visible = False + Me.sbRoute4.KEYPARAM = Nothing + Me.sbRoute4.Location = New System.Drawing.Point(246, 407) + Me.sbRoute4.Name = "sbRoute4" + Me.sbRoute4.searchActive = True + Me.sbRoute4.Size = New System.Drawing.Size(154, 20) + Me.sbRoute4.SQL_ORDER_BY = Nothing + Me.sbRoute4.SQL_SELECT = Nothing + Me.sbRoute4.SQL_WHERE = Nothing + Me.sbRoute4.SQL_WhereParamList = Nothing + Me.sbRoute4.TabIndex = 47 + Me.sbRoute4.usrcntl = Nothing + ' + 'sbRoute3 + ' + Me.sbRoute3._allowFreitext = False + Me.sbRoute3._AllowSetValue = False + Me.sbRoute3._allowSpaceAsSplitter = False + Me.sbRoute3._autoSizeGross = False + Me.sbRoute3._hideIfListEmpty = True + Me.sbRoute3._value = "" + Me.sbRoute3.conn_art = "FMZOLL" + Me.sbRoute3.dgvpos = "LEFT" + Me.sbRoute3.DISPLAY_PARAM = Nothing + Me.sbRoute3.INVISIBLE_COLUMNS = Nothing + Me.sbRoute3.key_visible = False + Me.sbRoute3.KEYPARAM = Nothing + Me.sbRoute3.Location = New System.Drawing.Point(552, 388) + Me.sbRoute3.Name = "sbRoute3" + Me.sbRoute3.searchActive = True + Me.sbRoute3.Size = New System.Drawing.Size(154, 20) + Me.sbRoute3.SQL_ORDER_BY = Nothing + Me.sbRoute3.SQL_SELECT = Nothing + Me.sbRoute3.SQL_WHERE = Nothing + Me.sbRoute3.SQL_WhereParamList = Nothing + Me.sbRoute3.TabIndex = 46 + Me.sbRoute3.usrcntl = Nothing + ' + 'sbRoute2 + ' + Me.sbRoute2._allowFreitext = False + Me.sbRoute2._AllowSetValue = False + Me.sbRoute2._allowSpaceAsSplitter = False + Me.sbRoute2._autoSizeGross = False + Me.sbRoute2._hideIfListEmpty = True + Me.sbRoute2._value = "" + Me.sbRoute2.conn_art = "FMZOLL" + Me.sbRoute2.dgvpos = "LEFT" + Me.sbRoute2.DISPLAY_PARAM = Nothing + Me.sbRoute2.INVISIBLE_COLUMNS = Nothing + Me.sbRoute2.key_visible = False + Me.sbRoute2.KEYPARAM = Nothing + Me.sbRoute2.Location = New System.Drawing.Point(399, 388) + Me.sbRoute2.Name = "sbRoute2" + Me.sbRoute2.searchActive = True + Me.sbRoute2.Size = New System.Drawing.Size(154, 20) + Me.sbRoute2.SQL_ORDER_BY = Nothing + Me.sbRoute2.SQL_SELECT = Nothing + Me.sbRoute2.SQL_WHERE = Nothing + Me.sbRoute2.SQL_WhereParamList = Nothing + Me.sbRoute2.TabIndex = 45 + Me.sbRoute2.usrcntl = Nothing + ' + 'sbRoute1 + ' + Me.sbRoute1._allowFreitext = False + Me.sbRoute1._AllowSetValue = False + Me.sbRoute1._allowSpaceAsSplitter = False + Me.sbRoute1._autoSizeGross = False + Me.sbRoute1._hideIfListEmpty = True + Me.sbRoute1._value = "" + Me.sbRoute1.conn_art = "FMZOLL" + Me.sbRoute1.dgvpos = "LEFT" + Me.sbRoute1.DISPLAY_PARAM = Nothing + Me.sbRoute1.INVISIBLE_COLUMNS = Nothing + Me.sbRoute1.key_visible = False + Me.sbRoute1.KEYPARAM = Nothing + Me.sbRoute1.Location = New System.Drawing.Point(246, 388) + Me.sbRoute1.Name = "sbRoute1" + Me.sbRoute1.searchActive = True + Me.sbRoute1.Size = New System.Drawing.Size(154, 20) + Me.sbRoute1.SQL_ORDER_BY = Nothing + Me.sbRoute1.SQL_SELECT = Nothing + Me.sbRoute1.SQL_WHERE = Nothing + Me.sbRoute1.SQL_WhereParamList = Nothing + Me.sbRoute1.TabIndex = 44 + Me.sbRoute1.usrcntl = Nothing + ' + 'Label14 + ' + Me.Label14.Location = New System.Drawing.Point(243, 372) + Me.Label14.Name = "Label14" + Me.Label14.Size = New System.Drawing.Size(135, 13) + Me.Label14.TabIndex = 42 + Me.Label14.Text = "Route:" + ' + 'pic + ' + Me.pic.BackgroundImage = Global.SDL.My.Resources.Resources.lorry_motion + Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.pic.Location = New System.Drawing.Point(399, 123) + Me.pic.Name = "pic" + Me.pic.Size = New System.Drawing.Size(154, 50) + Me.pic.TabIndex = 47 + Me.pic.TabStop = False + ' + 'txtArtDetail + ' + Me.txtArtDetail.BackColor = System.Drawing.Color.WhiteSmoke + Me.txtArtDetail.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtArtDetail.Location = New System.Drawing.Point(310, 39) + Me.txtArtDetail.Multiline = True + Me.txtArtDetail.Name = "txtArtDetail" + Me.txtArtDetail.Size = New System.Drawing.Size(598, 59) + Me.txtArtDetail.TabIndex = 8 + ' + 'Label13 + ' + Me.Label13.AutoSize = True + Me.Label13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label13.Location = New System.Drawing.Point(307, 24) + Me.Label13.Name = "Label13" + Me.Label13.Size = New System.Drawing.Size(50, 13) + Me.Label13.TabIndex = 1 + Me.Label13.Text = "Details:" + ' + 'btnTIR + ' + Me.btnTIR.BackColor = System.Drawing.Color.White + Me.btnTIR.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.btnTIR.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnTIR.Font = New System.Drawing.Font("Microsoft Sans Serif", 16.0!, System.Drawing.FontStyle.Bold) + Me.btnTIR.ForeColor = System.Drawing.Color.Black + Me.btnTIR.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.btnTIR.Location = New System.Drawing.Point(243, 39) + Me.btnTIR.Margin = New System.Windows.Forms.Padding(2) + Me.btnTIR.Name = "btnTIR" + Me.btnTIR.Size = New System.Drawing.Size(62, 37) + Me.btnTIR.TabIndex = 6 + Me.btnTIR.Text = "TIR" + Me.btnTIR.UseVisualStyleBackColor = False + ' + 'btnT2F + ' + Me.btnT2F.BackColor = System.Drawing.Color.White + Me.btnT2F.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.btnT2F.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnT2F.Font = New System.Drawing.Font("Microsoft Sans Serif", 16.0!, System.Drawing.FontStyle.Bold) + Me.btnT2F.ForeColor = System.Drawing.Color.Black + Me.btnT2F.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.btnT2F.Location = New System.Drawing.Point(177, 39) + Me.btnT2F.Margin = New System.Windows.Forms.Padding(2) + Me.btnT2F.Name = "btnT2F" + Me.btnT2F.Size = New System.Drawing.Size(62, 37) + Me.btnT2F.TabIndex = 5 + Me.btnT2F.Text = "T2F" + Me.btnT2F.UseVisualStyleBackColor = False + ' + 'btnT2 + ' + Me.btnT2.BackColor = System.Drawing.Color.White + Me.btnT2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.btnT2.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnT2.Font = New System.Drawing.Font("Microsoft Sans Serif", 16.0!, System.Drawing.FontStyle.Bold) + Me.btnT2.ForeColor = System.Drawing.Color.Black + Me.btnT2.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.btnT2.Location = New System.Drawing.Point(123, 39) + Me.btnT2.Margin = New System.Windows.Forms.Padding(2) + Me.btnT2.Name = "btnT2" + Me.btnT2.Size = New System.Drawing.Size(50, 37) + Me.btnT2.TabIndex = 4 + Me.btnT2.Text = "T2" + Me.btnT2.UseVisualStyleBackColor = False + ' + 'btnT1 + ' + Me.btnT1.BackColor = System.Drawing.Color.White + Me.btnT1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.btnT1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnT1.Font = New System.Drawing.Font("Microsoft Sans Serif", 16.0!, System.Drawing.FontStyle.Bold) + Me.btnT1.ForeColor = System.Drawing.Color.Black + Me.btnT1.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.btnT1.Location = New System.Drawing.Point(69, 39) + Me.btnT1.Margin = New System.Windows.Forms.Padding(2) + Me.btnT1.Name = "btnT1" + Me.btnT1.Size = New System.Drawing.Size(50, 37) + Me.btnT1.TabIndex = 3 + Me.btnT1.Text = "T1" + Me.btnT1.UseVisualStyleBackColor = False + ' + 'btnTMinus + ' + Me.btnTMinus.BackColor = System.Drawing.Color.OrangeRed + Me.btnTMinus.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.btnTMinus.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnTMinus.Font = New System.Drawing.Font("Microsoft Sans Serif", 16.0!, System.Drawing.FontStyle.Bold) + Me.btnTMinus.ForeColor = System.Drawing.SystemColors.ControlLightLight + Me.btnTMinus.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.btnTMinus.Location = New System.Drawing.Point(15, 39) + Me.btnTMinus.Margin = New System.Windows.Forms.Padding(2) + Me.btnTMinus.Name = "btnTMinus" + Me.btnTMinus.Size = New System.Drawing.Size(50, 37) + Me.btnTMinus.TabIndex = 2 + Me.btnTMinus.Text = "T-" + Me.btnTMinus.UseVisualStyleBackColor = False + ' + 'txtBeladungsort + ' + Me.txtBeladungsort._DateTimeOnly = False + Me.txtBeladungsort._numbersOnly = False + Me.txtBeladungsort._numbersOnlyKommastellen = "" + Me.txtBeladungsort._numbersOnlyTrennzeichen = True + Me.txtBeladungsort._Prozent = False + Me.txtBeladungsort._ShortDateNew = False + Me.txtBeladungsort._ShortDateOnly = False + Me.txtBeladungsort._TimeOnly = False + Me.txtBeladungsort._TimeOnly_Seconds = False + Me.txtBeladungsort._value = Nothing + Me.txtBeladungsort._Waehrung = False + Me.txtBeladungsort._WaehrungZeichen = True + Me.txtBeladungsort.Enabled = False + Me.txtBeladungsort.ForeColor = System.Drawing.Color.Black + Me.txtBeladungsort.Location = New System.Drawing.Point(142, 268) + Me.txtBeladungsort.MaxLength = 4 + Me.txtBeladungsort.MaxLineLength = -1 + Me.txtBeladungsort.MaxLines_Warning = "" + Me.txtBeladungsort.MaxLines_Warning_Label = Nothing + Me.txtBeladungsort.Name = "txtBeladungsort" + Me.txtBeladungsort.Size = New System.Drawing.Size(214, 20) + Me.txtBeladungsort.TabIndex = 29 + ' + 'Label3 + ' + Me.Label3.Location = New System.Drawing.Point(553, 271) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(135, 13) + Me.Label3.TabIndex = 30 + Me.Label3.Text = "Wiedergestellungsdatum:" + Me.Label3.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'txtWiedergestellungsdatum + ' + Me.txtWiedergestellungsdatum._DateTimeOnly = False + Me.txtWiedergestellungsdatum._numbersOnly = False + Me.txtWiedergestellungsdatum._numbersOnlyKommastellen = "" + Me.txtWiedergestellungsdatum._numbersOnlyTrennzeichen = True + Me.txtWiedergestellungsdatum._Prozent = False + Me.txtWiedergestellungsdatum._ShortDateNew = True + Me.txtWiedergestellungsdatum._ShortDateOnly = False + Me.txtWiedergestellungsdatum._TimeOnly = False + Me.txtWiedergestellungsdatum._TimeOnly_Seconds = False + Me.txtWiedergestellungsdatum._value = "" + Me.txtWiedergestellungsdatum._Waehrung = False + Me.txtWiedergestellungsdatum._WaehrungZeichen = True + Me.txtWiedergestellungsdatum.Enabled = False + Me.txtWiedergestellungsdatum.ForeColor = System.Drawing.Color.Black + Me.txtWiedergestellungsdatum.Location = New System.Drawing.Point(694, 268) + Me.txtWiedergestellungsdatum.MaxLength = 10 + Me.txtWiedergestellungsdatum.MaxLineLength = -1 + Me.txtWiedergestellungsdatum.MaxLines_Warning = "" + Me.txtWiedergestellungsdatum.MaxLines_Warning_Label = Nothing + Me.txtWiedergestellungsdatum.Name = "txtWiedergestellungsdatum" + Me.txtWiedergestellungsdatum.Size = New System.Drawing.Size(214, 20) + Me.txtWiedergestellungsdatum.TabIndex = 31 + ' + 'Label2 + ' + Me.Label2.Location = New System.Drawing.Point(1, 271) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(135, 13) + Me.Label2.TabIndex = 28 + Me.Label2.Text = "Beladungsort:" + Me.Label2.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'sbDurchgangszollstelle5 + ' + Me.sbDurchgangszollstelle5._allowFreitext = False + Me.sbDurchgangszollstelle5._AllowSetValue = False + Me.sbDurchgangszollstelle5._allowSpaceAsSplitter = False + Me.sbDurchgangszollstelle5._autoSizeGross = False + Me.sbDurchgangszollstelle5._hideIfListEmpty = True + Me.sbDurchgangszollstelle5._value = "" + Me.sbDurchgangszollstelle5.conn_art = "FMZOLL" + Me.sbDurchgangszollstelle5.dgvpos = "LEFT" + Me.sbDurchgangszollstelle5.DISPLAY_PARAM = Nothing + Me.sbDurchgangszollstelle5.INVISIBLE_COLUMNS = Nothing + Me.sbDurchgangszollstelle5.key_visible = False + Me.sbDurchgangszollstelle5.KEYPARAM = Nothing + Me.sbDurchgangszollstelle5.Location = New System.Drawing.Point(399, 217) + Me.sbDurchgangszollstelle5.Name = "sbDurchgangszollstelle5" + Me.sbDurchgangszollstelle5.searchActive = True + Me.sbDurchgangszollstelle5.Size = New System.Drawing.Size(154, 20) + Me.sbDurchgangszollstelle5.SQL_ORDER_BY = Nothing + Me.sbDurchgangszollstelle5.SQL_SELECT = Nothing + Me.sbDurchgangszollstelle5.SQL_WHERE = Nothing + Me.sbDurchgangszollstelle5.SQL_WhereParamList = Nothing + Me.sbDurchgangszollstelle5.TabIndex = 23 + Me.sbDurchgangszollstelle5.usrcntl = Nothing + ' + 'sbDurchgangszollstelle9 + ' + Me.sbDurchgangszollstelle9._allowFreitext = False + Me.sbDurchgangszollstelle9._AllowSetValue = False + Me.sbDurchgangszollstelle9._allowSpaceAsSplitter = False + Me.sbDurchgangszollstelle9._autoSizeGross = False + Me.sbDurchgangszollstelle9._hideIfListEmpty = True + Me.sbDurchgangszollstelle9._value = "" + Me.sbDurchgangszollstelle9.conn_art = "FMZOLL" + Me.sbDurchgangszollstelle9.dgvpos = "LEFT" + Me.sbDurchgangszollstelle9.DISPLAY_PARAM = Nothing + Me.sbDurchgangszollstelle9.INVISIBLE_COLUMNS = Nothing + Me.sbDurchgangszollstelle9.key_visible = False + Me.sbDurchgangszollstelle9.KEYPARAM = Nothing + Me.sbDurchgangszollstelle9.Location = New System.Drawing.Point(552, 236) + Me.sbDurchgangszollstelle9.Name = "sbDurchgangszollstelle9" + Me.sbDurchgangszollstelle9.searchActive = True + Me.sbDurchgangszollstelle9.Size = New System.Drawing.Size(154, 20) + Me.sbDurchgangszollstelle9.SQL_ORDER_BY = Nothing + Me.sbDurchgangszollstelle9.SQL_SELECT = Nothing + Me.sbDurchgangszollstelle9.SQL_WHERE = Nothing + Me.sbDurchgangszollstelle9.SQL_WhereParamList = Nothing + Me.sbDurchgangszollstelle9.TabIndex = 27 + Me.sbDurchgangszollstelle9.usrcntl = Nothing + ' + 'sbDurchgangszollstelle8 + ' + Me.sbDurchgangszollstelle8._allowFreitext = False + Me.sbDurchgangszollstelle8._AllowSetValue = False + Me.sbDurchgangszollstelle8._allowSpaceAsSplitter = False + Me.sbDurchgangszollstelle8._autoSizeGross = False + Me.sbDurchgangszollstelle8._hideIfListEmpty = True + Me.sbDurchgangszollstelle8._value = "" + Me.sbDurchgangszollstelle8.conn_art = "FMZOLL" + Me.sbDurchgangszollstelle8.dgvpos = "LEFT" + Me.sbDurchgangszollstelle8.DISPLAY_PARAM = Nothing + Me.sbDurchgangszollstelle8.INVISIBLE_COLUMNS = Nothing + Me.sbDurchgangszollstelle8.key_visible = False + Me.sbDurchgangszollstelle8.KEYPARAM = Nothing + Me.sbDurchgangszollstelle8.Location = New System.Drawing.Point(399, 236) + Me.sbDurchgangszollstelle8.Name = "sbDurchgangszollstelle8" + Me.sbDurchgangszollstelle8.searchActive = True + Me.sbDurchgangszollstelle8.Size = New System.Drawing.Size(154, 20) + Me.sbDurchgangszollstelle8.SQL_ORDER_BY = Nothing + Me.sbDurchgangszollstelle8.SQL_SELECT = Nothing + Me.sbDurchgangszollstelle8.SQL_WHERE = Nothing + Me.sbDurchgangszollstelle8.SQL_WhereParamList = Nothing + Me.sbDurchgangszollstelle8.TabIndex = 26 + Me.sbDurchgangszollstelle8.usrcntl = Nothing + ' + 'sbDurchgangszollstelle7 + ' + Me.sbDurchgangszollstelle7._allowFreitext = False + Me.sbDurchgangszollstelle7._AllowSetValue = False + Me.sbDurchgangszollstelle7._allowSpaceAsSplitter = False + Me.sbDurchgangszollstelle7._autoSizeGross = False + Me.sbDurchgangszollstelle7._hideIfListEmpty = True + Me.sbDurchgangszollstelle7._value = "" + Me.sbDurchgangszollstelle7.conn_art = "FMZOLL" + Me.sbDurchgangszollstelle7.dgvpos = "LEFT" + Me.sbDurchgangszollstelle7.DISPLAY_PARAM = Nothing + Me.sbDurchgangszollstelle7.INVISIBLE_COLUMNS = Nothing + Me.sbDurchgangszollstelle7.key_visible = False + Me.sbDurchgangszollstelle7.KEYPARAM = Nothing + Me.sbDurchgangszollstelle7.Location = New System.Drawing.Point(246, 236) + Me.sbDurchgangszollstelle7.Name = "sbDurchgangszollstelle7" + Me.sbDurchgangszollstelle7.searchActive = True + Me.sbDurchgangszollstelle7.Size = New System.Drawing.Size(154, 20) + Me.sbDurchgangszollstelle7.SQL_ORDER_BY = Nothing + Me.sbDurchgangszollstelle7.SQL_SELECT = Nothing + Me.sbDurchgangszollstelle7.SQL_WHERE = Nothing + Me.sbDurchgangszollstelle7.SQL_WhereParamList = Nothing + Me.sbDurchgangszollstelle7.TabIndex = 25 + Me.sbDurchgangszollstelle7.usrcntl = Nothing + ' + 'sbDurchgangszollstelle6 + ' + Me.sbDurchgangszollstelle6._allowFreitext = False + Me.sbDurchgangszollstelle6._AllowSetValue = False + Me.sbDurchgangszollstelle6._allowSpaceAsSplitter = False + Me.sbDurchgangszollstelle6._autoSizeGross = False + Me.sbDurchgangszollstelle6._hideIfListEmpty = True + Me.sbDurchgangszollstelle6._value = "" + Me.sbDurchgangszollstelle6.conn_art = "FMZOLL" + Me.sbDurchgangszollstelle6.dgvpos = "LEFT" + Me.sbDurchgangszollstelle6.DISPLAY_PARAM = Nothing + Me.sbDurchgangszollstelle6.INVISIBLE_COLUMNS = Nothing + Me.sbDurchgangszollstelle6.key_visible = False + Me.sbDurchgangszollstelle6.KEYPARAM = Nothing + Me.sbDurchgangszollstelle6.Location = New System.Drawing.Point(552, 217) + Me.sbDurchgangszollstelle6.Name = "sbDurchgangszollstelle6" + Me.sbDurchgangszollstelle6.searchActive = True + Me.sbDurchgangszollstelle6.Size = New System.Drawing.Size(154, 20) + Me.sbDurchgangszollstelle6.SQL_ORDER_BY = Nothing + Me.sbDurchgangszollstelle6.SQL_SELECT = Nothing + Me.sbDurchgangszollstelle6.SQL_WHERE = Nothing + Me.sbDurchgangszollstelle6.SQL_WhereParamList = Nothing + Me.sbDurchgangszollstelle6.TabIndex = 24 + Me.sbDurchgangszollstelle6.usrcntl = Nothing + ' + 'sbDurchgangszollstelle4 + ' + Me.sbDurchgangszollstelle4._allowFreitext = False + Me.sbDurchgangszollstelle4._AllowSetValue = False + Me.sbDurchgangszollstelle4._allowSpaceAsSplitter = False + Me.sbDurchgangszollstelle4._autoSizeGross = False + Me.sbDurchgangszollstelle4._hideIfListEmpty = True + Me.sbDurchgangszollstelle4._value = "" + Me.sbDurchgangszollstelle4.conn_art = "FMZOLL" + Me.sbDurchgangszollstelle4.dgvpos = "LEFT" + Me.sbDurchgangszollstelle4.DISPLAY_PARAM = Nothing + Me.sbDurchgangszollstelle4.INVISIBLE_COLUMNS = Nothing + Me.sbDurchgangszollstelle4.key_visible = False + Me.sbDurchgangszollstelle4.KEYPARAM = Nothing + Me.sbDurchgangszollstelle4.Location = New System.Drawing.Point(246, 217) + Me.sbDurchgangszollstelle4.Name = "sbDurchgangszollstelle4" + Me.sbDurchgangszollstelle4.searchActive = True + Me.sbDurchgangszollstelle4.Size = New System.Drawing.Size(154, 20) + Me.sbDurchgangszollstelle4.SQL_ORDER_BY = Nothing + Me.sbDurchgangszollstelle4.SQL_SELECT = Nothing + Me.sbDurchgangszollstelle4.SQL_WHERE = Nothing + Me.sbDurchgangszollstelle4.SQL_WhereParamList = Nothing + Me.sbDurchgangszollstelle4.TabIndex = 22 + Me.sbDurchgangszollstelle4.usrcntl = Nothing + ' + 'sbDurchgangszollstelle3 + ' + Me.sbDurchgangszollstelle3._allowFreitext = False + Me.sbDurchgangszollstelle3._AllowSetValue = False + Me.sbDurchgangszollstelle3._allowSpaceAsSplitter = False + Me.sbDurchgangszollstelle3._autoSizeGross = False + Me.sbDurchgangszollstelle3._hideIfListEmpty = True + Me.sbDurchgangszollstelle3._value = "" + Me.sbDurchgangszollstelle3.conn_art = "FMZOLL" + Me.sbDurchgangszollstelle3.dgvpos = "LEFT" + Me.sbDurchgangszollstelle3.DISPLAY_PARAM = Nothing + Me.sbDurchgangszollstelle3.INVISIBLE_COLUMNS = Nothing + Me.sbDurchgangszollstelle3.key_visible = False + Me.sbDurchgangszollstelle3.KEYPARAM = Nothing + Me.sbDurchgangszollstelle3.Location = New System.Drawing.Point(552, 198) + Me.sbDurchgangszollstelle3.Name = "sbDurchgangszollstelle3" + Me.sbDurchgangszollstelle3.searchActive = True + Me.sbDurchgangszollstelle3.Size = New System.Drawing.Size(154, 20) + Me.sbDurchgangszollstelle3.SQL_ORDER_BY = Nothing + Me.sbDurchgangszollstelle3.SQL_SELECT = Nothing + Me.sbDurchgangszollstelle3.SQL_WHERE = Nothing + Me.sbDurchgangszollstelle3.SQL_WhereParamList = Nothing + Me.sbDurchgangszollstelle3.TabIndex = 21 + Me.sbDurchgangszollstelle3.usrcntl = Nothing + ' + 'sbDurchgangszollstelle2 + ' + Me.sbDurchgangszollstelle2._allowFreitext = False + Me.sbDurchgangszollstelle2._AllowSetValue = False + Me.sbDurchgangszollstelle2._allowSpaceAsSplitter = False + Me.sbDurchgangszollstelle2._autoSizeGross = False + Me.sbDurchgangszollstelle2._hideIfListEmpty = True + Me.sbDurchgangszollstelle2._value = "" + Me.sbDurchgangszollstelle2.conn_art = "FMZOLL" + Me.sbDurchgangszollstelle2.dgvpos = "LEFT" + Me.sbDurchgangszollstelle2.DISPLAY_PARAM = Nothing + Me.sbDurchgangszollstelle2.INVISIBLE_COLUMNS = Nothing + Me.sbDurchgangszollstelle2.key_visible = False + Me.sbDurchgangszollstelle2.KEYPARAM = Nothing + Me.sbDurchgangszollstelle2.Location = New System.Drawing.Point(399, 198) + Me.sbDurchgangszollstelle2.Name = "sbDurchgangszollstelle2" + Me.sbDurchgangszollstelle2.searchActive = True + Me.sbDurchgangszollstelle2.Size = New System.Drawing.Size(154, 20) + Me.sbDurchgangszollstelle2.SQL_ORDER_BY = Nothing + Me.sbDurchgangszollstelle2.SQL_SELECT = Nothing + Me.sbDurchgangszollstelle2.SQL_WHERE = Nothing + Me.sbDurchgangszollstelle2.SQL_WhereParamList = Nothing + Me.sbDurchgangszollstelle2.TabIndex = 20 + Me.sbDurchgangszollstelle2.usrcntl = Nothing + ' + 'sbDurchgangszollstelle1 + ' + Me.sbDurchgangszollstelle1._allowFreitext = False + Me.sbDurchgangszollstelle1._AllowSetValue = False + Me.sbDurchgangszollstelle1._allowSpaceAsSplitter = False + Me.sbDurchgangszollstelle1._autoSizeGross = False + Me.sbDurchgangszollstelle1._hideIfListEmpty = True + Me.sbDurchgangszollstelle1._value = "" + Me.sbDurchgangszollstelle1.conn_art = "FMZOLL" + Me.sbDurchgangszollstelle1.dgvpos = "LEFT" + Me.sbDurchgangszollstelle1.DISPLAY_PARAM = Nothing + Me.sbDurchgangszollstelle1.INVISIBLE_COLUMNS = Nothing + Me.sbDurchgangszollstelle1.key_visible = False + Me.sbDurchgangszollstelle1.KEYPARAM = Nothing + Me.sbDurchgangszollstelle1.Location = New System.Drawing.Point(246, 198) + Me.sbDurchgangszollstelle1.Name = "sbDurchgangszollstelle1" + Me.sbDurchgangszollstelle1.searchActive = True + Me.sbDurchgangszollstelle1.Size = New System.Drawing.Size(154, 20) + Me.sbDurchgangszollstelle1.SQL_ORDER_BY = Nothing + Me.sbDurchgangszollstelle1.SQL_SELECT = Nothing + Me.sbDurchgangszollstelle1.SQL_WHERE = Nothing + Me.sbDurchgangszollstelle1.SQL_WhereParamList = Nothing + Me.sbDurchgangszollstelle1.TabIndex = 19 + Me.sbDurchgangszollstelle1.usrcntl = Nothing + ' + 'Label1 + ' + Me.Label1.Location = New System.Drawing.Point(243, 182) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(135, 13) + Me.Label1.TabIndex = 18 + Me.Label1.Text = "Durchgangszollstellen:" + ' + 'sbBestimmungsland + ' + Me.sbBestimmungsland._allowFreitext = False + Me.sbBestimmungsland._AllowSetValue = False + Me.sbBestimmungsland._allowSpaceAsSplitter = False + Me.sbBestimmungsland._autoSizeGross = False + Me.sbBestimmungsland._hideIfListEmpty = True + Me.sbBestimmungsland._value = "" + Me.sbBestimmungsland.conn_art = "FMZOLL" + Me.sbBestimmungsland.dgvpos = "RIGHT" + Me.sbBestimmungsland.DISPLAY_PARAM = Nothing + Me.sbBestimmungsland.INVISIBLE_COLUMNS = Nothing + Me.sbBestimmungsland.key_visible = False + Me.sbBestimmungsland.KEYPARAM = Nothing + Me.sbBestimmungsland.Location = New System.Drawing.Point(694, 153) + Me.sbBestimmungsland.Name = "sbBestimmungsland" + Me.sbBestimmungsland.searchActive = True + Me.sbBestimmungsland.Size = New System.Drawing.Size(214, 20) + Me.sbBestimmungsland.SQL_ORDER_BY = Nothing + Me.sbBestimmungsland.SQL_SELECT = Nothing + Me.sbBestimmungsland.SQL_WHERE = Nothing + Me.sbBestimmungsland.SQL_WhereParamList = Nothing + Me.sbBestimmungsland.TabIndex = 15 + Me.sbBestimmungsland.usrcntl = Nothing + ' + 'Label11 + ' + Me.Label11.Location = New System.Drawing.Point(572, 156) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(116, 13) + Me.Label11.TabIndex = 17 + Me.Label11.Text = "Bestimmungs-Land:" + Me.Label11.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'Label12 + ' + Me.Label12.Location = New System.Drawing.Point(1, 156) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(135, 13) + Me.Label12.TabIndex = 13 + Me.Label12.Text = "Versendungs-Land:" + Me.Label12.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'sbVersendungsLand + ' + Me.sbVersendungsLand._allowFreitext = False + Me.sbVersendungsLand._AllowSetValue = False + Me.sbVersendungsLand._allowSpaceAsSplitter = False + Me.sbVersendungsLand._autoSizeGross = False + Me.sbVersendungsLand._hideIfListEmpty = True + Me.sbVersendungsLand._value = "" + Me.sbVersendungsLand.conn_art = "FMZOLL" + Me.sbVersendungsLand.dgvpos = "LEFT" + Me.sbVersendungsLand.DISPLAY_PARAM = Nothing + Me.sbVersendungsLand.INVISIBLE_COLUMNS = Nothing + Me.sbVersendungsLand.key_visible = False + Me.sbVersendungsLand.KEYPARAM = Nothing + Me.sbVersendungsLand.Location = New System.Drawing.Point(142, 153) + Me.sbVersendungsLand.Name = "sbVersendungsLand" + Me.sbVersendungsLand.searchActive = True + Me.sbVersendungsLand.Size = New System.Drawing.Size(214, 20) + Me.sbVersendungsLand.SQL_ORDER_BY = Nothing + Me.sbVersendungsLand.SQL_SELECT = Nothing + Me.sbVersendungsLand.SQL_WHERE = Nothing + Me.sbVersendungsLand.SQL_WhereParamList = Nothing + Me.sbVersendungsLand.TabIndex = 14 + Me.sbVersendungsLand.usrcntl = Nothing + ' + 'sbBestimmungZollstelle + ' + Me.sbBestimmungZollstelle._allowFreitext = False + Me.sbBestimmungZollstelle._AllowSetValue = False + Me.sbBestimmungZollstelle._allowSpaceAsSplitter = False + Me.sbBestimmungZollstelle._autoSizeGross = False + Me.sbBestimmungZollstelle._hideIfListEmpty = True + Me.sbBestimmungZollstelle._value = "" + Me.sbBestimmungZollstelle.conn_art = "FMZOLL" + Me.sbBestimmungZollstelle.dgvpos = "RIGHT" + Me.sbBestimmungZollstelle.DISPLAY_PARAM = Nothing + Me.sbBestimmungZollstelle.INVISIBLE_COLUMNS = Nothing + Me.sbBestimmungZollstelle.key_visible = False + Me.sbBestimmungZollstelle.KEYPARAM = Nothing + Me.sbBestimmungZollstelle.Location = New System.Drawing.Point(694, 134) + Me.sbBestimmungZollstelle.Name = "sbBestimmungZollstelle" + Me.sbBestimmungZollstelle.searchActive = True + Me.sbBestimmungZollstelle.Size = New System.Drawing.Size(214, 20) + Me.sbBestimmungZollstelle.SQL_ORDER_BY = Nothing + Me.sbBestimmungZollstelle.SQL_SELECT = Nothing + Me.sbBestimmungZollstelle.SQL_WHERE = Nothing + Me.sbBestimmungZollstelle.SQL_WhereParamList = Nothing + Me.sbBestimmungZollstelle.TabIndex = 12 + Me.sbBestimmungZollstelle.usrcntl = Nothing + ' + 'Label10 + ' + Me.Label10.Location = New System.Drawing.Point(572, 137) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(116, 13) + Me.Label10.TabIndex = 16 + Me.Label10.Text = "Bestimmungs-Zollstelle:" + Me.Label10.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'Label9 + ' + Me.Label9.Location = New System.Drawing.Point(1, 137) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(135, 13) + Me.Label9.TabIndex = 10 + Me.Label9.Text = "Abgangs-Zollstelle:" + Me.Label9.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'sbAbgangZollstelle + ' + Me.sbAbgangZollstelle._allowFreitext = False + Me.sbAbgangZollstelle._AllowSetValue = False + Me.sbAbgangZollstelle._allowSpaceAsSplitter = False + Me.sbAbgangZollstelle._autoSizeGross = False + Me.sbAbgangZollstelle._hideIfListEmpty = True + Me.sbAbgangZollstelle._value = "" + Me.sbAbgangZollstelle.conn_art = "FMZOLL" + Me.sbAbgangZollstelle.dgvpos = "LEFT" + Me.sbAbgangZollstelle.DISPLAY_PARAM = Nothing + Me.sbAbgangZollstelle.INVISIBLE_COLUMNS = Nothing + Me.sbAbgangZollstelle.key_visible = False + Me.sbAbgangZollstelle.KEYPARAM = Nothing + Me.sbAbgangZollstelle.Location = New System.Drawing.Point(142, 134) + Me.sbAbgangZollstelle.Name = "sbAbgangZollstelle" + Me.sbAbgangZollstelle.searchActive = True + Me.sbAbgangZollstelle.Size = New System.Drawing.Size(214, 20) + Me.sbAbgangZollstelle.SQL_ORDER_BY = Nothing + Me.sbAbgangZollstelle.SQL_SELECT = Nothing + Me.sbAbgangZollstelle.SQL_WHERE = Nothing + Me.sbAbgangZollstelle.SQL_WhereParamList = Nothing + Me.sbAbgangZollstelle.TabIndex = 11 + Me.sbAbgangZollstelle.usrcntl = Nothing + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label8.Location = New System.Drawing.Point(12, 24) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(115, 13) + Me.Label8.TabIndex = 0 + Me.Label8.Text = "Art der Anmeldung:" + ' + 'Label18 + ' + Me.Label18.Location = New System.Drawing.Point(269, 328) + Me.Label18.Name = "Label18" + Me.Label18.Size = New System.Drawing.Size(36, 13) + Me.Label18.TabIndex = 40 + Me.Label18.Text = "Art:" + Me.Label18.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'Panel1 + ' + Me.Panel1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Panel1.BackColor = System.Drawing.Color.WhiteSmoke + Me.Panel1.Controls.Add(Me.sbKennzeichenGrenzeLand) + Me.Panel1.Controls.Add(Me.txtKennzeichenAbgang) + Me.Panel1.Controls.Add(Me.sbKennzeichenAbgangLand) + Me.Panel1.Controls.Add(Me.txtKennzeichenGrenze) + Me.Panel1.Controls.Add(Me.PictureBox2) + Me.Panel1.Controls.Add(Me.PictureBox1) + Me.Panel1.Controls.Add(Me.Label4) + Me.Panel1.Controls.Add(Me.Label5) + Me.Panel1.Controls.Add(Me.Label6) + Me.Panel1.Controls.Add(Me.Label7) + Me.Panel1.Location = New System.Drawing.Point(0, 306) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(930, 20) + Me.Panel1.TabIndex = 36 + ' + 'sbKennzeichenGrenzeLand + ' + Me.sbKennzeichenGrenzeLand._allowFreitext = False + Me.sbKennzeichenGrenzeLand._AllowSetValue = False + Me.sbKennzeichenGrenzeLand._allowSpaceAsSplitter = False + Me.sbKennzeichenGrenzeLand._autoSizeGross = False + Me.sbKennzeichenGrenzeLand._hideIfListEmpty = True + Me.sbKennzeichenGrenzeLand._value = "" + Me.sbKennzeichenGrenzeLand.conn_art = "FMZOLL" + Me.sbKennzeichenGrenzeLand.dgvpos = "RIGHT" + Me.sbKennzeichenGrenzeLand.DISPLAY_PARAM = Nothing + Me.sbKennzeichenGrenzeLand.INVISIBLE_COLUMNS = Nothing + Me.sbKennzeichenGrenzeLand.key_visible = False + Me.sbKennzeichenGrenzeLand.KEYPARAM = Nothing + Me.sbKennzeichenGrenzeLand.Location = New System.Drawing.Point(867, 0) + Me.sbKennzeichenGrenzeLand.Name = "sbKennzeichenGrenzeLand" + Me.sbKennzeichenGrenzeLand.searchActive = True + Me.sbKennzeichenGrenzeLand.Size = New System.Drawing.Size(41, 20) + Me.sbKennzeichenGrenzeLand.SQL_ORDER_BY = Nothing + Me.sbKennzeichenGrenzeLand.SQL_SELECT = Nothing + Me.sbKennzeichenGrenzeLand.SQL_WHERE = Nothing + Me.sbKennzeichenGrenzeLand.SQL_WhereParamList = Nothing + Me.sbKennzeichenGrenzeLand.TabIndex = 6 + Me.sbKennzeichenGrenzeLand.usrcntl = Nothing + ' + 'txtKennzeichenAbgang + ' + Me.txtKennzeichenAbgang._DateTimeOnly = False + Me.txtKennzeichenAbgang._numbersOnly = False + Me.txtKennzeichenAbgang._numbersOnlyKommastellen = "" + Me.txtKennzeichenAbgang._numbersOnlyTrennzeichen = True + Me.txtKennzeichenAbgang._Prozent = False + Me.txtKennzeichenAbgang._ShortDateNew = False + Me.txtKennzeichenAbgang._ShortDateOnly = False + Me.txtKennzeichenAbgang._TimeOnly = False + Me.txtKennzeichenAbgang._TimeOnly_Seconds = False + Me.txtKennzeichenAbgang._value = "" + Me.txtKennzeichenAbgang._Waehrung = False + Me.txtKennzeichenAbgang._WaehrungZeichen = True + Me.txtKennzeichenAbgang.Location = New System.Drawing.Point(142, 0) + Me.txtKennzeichenAbgang.MaxLength = 27 + Me.txtKennzeichenAbgang.MaxLineLength = -1 + Me.txtKennzeichenAbgang.MaxLines_Warning = "" + Me.txtKennzeichenAbgang.MaxLines_Warning_Label = Nothing + Me.txtKennzeichenAbgang.Name = "txtKennzeichenAbgang" + Me.txtKennzeichenAbgang.Size = New System.Drawing.Size(140, 20) + Me.txtKennzeichenAbgang.TabIndex = 1 + ' + 'sbKennzeichenAbgangLand + ' + Me.sbKennzeichenAbgangLand._allowFreitext = False + Me.sbKennzeichenAbgangLand._AllowSetValue = False + Me.sbKennzeichenAbgangLand._allowSpaceAsSplitter = False + Me.sbKennzeichenAbgangLand._autoSizeGross = False + Me.sbKennzeichenAbgangLand._hideIfListEmpty = True + Me.sbKennzeichenAbgangLand._value = "" + Me.sbKennzeichenAbgangLand.conn_art = "FMZOLL" + Me.sbKennzeichenAbgangLand.dgvpos = "LEFT" + Me.sbKennzeichenAbgangLand.DISPLAY_PARAM = Nothing + Me.sbKennzeichenAbgangLand.INVISIBLE_COLUMNS = Nothing + Me.sbKennzeichenAbgangLand.key_visible = False + Me.sbKennzeichenAbgangLand.KEYPARAM = Nothing + Me.sbKennzeichenAbgangLand.Location = New System.Drawing.Point(315, 0) + Me.sbKennzeichenAbgangLand.Name = "sbKennzeichenAbgangLand" + Me.sbKennzeichenAbgangLand.searchActive = True + Me.sbKennzeichenAbgangLand.Size = New System.Drawing.Size(41, 20) + Me.sbKennzeichenAbgangLand.SQL_ORDER_BY = Nothing + Me.sbKennzeichenAbgangLand.SQL_SELECT = Nothing + Me.sbKennzeichenAbgangLand.SQL_WHERE = Nothing + Me.sbKennzeichenAbgangLand.SQL_WhereParamList = Nothing + Me.sbKennzeichenAbgangLand.TabIndex = 2 + Me.sbKennzeichenAbgangLand.usrcntl = Nothing + ' + 'txtKennzeichenGrenze + ' + Me.txtKennzeichenGrenze._DateTimeOnly = False + Me.txtKennzeichenGrenze._numbersOnly = False + Me.txtKennzeichenGrenze._numbersOnlyKommastellen = "" + Me.txtKennzeichenGrenze._numbersOnlyTrennzeichen = True + Me.txtKennzeichenGrenze._Prozent = False + Me.txtKennzeichenGrenze._ShortDateNew = False + Me.txtKennzeichenGrenze._ShortDateOnly = False + Me.txtKennzeichenGrenze._TimeOnly = False + Me.txtKennzeichenGrenze._TimeOnly_Seconds = False + Me.txtKennzeichenGrenze._value = "" + Me.txtKennzeichenGrenze._Waehrung = False + Me.txtKennzeichenGrenze._WaehrungZeichen = True + Me.txtKennzeichenGrenze.Location = New System.Drawing.Point(694, 0) + Me.txtKennzeichenGrenze.MaxLength = 27 + Me.txtKennzeichenGrenze.MaxLineLength = -1 + Me.txtKennzeichenGrenze.MaxLines_Warning = "" + Me.txtKennzeichenGrenze.MaxLines_Warning_Label = Nothing + Me.txtKennzeichenGrenze.Name = "txtKennzeichenGrenze" + Me.txtKennzeichenGrenze.Size = New System.Drawing.Size(140, 20) + Me.txtKennzeichenGrenze.TabIndex = 5 + ' + 'PictureBox2 + ' + Me.PictureBox2.BackColor = System.Drawing.Color.WhiteSmoke + Me.PictureBox2.BackgroundImage = Global.SDL.My.Resources.Resources.lorry + Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.PictureBox2.Location = New System.Drawing.Point(556, 0) + Me.PictureBox2.Name = "PictureBox2" + Me.PictureBox2.Size = New System.Drawing.Size(24, 20) + Me.PictureBox2.TabIndex = 69 + Me.PictureBox2.TabStop = False + ' + 'PictureBox1 + ' + Me.PictureBox1.BackColor = System.Drawing.Color.WhiteSmoke + Me.PictureBox1.BackgroundImage = Global.SDL.My.Resources.Resources.lorry + Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.PictureBox1.Location = New System.Drawing.Point(0, 0) + Me.PictureBox1.Name = "PictureBox1" + Me.PictureBox1.Size = New System.Drawing.Size(24, 20) + Me.PictureBox1.TabIndex = 68 + Me.PictureBox1.TabStop = False + ' + 'Label4 + ' + Me.Label4.Location = New System.Drawing.Point(4, 3) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(135, 13) + Me.Label4.TabIndex = 0 + Me.Label4.Text = "Kennzeichen Abgang:" + Me.Label4.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'Label5 + ' + Me.Label5.Location = New System.Drawing.Point(556, 4) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(132, 13) + Me.Label5.TabIndex = 4 + Me.Label5.Text = "Kennzeichen Grenze:" + Me.Label5.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'Label6 + ' + Me.Label6.Location = New System.Drawing.Point(280, 3) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(36, 13) + Me.Label6.TabIndex = 3 + Me.Label6.Text = "Land:" + Me.Label6.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'Label7 + ' + Me.Label7.Location = New System.Drawing.Point(832, 4) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(36, 13) + Me.Label7.TabIndex = 7 + Me.Label7.Text = "Land:" + Me.Label7.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'txtLadeort + ' + Me.txtLadeort._DateTimeOnly = False + Me.txtLadeort._numbersOnly = False + Me.txtLadeort._numbersOnlyKommastellen = "" + Me.txtLadeort._numbersOnlyTrennzeichen = True + Me.txtLadeort._Prozent = False + Me.txtLadeort._ShortDateNew = False + Me.txtLadeort._ShortDateOnly = False + Me.txtLadeort._TimeOnly = False + Me.txtLadeort._TimeOnly_Seconds = False + Me.txtLadeort._value = Nothing + Me.txtLadeort._Waehrung = False + Me.txtLadeort._WaehrungZeichen = True + Me.txtLadeort.ForeColor = System.Drawing.Color.Black + Me.txtLadeort.Location = New System.Drawing.Point(142, 287) + Me.txtLadeort.MaxLength = 17 + Me.txtLadeort.MaxLineLength = -1 + Me.txtLadeort.MaxLines_Warning = "" + Me.txtLadeort.MaxLines_Warning_Label = Nothing + Me.txtLadeort.Name = "txtLadeort" + Me.txtLadeort.Size = New System.Drawing.Size(214, 20) + Me.txtLadeort.TabIndex = 33 + ' + 'txtEntladeort + ' + Me.txtEntladeort._DateTimeOnly = False + Me.txtEntladeort._numbersOnly = False + Me.txtEntladeort._numbersOnlyKommastellen = "" + Me.txtEntladeort._numbersOnlyTrennzeichen = True + Me.txtEntladeort._Prozent = False + Me.txtEntladeort._ShortDateNew = False + Me.txtEntladeort._ShortDateOnly = False + Me.txtEntladeort._TimeOnly = False + Me.txtEntladeort._TimeOnly_Seconds = False + Me.txtEntladeort._value = "" + Me.txtEntladeort._Waehrung = False + Me.txtEntladeort._WaehrungZeichen = True + Me.txtEntladeort.ForeColor = System.Drawing.Color.Black + Me.txtEntladeort.Location = New System.Drawing.Point(694, 287) + Me.txtEntladeort.MaxLength = 35 + Me.txtEntladeort.MaxLineLength = -1 + Me.txtEntladeort.MaxLines_Warning = "" + Me.txtEntladeort.MaxLines_Warning_Label = Nothing + Me.txtEntladeort.Name = "txtEntladeort" + Me.txtEntladeort.Size = New System.Drawing.Size(214, 20) + Me.txtEntladeort.TabIndex = 35 + ' + 'cboVerfahrensart + ' + Me.cboVerfahrensart._allowedValuesFreiText = Nothing + Me.cboVerfahrensart._allowFreiText = False + Me.cboVerfahrensart._value = "" + Me.cboVerfahrensart.DropDownWidth = 350 + Me.cboVerfahrensart.FormattingEnabled = True + Me.cboVerfahrensart.Location = New System.Drawing.Point(142, 81) + Me.cboVerfahrensart.Name = "cboVerfahrensart" + Me.cboVerfahrensart.Size = New System.Drawing.Size(140, 21) + Me.cboVerfahrensart.TabIndex = 64 + ' + 'Label22 + ' + Me.Label22.Location = New System.Drawing.Point(1, 84) + Me.Label22.Name = "Label22" + Me.Label22.Size = New System.Drawing.Size(135, 13) + Me.Label22.TabIndex = 65 + Me.Label22.Text = "Verfahrensart:" + Me.Label22.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'usrCntlATLAS_NCTS004_Allg + ' + 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_NCTS004_Allg" + Me.Size = New System.Drawing.Size(930, 503) + Me.pnl.ResumeLayout(False) + Me.pnl.PerformLayout() + CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit() + Me.Panel1.ResumeLayout(False) + Me.Panel1.PerformLayout() + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents pnl As System.Windows.Forms.Panel + Friend WithEvents Label8 As System.Windows.Forms.Label + Friend WithEvents sbBestimmungZollstelle As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents Label10 As System.Windows.Forms.Label + Friend WithEvents Label9 As System.Windows.Forms.Label + Friend WithEvents sbAbgangZollstelle As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents sbBestimmungsland As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents Label11 As System.Windows.Forms.Label + Friend WithEvents Label12 As System.Windows.Forms.Label + Friend WithEvents sbVersendungsLand As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents sbDurchgangszollstelle5 As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents sbDurchgangszollstelle9 As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents sbDurchgangszollstelle8 As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents sbDurchgangszollstelle7 As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents sbDurchgangszollstelle6 As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents sbDurchgangszollstelle4 As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents sbDurchgangszollstelle3 As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents sbDurchgangszollstelle2 As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents sbDurchgangszollstelle1 As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents txtWiedergestellungsdatum As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents sbKennzeichenGrenzeLand As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents sbKennzeichenAbgangLand As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents Label7 As System.Windows.Forms.Label + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents txtKennzeichenGrenze As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents txtKennzeichenAbgang As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents txtBeladungsort As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents btnTIR As System.Windows.Forms.Button + Friend WithEvents btnT2F As System.Windows.Forms.Button + Friend WithEvents btnT2 As System.Windows.Forms.Button + Friend WithEvents btnT1 As System.Windows.Forms.Button + Friend WithEvents btnTMinus As System.Windows.Forms.Button + Friend WithEvents Label13 As System.Windows.Forms.Label + Friend WithEvents txtArtDetail As System.Windows.Forms.TextBox + Friend WithEvents pic As System.Windows.Forms.PictureBox + Friend WithEvents Label14 As System.Windows.Forms.Label + Friend WithEvents sbRoute5 As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents sbRoute9 As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents sbRoute8 As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents sbRoute7 As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents sbRoute6 As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents sbRoute4 As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents sbRoute3 As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents sbRoute2 As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents sbRoute1 As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents lklRoutenauswahl As System.Windows.Forms.LinkLabel + Friend WithEvents txtLadeort As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label15 As System.Windows.Forms.Label + Friend WithEvents txtEntladeort As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label16 As System.Windows.Forms.Label + Friend WithEvents cboVerkehrszweig As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents cboArtGrenzUeberschreitung As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents Label17 As System.Windows.Forms.Label + Friend WithEvents Label18 As System.Windows.Forms.Label + Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox + Friend WithEvents cbxSumASicherheit As System.Windows.Forms.CheckBox + Friend WithEvents Label20 As System.Windows.Forms.Label + Friend WithEvents cboBesondereUmstaende As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents Label19 As System.Windows.Forms.Label + Friend WithEvents cboZahlungsweiseBefKosten As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents txtKennnummer As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label21 As System.Windows.Forms.Label + Friend WithEvents LinkLabel1 As System.Windows.Forms.LinkLabel + Friend WithEvents lblWegstreckeVonNach As Label + Friend WithEvents lblWegZeit As Label + Friend WithEvents lblWegstrecke As Label + Friend WithEvents Button1 As Button + Friend WithEvents cbxWegStrecke As CheckBox + Friend WithEvents Label22 As Label + Friend WithEvents cboVerfahrensart As VERAG_PROG_ALLGEMEIN.MyComboBox +End Class diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Allg.resx b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Allg.resx new file mode 100644 index 00000000..1af7de15 --- /dev/null +++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Allg.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Allg.vb b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Allg.vb new file mode 100644 index 00000000..6793a075 --- /dev/null +++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Allg.vb @@ -0,0 +1,444 @@ +Public Class usrCntlATLAS_NCTS004_Allg + Property NCTS_ART = "T" + + Dim NCTS As DAKOSY_Worker.cDakosyNCTSOut004 = Nothing + Dim NCTS_TR As VERAG_PROG_ALLGEMEIN.cNCTS_TR = Nothing + + + Sub New(NCTS As DAKOSY_Worker.cDakosyNCTSOut004) + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + Me.NCTS = NCTS + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + + End Sub + + Sub New(NCTS_TR As VERAG_PROG_ALLGEMEIN.cNCTS_TR) + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + Me.NCTS_TR = NCTS_TR + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + + End Sub + + + Private Sub usrCntlATLAS_NCTS_Load(sender As Object, e As EventArgs) Handles MyBase.Load + 'MySearchBox1.initSearchBox(Me.FindForm, "AdressenNr, [Name 1] FROM Adressen", {"[Name 1]", "Ort", "PLZ"}, "", "[Name 1]", "AdressenNr", "AdressenNr") + + ' sbAbgangZollstelle.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"}) + ' sbBestimmungZollstelle.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"}) + 'sbDurchgangszollstelle1.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"}) + 'sbDurchgangszollstelle2.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"}) + 'sbDurchgangszollstelle3.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"}) + 'sbDurchgangszollstelle4.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"}) + 'sbDurchgangszollstelle5.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"}) + 'sbDurchgangszollstelle6.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"}) + 'sbDurchgangszollstelle7.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"}) + 'sbDurchgangszollstelle8.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"}) + 'sbDurchgangszollstelle9.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"}) + sbAbgangZollstelle.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"}) + sbBestimmungZollstelle.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"}) + + sbDurchgangszollstelle1.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"}) + sbDurchgangszollstelle2.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"}) + sbDurchgangszollstelle3.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"}) + sbDurchgangszollstelle4.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"}) + sbDurchgangszollstelle5.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"}) + sbDurchgangszollstelle6.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"}) + sbDurchgangszollstelle7.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"}) + sbDurchgangszollstelle8.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"}) + sbDurchgangszollstelle9.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"}) + + + + sbRoute1.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) + sbRoute2.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) + sbRoute3.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) + sbRoute4.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) + sbRoute5.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) + sbRoute6.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) + sbRoute7.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) + sbRoute8.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) + sbRoute9.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) + 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) + sbKennzeichenGrenzeLand.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) + sbKennzeichenAbgangLand.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) + + + + ' AddHandler sbAbgangZollstelle.VALUE_CHANGED, Sub() + 'If sbAbgangZollstelle.DR IsNot Nothing Then + 'If sbVersendungsLand._value = "" Then sbVersendungsLand.SET_VALUE(sbAbgangZollstelle.DR("Land")) + ' End If + 'End Sub + AddHandler sbBestimmungZollstelle.VALUE_CHANGED, Sub() + If sbBestimmungZollstelle.DR IsNot Nothing Then + If sbBestimmungsland._value = "" Then sbBestimmungsland.SET_VALUE(sbBestimmungZollstelle.DR("Land")) + End If + End Sub + + ' LIST_BGW = (New SQL).loadCboBySqlWithListItem("SELECT [basncd_dstnr],[basncd_name] +' (' +[basncd_alpha]+')' FROM [atlas].[dbo].[basncd] where [basncd_gbdat] >= getdate() order by [basncd_alpha], [basncd_name]", False, "ATLAS") + + + cboVerkehrszweig.Items.Clear() + cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) + cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1 - Seeverkehr", "1")) + cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("2 - Eisenbahnverkehr", "2")) + cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("3 - Straßenverkehr", "3")) + cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4 - Luftverkehr", "4")) + cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("5 - Postsendungen", "5")) + cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("7 - Feste Transporteinrichtungen", "7")) + cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("8 - Binnenschifffahrt", "8")) + cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("9 - Eigener Antrieb", "9")) + cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("10 - Seeverkehr", "10")) + cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("12 - Waggon auf Seeschiff", "12")) + cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("16 - Straßenfahrzeug auf Seeschiff", "16")) + cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("17 - Anhänger/Auflieger auf Seeschiff", "17")) + cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("18 - Binnenschiff auf Seeschiff", "18")) + cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("20 - Eisenbahnverkehr", "20")) + cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("23 - Straßenfahrzeug auf Eisenbahn", "23")) + cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("30 - Straßenverkehr", "30")) + cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("40 - Luftverkehr", "40")) + cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("50 - Postsendungen", "50")) + cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("70 - Feste Transporteinrichtungen", "70")) + cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("80 - Binnenschifffahrt", "80")) + cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("90 - Eigener Antrieb", "90")) + cboVerkehrszweig.changeItem("3") + + + cboArtGrenzUeberschreitung.Items.Clear() + cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) + cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("10 - Seeschiff", "10")) + cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("20 - Waggon", "20")) + cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("31 - Pkw", "31")) + cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("32 - Pkw mit Anhänger", "32")) + cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("33 - Lkw", "33")) + cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("34 - Lkw mit Anhänger", "34")) + cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("35 - Zugmaschine mit Auflieger ", "35")) + cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("40 - Flugzeug", "40")) + cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("50 - Binnenschiff", "50")) + cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("60 - Eigener Antrieb", "60")) + cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("70 - Feste Transporteinrichtung", "70")) + cboArtGrenzUeberschreitung.changeItem("35") + + + cboBesondereUmstaende.Items.Clear() + cboBesondereUmstaende.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) + cboBesondereUmstaende.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("A - Post- und Express-Sendungen", "A")) + cboBesondereUmstaende.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("C - Straßentransport", "C")) + cboBesondereUmstaende.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("D - Bahntransport", "D")) + cboBesondereUmstaende.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("E - Zugel. Wirtschaftsbeteiligte", "E")) + cboBesondereUmstaende.changeItem("C") + + cboVerfahrensart.Items.Clear() + cboVerfahrensart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) + cboVerfahrensart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("10 - Normalverfahren", "10")) + cboVerfahrensart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("11 - Vereinfachtes Vertfahren ohne Verschlüsse", "11")) + cboVerfahrensart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("12 - Vereinfachtes Vertfahren MIT Verschlüsse", "12")) + cboVerfahrensart.changeItem("10") + + + cboZahlungsweiseBefKosten.Items.Clear() + cboZahlungsweiseBefKosten.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) + cboZahlungsweiseBefKosten.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("A - Barzahlung", "A")) + cboZahlungsweiseBefKosten.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("B - Kreditkartenzahlung", "B")) + cboZahlungsweiseBefKosten.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("C - Zahlung mit Scheck", "C")) + cboZahlungsweiseBefKosten.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("D - andere", "D")) + cboZahlungsweiseBefKosten.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("H - Elektr.Geldtransfer", "H")) + cboZahlungsweiseBefKosten.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Y - Kontoinhaber = Beförderer", "Y")) + cboZahlungsweiseBefKosten.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Z - nicht vorausbezahlt", "Z")) + cboZahlungsweiseBefKosten.changeItem("D") + + + + + + + + + 'btnAllgemein_Click(btnT2, New EventArgs) + + ' setValues(NCTS) + End Sub + + + Private Sub Button1_Click(sender As Object, e As EventArgs) + MsgBox(sbAbgangZollstelle._value) + End Sub + + + Public Sub getValues(ByRef NCTS As DAKOSY_Worker.cDakosyNCTSOut004) + NCTS.ncts_Declarationtype = cProgramFunctions.isLeerNothing(NCTS_ART) + NCTS.ncts_TransitDeclarationType = cProgramFunctions.isLeerNothing(cboVerfahrensart._value) + NCTS.ncts_CustomsOfficeOfDeparture = cProgramFunctions.isLeerNothing(sbAbgangZollstelle._value) + NCTS.ncts_CustomsOfficeOfDestinationDeclared = cProgramFunctions.isLeerNothing(sbBestimmungZollstelle._value) + + NCTS.ncts_CountryOfDispatch = cProgramFunctions.isLeerNothing(sbVersendungsLand._value) + NCTS.ncts_CountryOfDestination = cProgramFunctions.isLeerNothing(sbBestimmungsland._value) + + + NCTS.ncts_CustomsOfficeOfTransitDeclared_1_RefNumber = cProgramFunctions.isLeerNothing(sbDurchgangszollstelle1._value) + NCTS.ncts_CustomsOfficeOfTransitDeclared_2_RefNumber = cProgramFunctions.isLeerNothing(sbDurchgangszollstelle2._value) + NCTS.ncts_CustomsOfficeOfTransitDeclared_3_RefNumber = cProgramFunctions.isLeerNothing(sbDurchgangszollstelle3._value) + NCTS.ncts_CustomsOfficeOfTransitDeclared_4_RefNumber = cProgramFunctions.isLeerNothing(sbDurchgangszollstelle4._value) + NCTS.ncts_CustomsOfficeOfTransitDeclared_5_RefNumber = cProgramFunctions.isLeerNothing(sbDurchgangszollstelle5._value) + NCTS.ncts_CustomsOfficeOfTransitDeclared_6_RefNumber = cProgramFunctions.isLeerNothing(sbDurchgangszollstelle6._value) + NCTS.ncts_CustomsOfficeOfTransitDeclared_7_RefNumber = cProgramFunctions.isLeerNothing(sbDurchgangszollstelle7._value) + NCTS.ncts_CustomsOfficeOfTransitDeclared_8_RefNumber = cProgramFunctions.isLeerNothing(sbDurchgangszollstelle8._value) + NCTS.ncts_CustomsOfficeOfTransitDeclared_9_RefNumber = cProgramFunctions.isLeerNothing(sbDurchgangszollstelle9._value) + + + NCTS.ncts_CountryOfRoutingOfConsignment_1 = cProgramFunctions.isLeerNothing(sbRoute1._value) + NCTS.ncts_CountryOfRoutingOfConsignment_2 = cProgramFunctions.isLeerNothing(sbRoute2._value) + NCTS.ncts_CountryOfRoutingOfConsignment_3 = cProgramFunctions.isLeerNothing(sbRoute3._value) + NCTS.ncts_CountryOfRoutingOfConsignment_4 = cProgramFunctions.isLeerNothing(sbRoute4._value) + NCTS.ncts_CountryOfRoutingOfConsignment_5 = cProgramFunctions.isLeerNothing(sbRoute5._value) + NCTS.ncts_CountryOfRoutingOfConsignment_6 = cProgramFunctions.isLeerNothing(sbRoute6._value) + NCTS.ncts_CountryOfRoutingOfConsignment_7 = cProgramFunctions.isLeerNothing(sbRoute7._value) + NCTS.ncts_CountryOfRoutingOfConsignment_8 = cProgramFunctions.isLeerNothing(sbRoute8._value) + NCTS.ncts_CountryOfRoutingOfConsignment_9 = cProgramFunctions.isLeerNothing(sbRoute9._value) + + 'NCTS.ncts_SumA_KennnummerSendung = cProgramFunctions.isLeerNothing(txtKennnummer.Text) + + + ' NCTS.ncts_BeladungsOrt = cProgramFunctions.isLeerNothing(txtBeladungsort.Text) + NCTS.ncts_PlaceOfLoading_Location = cProgramFunctions.isLeerNothing(txtLadeort.Text) + NCTS.ncts_PlaceOfUnLoading_Location = cProgramFunctions.isLeerNothing(txtEntladeort.Text) + ' NCTS.ncts_Wiedergestellungsdatum = cProgramFunctions.isLeerNothing(txtWiedergestellungsdatum._value) + + + If isVereinfachtesVerfahren() Then + 'NCTS.ncts_KzVereinfachtesVerfahren = True + ' MsgBox(txtWiedergestellungsdatum._value) + NCTS.ncts_LimitDate = cProgramFunctions.isLeerNothing(txtWiedergestellungsdatum._value) + ' NCTS.ncts_BeladungsOrt = cProgramFunctions.isLeerNothing(txtBeladungsort.Text) + Else + ' NCTS.ncts_KzVereinfachtesVerfahren = False + NCTS.ncts_LimitDate = Nothing + ' NCTS.ncts_BeladungsOrt = Nothing + End If + + NCTS.ncts_Security = cbxSumASicherheit.Checked + + NCTS.ncts_DepartureTransportMeans_1_IdentificationNumber = cProgramFunctions.isLeerNothing(txtKennzeichenAbgang._value) + NCTS.ncts_DepartureTransportMeans_1_Nationality = cProgramFunctions.isLeerNothing(sbKennzeichenAbgangLand._value) + ' NCTS.ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend = cProgramFunctions.isLeerNothing(txtKennzeichenGrenze._value) + ' NCTS.ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode = cProgramFunctions.isLeerNothing(sbKennzeichenGrenzeLand._value) + + NCTS.ncts_DepartureTransportMeans_1_TypeOfIdentification = cProgramFunctions.isLeerNothing(cboArtGrenzUeberschreitung._value) + ' NCTS.ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent = cProgramFunctions.isLeerNothing(cboVerkehrszweig._value) + NCTS.ncts_SpecificCircomstanceIndicator = cProgramFunctions.isLeerNothing(cboBesondereUmstaende._value) + NCTS.ncts_TransportCharges = cProgramFunctions.isLeerNothing(cboZahlungsweiseBefKosten._value) + + ' NCTS.ncts_GesamtRohmasse = cProgramFunctions.isLeerNothing(rohm._value) + + ' NCTS.ncts_KzVereinfachtesVerfahren = If(cbxVereinfachtesVerfahren.Checked, True, False) '??? + + End Sub + + + Public Sub setValues(NCTS As DAKOSY_Worker.cDakosyNCTSOut004) + If NCTS Is Nothing Then Exit Sub + sbAbgangZollstelle.SET_VALUE(If(NCTS.ncts_CustomsOfficeOfDeparture, "")) + sbBestimmungZollstelle.SET_VALUE(If(NCTS.ncts_CustomsOfficeOfDestinationDeclared, "")) + + + sbVersendungsLand.SET_VALUE(If(NCTS.ncts_CountryOfDispatch, "")) + sbBestimmungsland.SET_VALUE(If(NCTS.ncts_CountryOfDestination, "")) + + sbDurchgangszollstelle1.SET_VALUE(NCTS.ncts_CustomsOfficeOfTransitDeclared_1_RefNumber) + sbDurchgangszollstelle2.SET_VALUE(NCTS.ncts_CustomsOfficeOfTransitDeclared_2_RefNumber) + sbDurchgangszollstelle3.SET_VALUE(NCTS.ncts_CustomsOfficeOfTransitDeclared_3_RefNumber) + sbDurchgangszollstelle4.SET_VALUE(NCTS.ncts_CustomsOfficeOfTransitDeclared_4_RefNumber) + sbDurchgangszollstelle5.SET_VALUE(NCTS.ncts_CustomsOfficeOfTransitDeclared_5_RefNumber) + sbDurchgangszollstelle6.SET_VALUE(NCTS.ncts_CustomsOfficeOfTransitDeclared_6_RefNumber) + sbDurchgangszollstelle7.SET_VALUE(NCTS.ncts_CustomsOfficeOfTransitDeclared_7_RefNumber) + sbDurchgangszollstelle8.SET_VALUE(NCTS.ncts_CustomsOfficeOfTransitDeclared_8_RefNumber) + sbDurchgangszollstelle9.SET_VALUE(NCTS.ncts_CustomsOfficeOfTransitDeclared_9_RefNumber) + + sbRoute1.SET_VALUE(NCTS.ncts_CountryOfRoutingOfConsignment_1) + sbRoute2.SET_VALUE(NCTS.ncts_CountryOfRoutingOfConsignment_2) + sbRoute3.SET_VALUE(NCTS.ncts_CountryOfRoutingOfConsignment_3) + sbRoute4.SET_VALUE(NCTS.ncts_CountryOfRoutingOfConsignment_4) + sbRoute5.SET_VALUE(NCTS.ncts_CountryOfRoutingOfConsignment_5) + sbRoute6.SET_VALUE(NCTS.ncts_CountryOfRoutingOfConsignment_6) + sbRoute7.SET_VALUE(NCTS.ncts_CountryOfRoutingOfConsignment_7) + sbRoute8.SET_VALUE(NCTS.ncts_CountryOfRoutingOfConsignment_8) + sbRoute9.SET_VALUE(NCTS.ncts_CountryOfRoutingOfConsignment_9) + + 'txtKennnummer.Text = NCTS.ncts_SumA_KennnummerSendung + + NCTS_ART = If(NCTS.ncts_Declarationtype, "T") + + Select Case NCTS_ART + Case "T-", "T" : initButton(btnTMinus) + Case "T1" : initButton(btnT1) + Case "T2" : initButton(btnT2) + Case "T2F" : initButton(btnT2F) + Case "TIR" : initButton(btnTIR) + End Select + + + cboVerfahrensart.changeItem(If(NCTS.ncts_TransitDeclarationType, "")) + 'cbxVereinfachtesVerfahren.Checked = If(NCTS.ncts_KzVereinfachtesVerfahren, False) + 'cbxSumASicherheit.Checked = If(NCTS.ncts_SumA_KzSumASicherheit, False) + + ' txtBeladungsort.Text = If(NCTS.ncts_PlaceOfLoading_Location, "") + txtWiedergestellungsdatum._value = If(NCTS.ncts_LimitDate, Nothing) + + txtLadeort.Text = If(NCTS.ncts_PlaceOfLoading_Location, "") + txtEntladeort.Text = If(NCTS.ncts_PlaceOfUnLoading_Location, "") + + + txtKennzeichenAbgang.Text = If(NCTS.ncts_DepartureTransportMeans_1_IdentificationNumber, "") + sbKennzeichenAbgangLand.SET_VALUE(If(NCTS.ncts_DepartureTransportMeans_1_Nationality, "")) + 'txtKennzeichenGrenze.Text = If(NCTS.ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend, "") + 'sbKennzeichenGrenzeLand.SET_VALUE(If(NCTS.ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode, "")) + + + cboArtGrenzUeberschreitung.changeItem(NCTS.ncts_DepartureTransportMeans_1_TypeOfIdentification) + ' cboVerkehrszweig.changeItem(NCTS.ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent) + + cboBesondereUmstaende.changeItem(NCTS.ncts_SpecificCircomstanceIndicator) + cboZahlungsweiseBefKosten.changeItem(NCTS.ncts_TransportCharges) + + End Sub + Private Sub btnAllgemein_Click(sender As Object, e As EventArgs) Handles btnTMinus.Click, btnTIR.Click, btnT2F.Click, btnT2.Click, btnT1.Click + initButton(sender) + End Sub + + Sub initButton(sender As Button) + setBtn(btnTMinus, False) + setBtn(btnT1, False) + setBtn(btnT2, False) + setBtn(btnT2F, False) + setBtn(btnTIR, False) + + If sender Is btnTMinus Then + NCTS_ART = "T-" : txtArtDetail.Text = "Versandanmeldung T- Gemischte Sendungen aus T1- und T2-Waren oder aus T1- und T2F-Waren, die - für jede Warenart getrennt - auf Positionsebene aufgeführt sind." + ElseIf sender Is btnT1 Then + NCTS_ART = "T1" : txtArtDetail.Text = "Versandanmeldung T1 Waren, die im externen gemeinschaftlichen/gemeinsamen Versandverfahren befördert werden sollen." + ElseIf sender Is btnT2 Then + NCTS_ART = "T2" : txtArtDetail.Text = "Versandanmeldung T2 Waren, die - soweit nicht das T2F-Verfahren vorgeschrieben ist - im internen gemeinschaftlichen Versandverfahren befördert werden sollen" + ElseIf sender Is btnT2F Then + NCTS_ART = "T2F" : txtArtDetail.Text = "Versandanmeldung T2F Waren, die im Linienverkehr zwischen Teilen des Zollgebiets der Gemeinschaft, in denen die Richtlinie 77/388/EWG (6. Mehrwertsteuerrichtlinie) Anwendung findet und den Teilen des Zollgebiets der Gemeinschaft, in denen diese Richtlinie nicht gilt (siehe Titel I, Absatz 3) im internen gemeinschaftlichen Versandverfahren befördert werden sollen." + ElseIf sender Is btnTIR Then + NCTS_ART = "TIR" : txtArtDetail.Text = "Versandanmeldung für Waren, die im TIR (Transports Internationaux Routiers) befördert werden sollen" + End If + setBtn(sender, True) + 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 lklRoutenauswahl_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lklRoutenauswahl.LinkClicked + Dim frmRoutenauswahl As New frmRoutenauswahl + If frmRoutenauswahl.ShowDialog(Me) = DialogResult.OK Then + If frmRoutenauswahl.ROUTE.Count > 0 Then sbRoute1.SET_VALUE(frmRoutenauswahl.ROUTE(0)) Else sbRoute1.SET_VALUE("") + If frmRoutenauswahl.ROUTE.Count > 1 Then sbRoute2.SET_VALUE(frmRoutenauswahl.ROUTE(1)) Else sbRoute2.SET_VALUE("") + If frmRoutenauswahl.ROUTE.Count > 2 Then sbRoute3.SET_VALUE(frmRoutenauswahl.ROUTE(2)) Else sbRoute3.SET_VALUE("") + If frmRoutenauswahl.ROUTE.Count > 3 Then sbRoute4.SET_VALUE(frmRoutenauswahl.ROUTE(3)) Else sbRoute4.SET_VALUE("") + If frmRoutenauswahl.ROUTE.Count > 4 Then sbRoute5.SET_VALUE(frmRoutenauswahl.ROUTE(4)) Else sbRoute5.SET_VALUE("") + If frmRoutenauswahl.ROUTE.Count > 5 Then sbRoute6.SET_VALUE(frmRoutenauswahl.ROUTE(5)) Else sbRoute6.SET_VALUE("") + If frmRoutenauswahl.ROUTE.Count > 6 Then sbRoute7.SET_VALUE(frmRoutenauswahl.ROUTE(6)) Else sbRoute7.SET_VALUE("") + If frmRoutenauswahl.ROUTE.Count > 7 Then sbRoute8.SET_VALUE(frmRoutenauswahl.ROUTE(7)) Else sbRoute8.SET_VALUE("") + If frmRoutenauswahl.ROUTE.Count > 8 Then sbRoute9.SET_VALUE(frmRoutenauswahl.ROUTE(8)) Else sbRoute9.SET_VALUE("") + + If frmRoutenauswahl.ZOLLAEMTER.Count > 0 Then sbDurchgangszollstelle1.SET_VALUE(frmRoutenauswahl.ZOLLAEMTER(0)) Else sbDurchgangszollstelle1.SET_VALUE("") + If frmRoutenauswahl.ZOLLAEMTER.Count > 1 Then sbDurchgangszollstelle2.SET_VALUE(frmRoutenauswahl.ZOLLAEMTER(1)) Else sbDurchgangszollstelle2.SET_VALUE("") + If frmRoutenauswahl.ZOLLAEMTER.Count > 2 Then sbDurchgangszollstelle3.SET_VALUE(frmRoutenauswahl.ZOLLAEMTER(2)) Else sbDurchgangszollstelle3.SET_VALUE("") + If frmRoutenauswahl.ZOLLAEMTER.Count > 3 Then sbDurchgangszollstelle4.SET_VALUE(frmRoutenauswahl.ZOLLAEMTER(3)) Else sbDurchgangszollstelle4.SET_VALUE("") + If frmRoutenauswahl.ZOLLAEMTER.Count > 4 Then sbDurchgangszollstelle5.SET_VALUE(frmRoutenauswahl.ZOLLAEMTER(4)) Else sbDurchgangszollstelle5.SET_VALUE("") + If frmRoutenauswahl.ZOLLAEMTER.Count > 5 Then sbDurchgangszollstelle6.SET_VALUE(frmRoutenauswahl.ZOLLAEMTER(5)) Else sbDurchgangszollstelle6.SET_VALUE("") + If frmRoutenauswahl.ZOLLAEMTER.Count > 6 Then sbDurchgangszollstelle7.SET_VALUE(frmRoutenauswahl.ZOLLAEMTER(6)) Else sbDurchgangszollstelle7.SET_VALUE("") + If frmRoutenauswahl.ZOLLAEMTER.Count > 7 Then sbDurchgangszollstelle8.SET_VALUE(frmRoutenauswahl.ZOLLAEMTER(7)) Else sbDurchgangszollstelle8.SET_VALUE("") + If frmRoutenauswahl.ZOLLAEMTER.Count > 8 Then sbDurchgangszollstelle9.SET_VALUE(frmRoutenauswahl.ZOLLAEMTER(8)) Else sbDurchgangszollstelle9.SET_VALUE("") + + + If frmRoutenauswahl.BESTIMMUNGSLAND <> "" Then sbBestimmungsland.SET_VALUE(frmRoutenauswahl.BESTIMMUNGSLAND) + End If + End Sub + + + + Private Sub cbxSumASicherheit_CheckedChanged(sender As Object, e As EventArgs) Handles cbxSumASicherheit.CheckedChanged + txtEntladeort.Enabled = isVereinfachtesVerfahren() + txtLadeort.Enabled = isVereinfachtesVerfahren() + If Not txtLadeort.Enabled Then txtLadeort.Text = "" + If Not txtEntladeort.Enabled Then txtEntladeort.Text = "" + End Sub + + Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click + txtKennzeichenGrenze.Text = txtKennzeichenAbgang.Text + End Sub + + Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click + txtKennzeichenAbgang.Text = txtKennzeichenGrenze.Text + + End Sub + + Private Sub sbVersendungsLand_TextChanged() Handles sbVersendungsLand.VALUE_CHANGED + If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" And isVereinfachtesVerfahren() Then + If sbVersendungsLand._value <> "" And txtLadeort.Text = "" Then + txtLadeort.Text = sbVersendungsLand._value + End If + End If + End Sub + + Private Sub sbBestimmungsland_TextChanged() Handles sbBestimmungsland.VALUE_CHANGED + If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" And isVereinfachtesVerfahren() Then + If sbBestimmungsland._value <> "" And txtEntladeort.Text = "" Then + txtEntladeort.Text = sbBestimmungsland._value + End If + End If + End Sub + + Function isVereinfachtesVerfahren() + Return (cboVerfahrensart._value = "11" Or cboVerfahrensart._value = "12") + End Function + + Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked + txtKennzeichenGrenze.Text = txtKennzeichenAbgang.Text + sbKennzeichenGrenzeLand.SET_VALUE(sbKennzeichenAbgangLand._value) + End Sub + + Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click + Dim origin = "" + Dim destination = "" + + If sbAbgangZollstelle._value <> "" Then + origin = sbAbgangZollstelle._value.Substring(0, 2) & " " & sbAbgangZollstelle.Text + Else Exit Sub + End If + + If sbBestimmungZollstelle._value <> "" Then + destination = sbBestimmungZollstelle._value.Substring(0, 2) & " " & sbBestimmungZollstelle.Text + Else Exit Sub + End If + + Dim duration = "" + Dim distance = "" + Dim distanceSek = "" + VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance(origin, destination, duration, distance, cbxWegStrecke.Checked) + + 'lblWegstreckeVonNach.Text = "von: " & origin & vbNewLine + 'lblWegstreckeVonNach.Text &= "nach: " & destination + + + lblWegstrecke.Text = "Wegstrecke: " & distance + lblWegZeit.Text = "Fahrzeit: " & duration + + + End Sub +End Class diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Position.Designer.vb b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Position.Designer.vb new file mode 100644 index 00000000..e723ad0a --- /dev/null +++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Position.Designer.vb @@ -0,0 +1,1661 @@ + +Partial Class usrCntlATLAS_NCTS004_Position + Inherits System.Windows.Forms.UserControl + + 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + 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. + + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlATLAS_NCTS004_Position)) + Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Me.pnl = New System.Windows.Forms.Panel() + Me.Label13 = New System.Windows.Forms.Label() + Me.cboArtAnmeldung = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.Label10 = New System.Windows.Forms.Label() + Me.sbVersendungsLand = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.sbBestimmungsland = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.Label11 = New System.Windows.Forms.Label() + Me.Label12 = New System.Windows.Forms.Label() + Me.txtKdRefNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cboWaehrung = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.txtSiBetragProzent = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label8 = New System.Windows.Forms.Label() + Me.usrcntlSumAEmpfaenger = New SDL.usrCntlAdresse() + Me.usrcntlSumAVersedner = New SDL.usrCntlAdresse() + Me.usrcntlEmpfaenger = New SDL.usrCntlAdresse() + Me.usrcntlVersedner = New SDL.usrCntlAdresse() + Me.Label7 = New System.Windows.Forms.Label() + Me.sbExportAusLand = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.cbxVermerk10600 = New System.Windows.Forms.CheckBox() + Me.Label6 = New System.Windows.Forms.Label() + Me.cbxVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cbxEmportAbgaben = New System.Windows.Forms.CheckBox() + Me.cbxEmportBeschraernkung = New System.Windows.Forms.CheckBox() + Me.cbxEmport = New System.Windows.Forms.CheckBox() + Me.cbxEmportAusLand = New System.Windows.Forms.CheckBox() + Me.cbxExportAusEU = New System.Windows.Forms.CheckBox() + Me.lklBearbeitungAbbrechenVP = New System.Windows.Forms.LinkLabel() + Me.lklBearbeitungAbbrechenUl = New System.Windows.Forms.LinkLabel() + Me.Label40 = New System.Windows.Forms.Label() + Me.cboVpTyp = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtVpReferenz = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Button4 = New System.Windows.Forms.Button() + Me.Button5 = New System.Windows.Forms.Button() + Me.txtVpZusatz = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label37 = New System.Windows.Forms.Label() + Me.dgvVorpapier = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.VpReferenz = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.VpZusatz = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Label38 = New System.Windows.Forms.Label() + Me.Label39 = New System.Windows.Forms.Label() + Me.Label36 = New System.Windows.Forms.Label() + Me.Label35 = New System.Windows.Forms.Label() + Me.Label34 = New System.Windows.Forms.Label() + Me.Label31 = New System.Windows.Forms.Label() + Me.txtWarennummer = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtWTNat = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtWTZ2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtWTZ1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtWTTaric = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label32 = New System.Windows.Forms.Label() + Me.Label33 = New System.Windows.Forms.Label() + Me.Label30 = New System.Windows.Forms.Label() + Me.MySearchBox1 = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.txtEigenmasse = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtRohmasse = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label27 = New System.Windows.Forms.Label() + Me.Label28 = New System.Windows.Forms.Label() + Me.sbUlArten = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.sbPkTyp = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.Button3 = New System.Windows.Forms.Button() + Me.Button2 = New System.Windows.Forms.Button() + Me.lblPosNr = New System.Windows.Forms.Label() + Me.Button1 = New System.Windows.Forms.Button() + Me.txtUlZusatz = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtUlReferenz = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.btn = New System.Windows.Forms.Button() + Me.txtPkMarke = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtPkAnzahl = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label19 = New System.Windows.Forms.Label() + Me.dgvUnterlage = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.UlCode = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewComboBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.UlReferenz = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.UlZusatz = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Label18 = New System.Windows.Forms.Label() + Me.dgvPackstuecke = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.PkCode = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Anzahl = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Typ = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Marke = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Label22 = New System.Windows.Forms.Label() + Me.Label9 = New System.Windows.Forms.Label() + Me.Label4 = New System.Windows.Forms.Label() + Me.Label3 = New System.Windows.Forms.Label() + Me.txtWarenwert = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.txtWarenbezeichnung = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label21 = New System.Windows.Forms.Label() + Me.Label20 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.Label24 = New System.Windows.Forms.Label() + Me.Label23 = New System.Windows.Forms.Label() + Me.Label5 = New System.Windows.Forms.Label() + Me.Label29 = New System.Windows.Forms.Label() + Me.lklBearbeitungAbbrechenPK = New System.Windows.Forms.LinkLabel() + Me.pnl.SuspendLayout() + CType(Me.dgvVorpapier, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dgvUnterlage, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dgvPackstuecke, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'pnl + ' + Me.pnl.AutoScroll = True + Me.pnl.BackColor = System.Drawing.Color.FloralWhite + Me.pnl.Controls.Add(Me.Label13) + Me.pnl.Controls.Add(Me.cboArtAnmeldung) + Me.pnl.Controls.Add(Me.Label10) + Me.pnl.Controls.Add(Me.sbVersendungsLand) + Me.pnl.Controls.Add(Me.sbBestimmungsland) + Me.pnl.Controls.Add(Me.Label11) + Me.pnl.Controls.Add(Me.Label12) + Me.pnl.Controls.Add(Me.txtKdRefNr) + Me.pnl.Controls.Add(Me.cboWaehrung) + Me.pnl.Controls.Add(Me.txtSiBetragProzent) + Me.pnl.Controls.Add(Me.Label8) + Me.pnl.Controls.Add(Me.usrcntlSumAEmpfaenger) + Me.pnl.Controls.Add(Me.usrcntlSumAVersedner) + Me.pnl.Controls.Add(Me.usrcntlEmpfaenger) + Me.pnl.Controls.Add(Me.usrcntlVersedner) + Me.pnl.Controls.Add(Me.Label7) + Me.pnl.Controls.Add(Me.sbExportAusLand) + Me.pnl.Controls.Add(Me.cbxVermerk10600) + Me.pnl.Controls.Add(Me.Label6) + Me.pnl.Controls.Add(Me.cbxVermerk) + Me.pnl.Controls.Add(Me.cbxEmportAbgaben) + Me.pnl.Controls.Add(Me.cbxEmportBeschraernkung) + Me.pnl.Controls.Add(Me.cbxEmport) + Me.pnl.Controls.Add(Me.cbxEmportAusLand) + Me.pnl.Controls.Add(Me.cbxExportAusEU) + Me.pnl.Controls.Add(Me.lklBearbeitungAbbrechenVP) + Me.pnl.Controls.Add(Me.lklBearbeitungAbbrechenUl) + Me.pnl.Controls.Add(Me.Label40) + Me.pnl.Controls.Add(Me.cboVpTyp) + Me.pnl.Controls.Add(Me.txtVpReferenz) + Me.pnl.Controls.Add(Me.Button4) + Me.pnl.Controls.Add(Me.Button5) + Me.pnl.Controls.Add(Me.txtVpZusatz) + Me.pnl.Controls.Add(Me.Label37) + Me.pnl.Controls.Add(Me.dgvVorpapier) + Me.pnl.Controls.Add(Me.Label38) + Me.pnl.Controls.Add(Me.Label39) + Me.pnl.Controls.Add(Me.Label36) + Me.pnl.Controls.Add(Me.Label35) + Me.pnl.Controls.Add(Me.Label34) + Me.pnl.Controls.Add(Me.Label31) + Me.pnl.Controls.Add(Me.txtWarennummer) + Me.pnl.Controls.Add(Me.txtWTNat) + Me.pnl.Controls.Add(Me.txtWTZ2) + Me.pnl.Controls.Add(Me.txtWTZ1) + Me.pnl.Controls.Add(Me.txtWTTaric) + Me.pnl.Controls.Add(Me.Label32) + Me.pnl.Controls.Add(Me.Label33) + Me.pnl.Controls.Add(Me.Label30) + Me.pnl.Controls.Add(Me.MySearchBox1) + Me.pnl.Controls.Add(Me.txtEigenmasse) + Me.pnl.Controls.Add(Me.txtRohmasse) + Me.pnl.Controls.Add(Me.Label27) + Me.pnl.Controls.Add(Me.Label28) + Me.pnl.Controls.Add(Me.sbUlArten) + Me.pnl.Controls.Add(Me.sbPkTyp) + Me.pnl.Controls.Add(Me.Button3) + Me.pnl.Controls.Add(Me.Button2) + Me.pnl.Controls.Add(Me.lblPosNr) + Me.pnl.Controls.Add(Me.Button1) + Me.pnl.Controls.Add(Me.txtUlZusatz) + Me.pnl.Controls.Add(Me.txtUlReferenz) + Me.pnl.Controls.Add(Me.btn) + Me.pnl.Controls.Add(Me.txtPkMarke) + Me.pnl.Controls.Add(Me.txtPkAnzahl) + Me.pnl.Controls.Add(Me.Label19) + Me.pnl.Controls.Add(Me.dgvUnterlage) + Me.pnl.Controls.Add(Me.Label18) + Me.pnl.Controls.Add(Me.dgvPackstuecke) + Me.pnl.Controls.Add(Me.Label22) + Me.pnl.Controls.Add(Me.Label9) + Me.pnl.Controls.Add(Me.Label4) + Me.pnl.Controls.Add(Me.Label3) + Me.pnl.Controls.Add(Me.txtWarenwert) + Me.pnl.Controls.Add(Me.Label1) + Me.pnl.Controls.Add(Me.txtWarenbezeichnung) + Me.pnl.Controls.Add(Me.Label21) + Me.pnl.Controls.Add(Me.Label20) + Me.pnl.Controls.Add(Me.Label2) + Me.pnl.Controls.Add(Me.Label24) + Me.pnl.Controls.Add(Me.Label23) + Me.pnl.Controls.Add(Me.Label5) + Me.pnl.Controls.Add(Me.Label29) + Me.pnl.Controls.Add(Me.lklBearbeitungAbbrechenPK) + 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(730, 1100) + Me.pnl.TabIndex = 0 + ' + 'Label13 + ' + Me.Label13.Location = New System.Drawing.Point(370, 118) + Me.Label13.Name = "Label13" + Me.Label13.Size = New System.Drawing.Size(64, 13) + Me.Label13.TabIndex = 83 + Me.Label13.Text = "Warenfluss:" + Me.Label13.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'cboArtAnmeldung + ' + Me.cboArtAnmeldung._allowedValuesFreiText = Nothing + Me.cboArtAnmeldung._allowFreiText = False + Me.cboArtAnmeldung._value = "" + Me.cboArtAnmeldung.DropDownWidth = 300 + Me.cboArtAnmeldung.FormattingEnabled = True + Me.cboArtAnmeldung.Location = New System.Drawing.Point(136, 203) + Me.cboArtAnmeldung.Name = "cboArtAnmeldung" + Me.cboArtAnmeldung.Size = New System.Drawing.Size(233, 21) + Me.cboArtAnmeldung.TabIndex = 35 + ' + 'Label10 + ' + Me.Label10.Location = New System.Drawing.Point(19, 206) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(111, 13) + Me.Label10.TabIndex = 34 + Me.Label10.Text = "Art der Anmeldung:" + Me.Label10.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'sbVersendungsLand + ' + Me.sbVersendungsLand._allowFreitext = False + Me.sbVersendungsLand._AllowSetValue = False + Me.sbVersendungsLand._allowSpaceAsSplitter = False + Me.sbVersendungsLand._autoSizeGross = False + Me.sbVersendungsLand._hideIfListEmpty = True + Me.sbVersendungsLand._value = "" + Me.sbVersendungsLand.conn_art = "FMZOLL" + Me.sbVersendungsLand.dgvpos = "LEFT" + Me.sbVersendungsLand.DISPLAY_PARAM = Nothing + Me.sbVersendungsLand.INVISIBLE_COLUMNS = Nothing + Me.sbVersendungsLand.key_visible = False + Me.sbVersendungsLand.KEYPARAM = Nothing + Me.sbVersendungsLand.Location = New System.Drawing.Point(436, 115) + Me.sbVersendungsLand.Name = "sbVersendungsLand" + Me.sbVersendungsLand.searchActive = True + Me.sbVersendungsLand.Size = New System.Drawing.Size(117, 20) + Me.sbVersendungsLand.SQL_ORDER_BY = Nothing + Me.sbVersendungsLand.SQL_SELECT = Nothing + Me.sbVersendungsLand.SQL_WHERE = Nothing + Me.sbVersendungsLand.SQL_WhereParamList = Nothing + Me.sbVersendungsLand.TabIndex = 20 + Me.sbVersendungsLand.usrcntl = Nothing + ' + 'sbBestimmungsland + ' + Me.sbBestimmungsland._allowFreitext = False + Me.sbBestimmungsland._AllowSetValue = False + Me.sbBestimmungsland._allowSpaceAsSplitter = False + Me.sbBestimmungsland._autoSizeGross = False + Me.sbBestimmungsland._hideIfListEmpty = True + Me.sbBestimmungsland._value = "" + Me.sbBestimmungsland.conn_art = "FMZOLL" + Me.sbBestimmungsland.dgvpos = "RIGHT" + Me.sbBestimmungsland.DISPLAY_PARAM = Nothing + Me.sbBestimmungsland.INVISIBLE_COLUMNS = Nothing + Me.sbBestimmungsland.key_visible = False + Me.sbBestimmungsland.KEYPARAM = Nothing + Me.sbBestimmungsland.Location = New System.Drawing.Point(552, 115) + Me.sbBestimmungsland.Name = "sbBestimmungsland" + Me.sbBestimmungsland.searchActive = True + Me.sbBestimmungsland.Size = New System.Drawing.Size(117, 20) + Me.sbBestimmungsland.SQL_ORDER_BY = Nothing + Me.sbBestimmungsland.SQL_SELECT = Nothing + Me.sbBestimmungsland.SQL_WHERE = Nothing + Me.sbBestimmungsland.SQL_WhereParamList = Nothing + Me.sbBestimmungsland.TabIndex = 21 + Me.sbBestimmungsland.usrcntl = Nothing + ' + 'Label11 + ' + Me.Label11.Location = New System.Drawing.Point(551, 99) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(116, 13) + Me.Label11.TabIndex = 13 + Me.Label11.Text = "Bestimmungs-Land:" + ' + 'Label12 + ' + Me.Label12.Location = New System.Drawing.Point(433, 99) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(135, 13) + Me.Label12.TabIndex = 12 + Me.Label12.Text = "Versendungs-Land:" + ' + 'txtKdRefNr + ' + Me.txtKdRefNr._DateTimeOnly = False + Me.txtKdRefNr._numbersOnly = False + Me.txtKdRefNr._numbersOnlyKommastellen = "" + Me.txtKdRefNr._numbersOnlyTrennzeichen = True + Me.txtKdRefNr._Prozent = False + Me.txtKdRefNr._ShortDateNew = False + Me.txtKdRefNr._ShortDateOnly = False + Me.txtKdRefNr._TimeOnly = False + Me.txtKdRefNr._TimeOnly_Seconds = False + Me.txtKdRefNr._value = "-" + Me.txtKdRefNr._Waehrung = False + Me.txtKdRefNr._WaehrungZeichen = True + Me.txtKdRefNr.ForeColor = System.Drawing.Color.Black + Me.txtKdRefNr.Location = New System.Drawing.Point(506, 13) + Me.txtKdRefNr.MaxLength = 500 + Me.txtKdRefNr.MaxLineLength = -1 + Me.txtKdRefNr.MaxLines_Warning = "" + Me.txtKdRefNr.MaxLines_Warning_Label = Nothing + Me.txtKdRefNr.Name = "txtKdRefNr" + Me.txtKdRefNr.Size = New System.Drawing.Size(163, 20) + Me.txtKdRefNr.TabIndex = 4 + Me.txtKdRefNr.Text = "-" + Me.txtKdRefNr.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'cboWaehrung + ' + Me.cboWaehrung._allowFreitext = False + Me.cboWaehrung._AllowSetValue = False + Me.cboWaehrung._allowSpaceAsSplitter = False + Me.cboWaehrung._autoSizeGross = False + Me.cboWaehrung._hideIfListEmpty = True + Me.cboWaehrung._value = Nothing + Me.cboWaehrung.conn_art = "FMZOLL" + Me.cboWaehrung.dgvpos = "LEFT" + Me.cboWaehrung.DISPLAY_PARAM = Nothing + Me.cboWaehrung.INVISIBLE_COLUMNS = Nothing + Me.cboWaehrung.key_visible = False + Me.cboWaehrung.KEYPARAM = Nothing + Me.cboWaehrung.Location = New System.Drawing.Point(302, 154) + Me.cboWaehrung.Name = "cboWaehrung" + Me.cboWaehrung.searchActive = True + Me.cboWaehrung.Size = New System.Drawing.Size(67, 20) + Me.cboWaehrung.SQL_ORDER_BY = Nothing + Me.cboWaehrung.SQL_SELECT = Nothing + Me.cboWaehrung.SQL_WHERE = Nothing + Me.cboWaehrung.SQL_WhereParamList = Nothing + Me.cboWaehrung.TabIndex = 26 + Me.cboWaehrung.usrcntl = Nothing + ' + 'txtSiBetragProzent + ' + Me.txtSiBetragProzent._DateTimeOnly = False + Me.txtSiBetragProzent._numbersOnly = False + Me.txtSiBetragProzent._numbersOnlyKommastellen = "" + Me.txtSiBetragProzent._numbersOnlyTrennzeichen = True + Me.txtSiBetragProzent._Prozent = True + Me.txtSiBetragProzent._ShortDateNew = False + Me.txtSiBetragProzent._ShortDateOnly = False + Me.txtSiBetragProzent._TimeOnly = False + Me.txtSiBetragProzent._TimeOnly_Seconds = False + Me.txtSiBetragProzent._value = "0,25" + Me.txtSiBetragProzent._Waehrung = False + Me.txtSiBetragProzent._WaehrungZeichen = True + Me.txtSiBetragProzent.ForeColor = System.Drawing.Color.Black + Me.txtSiBetragProzent.Location = New System.Drawing.Point(136, 173) + Me.txtSiBetragProzent.MaxLineLength = -1 + Me.txtSiBetragProzent.MaxLines_Warning = "" + Me.txtSiBetragProzent.MaxLines_Warning_Label = Nothing + Me.txtSiBetragProzent.Name = "txtSiBetragProzent" + Me.txtSiBetragProzent.Size = New System.Drawing.Size(56, 20) + Me.txtSiBetragProzent.TabIndex = 32 + Me.txtSiBetragProzent.Text = "25,00 %" + Me.txtSiBetragProzent.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label8.Location = New System.Drawing.Point(4, 773) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(285, 13) + Me.Label8.TabIndex = 78 + Me.Label8.Text = "Nur auszufüllen, wenn mehrere Warenpositionen:" + Me.Label8.Visible = False + ' + 'usrcntlSumAEmpfaenger + ' + Me.usrcntlSumAEmpfaenger._Titel = "SumA Empfänger:" + Me.usrcntlSumAEmpfaenger.BackColor = System.Drawing.Color.White + Me.usrcntlSumAEmpfaenger.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.usrcntlSumAEmpfaenger.Enabled = False + Me.usrcntlSumAEmpfaenger.Location = New System.Drawing.Point(354, 943) + Me.usrcntlSumAEmpfaenger.Name = "usrcntlSumAEmpfaenger" + Me.usrcntlSumAEmpfaenger.Size = New System.Drawing.Size(345, 133) + Me.usrcntlSumAEmpfaenger.TabIndex = 82 + ' + 'usrcntlSumAVersedner + ' + Me.usrcntlSumAVersedner._Titel = "SumA Versender:" + Me.usrcntlSumAVersedner.BackColor = System.Drawing.Color.White + Me.usrcntlSumAVersedner.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.usrcntlSumAVersedner.Enabled = False + Me.usrcntlSumAVersedner.Location = New System.Drawing.Point(7, 943) + Me.usrcntlSumAVersedner.Name = "usrcntlSumAVersedner" + Me.usrcntlSumAVersedner.Size = New System.Drawing.Size(345, 133) + Me.usrcntlSumAVersedner.TabIndex = 81 + ' + 'usrcntlEmpfaenger + ' + Me.usrcntlEmpfaenger._Titel = "Empfänger:" + Me.usrcntlEmpfaenger.BackColor = System.Drawing.Color.White + Me.usrcntlEmpfaenger.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.usrcntlEmpfaenger.Location = New System.Drawing.Point(354, 789) + Me.usrcntlEmpfaenger.Name = "usrcntlEmpfaenger" + Me.usrcntlEmpfaenger.Size = New System.Drawing.Size(345, 133) + Me.usrcntlEmpfaenger.TabIndex = 80 + ' + 'usrcntlVersedner + ' + Me.usrcntlVersedner._Titel = "Versender:" + Me.usrcntlVersedner.BackColor = System.Drawing.Color.White + Me.usrcntlVersedner.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.usrcntlVersedner.Location = New System.Drawing.Point(7, 789) + Me.usrcntlVersedner.Name = "usrcntlVersedner" + Me.usrcntlVersedner.Size = New System.Drawing.Size(345, 133) + Me.usrcntlVersedner.TabIndex = 79 + ' + 'Label7 + ' + Me.Label7.ForeColor = System.Drawing.Color.Red + Me.Label7.Location = New System.Drawing.Point(436, 175) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(233, 13) + Me.Label7.TabIndex = 30 + Me.Label7.Text = "Eigenmasse muss kleiner als Rohmasse sein!" + Me.Label7.Visible = False + ' + 'sbExportAusLand + ' + Me.sbExportAusLand._allowFreitext = False + Me.sbExportAusLand._AllowSetValue = False + Me.sbExportAusLand._allowSpaceAsSplitter = False + Me.sbExportAusLand._autoSizeGross = False + Me.sbExportAusLand._hideIfListEmpty = True + Me.sbExportAusLand._value = Nothing + Me.sbExportAusLand.conn_art = "FMZOLL" + Me.sbExportAusLand.dgvpos = "LEFT" + Me.sbExportAusLand.DISPLAY_PARAM = Nothing + Me.sbExportAusLand.Enabled = False + Me.sbExportAusLand.INVISIBLE_COLUMNS = Nothing + Me.sbExportAusLand.key_visible = False + Me.sbExportAusLand.KEYPARAM = Nothing + Me.sbExportAusLand.Location = New System.Drawing.Point(271, 715) + Me.sbExportAusLand.Name = "sbExportAusLand" + Me.sbExportAusLand.searchActive = True + Me.sbExportAusLand.Size = New System.Drawing.Size(65, 20) + Me.sbExportAusLand.SQL_ORDER_BY = Nothing + Me.sbExportAusLand.SQL_SELECT = Nothing + Me.sbExportAusLand.SQL_WHERE = Nothing + Me.sbExportAusLand.SQL_WhereParamList = Nothing + Me.sbExportAusLand.TabIndex = 76 + Me.sbExportAusLand.usrcntl = Nothing + ' + 'cbxVermerk10600 + ' + Me.cbxVermerk10600.AutoSize = True + Me.cbxVermerk10600.Location = New System.Drawing.Point(136, 737) + Me.cbxVermerk10600.Name = "cbxVermerk10600" + Me.cbxVermerk10600.Size = New System.Drawing.Size(98, 17) + Me.cbxVermerk10600.TabIndex = 77 + Me.cbxVermerk10600.Text = "Vermerk 10600" + Me.cbxVermerk10600.UseVisualStyleBackColor = True + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(268, 642) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(49, 13) + Me.Label6.TabIndex = 70 + Me.Label6.Text = "Vermerk:" + ' + 'cbxVermerk + ' + Me.cbxVermerk._DateTimeOnly = False + Me.cbxVermerk._numbersOnly = False + Me.cbxVermerk._numbersOnlyKommastellen = "" + Me.cbxVermerk._numbersOnlyTrennzeichen = True + Me.cbxVermerk._Prozent = False + Me.cbxVermerk._ShortDateNew = False + Me.cbxVermerk._ShortDateOnly = False + Me.cbxVermerk._TimeOnly = False + Me.cbxVermerk._TimeOnly_Seconds = False + Me.cbxVermerk._value = Nothing + Me.cbxVermerk._Waehrung = False + Me.cbxVermerk._WaehrungZeichen = True + Me.cbxVermerk.ForeColor = System.Drawing.Color.Black + Me.cbxVermerk.Location = New System.Drawing.Point(271, 659) + Me.cbxVermerk.MaxLength = 280 + Me.cbxVermerk.MaxLineLength = -1 + Me.cbxVermerk.MaxLines_Warning = "" + Me.cbxVermerk.MaxLines_Warning_Label = Nothing + Me.cbxVermerk.Multiline = True + Me.cbxVermerk.Name = "cbxVermerk" + Me.cbxVermerk.Size = New System.Drawing.Size(398, 47) + Me.cbxVermerk.TabIndex = 73 + ' + 'cbxEmportAbgaben + ' + Me.cbxEmportAbgaben.AutoSize = True + Me.cbxEmportAbgaben.Location = New System.Drawing.Point(136, 699) + Me.cbxEmportAbgaben.Name = "cbxEmportAbgaben" + Me.cbxEmportAbgaben.Size = New System.Drawing.Size(102, 17) + Me.cbxEmportAbgaben.TabIndex = 74 + Me.cbxEmportAbgaben.Text = "Export Abgaben" + Me.cbxEmportAbgaben.UseVisualStyleBackColor = True + ' + 'cbxEmportBeschraernkung + ' + Me.cbxEmportBeschraernkung.AutoSize = True + Me.cbxEmportBeschraernkung.Location = New System.Drawing.Point(136, 680) + Me.cbxEmportBeschraernkung.Name = "cbxEmportBeschraernkung" + Me.cbxEmportBeschraernkung.Size = New System.Drawing.Size(128, 17) + Me.cbxEmportBeschraernkung.TabIndex = 72 + Me.cbxEmportBeschraernkung.Text = "Export-Beschränkung" + Me.cbxEmportBeschraernkung.UseVisualStyleBackColor = True + ' + 'cbxEmport + ' + Me.cbxEmport.AutoSize = True + Me.cbxEmport.Location = New System.Drawing.Point(136, 661) + Me.cbxEmport.Name = "cbxEmport" + Me.cbxEmport.Size = New System.Drawing.Size(56, 17) + Me.cbxEmport.TabIndex = 71 + Me.cbxEmport.Text = "Export" + Me.cbxEmport.UseVisualStyleBackColor = True + ' + 'cbxEmportAusLand + ' + Me.cbxEmportAusLand.AutoSize = True + Me.cbxEmportAusLand.Location = New System.Drawing.Point(136, 718) + Me.cbxEmportAusLand.Name = "cbxEmportAusLand" + Me.cbxEmportAusLand.Size = New System.Drawing.Size(106, 17) + Me.cbxEmportAusLand.TabIndex = 75 + Me.cbxEmportAusLand.Text = "Export aus Land:" + Me.cbxEmportAusLand.UseVisualStyleBackColor = True + ' + 'cbxExportAusEU + ' + Me.cbxExportAusEU.AutoSize = True + Me.cbxExportAusEU.Checked = True + Me.cbxExportAusEU.CheckState = System.Windows.Forms.CheckState.Indeterminate + Me.cbxExportAusEU.Location = New System.Drawing.Point(136, 642) + Me.cbxExportAusEU.Name = "cbxExportAusEU" + Me.cbxExportAusEU.Size = New System.Drawing.Size(112, 17) + Me.cbxExportAusEU.TabIndex = 69 + Me.cbxExportAusEU.Text = "Export aus der EU" + Me.cbxExportAusEU.ThreeState = True + Me.cbxExportAusEU.UseVisualStyleBackColor = True + ' + 'lklBearbeitungAbbrechenVP + ' + Me.lklBearbeitungAbbrechenVP.AutoSize = True + Me.lklBearbeitungAbbrechenVP.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.lklBearbeitungAbbrechenVP.Location = New System.Drawing.Point(551, 620) + Me.lklBearbeitungAbbrechenVP.Name = "lklBearbeitungAbbrechenVP" + Me.lklBearbeitungAbbrechenVP.Size = New System.Drawing.Size(118, 13) + Me.lklBearbeitungAbbrechenVP.TabIndex = 67 + Me.lklBearbeitungAbbrechenVP.TabStop = True + Me.lklBearbeitungAbbrechenVP.Text = "Bearbeitung abbrechen" + Me.lklBearbeitungAbbrechenVP.Visible = False + ' + 'lklBearbeitungAbbrechenUl + ' + Me.lklBearbeitungAbbrechenUl.AutoSize = True + Me.lklBearbeitungAbbrechenUl.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.lklBearbeitungAbbrechenUl.Location = New System.Drawing.Point(551, 507) + Me.lklBearbeitungAbbrechenUl.Name = "lklBearbeitungAbbrechenUl" + Me.lklBearbeitungAbbrechenUl.Size = New System.Drawing.Size(118, 13) + Me.lklBearbeitungAbbrechenUl.TabIndex = 56 + Me.lklBearbeitungAbbrechenUl.TabStop = True + Me.lklBearbeitungAbbrechenUl.Text = "Bearbeitung abbrechen" + Me.lklBearbeitungAbbrechenUl.Visible = False + ' + 'Label40 + ' + Me.Label40.AutoSize = True + Me.Label40.Location = New System.Drawing.Point(17, 549) + Me.Label40.Name = "Label40" + Me.Label40.Size = New System.Drawing.Size(28, 13) + Me.Label40.TabIndex = 60 + Me.Label40.Text = "Typ:" + ' + 'cboVpTyp + ' + Me.cboVpTyp._allowedValuesFreiText = Nothing + Me.cboVpTyp._allowFreiText = False + Me.cboVpTyp._value = "" + Me.cboVpTyp.DropDownWidth = 300 + Me.cboVpTyp.FormattingEnabled = True + Me.cboVpTyp.Location = New System.Drawing.Point(48, 546) + Me.cboVpTyp.Name = "cboVpTyp" + Me.cboVpTyp.Size = New System.Drawing.Size(82, 21) + Me.cboVpTyp.TabIndex = 61 + ' + 'txtVpReferenz + ' + Me.txtVpReferenz._DateTimeOnly = False + Me.txtVpReferenz._numbersOnly = False + Me.txtVpReferenz._numbersOnlyKommastellen = "" + Me.txtVpReferenz._numbersOnlyTrennzeichen = True + Me.txtVpReferenz._Prozent = False + Me.txtVpReferenz._ShortDateNew = False + Me.txtVpReferenz._ShortDateOnly = False + Me.txtVpReferenz._TimeOnly = False + Me.txtVpReferenz._TimeOnly_Seconds = False + Me.txtVpReferenz._value = Nothing + Me.txtVpReferenz._Waehrung = False + Me.txtVpReferenz._WaehrungZeichen = True + Me.txtVpReferenz.ForeColor = System.Drawing.Color.Black + Me.txtVpReferenz.Location = New System.Drawing.Point(136, 600) + Me.txtVpReferenz.MaxLength = 35 + Me.txtVpReferenz.MaxLineLength = -1 + Me.txtVpReferenz.MaxLines_Warning = "" + Me.txtVpReferenz.MaxLines_Warning_Label = Nothing + Me.txtVpReferenz.Name = "txtVpReferenz" + Me.txtVpReferenz.Size = New System.Drawing.Size(200, 20) + Me.txtVpReferenz.TabIndex = 63 + ' + 'Button4 + ' + Me.Button4.BackgroundImage = CType(resources.GetObject("Button4.BackgroundImage"), System.Drawing.Image) + Me.Button4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button4.Location = New System.Drawing.Point(671, 530) + Me.Button4.Name = "Button4" + Me.Button4.Size = New System.Drawing.Size(30, 20) + Me.Button4.TabIndex = 59 + Me.Button4.TabStop = False + Me.Button4.UseVisualStyleBackColor = True + ' + 'Button5 + ' + Me.Button5.BackgroundImage = Global.SDL.My.Resources.Resources.plus + Me.Button5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button5.Location = New System.Drawing.Point(671, 600) + Me.Button5.Name = "Button5" + Me.Button5.Size = New System.Drawing.Size(30, 20) + Me.Button5.TabIndex = 65 + Me.Button5.TabStop = False + Me.Button5.UseVisualStyleBackColor = True + ' + 'txtVpZusatz + ' + Me.txtVpZusatz._DateTimeOnly = False + Me.txtVpZusatz._numbersOnly = False + Me.txtVpZusatz._numbersOnlyKommastellen = "" + Me.txtVpZusatz._numbersOnlyTrennzeichen = True + Me.txtVpZusatz._Prozent = False + Me.txtVpZusatz._ShortDateNew = False + Me.txtVpZusatz._ShortDateOnly = False + Me.txtVpZusatz._TimeOnly = False + Me.txtVpZusatz._TimeOnly_Seconds = False + Me.txtVpZusatz._value = Nothing + Me.txtVpZusatz._Waehrung = False + Me.txtVpZusatz._WaehrungZeichen = True + Me.txtVpZusatz.ForeColor = System.Drawing.Color.Black + Me.txtVpZusatz.Location = New System.Drawing.Point(335, 600) + Me.txtVpZusatz.MaxLength = 26 + Me.txtVpZusatz.MaxLineLength = -1 + Me.txtVpZusatz.MaxLines_Warning = "" + Me.txtVpZusatz.MaxLines_Warning_Label = Nothing + Me.txtVpZusatz.Name = "txtVpZusatz" + Me.txtVpZusatz.Size = New System.Drawing.Size(334, 20) + Me.txtVpZusatz.TabIndex = 64 + ' + 'Label37 + ' + Me.Label37.AutoSize = True + Me.Label37.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label37.Location = New System.Drawing.Point(58, 530) + Me.Label37.Name = "Label37" + Me.Label37.Size = New System.Drawing.Size(72, 13) + Me.Label37.TabIndex = 57 + Me.Label37.Text = "Vorpapiere:" + Me.Label37.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'dgvVorpapier + ' + Me.dgvVorpapier.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvVorpapier.AllowUserToAddRows = False + Me.dgvVorpapier.AllowUserToDeleteRows = False + Me.dgvVorpapier.AllowUserToResizeColumns = False + Me.dgvVorpapier.AllowUserToResizeRows = False + Me.dgvVorpapier.BackgroundColor = System.Drawing.Color.White + Me.dgvVorpapier.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvVorpapier.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.VpReferenz, Me.VpZusatz}) + Me.dgvVorpapier.Location = New System.Drawing.Point(136, 530) + Me.dgvVorpapier.MultiSelect = False + Me.dgvVorpapier.Name = "dgvVorpapier" + Me.dgvVorpapier.ReadOnly = True + Me.dgvVorpapier.RowHeadersVisible = False + Me.dgvVorpapier.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvVorpapier.Size = New System.Drawing.Size(533, 69) + Me.dgvVorpapier.TabIndex = 58 + Me.dgvVorpapier.TabStop = False + ' + 'VpReferenz + ' + Me.VpReferenz.HeaderText = "Referenz" + Me.VpReferenz.Name = "VpReferenz" + Me.VpReferenz.ReadOnly = True + Me.VpReferenz.Width = 200 + ' + 'VpZusatz + ' + Me.VpZusatz.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.VpZusatz.HeaderText = "Zusatz" + Me.VpZusatz.Name = "VpZusatz" + Me.VpZusatz.ReadOnly = True + ' + 'Label38 + ' + Me.Label38.ForeColor = System.Drawing.Color.Red + Me.Label38.Location = New System.Drawing.Point(136, 619) + Me.Label38.Name = "Label38" + Me.Label38.Size = New System.Drawing.Size(235, 13) + Me.Label38.TabIndex = 66 + Me.Label38.Text = "Bitte angeben!" + Me.Label38.Visible = False + ' + 'Label39 + ' + Me.Label39.AutoSize = True + Me.Label39.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.25!) + Me.Label39.Location = New System.Drawing.Point(668, 585) + Me.Label39.Name = "Label39" + Me.Label39.Size = New System.Drawing.Size(33, 12) + Me.Label39.TabIndex = 62 + Me.Label39.Text = "(Enter)" + ' + 'Label36 + ' + Me.Label36.AutoSize = True + Me.Label36.Location = New System.Drawing.Point(332, 99) + Me.Label36.Name = "Label36" + Me.Label36.Size = New System.Drawing.Size(30, 13) + Me.Label36.TabIndex = 11 + Me.Label36.Text = "Nat.:" + ' + 'Label35 + ' + Me.Label35.AutoSize = True + Me.Label35.Location = New System.Drawing.Point(301, 99) + Me.Label35.Name = "Label35" + Me.Label35.Size = New System.Drawing.Size(23, 13) + Me.Label35.TabIndex = 10 + Me.Label35.Text = "Z2:" + ' + 'Label34 + ' + Me.Label34.AutoSize = True + Me.Label34.Location = New System.Drawing.Point(268, 99) + Me.Label34.Name = "Label34" + Me.Label34.Size = New System.Drawing.Size(23, 13) + Me.Label34.TabIndex = 9 + Me.Label34.Text = "Z1:" + ' + 'Label31 + ' + Me.Label31.Location = New System.Drawing.Point(18, 118) + Me.Label31.Name = "Label31" + Me.Label31.Size = New System.Drawing.Size(111, 13) + Me.Label31.TabIndex = 14 + Me.Label31.Text = "Zolltarif:" + Me.Label31.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'txtWarennummer + ' + Me.txtWarennummer._DateTimeOnly = False + Me.txtWarennummer._numbersOnly = True + Me.txtWarennummer._numbersOnlyKommastellen = "0" + Me.txtWarennummer._numbersOnlyTrennzeichen = False + Me.txtWarennummer._Prozent = False + Me.txtWarennummer._ShortDateNew = False + Me.txtWarennummer._ShortDateOnly = False + Me.txtWarennummer._TimeOnly = False + Me.txtWarennummer._TimeOnly_Seconds = False + Me.txtWarennummer._value = "" + Me.txtWarennummer._Waehrung = False + Me.txtWarennummer._WaehrungZeichen = True + Me.txtWarennummer.ForeColor = System.Drawing.Color.Black + Me.txtWarennummer.Location = New System.Drawing.Point(136, 115) + Me.txtWarennummer.MaxLength = 10 + Me.txtWarennummer.MaxLineLength = -1 + Me.txtWarennummer.MaxLines_Warning = "" + Me.txtWarennummer.MaxLines_Warning_Label = Nothing + Me.txtWarennummer.Name = "txtWarennummer" + Me.txtWarennummer.Size = New System.Drawing.Size(101, 20) + Me.txtWarennummer.TabIndex = 15 + ' + 'txtWTNat + ' + Me.txtWTNat._DateTimeOnly = False + Me.txtWTNat._numbersOnly = False + Me.txtWTNat._numbersOnlyKommastellen = "" + Me.txtWTNat._numbersOnlyTrennzeichen = True + Me.txtWTNat._Prozent = False + Me.txtWTNat._ShortDateNew = False + Me.txtWTNat._ShortDateOnly = False + Me.txtWTNat._TimeOnly = False + Me.txtWTNat._TimeOnly_Seconds = False + Me.txtWTNat._value = Nothing + Me.txtWTNat._Waehrung = False + Me.txtWTNat._WaehrungZeichen = True + Me.txtWTNat.Enabled = False + Me.txtWTNat.ForeColor = System.Drawing.Color.Black + Me.txtWTNat.Location = New System.Drawing.Point(335, 115) + Me.txtWTNat.MaxLineLength = -1 + Me.txtWTNat.MaxLines_Warning = "" + Me.txtWTNat.MaxLines_Warning_Label = Nothing + Me.txtWTNat.Name = "txtWTNat" + Me.txtWTNat.Size = New System.Drawing.Size(34, 20) + Me.txtWTNat.TabIndex = 19 + ' + 'txtWTZ2 + ' + Me.txtWTZ2._DateTimeOnly = False + Me.txtWTZ2._numbersOnly = False + Me.txtWTZ2._numbersOnlyKommastellen = "" + Me.txtWTZ2._numbersOnlyTrennzeichen = True + Me.txtWTZ2._Prozent = False + Me.txtWTZ2._ShortDateNew = False + Me.txtWTZ2._ShortDateOnly = False + Me.txtWTZ2._TimeOnly = False + Me.txtWTZ2._TimeOnly_Seconds = False + Me.txtWTZ2._value = Nothing + Me.txtWTZ2._Waehrung = False + Me.txtWTZ2._WaehrungZeichen = True + Me.txtWTZ2.Enabled = False + Me.txtWTZ2.ForeColor = System.Drawing.Color.Black + Me.txtWTZ2.Location = New System.Drawing.Point(302, 115) + Me.txtWTZ2.MaxLineLength = -1 + Me.txtWTZ2.MaxLines_Warning = "" + Me.txtWTZ2.MaxLines_Warning_Label = Nothing + Me.txtWTZ2.Name = "txtWTZ2" + Me.txtWTZ2.Size = New System.Drawing.Size(34, 20) + Me.txtWTZ2.TabIndex = 18 + ' + 'txtWTZ1 + ' + Me.txtWTZ1._DateTimeOnly = False + Me.txtWTZ1._numbersOnly = False + Me.txtWTZ1._numbersOnlyKommastellen = "" + Me.txtWTZ1._numbersOnlyTrennzeichen = True + Me.txtWTZ1._Prozent = False + Me.txtWTZ1._ShortDateNew = False + Me.txtWTZ1._ShortDateOnly = False + Me.txtWTZ1._TimeOnly = False + Me.txtWTZ1._TimeOnly_Seconds = False + Me.txtWTZ1._value = Nothing + Me.txtWTZ1._Waehrung = False + Me.txtWTZ1._WaehrungZeichen = True + Me.txtWTZ1.Enabled = False + Me.txtWTZ1.ForeColor = System.Drawing.Color.Black + Me.txtWTZ1.Location = New System.Drawing.Point(269, 115) + Me.txtWTZ1.MaxLineLength = -1 + Me.txtWTZ1.MaxLines_Warning = "" + Me.txtWTZ1.MaxLines_Warning_Label = Nothing + Me.txtWTZ1.Name = "txtWTZ1" + Me.txtWTZ1.Size = New System.Drawing.Size(34, 20) + Me.txtWTZ1.TabIndex = 17 + ' + 'txtWTTaric + ' + Me.txtWTTaric._DateTimeOnly = False + Me.txtWTTaric._numbersOnly = False + Me.txtWTTaric._numbersOnlyKommastellen = "" + Me.txtWTTaric._numbersOnlyTrennzeichen = True + Me.txtWTTaric._Prozent = False + Me.txtWTTaric._ShortDateNew = False + Me.txtWTTaric._ShortDateOnly = False + Me.txtWTTaric._TimeOnly = False + Me.txtWTTaric._TimeOnly_Seconds = False + Me.txtWTTaric._value = Nothing + Me.txtWTTaric._Waehrung = False + Me.txtWTTaric._WaehrungZeichen = True + Me.txtWTTaric.Enabled = False + Me.txtWTTaric.ForeColor = System.Drawing.Color.Black + Me.txtWTTaric.Location = New System.Drawing.Point(236, 115) + Me.txtWTTaric.MaxLineLength = -1 + Me.txtWTTaric.MaxLines_Warning = "" + Me.txtWTTaric.MaxLines_Warning_Label = Nothing + Me.txtWTTaric.Name = "txtWTTaric" + Me.txtWTTaric.Size = New System.Drawing.Size(34, 20) + Me.txtWTTaric.TabIndex = 16 + ' + 'Label32 + ' + Me.Label32.AutoSize = True + Me.Label32.Location = New System.Drawing.Point(133, 99) + Me.Label32.Name = "Label32" + Me.Label32.Size = New System.Drawing.Size(31, 13) + Me.Label32.TabIndex = 7 + Me.Label32.Text = "KN8:" + ' + 'Label33 + ' + Me.Label33.AutoSize = True + Me.Label33.Location = New System.Drawing.Point(233, 99) + Me.Label33.Name = "Label33" + Me.Label33.Size = New System.Drawing.Size(34, 13) + Me.Label33.TabIndex = 8 + Me.Label33.Text = "Taric:" + ' + 'Label30 + ' + Me.Label30.Location = New System.Drawing.Point(21, 16) + Me.Label30.Name = "Label30" + Me.Label30.Size = New System.Drawing.Size(108, 13) + Me.Label30.TabIndex = 0 + Me.Label30.Text = "Suche Kd-Zolltarif:" + Me.Label30.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'MySearchBox1 + ' + Me.MySearchBox1._allowFreitext = False + Me.MySearchBox1._AllowSetValue = False + Me.MySearchBox1._allowSpaceAsSplitter = False + Me.MySearchBox1._autoSizeGross = False + Me.MySearchBox1._hideIfListEmpty = True + Me.MySearchBox1._value = Nothing + Me.MySearchBox1.conn_art = "FMZOLL" + Me.MySearchBox1.dgvpos = "LEFT" + Me.MySearchBox1.DISPLAY_PARAM = Nothing + Me.MySearchBox1.INVISIBLE_COLUMNS = Nothing + Me.MySearchBox1.key_visible = False + Me.MySearchBox1.KEYPARAM = Nothing + Me.MySearchBox1.Location = New System.Drawing.Point(136, 13) + Me.MySearchBox1.Name = "MySearchBox1" + Me.MySearchBox1.searchActive = True + Me.MySearchBox1.Size = New System.Drawing.Size(233, 20) + Me.MySearchBox1.SQL_ORDER_BY = Nothing + Me.MySearchBox1.SQL_SELECT = Nothing + Me.MySearchBox1.SQL_WHERE = Nothing + Me.MySearchBox1.SQL_WhereParamList = Nothing + Me.MySearchBox1.TabIndex = 1 + Me.MySearchBox1.usrcntl = Nothing + ' + 'txtEigenmasse + ' + Me.txtEigenmasse._DateTimeOnly = False + Me.txtEigenmasse._numbersOnly = True + Me.txtEigenmasse._numbersOnlyKommastellen = "2" + Me.txtEigenmasse._numbersOnlyTrennzeichen = True + Me.txtEigenmasse._Prozent = False + Me.txtEigenmasse._ShortDateNew = False + Me.txtEigenmasse._ShortDateOnly = False + Me.txtEigenmasse._TimeOnly = False + Me.txtEigenmasse._TimeOnly_Seconds = False + Me.txtEigenmasse._value = "0" + Me.txtEigenmasse._Waehrung = False + Me.txtEigenmasse._WaehrungZeichen = True + Me.txtEigenmasse.ForeColor = System.Drawing.Color.Black + Me.txtEigenmasse.Location = New System.Drawing.Point(436, 154) + Me.txtEigenmasse.MaxLength = 18 + Me.txtEigenmasse.MaxLineLength = -1 + Me.txtEigenmasse.MaxLines_Warning = "" + Me.txtEigenmasse.MaxLines_Warning_Label = Nothing + Me.txtEigenmasse.Name = "txtEigenmasse" + Me.txtEigenmasse.Size = New System.Drawing.Size(117, 20) + Me.txtEigenmasse.TabIndex = 28 + Me.txtEigenmasse.Text = "0,00" + ' + 'txtRohmasse + ' + Me.txtRohmasse._DateTimeOnly = False + Me.txtRohmasse._numbersOnly = True + Me.txtRohmasse._numbersOnlyKommastellen = "2" + Me.txtRohmasse._numbersOnlyTrennzeichen = True + Me.txtRohmasse._Prozent = False + Me.txtRohmasse._ShortDateNew = False + Me.txtRohmasse._ShortDateOnly = False + Me.txtRohmasse._TimeOnly = False + Me.txtRohmasse._TimeOnly_Seconds = False + Me.txtRohmasse._value = "0" + Me.txtRohmasse._Waehrung = False + Me.txtRohmasse._WaehrungZeichen = True + Me.txtRohmasse.ForeColor = System.Drawing.Color.Black + Me.txtRohmasse.Location = New System.Drawing.Point(552, 154) + Me.txtRohmasse.MaxLength = 18 + Me.txtRohmasse.MaxLineLength = -1 + Me.txtRohmasse.MaxLines_Warning = "" + Me.txtRohmasse.MaxLines_Warning_Label = Nothing + Me.txtRohmasse.Name = "txtRohmasse" + Me.txtRohmasse.Size = New System.Drawing.Size(117, 20) + Me.txtRohmasse.TabIndex = 29 + Me.txtRohmasse.Text = "0,00" + ' + 'Label27 + ' + Me.Label27.AutoSize = True + Me.Label27.Location = New System.Drawing.Point(433, 138) + Me.Label27.Name = "Label27" + Me.Label27.Size = New System.Drawing.Size(67, 13) + Me.Label27.TabIndex = 22 + Me.Label27.Text = "Eigenmasse:" + ' + 'Label28 + ' + Me.Label28.AutoSize = True + Me.Label28.Location = New System.Drawing.Point(549, 138) + Me.Label28.Name = "Label28" + Me.Label28.Size = New System.Drawing.Size(60, 13) + Me.Label28.TabIndex = 23 + Me.Label28.Text = "Rohmasse:" + ' + 'sbUlArten + ' + Me.sbUlArten._allowFreitext = False + Me.sbUlArten._AllowSetValue = False + Me.sbUlArten._allowSpaceAsSplitter = False + Me.sbUlArten._autoSizeGross = False + Me.sbUlArten._hideIfListEmpty = True + Me.sbUlArten._value = Nothing + Me.sbUlArten.conn_art = "FMZOLL" + Me.sbUlArten.dgvpos = "LEFT" + Me.sbUlArten.DISPLAY_PARAM = Nothing + Me.sbUlArten.INVISIBLE_COLUMNS = Nothing + Me.sbUlArten.key_visible = False + Me.sbUlArten.KEYPARAM = Nothing + Me.sbUlArten.Location = New System.Drawing.Point(136, 487) + Me.sbUlArten.Name = "sbUlArten" + Me.sbUlArten.searchActive = True + Me.sbUlArten.Size = New System.Drawing.Size(235, 20) + Me.sbUlArten.SQL_ORDER_BY = Nothing + Me.sbUlArten.SQL_SELECT = Nothing + Me.sbUlArten.SQL_WHERE = Nothing + Me.sbUlArten.SQL_WhereParamList = Nothing + Me.sbUlArten.TabIndex = 51 + Me.sbUlArten.usrcntl = Nothing + ' + 'sbPkTyp + ' + Me.sbPkTyp._allowFreitext = False + Me.sbPkTyp._AllowSetValue = False + Me.sbPkTyp._allowSpaceAsSplitter = False + Me.sbPkTyp._autoSizeGross = False + Me.sbPkTyp._hideIfListEmpty = True + Me.sbPkTyp._value = Nothing + Me.sbPkTyp.conn_art = "FMZOLL" + Me.sbPkTyp.dgvpos = "LEFT" + Me.sbPkTyp.DISPLAY_PARAM = Nothing + Me.sbPkTyp.INVISIBLE_COLUMNS = Nothing + Me.sbPkTyp.key_visible = False + Me.sbPkTyp.KEYPARAM = Nothing + Me.sbPkTyp.Location = New System.Drawing.Point(215, 357) + Me.sbPkTyp.Name = "sbPkTyp" + Me.sbPkTyp.searchActive = True + Me.sbPkTyp.Size = New System.Drawing.Size(198, 20) + Me.sbPkTyp.SQL_ORDER_BY = Nothing + Me.sbPkTyp.SQL_SELECT = Nothing + Me.sbPkTyp.SQL_WHERE = Nothing + Me.sbPkTyp.SQL_WhereParamList = Nothing + Me.sbPkTyp.TabIndex = 41 + Me.sbPkTyp.usrcntl = Nothing + ' + 'Button3 + ' + Me.Button3.BackgroundImage = CType(resources.GetObject("Button3.BackgroundImage"), System.Drawing.Image) + Me.Button3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button3.Location = New System.Drawing.Point(671, 401) + Me.Button3.Name = "Button3" + Me.Button3.Size = New System.Drawing.Size(30, 20) + Me.Button3.TabIndex = 49 + Me.Button3.TabStop = False + Me.Button3.UseVisualStyleBackColor = True + ' + 'Button2 + ' + Me.Button2.BackgroundImage = CType(resources.GetObject("Button2.BackgroundImage"), System.Drawing.Image) + Me.Button2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button2.Location = New System.Drawing.Point(671, 235) + Me.Button2.Name = "Button2" + Me.Button2.Size = New System.Drawing.Size(30, 20) + Me.Button2.TabIndex = 38 + Me.Button2.TabStop = False + Me.Button2.UseVisualStyleBackColor = True + ' + 'lblPosNr + ' + Me.lblPosNr.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblPosNr.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.lblPosNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Bold) + Me.lblPosNr.Location = New System.Drawing.Point(666, 1) + Me.lblPosNr.Name = "lblPosNr" + Me.lblPosNr.Size = New System.Drawing.Size(54, 35) + Me.lblPosNr.TabIndex = 3 + Me.lblPosNr.Text = "1/1" + Me.lblPosNr.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Button1 + ' + Me.Button1.BackgroundImage = Global.SDL.My.Resources.Resources.plus + Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button1.Location = New System.Drawing.Point(671, 487) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(30, 20) + Me.Button1.TabIndex = 54 + Me.Button1.TabStop = False + Me.Button1.UseVisualStyleBackColor = True + ' + 'txtUlZusatz + ' + Me.txtUlZusatz._DateTimeOnly = False + Me.txtUlZusatz._numbersOnly = False + Me.txtUlZusatz._numbersOnlyKommastellen = "" + Me.txtUlZusatz._numbersOnlyTrennzeichen = True + Me.txtUlZusatz._Prozent = False + Me.txtUlZusatz._ShortDateNew = False + Me.txtUlZusatz._ShortDateOnly = False + Me.txtUlZusatz._TimeOnly = False + Me.txtUlZusatz._TimeOnly_Seconds = False + Me.txtUlZusatz._value = Nothing + Me.txtUlZusatz._Waehrung = False + Me.txtUlZusatz._WaehrungZeichen = True + Me.txtUlZusatz.ForeColor = System.Drawing.Color.Black + Me.txtUlZusatz.Location = New System.Drawing.Point(519, 487) + Me.txtUlZusatz.MaxLength = 26 + Me.txtUlZusatz.MaxLineLength = -1 + Me.txtUlZusatz.MaxLines_Warning = "" + Me.txtUlZusatz.MaxLines_Warning_Label = Nothing + Me.txtUlZusatz.Name = "txtUlZusatz" + Me.txtUlZusatz.Size = New System.Drawing.Size(150, 20) + Me.txtUlZusatz.TabIndex = 53 + ' + 'txtUlReferenz + ' + Me.txtUlReferenz._DateTimeOnly = False + Me.txtUlReferenz._numbersOnly = False + Me.txtUlReferenz._numbersOnlyKommastellen = "" + Me.txtUlReferenz._numbersOnlyTrennzeichen = True + Me.txtUlReferenz._Prozent = False + Me.txtUlReferenz._ShortDateNew = False + Me.txtUlReferenz._ShortDateOnly = False + Me.txtUlReferenz._TimeOnly = False + Me.txtUlReferenz._TimeOnly_Seconds = False + Me.txtUlReferenz._value = Nothing + Me.txtUlReferenz._Waehrung = False + Me.txtUlReferenz._WaehrungZeichen = True + Me.txtUlReferenz.ForeColor = System.Drawing.Color.Black + Me.txtUlReferenz.Location = New System.Drawing.Point(370, 487) + Me.txtUlReferenz.MaxLength = 35 + Me.txtUlReferenz.MaxLineLength = -1 + Me.txtUlReferenz.MaxLines_Warning = "" + Me.txtUlReferenz.MaxLines_Warning_Label = Nothing + Me.txtUlReferenz.Name = "txtUlReferenz" + Me.txtUlReferenz.Size = New System.Drawing.Size(150, 20) + Me.txtUlReferenz.TabIndex = 52 + ' + 'btn + ' + Me.btn.BackgroundImage = Global.SDL.My.Resources.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(671, 357) + Me.btn.Name = "btn" + Me.btn.Size = New System.Drawing.Size(30, 20) + Me.btn.TabIndex = 43 + Me.btn.TabStop = False + Me.btn.UseVisualStyleBackColor = True + ' + 'txtPkMarke + ' + Me.txtPkMarke._DateTimeOnly = False + Me.txtPkMarke._numbersOnly = False + Me.txtPkMarke._numbersOnlyKommastellen = "" + Me.txtPkMarke._numbersOnlyTrennzeichen = True + Me.txtPkMarke._Prozent = False + Me.txtPkMarke._ShortDateNew = False + Me.txtPkMarke._ShortDateOnly = False + Me.txtPkMarke._TimeOnly = False + Me.txtPkMarke._TimeOnly_Seconds = False + Me.txtPkMarke._value = "ohne" + Me.txtPkMarke._Waehrung = False + Me.txtPkMarke._WaehrungZeichen = True + Me.txtPkMarke.ForeColor = System.Drawing.Color.Black + Me.txtPkMarke.Location = New System.Drawing.Point(412, 357) + Me.txtPkMarke.MaxLength = 42 + Me.txtPkMarke.MaxLineLength = -1 + Me.txtPkMarke.MaxLines_Warning = "" + Me.txtPkMarke.MaxLines_Warning_Label = Nothing + Me.txtPkMarke.Name = "txtPkMarke" + Me.txtPkMarke.Size = New System.Drawing.Size(257, 20) + Me.txtPkMarke.TabIndex = 42 + Me.txtPkMarke.Text = "ohne" + ' + 'txtPkAnzahl + ' + Me.txtPkAnzahl._DateTimeOnly = False + Me.txtPkAnzahl._numbersOnly = True + Me.txtPkAnzahl._numbersOnlyKommastellen = "" + Me.txtPkAnzahl._numbersOnlyTrennzeichen = True + Me.txtPkAnzahl._Prozent = False + Me.txtPkAnzahl._ShortDateNew = False + Me.txtPkAnzahl._ShortDateOnly = False + Me.txtPkAnzahl._TimeOnly = False + Me.txtPkAnzahl._TimeOnly_Seconds = False + Me.txtPkAnzahl._value = "" + Me.txtPkAnzahl._Waehrung = False + Me.txtPkAnzahl._WaehrungZeichen = True + Me.txtPkAnzahl.ForeColor = System.Drawing.Color.Black + Me.txtPkAnzahl.Location = New System.Drawing.Point(136, 357) + Me.txtPkAnzahl.MaxLength = 5 + Me.txtPkAnzahl.MaxLineLength = -1 + Me.txtPkAnzahl.MaxLines_Warning = "" + Me.txtPkAnzahl.MaxLines_Warning_Label = Nothing + Me.txtPkAnzahl.Name = "txtPkAnzahl" + Me.txtPkAnzahl.Size = New System.Drawing.Size(80, 20) + Me.txtPkAnzahl.TabIndex = 40 + Me.txtPkAnzahl.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'Label19 + ' + Me.Label19.AutoSize = True + Me.Label19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label19.Location = New System.Drawing.Point(56, 401) + Me.Label19.Name = "Label19" + Me.Label19.Size = New System.Drawing.Size(73, 13) + Me.Label19.TabIndex = 47 + Me.Label19.Text = "Unterlagen:" + Me.Label19.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'dgvUnterlage + ' + Me.dgvUnterlage.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvUnterlage.AllowUserToAddRows = False + Me.dgvUnterlage.AllowUserToDeleteRows = False + Me.dgvUnterlage.AllowUserToResizeColumns = False + Me.dgvUnterlage.AllowUserToResizeRows = False + Me.dgvUnterlage.BackgroundColor = System.Drawing.Color.White + Me.dgvUnterlage.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvUnterlage.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.UlCode, Me.DataGridViewComboBoxColumn1, Me.UlReferenz, Me.UlZusatz}) + Me.dgvUnterlage.Location = New System.Drawing.Point(136, 401) + Me.dgvUnterlage.MultiSelect = False + Me.dgvUnterlage.Name = "dgvUnterlage" + Me.dgvUnterlage.ReadOnly = True + Me.dgvUnterlage.RowHeadersVisible = False + Me.dgvUnterlage.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvUnterlage.Size = New System.Drawing.Size(533, 85) + Me.dgvUnterlage.TabIndex = 48 + Me.dgvUnterlage.TabStop = False + ' + 'UlCode + ' + Me.UlCode.HeaderText = "Code" + Me.UlCode.Name = "UlCode" + Me.UlCode.ReadOnly = True + Me.UlCode.Visible = False + ' + 'DataGridViewComboBoxColumn1 + ' + Me.DataGridViewComboBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.DataGridViewComboBoxColumn1.HeaderText = "Typ" + Me.DataGridViewComboBoxColumn1.Name = "DataGridViewComboBoxColumn1" + Me.DataGridViewComboBoxColumn1.ReadOnly = True + Me.DataGridViewComboBoxColumn1.Resizable = System.Windows.Forms.DataGridViewTriState.[True] + ' + 'UlReferenz + ' + Me.UlReferenz.HeaderText = "Referenz" + Me.UlReferenz.Name = "UlReferenz" + Me.UlReferenz.ReadOnly = True + Me.UlReferenz.Width = 150 + ' + 'UlZusatz + ' + Me.UlZusatz.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None + Me.UlZusatz.HeaderText = "Zusatz" + Me.UlZusatz.Name = "UlZusatz" + Me.UlZusatz.ReadOnly = True + Me.UlZusatz.Width = 150 + ' + 'Label18 + ' + Me.Label18.AutoSize = True + Me.Label18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label18.Location = New System.Drawing.Point(51, 235) + Me.Label18.Name = "Label18" + Me.Label18.Size = New System.Drawing.Size(78, 13) + Me.Label18.TabIndex = 36 + Me.Label18.Text = "Packstücke:" + Me.Label18.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'dgvPackstuecke + ' + Me.dgvPackstuecke.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvPackstuecke.AllowUserToAddRows = False + Me.dgvPackstuecke.AllowUserToDeleteRows = False + Me.dgvPackstuecke.AllowUserToResizeColumns = False + Me.dgvPackstuecke.AllowUserToResizeRows = False + Me.dgvPackstuecke.BackgroundColor = System.Drawing.Color.White + Me.dgvPackstuecke.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvPackstuecke.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.PkCode, Me.Anzahl, Me.Typ, Me.Marke}) + Me.dgvPackstuecke.Location = New System.Drawing.Point(136, 235) + Me.dgvPackstuecke.MultiSelect = False + Me.dgvPackstuecke.Name = "dgvPackstuecke" + Me.dgvPackstuecke.ReadOnly = True + Me.dgvPackstuecke.RowHeadersVisible = False + Me.dgvPackstuecke.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvPackstuecke.Size = New System.Drawing.Size(533, 121) + Me.dgvPackstuecke.TabIndex = 37 + Me.dgvPackstuecke.TabStop = False + ' + 'PkCode + ' + Me.PkCode.HeaderText = "Code" + Me.PkCode.Name = "PkCode" + Me.PkCode.ReadOnly = True + Me.PkCode.Visible = False + ' + 'Anzahl + ' + DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight + Me.Anzahl.DefaultCellStyle = DataGridViewCellStyle1 + Me.Anzahl.HeaderText = "Anzahl" + Me.Anzahl.Name = "Anzahl" + Me.Anzahl.ReadOnly = True + Me.Anzahl.Width = 80 + ' + 'Typ + ' + Me.Typ.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None + Me.Typ.HeaderText = "Typ" + Me.Typ.Name = "Typ" + Me.Typ.ReadOnly = True + Me.Typ.Resizable = System.Windows.Forms.DataGridViewTriState.[True] + Me.Typ.Width = 200 + ' + 'Marke + ' + Me.Marke.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.Marke.HeaderText = "Marke" + Me.Marke.Name = "Marke" + Me.Marke.ReadOnly = True + ' + 'Label22 + ' + Me.Label22.ForeColor = System.Drawing.Color.Red + Me.Label22.Location = New System.Drawing.Point(136, 506) + Me.Label22.Name = "Label22" + Me.Label22.Size = New System.Drawing.Size(235, 13) + Me.Label22.TabIndex = 55 + Me.Label22.Text = "Bitte angeben!" + Me.Label22.Visible = False + ' + 'Label9 + ' + Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label9.Location = New System.Drawing.Point(0, 642) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(130, 33) + Me.Label9.TabIndex = 68 + Me.Label9.Text = "Besondere Vermerke:" + Me.Label9.TextAlign = System.Drawing.ContentAlignment.TopRight + Me.Label9.Visible = False + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(10, 176) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(120, 13) + Me.Label4.TabIndex = 31 + Me.Label4.Text = "Sicherheitsbetrag (%/€):" + ' + 'Label3 + ' + Me.Label3.Location = New System.Drawing.Point(19, 157) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(111, 13) + Me.Label3.TabIndex = 24 + Me.Label3.Text = "Warenwert:" + Me.Label3.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'txtWarenwert + ' + Me.txtWarenwert._DateTimeOnly = False + Me.txtWarenwert._numbersOnly = True + Me.txtWarenwert._numbersOnlyKommastellen = "2" + Me.txtWarenwert._numbersOnlyTrennzeichen = True + Me.txtWarenwert._Prozent = False + Me.txtWarenwert._ShortDateNew = False + Me.txtWarenwert._ShortDateOnly = False + Me.txtWarenwert._TimeOnly = False + Me.txtWarenwert._TimeOnly_Seconds = False + Me.txtWarenwert._value = "" + Me.txtWarenwert._Waehrung = False + Me.txtWarenwert._WaehrungZeichen = True + Me.txtWarenwert.ForeColor = System.Drawing.Color.Black + Me.txtWarenwert.Location = New System.Drawing.Point(136, 154) + Me.txtWarenwert.MaxLineLength = -1 + Me.txtWarenwert.MaxLines_Warning = "" + Me.txtWarenwert.MaxLines_Warning_Label = Nothing + Me.txtWarenwert.Name = "txtWarenwert" + Me.txtWarenwert.Size = New System.Drawing.Size(167, 20) + Me.txtWarenwert.TabIndex = 25 + Me.txtWarenwert.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'Label1 + ' + Me.Label1.Location = New System.Drawing.Point(22, 41) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(108, 13) + Me.Label1.TabIndex = 5 + Me.Label1.Text = "Warenbezeichnung:" + Me.Label1.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'txtWarenbezeichnung + ' + Me.txtWarenbezeichnung._DateTimeOnly = False + Me.txtWarenbezeichnung._numbersOnly = False + Me.txtWarenbezeichnung._numbersOnlyKommastellen = "" + Me.txtWarenbezeichnung._numbersOnlyTrennzeichen = True + Me.txtWarenbezeichnung._Prozent = False + Me.txtWarenbezeichnung._ShortDateNew = False + Me.txtWarenbezeichnung._ShortDateOnly = False + Me.txtWarenbezeichnung._TimeOnly = False + Me.txtWarenbezeichnung._TimeOnly_Seconds = False + Me.txtWarenbezeichnung._value = Nothing + Me.txtWarenbezeichnung._Waehrung = False + Me.txtWarenbezeichnung._WaehrungZeichen = True + Me.txtWarenbezeichnung.ForeColor = System.Drawing.Color.Black + Me.txtWarenbezeichnung.Location = New System.Drawing.Point(136, 41) + Me.txtWarenbezeichnung.MaxLength = 280 + Me.txtWarenbezeichnung.MaxLineLength = -1 + Me.txtWarenbezeichnung.MaxLines_Warning = "" + Me.txtWarenbezeichnung.MaxLines_Warning_Label = Nothing + Me.txtWarenbezeichnung.Multiline = True + Me.txtWarenbezeichnung.Name = "txtWarenbezeichnung" + Me.txtWarenbezeichnung.Size = New System.Drawing.Size(533, 55) + Me.txtWarenbezeichnung.TabIndex = 6 + ' + 'Label21 + ' + Me.Label21.AutoSize = True + Me.Label21.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.25!) + Me.Label21.Location = New System.Drawing.Point(668, 472) + Me.Label21.Name = "Label21" + Me.Label21.Size = New System.Drawing.Size(33, 12) + Me.Label21.TabIndex = 50 + Me.Label21.Text = "(Enter)" + ' + 'Label20 + ' + Me.Label20.AutoSize = True + Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.25!) + Me.Label20.Location = New System.Drawing.Point(668, 342) + Me.Label20.Name = "Label20" + Me.Label20.Size = New System.Drawing.Size(33, 12) + Me.Label20.TabIndex = 39 + Me.Label20.Text = "(Enter)" + ' + 'Label2 + ' + Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Label2.Location = New System.Drawing.Point(386, 14) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(105, 13) + Me.Label2.TabIndex = 2 + Me.Label2.Text = "Kd. Ref-Nr.:" + Me.Label2.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'Label24 + ' + Me.Label24.ForeColor = System.Drawing.Color.Red + Me.Label24.Location = New System.Drawing.Point(212, 376) + Me.Label24.Name = "Label24" + Me.Label24.Size = New System.Drawing.Size(233, 13) + Me.Label24.TabIndex = 45 + Me.Label24.Text = "Bitte angeben!" + Me.Label24.Visible = False + ' + 'Label23 + ' + Me.Label23.ForeColor = System.Drawing.Color.Red + Me.Label23.Location = New System.Drawing.Point(133, 376) + Me.Label23.Name = "Label23" + Me.Label23.Size = New System.Drawing.Size(153, 13) + Me.Label23.TabIndex = 44 + Me.Label23.Text = "Bitte angeben!" + Me.Label23.Visible = False + ' + 'Label5 + ' + Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label5.Location = New System.Drawing.Point(194, 176) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(175, 13) + Me.Label5.TabIndex = 33 + Me.Label5.Text = "0,00 €" + Me.Label5.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'Label29 + ' + Me.Label29.Location = New System.Drawing.Point(375, 157) + Me.Label29.Name = "Label29" + Me.Label29.Size = New System.Drawing.Size(59, 13) + Me.Label29.TabIndex = 27 + Me.Label29.Text = "Gewicht:" + Me.Label29.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'lklBearbeitungAbbrechenPK + ' + Me.lklBearbeitungAbbrechenPK.AutoSize = True + Me.lklBearbeitungAbbrechenPK.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.lklBearbeitungAbbrechenPK.Location = New System.Drawing.Point(551, 377) + Me.lklBearbeitungAbbrechenPK.Name = "lklBearbeitungAbbrechenPK" + Me.lklBearbeitungAbbrechenPK.Size = New System.Drawing.Size(118, 13) + Me.lklBearbeitungAbbrechenPK.TabIndex = 46 + Me.lklBearbeitungAbbrechenPK.TabStop = True + Me.lklBearbeitungAbbrechenPK.Text = "Bearbeitung abbrechen" + Me.lklBearbeitungAbbrechenPK.Visible = False + ' + 'usrCntlATLAS_NCTS_Position + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.AutoScroll = True + Me.BackColor = System.Drawing.Color.White + Me.Controls.Add(Me.pnl) + Me.Name = "usrCntlATLAS_NCTS_Position" + Me.Size = New System.Drawing.Size(730, 1100) + Me.pnl.ResumeLayout(False) + Me.pnl.PerformLayout() + CType(Me.dgvVorpapier, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dgvUnterlage, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dgvPackstuecke, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents pnl As System.Windows.Forms.Panel + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents txtWarenbezeichnung As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents txtWarenwert As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents Label9 As System.Windows.Forms.Label + Friend WithEvents Label18 As System.Windows.Forms.Label + Friend WithEvents dgvPackstuecke As VERAG_PROG_ALLGEMEIN.MyDatagridview + Friend WithEvents Label19 As System.Windows.Forms.Label + Friend WithEvents dgvUnterlage As VERAG_PROG_ALLGEMEIN.MyDatagridview + Friend WithEvents txtPkMarke As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtPkAnzahl As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Button1 As System.Windows.Forms.Button + Friend WithEvents txtUlZusatz As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtUlReferenz As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents btn As System.Windows.Forms.Button + Friend WithEvents Label21 As System.Windows.Forms.Label + Friend WithEvents Label20 As System.Windows.Forms.Label + Friend WithEvents lblPosNr As System.Windows.Forms.Label + Friend WithEvents Button3 As System.Windows.Forms.Button + Friend WithEvents Button2 As System.Windows.Forms.Button + Friend WithEvents Label22 As System.Windows.Forms.Label + Friend WithEvents Label24 As System.Windows.Forms.Label + Friend WithEvents Label23 As System.Windows.Forms.Label + Friend WithEvents sbPkTyp As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents sbUlArten As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents PkCode As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents Anzahl As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents Typ As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents Marke As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents Label29 As System.Windows.Forms.Label + Friend WithEvents txtEigenmasse As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtRohmasse As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label27 As System.Windows.Forms.Label + Friend WithEvents Label28 As System.Windows.Forms.Label + Friend WithEvents Label30 As System.Windows.Forms.Label + Friend WithEvents MySearchBox1 As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents Label31 As System.Windows.Forms.Label + Friend WithEvents txtWarennummer As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtWTNat As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtWTZ2 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtWTZ1 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtWTTaric As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label32 As System.Windows.Forms.Label + Friend WithEvents Label33 As System.Windows.Forms.Label + Friend WithEvents Label36 As System.Windows.Forms.Label + Friend WithEvents Label35 As System.Windows.Forms.Label + Friend WithEvents Label34 As System.Windows.Forms.Label + Friend WithEvents Button4 As System.Windows.Forms.Button + Friend WithEvents Button5 As System.Windows.Forms.Button + Friend WithEvents txtVpZusatz As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label37 As System.Windows.Forms.Label + Friend WithEvents dgvVorpapier As VERAG_PROG_ALLGEMEIN.MyDatagridview + Friend WithEvents Label38 As System.Windows.Forms.Label + Friend WithEvents Label39 As System.Windows.Forms.Label + Friend WithEvents txtVpReferenz As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label40 As System.Windows.Forms.Label + Friend WithEvents cboVpTyp As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents VpReferenz As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents VpZusatz As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents UlCode As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewComboBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents UlReferenz As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents UlZusatz As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents lklBearbeitungAbbrechenVP As System.Windows.Forms.LinkLabel + Friend WithEvents lklBearbeitungAbbrechenUl As System.Windows.Forms.LinkLabel + Friend WithEvents lklBearbeitungAbbrechenPK As System.Windows.Forms.LinkLabel + Friend WithEvents cbxVermerk10600 As System.Windows.Forms.CheckBox + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents cbxVermerk As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents cbxEmportAbgaben As System.Windows.Forms.CheckBox + Friend WithEvents cbxEmportBeschraernkung As System.Windows.Forms.CheckBox + Friend WithEvents cbxEmport As System.Windows.Forms.CheckBox + Friend WithEvents cbxEmportAusLand As System.Windows.Forms.CheckBox + Friend WithEvents cbxExportAusEU As System.Windows.Forms.CheckBox + Friend WithEvents sbExportAusLand As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents Label7 As System.Windows.Forms.Label + Friend WithEvents usrcntlEmpfaenger As SDL.usrCntlAdresse + Friend WithEvents usrcntlVersedner As SDL.usrCntlAdresse + Friend WithEvents Label8 As System.Windows.Forms.Label + Friend WithEvents usrcntlSumAEmpfaenger As SDL.usrCntlAdresse + Friend WithEvents usrcntlSumAVersedner As SDL.usrCntlAdresse + Friend WithEvents txtSiBetragProzent As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents cboWaehrung As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents txtKdRefNr As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label13 As Label + Friend WithEvents cboArtAnmeldung As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents Label10 As Label + Friend WithEvents sbVersendungsLand As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents sbBestimmungsland As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents Label11 As Label + Friend WithEvents Label12 As Label +End Class diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Position.resx b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Position.resx new file mode 100644 index 00000000..39b0f7f9 --- /dev/null +++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Position.resx @@ -0,0 +1,193 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + 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= + + + + True + + + True + + + + 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= + + + + + 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= + + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + \ No newline at end of file diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Position.vb b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Position.vb new file mode 100644 index 00000000..6961449f --- /dev/null +++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Position.vb @@ -0,0 +1,528 @@ +Public Class usrCntlATLAS_NCTS004_Position + '' Public Event ADD() + ' Public Event REMOVE(id) + + ' Public Event NEXT_POS() + ' Public Event PREV_POS() + Dim WARE As DAKOSY_Worker.cDakosy_NCTSOut004_HouseConsignment_ConsignmentItem = Nothing + Dim WARE_TR As VERAG_PROG_ALLGEMEIN.cNCTS_TR_Warenposition = Nothing + Event RohmasseChanged(rohmasse As Double, packstuecke As Double) + Dim id As Integer = -1 + + Dim PK_EDIT = -1 + Dim UL_EDIT = -1 + Dim VP_EDIT = -1 + + Sub New(id) + InitializeComponent() + Me.id = id + End Sub + + + Sub New(id As Integer, WARE As DAKOSY_Worker.cDakosy_NCTSOut004_HouseConsignment_ConsignmentItem) + InitializeComponent() + Me.id = id + Me.WARE = WARE + End Sub + + + Sub New(id As Integer, WARE_TR As VERAG_PROG_ALLGEMEIN.cNCTS_TR_Warenposition) + InitializeComponent() + Me.id = id + Me.WARE_TR = WARE_TR + End Sub + + + + Function getPackstuecke() As Integer + + getPackstuecke = 0 + + For Each row As DataGridViewRow In dgvPackstuecke.Rows + getPackstuecke += If(IsNumeric(row.Cells("Anzahl").Value), row.Cells("Anzahl").Value, 0) + Next + + End Function + 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) + ' sbUlArten.initSearchBox(Me.FindForm, " [Code] ,[Description] as Art,Code + ' ' + Description as display FROM tbl_DY_ZollDE_C0013_UnterlagenArten", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200) + sbPkTyp.initSearchBox(Me.FindForm, " [Code] ,[Description] as Verpackungsart FROM tbl_DY_ZollDE_C0017_PackstueckeVerpackungsarten", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", , "FMZOLL", , 400, 200) + sbUlArten.initSearchBox(Me.FindForm, " [Code] ,[Description] as Art FROM tbl_DY_ZollDE_C0013_UnterlagenArten", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", , "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) + sbBestimmungsland.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) + sbVersendungsLand.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) + + cboWaehrung.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) + + + + cboArtAnmeldung.Items.Clear() + cboArtAnmeldung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) + cboArtAnmeldung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T1 - Versandanmeldung T1 Waren, die im externen gemeinschaftlichen/gemeinsamen Versandverfahren befördert werden sollen.", "T1")) + cboArtAnmeldung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T2 - Versandanmeldung T2 Waren, die - soweit nicht das T2F-Verfahren vorgeschrieben ist - im internen gemeinschaftlichen Versandverfahren befördert werden sollen", "T2")) + cboArtAnmeldung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T2F - Versandanmeldung T2F Waren, die im Linienverkehr zwischen Teilen des Zollgebiets der Gemeinschaft, in denen die Richtlinie 77/388/EWG (6. Mehrwertsteuerrichtlinie) Anwendung findet und den Teilen des Zollgebiets der Gemeinschaft, in denen diese Richtlinie nicht gilt (siehe Titel I, Absatz 3) im internen gemeinschaftlichen Versandverfahren befördert werden sollen.", "T2F")) + + cboVpTyp.Items.Clear() + For Each v In (New cVorpapierTypen).LIST + cboVpTyp.Items.Add(v) + Next + ' cboVpTyp.changeItem("OHNE") + cboVpTyp.changeItem("OHNE") + + + If WARE IsNot Nothing Then setvalue(WARE) + If WARE_TR IsNot Nothing Then setvalue_TR(WARE_TR) + + End Sub + + Sub setvalue(WARE As DAKOSY_Worker.cDakosy_NCTSOut004_HouseConsignment_ConsignmentItem) + If WARE IsNot Nothing Then + Me.txtWarenbezeichnung.Text = If(WARE.nctsHCCI_DescriptionOfGoods, "") + Me.txtRohmasse.Text = If(WARE.nctsHCCI_GrossMass, "") + Me.txtEigenmasse.Text = If(WARE.nctsHCCI_NetMass, "") + Me.txtWarennummer.Text = If(WARE.nctsHCCI_CommodityCode, "") + Me.txtWarenwert._value = If(WARE.nctsHCCI_GoodsValue, "") + + 'Me.txtSiBetragProzent._value = If(WARE.nctsWP_WarenwertProzent, 0.25) + 'Me.cboVpTyp.changeItem(If(WARE.nctsWP_VorpapierTyp, "")) + Me.cboWaehrung.SET_VALUE(If(WARE.nctsHCCI_CurrencyOfGoodsValue, "")) + + Dim packstuecke = 0 + dgvPackstuecke.Rows.Clear() + If WARE.nctsHCCI_PACKAGING IsNot Nothing Then + For Each PK In WARE.nctsHCCI_PACKAGING + + Dim VerpackArtTxt = sbPkTyp.GET_VALUE_OnlyReturn(PK.nctsHCCIPK_TypeOfPackages) + dgvPackstuecke.Rows.Add(PK.nctsHCCIPK_TypeOfPackages, PK.nctsHCCIPK_NumberOfPackages, VerpackArtTxt, PK.nctsHCCIPK_GoodsItemNumber) + Next + End If + RaiseEvent RohmasseChanged(If(IsNumeric(txtRohmasse.Text), CDbl(txtRohmasse.Text), 0), getPackstuecke) + + dgvUnterlage.Rows.Clear() + 'If WARE.nctsWP_UNTERLAGEN IsNot Nothing Then + ' For Each Ul In WARE.nctsWP_UNTERLAGEN + ' Dim UlTxt = sbUlArten.GET_VALUE_OnlyReturn(Ul.nctsWpUl_Typ) + ' dgvUnterlage.Rows.Add(Ul.nctsWpUl_Typ, UlTxt, Ul.nctsWpUl_Referenz, Ul.nctsWpUl_Zusatz) + ' Next + 'End If + + + dgvVorpapier.Rows.Clear() + If WARE.nctsHCCI_PreviousDocument_1_ReferenceNumber IsNot Nothing And WARE.nctsHCCI_PreviousDocument_1_ReferenceNumber <> "" Then dgvVorpapier.Rows.Add(WARE.nctsHCCI_PreviousDocument_1_ReferenceNumber, If(WARE.nctsHCCI_PreviousDocument_1_ComplementOfInformation, "")) + If WARE.nctsHCCI_PreviousDocument_2_ReferenceNumber IsNot Nothing And WARE.nctsHCCI_PreviousDocument_2_ReferenceNumber <> "" Then dgvVorpapier.Rows.Add(WARE.nctsHCCI_PreviousDocument_2_ReferenceNumber, If(WARE.nctsHCCI_PreviousDocument_2_ComplementOfInformation, "")) + If WARE.nctsHCCI_PreviousDocument_3_ReferenceNumber IsNot Nothing And WARE.nctsHCCI_PreviousDocument_3_ReferenceNumber <> "" Then dgvVorpapier.Rows.Add(WARE.nctsHCCI_PreviousDocument_3_ReferenceNumber, If(WARE.nctsHCCI_PreviousDocument_3_ComplementOfInformation, "")) + If WARE.nctsHCCI_PreviousDocument_4_ReferenceNumber IsNot Nothing And WARE.nctsHCCI_PreviousDocument_4_ReferenceNumber <> "" Then dgvVorpapier.Rows.Add(WARE.nctsHCCI_PreviousDocument_4_ReferenceNumber, If(WARE.nctsHCCI_PreviousDocument_4_ComplementOfInformation, "")) + If WARE.nctsHCCI_PreviousDocument_5_ReferenceNumber IsNot Nothing And WARE.nctsHCCI_PreviousDocument_5_ReferenceNumber <> "" Then dgvVorpapier.Rows.Add(WARE.nctsHCCI_PreviousDocument_5_ReferenceNumber, If(WARE.nctsHCCI_PreviousDocument_5_ComplementOfInformation, "")) + If WARE.nctsHCCI_PreviousDocument_6_ReferenceNumber IsNot Nothing And WARE.nctsHCCI_PreviousDocument_6_ReferenceNumber <> "" Then dgvVorpapier.Rows.Add(WARE.nctsHCCI_PreviousDocument_6_ReferenceNumber, If(WARE.nctsHCCI_PreviousDocument_6_ComplementOfInformation, "")) + If WARE.nctsHCCI_PreviousDocument_7_ReferenceNumber IsNot Nothing And WARE.nctsHCCI_PreviousDocument_7_ReferenceNumber <> "" Then dgvVorpapier.Rows.Add(WARE.nctsHCCI_PreviousDocument_7_ReferenceNumber, If(WARE.nctsHCCI_PreviousDocument_7_ComplementOfInformation, "")) + If WARE.nctsHCCI_PreviousDocument_8_ReferenceNumber IsNot Nothing And WARE.nctsHCCI_PreviousDocument_8_ReferenceNumber <> "" Then dgvVorpapier.Rows.Add(WARE.nctsHCCI_PreviousDocument_8_ReferenceNumber, If(WARE.nctsHCCI_PreviousDocument_8_ComplementOfInformation, "")) + If WARE.nctsHCCI_PreviousDocument_9_ReferenceNumber IsNot Nothing And WARE.nctsHCCI_PreviousDocument_9_ReferenceNumber <> "" Then dgvVorpapier.Rows.Add(WARE.nctsHCCI_PreviousDocument_9_ReferenceNumber, If(WARE.nctsHCCI_PreviousDocument_9_ComplementOfInformation, "")) + + 'Me.cbxEmport.Checked = If(WARE.nctsWP_BesondereVermeke_Export, False) + 'Me.cbxEmportAbgaben.Checked = If(WARE.nctsWP_BesondereVermeke_ExportAbgaben, False) + 'Me.cbxEmportBeschraernkung.Checked = If(WARE.nctsWP_BesondereVermeke_ExportBeschraenkung, False) + ' Me.cbxExportAusEU.Checked = If(WARE.nctsWP_BesondereVermeke_ExportAusEU, False) + + 'If WARE.nctsWP_BesondereVermeke_ExportAusEU IsNot Nothing Then + ' Me.cbxExportAusEU.Checked = If(WARE.nctsWP_BesondereVermeke_ExportAusEU, False) + 'Else + ' Me.cbxExportAusEU.CheckState = CheckState.Indeterminate + 'End If + + 'If WARE.nctsWP_BesondereVermeke_ExportAusLand IsNot Nothing AndAlso WARE.nctsWP_BesondereVermeke_ExportAusLand <> "" Then + ' Me.cbxEmportAusLand.Checked = True + ' sbExportAusLand.SET_VALUE(WARE.nctsWP_BesondereVermeke_ExportAusLand) + 'Else + ' sbExportAusLand.SET_VALUE("") + ' Me.cbxEmportAusLand.Checked = False + 'End If + + 'txtKdRefNr.Text = If(WARE.nctsWP_KdRefNr, "") + + 'usrcntlVersedner.kdFirma.Text = WARE.nctsHCCI_Consignor_Name + 'usrcntlVersedner.txtStrasse.Text = WARE.nctsHCCI_Consignor_StreetNumber + 'usrcntlVersedner.txtPlz.Text = WARE.nctsHCCI_Consignor_Postcode + 'usrcntlVersedner.txtOrt.Text = WARE.nctsHCCI_Consignor_City + 'usrcntlVersedner.txtEORI.Text = WARE.nctsHCCI_Consignor_IdentificationNumber + 'usrcntlVersedner.txtEORINL.Text = WARE.nctsHCCI_Consignor_SubsidiaryNumber + 'usrcntlVersedner.sbLand.SET_VALUE(WARE.nctsHCCI_Consignor_Country) + + usrcntlVersedner.kdFirma.Text = WARE.nctsHCCI_Consignor_Name + usrcntlVersedner.txtStrasse.Text = WARE.nctsHCCI_Consignor_StreetNumber + usrcntlVersedner.txtPlz.Text = WARE.nctsHCCI_Consignor_Postcode + usrcntlVersedner.txtOrt.Text = WARE.nctsHCCI_Consignor_City + usrcntlVersedner.txtEORI.Text = WARE.nctsHCCI_Consignor_IdentificationNumber + usrcntlVersedner.txtEORINL.Text = WARE.nctsHCCI_Consignor_SubsidiaryNumber + usrcntlVersedner.sbLand.SET_VALUE(WARE.nctsHCCI_Consignor_Country) + + 'usrcntlEmpfaenger.kdFirma.Text = WARE.nctsWP_Empfaenger_Name + 'usrcntlEmpfaenger.txtStrasse.Text = WARE.nctsWP_Empfaenger_StrasseHausnummer + 'usrcntlEmpfaenger.txtPlz.Text = WARE.nctsWP_Empfaenger_PLZ + 'usrcntlEmpfaenger.txtOrt.Text = WARE.nctsWP_Empfaenger_Ort + 'usrcntlEmpfaenger.txtEORI.Text = WARE.nctsWP_Empfaenger_EORI + 'usrcntlEmpfaenger.txtEORINL.Text = WARE.nctsWP_Empfaenger_NLNR + 'usrcntlEmpfaenger.sbLand.SET_VALUE(WARE.nctsWP_Empfaenger_Land) + + + 'usrcntlSumAVersedner.kdFirma.Text = WARE.nctsWP_SumAVersender_Name + 'usrcntlSumAVersedner.txtStrasse.Text = WARE.nctsWP_SumAVersender_StrasseHausnummer + 'usrcntlSumAVersedner.txtPlz.Text = WARE.nctsWP_SumAVersender_PLZ + 'usrcntlSumAVersedner.txtOrt.Text = WARE.nctsWP_SumAVersender_Ort + 'usrcntlSumAVersedner.txtEORI.Text = WARE.nctsWP_SumAVersender_EORI + 'usrcntlSumAVersedner.txtEORINL.Text = WARE.nctsWP_SumAVersender_NLNR + 'usrcntlSumAVersedner.sbLand.SET_VALUE(WARE.nctsWP_SumAVersender_Land) + + 'usrcntlSumAEmpfaenger.kdFirma.Text = WARE.nctsWP_SumAEmpfaenger_Name + 'usrcntlSumAEmpfaenger.txtStrasse.Text = WARE.nctsWP_SumAEmpfaenger_StrasseHausnummer + 'usrcntlSumAEmpfaenger.txtPlz.Text = WARE.nctsWP_SumAEmpfaenger_PLZ + 'usrcntlSumAEmpfaenger.txtOrt.Text = WARE.nctsWP_SumAEmpfaenger_Ort + 'usrcntlSumAEmpfaenger.txtEORI.Text = WARE.nctsWP_SumAEmpfaenger_EORI + 'usrcntlSumAEmpfaenger.txtEORINL.Text = WARE.nctsWP_SumAEmpfaenger_NLNR + 'usrcntlSumAEmpfaenger.sbLand.SET_VALUE(WARE.nctsWP_SumAEmpfaenger_Land) + + + End If + End Sub + + + Sub setvalue_TR(WARE As VERAG_PROG_ALLGEMEIN.cNCTS_TR_Warenposition) + If WARE IsNot Nothing Then + Me.txtWarenbezeichnung.Text = If(WARE.nctsWP_Warenbezeichnung, "") + Me.txtRohmasse.Text = If(WARE.nctsWP_Rohmasse, "") + Me.txtEigenmasse.Text = If(WARE.nctsWP_Eigenmasse, "") + Me.txtWarennummer.Text = If(WARE.nctsWP_Warennummer, "") + Me.txtWarenwert._value = If(WARE.nctsWP_Warenwert, "") + + Me.txtSiBetragProzent._value = If(WARE.nctsWP_WarenwertProzent, 0.25) + Me.cboVpTyp.changeItem(If(WARE.nctsWP_VorpapierTyp, "")) + Me.cboWaehrung.SET_VALUE(If(WARE.nctsWP_WarenwertWaehrung, "")) + + Dim packstuecke = 0 + dgvPackstuecke.Rows.Clear() + If WARE.nctsWP_PACKSTUECKE IsNot Nothing Then + For Each PK In WARE.nctsWP_PACKSTUECKE + + Dim VerpackArtTxt = sbPkTyp.GET_VALUE_OnlyReturn(PK.nctsWpPk_Verpackungsart) + dgvPackstuecke.Rows.Add(PK.nctsWpPk_Verpackungsart, PK.nctsWpPk_PackstueckeAnzahl, VerpackArtTxt, PK.nctsWpPk_ZeichenNummern) + Next + End If + RaiseEvent RohmasseChanged(If(IsNumeric(txtRohmasse.Text), CDbl(txtRohmasse.Text), 0), getPackstuecke) + + dgvUnterlage.Rows.Clear() + If WARE.nctsWP_UNTERLAGEN IsNot Nothing Then + For Each Ul In WARE.nctsWP_UNTERLAGEN + Dim UlTxt = sbUlArten.GET_VALUE_OnlyReturn(Ul.nctsWpUl_Typ) + dgvUnterlage.Rows.Add(Ul.nctsWpUl_Typ, UlTxt, Ul.nctsWpUl_Referenz, Ul.nctsWpUl_Zusatz) + Next + End If + + + dgvVorpapier.Rows.Clear() + If WARE.nctsWP_VorpapierReferenz1 IsNot Nothing And WARE.nctsWP_VorpapierReferenz1 <> "" Then dgvVorpapier.Rows.Add(WARE.nctsWP_VorpapierReferenz1, If(WARE.nctsWP_VorpapierZusatz1, "")) + If WARE.nctsWP_VorpapierReferenz2 IsNot Nothing And WARE.nctsWP_VorpapierReferenz2 <> "" Then dgvVorpapier.Rows.Add(WARE.nctsWP_VorpapierReferenz2, If(WARE.nctsWP_VorpapierZusatz2, "")) + If WARE.nctsWP_VorpapierReferenz3 IsNot Nothing And WARE.nctsWP_VorpapierReferenz3 <> "" Then dgvVorpapier.Rows.Add(WARE.nctsWP_VorpapierReferenz3, If(WARE.nctsWP_VorpapierZusatz3, "")) + If WARE.nctsWP_VorpapierReferenz4 IsNot Nothing And WARE.nctsWP_VorpapierReferenz4 <> "" Then dgvVorpapier.Rows.Add(WARE.nctsWP_VorpapierReferenz4, If(WARE.nctsWP_VorpapierZusatz4, "")) + If WARE.nctsWP_VorpapierReferenz5 IsNot Nothing And WARE.nctsWP_VorpapierReferenz5 <> "" Then dgvVorpapier.Rows.Add(WARE.nctsWP_VorpapierReferenz5, If(WARE.nctsWP_VorpapierZusatz5, "")) + If WARE.nctsWP_VorpapierReferenz6 IsNot Nothing And WARE.nctsWP_VorpapierReferenz6 <> "" Then dgvVorpapier.Rows.Add(WARE.nctsWP_VorpapierReferenz6, If(WARE.nctsWP_VorpapierZusatz6, "")) + If WARE.nctsWP_VorpapierReferenz7 IsNot Nothing And WARE.nctsWP_VorpapierReferenz7 <> "" Then dgvVorpapier.Rows.Add(WARE.nctsWP_VorpapierReferenz7, If(WARE.nctsWP_VorpapierZusatz7, "")) + If WARE.nctsWP_VorpapierReferenz8 IsNot Nothing And WARE.nctsWP_VorpapierReferenz8 <> "" Then dgvVorpapier.Rows.Add(WARE.nctsWP_VorpapierReferenz8, If(WARE.nctsWP_VorpapierZusatz8, "")) + If WARE.nctsWP_VorpapierReferenz9 IsNot Nothing And WARE.nctsWP_VorpapierReferenz9 <> "" Then dgvVorpapier.Rows.Add(WARE.nctsWP_VorpapierReferenz9, If(WARE.nctsWP_VorpapierZusatz9, "")) + + Me.cbxEmport.Checked = If(WARE.nctsWP_BesondereVermeke_Export, False) + Me.cbxEmportAbgaben.Checked = If(WARE.nctsWP_BesondereVermeke_ExportAbgaben, False) + Me.cbxEmportBeschraernkung.Checked = If(WARE.nctsWP_BesondereVermeke_ExportBeschraenkung, False) + ' Me.cbxExportAusEU.Checked = If(WARE.nctsWP_BesondereVermeke_ExportAusEU, False) + + If WARE.nctsWP_BesondereVermeke_ExportAusEU IsNot Nothing Then + Me.cbxExportAusEU.Checked = If(WARE.nctsWP_BesondereVermeke_ExportAusEU, False) + Else + Me.cbxExportAusEU.CheckState = CheckState.Indeterminate + End If + + If WARE.nctsWP_BesondereVermeke_ExportAusLand IsNot Nothing AndAlso WARE.nctsWP_BesondereVermeke_ExportAusLand <> "" Then + Me.cbxEmportAusLand.Checked = True + sbExportAusLand.SET_VALUE(WARE.nctsWP_BesondereVermeke_ExportAusLand) + Else + sbExportAusLand.SET_VALUE("") + Me.cbxEmportAusLand.Checked = False + End If + + txtKdRefNr.Text = If(WARE.nctsWP_KdRefNr, "") + + usrcntlVersedner.kdFirma.Text = WARE.nctsWP_Versender_Name + usrcntlVersedner.txtStrasse.Text = WARE.nctsWP_Versender_StrasseHausnummer + usrcntlVersedner.txtPlz.Text = WARE.nctsWP_Versender_PLZ + usrcntlVersedner.txtOrt.Text = WARE.nctsWP_Versender_Ort + usrcntlVersedner.txtEORI.Text = WARE.nctsWP_Versender_EORI + usrcntlVersedner.txtEORINL.Text = WARE.nctsWP_Versender_NLNR + usrcntlVersedner.sbLand.SET_VALUE(WARE.nctsWP_Versender_Land) + + usrcntlEmpfaenger.kdFirma.Text = WARE.nctsWP_Empfaenger_Name + usrcntlEmpfaenger.txtStrasse.Text = WARE.nctsWP_Empfaenger_StrasseHausnummer + usrcntlEmpfaenger.txtPlz.Text = WARE.nctsWP_Empfaenger_PLZ + usrcntlEmpfaenger.txtOrt.Text = WARE.nctsWP_Empfaenger_Ort + usrcntlEmpfaenger.txtEORI.Text = WARE.nctsWP_Empfaenger_EORI + usrcntlEmpfaenger.txtEORINL.Text = WARE.nctsWP_Empfaenger_NLNR + usrcntlEmpfaenger.sbLand.SET_VALUE(WARE.nctsWP_Empfaenger_Land) + + + usrcntlSumAVersedner.kdFirma.Text = WARE.nctsWP_SumAVersender_Name + usrcntlSumAVersedner.txtStrasse.Text = WARE.nctsWP_SumAVersender_StrasseHausnummer + usrcntlSumAVersedner.txtPlz.Text = WARE.nctsWP_SumAVersender_PLZ + usrcntlSumAVersedner.txtOrt.Text = WARE.nctsWP_SumAVersender_Ort + usrcntlSumAVersedner.txtEORI.Text = WARE.nctsWP_SumAVersender_EORI + usrcntlSumAVersedner.txtEORINL.Text = WARE.nctsWP_SumAVersender_NLNR + usrcntlSumAVersedner.sbLand.SET_VALUE(WARE.nctsWP_SumAVersender_Land) + + usrcntlSumAEmpfaenger.kdFirma.Text = WARE.nctsWP_SumAEmpfaenger_Name + usrcntlSumAEmpfaenger.txtStrasse.Text = WARE.nctsWP_SumAEmpfaenger_StrasseHausnummer + usrcntlSumAEmpfaenger.txtPlz.Text = WARE.nctsWP_SumAEmpfaenger_PLZ + usrcntlSumAEmpfaenger.txtOrt.Text = WARE.nctsWP_SumAEmpfaenger_Ort + usrcntlSumAEmpfaenger.txtEORI.Text = WARE.nctsWP_SumAEmpfaenger_EORI + usrcntlSumAEmpfaenger.txtEORINL.Text = WARE.nctsWP_SumAEmpfaenger_NLNR + usrcntlSumAEmpfaenger.sbLand.SET_VALUE(WARE.nctsWP_SumAEmpfaenger_Land) + + + End If + End Sub + + Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click + addPackstuecke() + End Sub + + Sub addPackstuecke() + Label23.Visible = False + Label24.Visible = False + If sbPkTyp._value = "" Then Label24.Visible = True : sbPkTyp.Focus() : Exit Sub + If txtPkAnzahl.Text = "" Then Label23.Visible = True : txtPkAnzahl.Focus() : Exit Sub + + If PK_EDIT >= 0 Then + dgvPackstuecke.Rows.RemoveAt(PK_EDIT) + dgvPackstuecke.Rows.Insert(PK_EDIT, sbPkTyp._value, txtPkAnzahl.Text, sbPkTyp.Text, txtPkMarke.Text) + PK_EDIT = -1 + btn.BackgroundImage = My.Resources.plus + lklBearbeitungAbbrechenPK.Visible = False + Else + dgvPackstuecke.Rows.Add(sbPkTyp._value, txtPkAnzahl.Text, sbPkTyp.Text, txtPkMarke.Text) + End If + sbPkTyp.SET_VALUE("") : txtPkAnzahl.Text = "" : txtPkMarke.Text = "ohne" + dgvPackstuecke.FirstDisplayedScrollingRowIndex = dgvPackstuecke.RowCount - 1 + dgvPackstuecke.ClearSelection() + txtPkAnzahl.Focus() + + RaiseEvent RohmasseChanged(If(IsNumeric(txtRohmasse.Text), CDbl(txtRohmasse.Text), 0), getPackstuecke) + End Sub + + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + addUnterlage() + End Sub + + Sub addUnterlage() + Label22.Visible = False + If sbUlArten._value = "" Then Label22.Visible = True : sbUlArten.Focus() : Exit Sub + + If UL_EDIT >= 0 Then + dgvUnterlage.Rows.RemoveAt(UL_EDIT) + dgvUnterlage.Rows.Insert(UL_EDIT, sbUlArten._value, sbUlArten.Text, txtUlReferenz.Text, txtUlZusatz.Text) + UL_EDIT = -1 + Button1.BackgroundImage = My.Resources.plus + lklBearbeitungAbbrechenUl.Visible = False + Else + dgvUnterlage.Rows.Add(sbUlArten._value, sbUlArten.Text, txtUlReferenz.Text, txtUlZusatz.Text) + End If + + txtUlZusatz.Text = "" : txtUlReferenz.Text = "" : sbUlArten.SET_VALUE("") + dgvUnterlage.FirstDisplayedScrollingRowIndex = dgvUnterlage.RowCount - 1 + dgvUnterlage.ClearSelection() + sbUlArten.Focus() + End Sub + + + Private Sub PackstueckeKeyDown(sender As Object, e As KeyEventArgs) Handles sbPkTyp.KeyDown, txtPkAnzahl.KeyDown, txtPkMarke.KeyDown + If e.KeyCode = Keys.Return Then addPackstuecke() : e.Handled = True + End Sub + + Private Sub UnterlageKeyDown(sender As Object, e As KeyEventArgs) Handles txtUlZusatz.KeyDown, txtUlReferenz.KeyDown, sbUlArten.KeyDown + If e.KeyCode = Keys.Return Then addUnterlage() : e.Handled = True + End Sub + + + Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click + If dgvPackstuecke.SelectedRows.Count > 0 Then + If MsgBox("Möchten Sie den Eintrag in 'Packstücke' wirklich löschen?", vbYesNoCancel) = vbYes Then + dgvPackstuecke.Rows.Remove(dgvPackstuecke.SelectedRows(0)) + End If + End If + dgvPackstuecke.ClearSelection() + + RaiseEvent RohmasseChanged(If(IsNumeric(txtRohmasse.Text), CDbl(txtRohmasse.Text), 0), getPackstuecke) + 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 MyTextBox2_TextChanged(sender As Object, e As EventArgs) Handles txtWarenwert.TextChanged, txtSiBetragProzent.TextChanged, txtWarenwert.Leave, txtSiBetragProzent.Leave, cboWaehrung.Leave + If IsNumeric(txtWarenwert._value) And IsNumeric(txtSiBetragProzent._value) Then + Label5.Text = CDbl(txtSiBetragProzent._value * txtWarenwert._value).ToString("N2") & " " & cboWaehrung._value + Else + Label5.Text = CDbl(0).ToString("N2") & " " & cboWaehrung._value + End If + End Sub + + + + Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click + addVorpapier() + End Sub + Sub addVorpapier() + Label38.Visible = False + If txtVpReferenz.Text = "" Then Label38.Visible = True : txtVpReferenz.Focus() : Exit Sub + + If VP_EDIT >= 0 Then + dgvVorpapier.Rows.RemoveAt(VP_EDIT) + dgvVorpapier.Rows.Insert(VP_EDIT, txtVpReferenz.Text, txtVpZusatz.Text) + VP_EDIT = -1 + Button5.BackgroundImage = My.Resources.plus + lklBearbeitungAbbrechenVP.Visible = False + Else + dgvVorpapier.Rows.Add(txtVpReferenz.Text, txtVpZusatz.Text) + End If + + txtVpReferenz.Text = "" : txtVpZusatz.Text = "" + dgvVorpapier.FirstDisplayedScrollingRowIndex = dgvVorpapier.RowCount - 1 + dgvVorpapier.ClearSelection() + txtVpReferenz.Focus() + End Sub + + Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click + If dgvVorpapier.SelectedRows.Count > 0 Then + If MsgBox("Möchten Sie den Eintrag in 'Vorpapiere' wirklich löschen?", vbYesNoCancel) = vbYes Then + dgvVorpapier.Rows.Remove(dgvVorpapier.SelectedRows(0)) + End If + End If + dgvVorpapier.ClearSelection() + End Sub + + Private Sub txtVpReferenz_KeyDown(sender As Object, e As KeyEventArgs) Handles txtVpReferenz.KeyDown, txtVpZusatz.KeyDown + If e.KeyCode = Keys.Return Then addVorpapier() : e.Handled = True + 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), getPackstuecke) + End Sub + + Private Sub dgvPackstuecke_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvPackstuecke.CellDoubleClick + If e.RowIndex < 0 Then Exit Sub + editableRowPK(e.RowIndex) + End Sub + + + Sub editableRowPK(index As Integer) + txtPkAnzahl.Text = dgvPackstuecke.Rows(index).Cells("Anzahl").Value + sbPkTyp.SET_VALUE(dgvPackstuecke.Rows(index).Cells("PkCode").Value) + txtPkMarke.Text = dgvPackstuecke.Rows(index).Cells("Marke").Value + PK_EDIT = index + btn.BackgroundImage = My.Resources.stift + lklBearbeitungAbbrechenPK.Visible = True + End Sub + + Private Sub lklBearbeitungAbbrechenPK_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lklBearbeitungAbbrechenPK.LinkClicked + PK_EDIT = -1 + txtPkAnzahl.Text = "" + sbPkTyp.SET_VALUE("") + txtPkMarke.Text = "" + btn.BackgroundImage = My.Resources.plus + lklBearbeitungAbbrechenPK.Visible = False + 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) + txtUlReferenz.Text = dgvUnterlage.Rows(index).Cells("UlReferenz").Value + sbUlArten.SET_VALUE(dgvUnterlage.Rows(index).Cells("UlCode").Value) + txtUlZusatz.Text = dgvUnterlage.Rows(index).Cells("UlZusatz").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 + txtUlReferenz.Text = "" + sbUlArten.SET_VALUE("") + txtUlZusatz.Text = "" + Button1.BackgroundImage = My.Resources.plus + lklBearbeitungAbbrechenUl.Visible = False + End Sub + + + Private Sub dgvVorpapier_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvVorpapier.CellDoubleClick + If e.RowIndex < 0 Then Exit Sub + editableRowVP(e.RowIndex) + End Sub + + + Sub editableRowVP(index As Integer) + txtVpReferenz.Text = dgvVorpapier.Rows(index).Cells("VpReferenz").Value + txtVpZusatz.Text = dgvVorpapier.Rows(index).Cells("VpZusatz").Value + + VP_EDIT = index + Button5.BackgroundImage = My.Resources.stift + lklBearbeitungAbbrechenVP.Visible = True + End Sub + + Private Sub lklBearbeitungAbbrechenVP_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lklBearbeitungAbbrechenVP.LinkClicked + VP_EDIT = -1 + txtVpReferenz.Text = "" + txtVpZusatz.Text = "" + Button5.BackgroundImage = My.Resources.plus + lklBearbeitungAbbrechenVP.Visible = False + End Sub + + Private Sub dgvPackstuecke_CellContentClick(sender As Object, e As EventArgs) Handles dgvPackstuecke.LostFocus + dgvPackstuecke.ClearSelection() + End Sub + + Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles cbxEmportAusLand.CheckedChanged + sbExportAusLand.Enabled = cbxEmportAusLand.Checked + End Sub + + Private Sub txtEigenmasse_TextChanged() Handles txtEigenmasse.ValueChanged, txtRohmasse.ValueChanged + 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 + + +End Class + + + + diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Positionen.Designer.vb b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Positionen.Designer.vb new file mode 100644 index 00000000..b33f3e5c --- /dev/null +++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Positionen.Designer.vb @@ -0,0 +1,196 @@ + +Partial Class usrCntlATLAS_NCTS004_Positionen + Inherits System.Windows.Forms.UserControl + + 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + 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. + + 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.Button2 = New System.Windows.Forms.Button() + 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.Button2) + 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 + ' + 'Button2 + ' + Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.Button2.BackgroundImage = Global.SDL.My.Resources.plus + Me.Button2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button2.Location = New System.Drawing.Point(132, 478) + Me.Button2.Name = "Button2" + Me.Button2.Size = New System.Drawing.Size(28, 23) + Me.Button2.TabIndex = 6 + Me.Button2.UseVisualStyleBackColor = True + Me.Button2.Visible = False + ' + '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 + Friend WithEvents Button2 As Button +End Class diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Positionen.resx b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Positionen.resx new file mode 100644 index 00000000..4aeef76c --- /dev/null +++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Positionen.resx @@ -0,0 +1,132 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + True + + + True + + + True + + + 17, 17 + + \ No newline at end of file diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Positionen.vb b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Positionen.vb new file mode 100644 index 00000000..bc968af6 --- /dev/null +++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Positionen.vb @@ -0,0 +1,649 @@ +Public Class usrCntlATLAS_NCTS004_Positionen + + Dim NCTS As DAKOSY_Worker.cDakosyNCTSOut004 = Nothing + Dim NCTS_TR As VERAG_PROG_ALLGEMEIN.cNCTS_TR = Nothing + + Dim POS As New List(Of usrCntlATLAS_NCTS004_Position) + Dim sectionChangeBLOCK = False + Dim gesRohmasse = 0 + Dim gesPackstuecke = 0 + + Event RohmasseChanged(gesRohmasse As Double, gesPackstuecke As Double) + Event PosAnzChanged(anzahlPos As Double) + + + + Sub New(NCTS As DAKOSY_Worker.cDakosyNCTSOut004) + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + Me.NCTS = NCTS + End Sub + + Sub New(NCTS_TR As VERAG_PROG_ALLGEMEIN.cNCTS_TR) + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + Me.NCTS_TR = NCTS_TR + End Sub + Private Sub usrCntlATLAS_NCTS_Load(sender As Object, e As EventArgs) Handles Me.Load + + ' addItem() 'Auskommentiert! + 'setValues(NCTS.ncts_WARENPOS) + End Sub + + Public Sub setValues(NCTS_POS As DAKOSY_Worker.cDakosyNCTSOut004) + If NCTS_POS Is Nothing Then Exit Sub + POS.Clear() + + If NCTS_POS.ncts_HOUSE_CONSIGNMENT IsNot Nothing AndAlso NCTS_POS.ncts_HOUSE_CONSIGNMENT.Count > 0 Then + If NCTS_POS.ncts_HOUSE_CONSIGNMENT(0).nctsWP_CONSIGNMENT_ITEM IsNot Nothing Then + For Each p In NCTS_POS.ncts_HOUSE_CONSIGNMENT(0).nctsWP_CONSIGNMENT_ITEM + addItem(p) 'MyPanel2.Controls.Add() + Next + End If + End If + MyPanel2.Controls.Clear() + MyListBox1_SelectedIndexChanged(dgvPositionen, New EventArgs) + End Sub + + + Public Sub setValues_TR(NCTS_POS As VERAG_PROG_ALLGEMEIN.cNCTS_TR) + If NCTS_POS Is Nothing Then Exit Sub + POS.Clear() + + For Each p In NCTS_POS.ncts_WARENPOS + addItem_TR(p) 'MyPanel2.Controls.Add() + Next + MyPanel2.Controls.Clear() + 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_NCTS004_Position).txtWarenbezeichnung.Focus() : Catch : End Try + ' initListBox(MyListBox1.SelectedIndex()) + End If + + Catch ex As Exception + + End Try + End Sub + + Private Sub usrCntlATLAS_NCTS004_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 duplicateItem(Optional POSTMP As DAKOSY_Worker.cDakosy_NCTSOut_Warenposition = Nothing) As usrCntlATLAS_NCTS004_Position + If dgvPositionen.SelectedRows.Count > 0 Then + 'GET + 'Dim d = getValues() + '?????????????????????????? + + + MyPanel2.Controls.Add(POS(dgvPositionen.SelectedRows(0).Cells("index").Value)) + + Dim u As usrCntlATLAS_NCTS004_Position = POS(dgvPositionen.SelectedRows(0).Cells("index").Value) '.CreateCopy(New usrCntlATLAS_NCTS004_Position)) + + + AddHandler u.RohmasseChanged, Sub(r, pk) + gesRohmasse = 0 + gesPackstuecke = 0 + For Each p As usrCntlATLAS_NCTS004_Position In POS + gesRohmasse += If(IsNumeric(p.txtRohmasse.Text), p.txtRohmasse.Text, 0) + For Each row As DataGridViewRow In p.dgvPackstuecke.Rows + gesPackstuecke += If(IsNumeric(row.Cells("Anzahl").Value), row.Cells("Anzahl").Value, 0) + Next + Next + RaiseEvent RohmasseChanged(gesRohmasse, gesPackstuecke) + End Sub + u.Dock = DockStyle.Fill + u.cboVpTyp.changeItem("OHNE") + ' 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) + initListBox() + dgvPositionen.ClearSelection() + If dgvPositionen.RowCount > 0 Then dgvPositionen.Rows(dgvPositionen.RowCount - 1).Selected = True + RaiseEvent PosAnzChanged(POS.Count) + Return u + End If + End Function + + Function addItem(Optional POSTMP As DAKOSY_Worker.cDakosy_NCTSOut004_HouseConsignment_ConsignmentItem = Nothing) As usrCntlATLAS_NCTS004_Position ' + Dim u = New usrCntlATLAS_NCTS004_Position(POS.Count, POSTMP) + + AddHandler u.RohmasseChanged, Sub(r, pk) + gesRohmasse = 0 + gesPackstuecke = 0 + For Each p As usrCntlATLAS_NCTS004_Position In POS + gesRohmasse += If(IsNumeric(p.txtRohmasse.Text), p.txtRohmasse.Text, 0) + For Each row As DataGridViewRow In p.dgvPackstuecke.Rows + gesPackstuecke += If(IsNumeric(row.Cells("Anzahl").Value), row.Cells("Anzahl").Value, 0) + Next + Next + RaiseEvent RohmasseChanged(gesRohmasse, gesPackstuecke) + End Sub + u.Dock = DockStyle.Fill + u.cboVpTyp.changeItem("OHNE") + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "ATILLA" + u.cbxEmport.Checked = True + End Select + ' 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) + initListBox() + dgvPositionen.ClearSelection() + If dgvPositionen.RowCount > 0 Then dgvPositionen.Rows(dgvPositionen.RowCount - 1).Selected = True + RaiseEvent PosAnzChanged(POS.Count) + Return u + End Function + + Function addItem_TR(Optional POSTMP As VERAG_PROG_ALLGEMEIN.cNCTS_TR_Warenposition = Nothing) As usrCntlATLAS_NCTS004_Position ' + Dim u = New usrCntlATLAS_NCTS004_Position(POS.Count, POSTMP) + + AddHandler u.RohmasseChanged, Sub(r, pk) + gesRohmasse = 0 + gesPackstuecke = 0 + For Each p As usrCntlATLAS_NCTS004_Position In POS + gesRohmasse += If(IsNumeric(p.txtRohmasse.Text), p.txtRohmasse.Text, 0) + For Each row As DataGridViewRow In p.dgvPackstuecke.Rows + gesPackstuecke += If(IsNumeric(row.Cells("Anzahl").Value), row.Cells("Anzahl").Value, 0) + Next + Next + RaiseEvent RohmasseChanged(gesRohmasse, gesPackstuecke) + End Sub + u.Dock = DockStyle.Fill + u.cboVpTyp.changeItem("OHNE") + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "ATILLA" + u.cbxEmport.Checked = True + End Select + ' 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) + initListBox() + dgvPositionen.ClearSelection() + If dgvPositionen.RowCount > 0 Then dgvPositionen.Rows(dgvPositionen.RowCount - 1).Selected = True + RaiseEvent PosAnzChanged(POS.Count) + Return u + End Function + + + Sub removeItem(index) + 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() + If POS.Count > index Then 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) + 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 NCTS As DAKOSY_Worker.cDakosyNCTSOut004) + ' Dim POSITIONEN As List(Of DAKOSY_Worker.cDakosy_NCTSOut_Warenposition) + NCTS.ncts_HOUSE_CONSIGNMENT.Clear() + + Dim cnt As Integer = 1 + For Each P In POS + Dim HC As New DAKOSY_Worker.cDakosy_NCTSOut004_HouseConsignment + Dim POSITION As New DAKOSY_Worker.cDakosy_NCTSOut004_HouseConsignment_ConsignmentItem + + 'POSITION.nctsWP_Id As Integer + ' POSITION.nctsWP_NctsId = NCTS.ncts_Id + POSITION.nctsHCCI_GoodsItemNumber = cnt + POSITION.nctsHCCI_CommodityCode = cProgramFunctions.isLeerNothing(P.txtWarennummer.Text) + ' POSITION.nctsWP_ArtAnmeldungPositionCode = cProgramFunctions.isLeerNothing(P.cboArtAnmeldung._value) + POSITION.nctsHCCI_DescriptionOfGoods = P.txtWarenbezeichnung.Text + POSITION.nctsHCCI_GoodsValue = cProgramFunctions.isLeerNothingDbl(P.txtWarenwert._value) + ' POSITION.nctsWP_WarenwertProzent = cProgramFunctions.isLeerNothingDbl(P.txtSiBetragProzent._value) + POSITION.nctsHCCI_CurrencyOfGoodsValue = cProgramFunctions.isLeerNothing(P.cboWaehrung._value) + 'POSITION.nctsWP_WarenwertWaehrung = P.XXXXXXXXXXXX.Text + 'POSITION.nctsWP_SchaetzKz = P.XXXXXXXXXXXX.Text + 'POSITION.nctsWP_WarenwertProzent = P.XXXXXXXXXXXX.Text + POSITION.nctsHCCI_GrossMass = cProgramFunctions.isLeerNothingDbl(P.txtRohmasse.Text) + POSITION.nctsHCCI_NetMass = cProgramFunctions.isLeerNothingDbl(P.txtEigenmasse.Text) + ' + ' POSITION.nctsWP_VorpapierTyp = cProgramFunctions.isLeerNothing(P.cboVpTyp._value) + + + 'POSITION.nctsWP_BesondereVermeke_Export = P.cbxEmport.Checked + 'POSITION.nctsWP_BesondereVermeke_ExportAbgaben = P.cbxEmportAbgaben.Checked + 'POSITION.nctsWP_BesondereVermeke_ExportBeschraenkung = P.cbxEmportBeschraernkung.Checked + 'POSITION.nctsWP_BesondereVermeke_ExportAusEU = P.cbxExportAusEU.Checked + POSITION.nctsHCCI_CountryOfDispatch = cProgramFunctions.isLeerNothing(P.sbVersendungsLand._value) + POSITION.nctsHCCI_CountryOfDestination = cProgramFunctions.isLeerNothing(P.sbBestimmungsland._value) + + 'If P.cbxExportAusEU.CheckState = CheckState.Checked Then + ' POSITION.nctsWP_BesondereVermeke_ExportAusEU = True + 'ElseIf P.cbxExportAusEU.CheckState = CheckState.Unchecked Then + ' POSITION.nctsWP_BesondereVermeke_ExportAusEU = False + 'Else + ' POSITION.nctsWP_BesondereVermeke_ExportAusEU = Nothing + 'End If + + 'If P.cbxEmportAusLand.Checked = CheckState.Checked Then + ' POSITION.nctsWP_BesondereVermeke_ExportAusLand = cProgramFunctions.isLeerNothing(P.sbExportAusLand._value) + 'Else + ' POSITION.nctsWP_BesondereVermeke_ExportAusLand = Nothing + 'End If + + 'POSITION.nctsWP_BesondereVermeke_Vermerk = P.cbxVermerk.Text + 'POSITION.nctsWP_BesondereVermeke_Kz10600 = P.cbxVermerk10600.Checked + + + POSITION.nctsHCCI_PreviousDocument_1_ReferenceNumber = Nothing + POSITION.nctsHCCI_PreviousDocument_1_ComplementOfInformation = Nothing + POSITION.nctsHCCI_PreviousDocument_2_ReferenceNumber = Nothing + POSITION.nctsHCCI_PreviousDocument_2_ComplementOfInformation = Nothing + POSITION.nctsHCCI_PreviousDocument_3_ReferenceNumber = Nothing + POSITION.nctsHCCI_PreviousDocument_3_ComplementOfInformation = Nothing + POSITION.nctsHCCI_PreviousDocument_4_ReferenceNumber = Nothing + POSITION.nctsHCCI_PreviousDocument_4_ComplementOfInformation = Nothing + POSITION.nctsHCCI_PreviousDocument_5_ReferenceNumber = Nothing + POSITION.nctsHCCI_PreviousDocument_5_ComplementOfInformation = Nothing + POSITION.nctsHCCI_PreviousDocument_6_ReferenceNumber = Nothing + POSITION.nctsHCCI_PreviousDocument_6_ComplementOfInformation = Nothing + POSITION.nctsHCCI_PreviousDocument_7_ReferenceNumber = Nothing + POSITION.nctsHCCI_PreviousDocument_7_ComplementOfInformation = Nothing + POSITION.nctsHCCI_PreviousDocument_8_ReferenceNumber = Nothing + POSITION.nctsHCCI_PreviousDocument_8_ComplementOfInformation = Nothing + POSITION.nctsHCCI_PreviousDocument_9_ReferenceNumber = Nothing + POSITION.nctsHCCI_PreviousDocument_9_ComplementOfInformation = Nothing + If P.dgvVorpapier.Rows.Count > 0 Then + POSITION.nctsHCCI_PreviousDocument_1_ReferenceNumber = P.dgvVorpapier.Rows(0).Cells("VpReferenz").Value + POSITION.nctsHCCI_PreviousDocument_1_ComplementOfInformation = P.dgvVorpapier.Rows(0).Cells("VpZusatz").Value + End If + If P.dgvVorpapier.Rows.Count > 1 Then + POSITION.nctsHCCI_PreviousDocument_2_ReferenceNumber = P.dgvVorpapier.Rows(1).Cells("VpReferenz").Value + POSITION.nctsHCCI_PreviousDocument_2_ComplementOfInformation = P.dgvVorpapier.Rows(1).Cells("VpZusatz").Value + End If + If P.dgvVorpapier.Rows.Count > 2 Then + POSITION.nctsHCCI_PreviousDocument_3_ReferenceNumber = P.dgvVorpapier.Rows(2).Cells("VpReferenz").Value + POSITION.nctsHCCI_PreviousDocument_3_ComplementOfInformation = P.dgvVorpapier.Rows(2).Cells("VpZusatz").Value + End If + If P.dgvVorpapier.Rows.Count > 3 Then + POSITION.nctsHCCI_PreviousDocument_4_ReferenceNumber = P.dgvVorpapier.Rows(3).Cells("VpReferenz").Value + POSITION.nctsHCCI_PreviousDocument_4_ComplementOfInformation = P.dgvVorpapier.Rows(3).Cells("VpZusatz").Value + End If + If P.dgvVorpapier.Rows.Count > 4 Then + POSITION.nctsHCCI_PreviousDocument_5_ReferenceNumber = P.dgvVorpapier.Rows(4).Cells("VpReferenz").Value + POSITION.nctsHCCI_PreviousDocument_5_ComplementOfInformation = P.dgvVorpapier.Rows(4).Cells("VpZusatz").Value + End If + If P.dgvVorpapier.Rows.Count > 5 Then + POSITION.nctsHCCI_PreviousDocument_6_ReferenceNumber = P.dgvVorpapier.Rows(5).Cells("VpReferenz").Value + POSITION.nctsHCCI_PreviousDocument_6_ComplementOfInformation = P.dgvVorpapier.Rows(5).Cells("VpZusatz").Value + End If + If P.dgvVorpapier.Rows.Count > 6 Then + POSITION.nctsHCCI_PreviousDocument_7_ReferenceNumber = P.dgvVorpapier.Rows(6).Cells("VpReferenz").Value + POSITION.nctsHCCI_PreviousDocument_7_ComplementOfInformation = P.dgvVorpapier.Rows(6).Cells("VpZusatz").Value + End If + If P.dgvVorpapier.Rows.Count > 7 Then + POSITION.nctsHCCI_PreviousDocument_8_ReferenceNumber = P.dgvVorpapier.Rows(7).Cells("VpReferenz").Value + POSITION.nctsHCCI_PreviousDocument_8_ComplementOfInformation = P.dgvVorpapier.Rows(7).Cells("VpZusatz").Value + End If + If P.dgvVorpapier.Rows.Count > 8 Then + POSITION.nctsHCCI_PreviousDocument_9_ReferenceNumber = P.dgvVorpapier.Rows(8).Cells("VpReferenz").Value + POSITION.nctsHCCI_PreviousDocument_9_ComplementOfInformation = P.dgvVorpapier.Rows(8).Cells("VpZusatz").Value + End If + + POSITION.nctsHCCI_PACKAGING = New List(Of DAKOSY_Worker.cDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packaging) + For Each r As DataGridViewRow In P.dgvPackstuecke.Rows + Dim Pk As New DAKOSY_Worker.cDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packaging + Pk.nctsHCCIPK_TypeOfPackages = r.Cells("PkCode").Value + Pk.nctsHCCIPK_NumberOfPackages = r.Cells("Anzahl").Value + Pk.nctsHCCIPK_GoodsItemNumber = r.Cells("Marke").Value + POSITION.nctsHCCI_PACKAGING.Add(Pk) + Next + + 'POSITION.nctsWP_UNTERLAGEN = New List(Of DAKOSY_Worker.cDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen) + 'For Each r As DataGridViewRow In P.dgvUnterlage.Rows + ' Dim Ul As New DAKOSY_Worker.cDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen + ' Ul.nctsWpUl_Typ = r.Cells("UlCode").Value + ' Ul.nctsWpUl_Referenz = r.Cells("UlReferenz").Value + ' Ul.nctsWpUl_Zusatz = r.Cells("UlZusatz").Value + ' POSITION.nctsWP_UNTERLAGEN.Add(Ul) + 'Next + + 'POSITION.nctsWP_KdRefNr = P.txtKdRefNr.Text + + 'POSITION.nctsWP_Versender_Name = cProgramFunctions.isLeerNothing(P.usrcntlVersedner.kdFirma.Text) + 'POSITION.nctsWP_Versender_StrasseHausnummer = cProgramFunctions.isLeerNothing(P.usrcntlVersedner.txtStrasse.Text) + 'POSITION.nctsWP_Versender_PLZ = cProgramFunctions.isLeerNothing(P.usrcntlVersedner.txtPlz.Text) + 'POSITION.nctsWP_Versender_Ort = cProgramFunctions.isLeerNothing(P.usrcntlVersedner.txtOrt.Text) + 'POSITION.nctsWP_Versender_Land = cProgramFunctions.isLeerNothing(P.usrcntlVersedner.sbLand._value) + 'POSITION.nctsWP_Versender_EORI = cProgramFunctions.isLeerNothing(P.usrcntlVersedner.txtEORI.Text) + 'POSITION.nctsWP_Versender_NLNR = cProgramFunctions.isLeerNothing(P.usrcntlVersedner.txtEORINL.Text) + + POSITION.nctsHCCI_Consignor_Name = cProgramFunctions.isLeerNothing(P.usrcntlEmpfaenger.kdFirma.Text) + POSITION.nctsHCCI_Consignor_StreetNumber = cProgramFunctions.isLeerNothing(P.usrcntlEmpfaenger.txtStrasse.Text) + POSITION.nctsHCCI_Consignor_Postcode = cProgramFunctions.isLeerNothing(P.usrcntlEmpfaenger.txtPlz.Text) + POSITION.nctsHCCI_Consignor_City = cProgramFunctions.isLeerNothing(P.usrcntlEmpfaenger.txtOrt.Text) + POSITION.nctsHCCI_Consignor_Country = cProgramFunctions.isLeerNothing(P.usrcntlEmpfaenger.sbLand._value) + POSITION.nctsHCCI_Consignor_IdentificationNumber = cProgramFunctions.isLeerNothing(P.usrcntlEmpfaenger.txtEORI.Text) + POSITION.nctsHCCI_Consignor_SubsidiaryNumber = cProgramFunctions.isLeerNothing(P.usrcntlEmpfaenger.txtEORINL.Text) + + + + HC.nctsWP_CONSIGNMENT_ITEM.Add(POSITION) + NCTS.ncts_HOUSE_CONSIGNMENT.Add(HC) + cnt += 1 + Next + ' NCTS.ncts_WARENPOS + + + End Sub + + + + Public Sub getValues_TR(ByRef NCTS As VERAG_PROG_ALLGEMEIN.cNCTS_TR) + ' Dim POSITIONEN As List(Of VERAG_PROG_ALLGEMEIN.cNCTS_TR_Warenposition) + NCTS.ncts_WARENPOS.Clear() + + Dim cnt As Integer = 1 + For Each P In POS + Dim POSITION As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Warenposition + + 'POSITION.nctsWP_Id As Integer + ' POSITION.nctsWP_NctsId = NCTS.ncts_Id + POSITION.nctsWP_PositionsNummer = cnt + POSITION.nctsWP_Warennummer = cProgramFunctions.isLeerNothing(P.txtWarennummer.Text) + POSITION.nctsWP_ArtAnmeldungPositionCode = cProgramFunctions.isLeerNothing(P.cboArtAnmeldung._value) + POSITION.nctsWP_Warenbezeichnung = P.txtWarenbezeichnung.Text + POSITION.nctsWP_Warenwert = cProgramFunctions.isLeerNothingDbl(P.txtWarenwert._value) + POSITION.nctsWP_WarenwertProzent = cProgramFunctions.isLeerNothingDbl(P.txtSiBetragProzent._value) + POSITION.nctsWP_WarenwertWaehrung = cProgramFunctions.isLeerNothing(P.cboWaehrung._value) + 'POSITION.nctsWP_WarenwertWaehrung = P.XXXXXXXXXXXX.Text + 'POSITION.nctsWP_SchaetzKz = P.XXXXXXXXXXXX.Text + 'POSITION.nctsWP_WarenwertProzent = P.XXXXXXXXXXXX.Text + POSITION.nctsWP_Rohmasse = cProgramFunctions.isLeerNothingDbl(P.txtRohmasse.Text) + POSITION.nctsWP_Eigenmasse = cProgramFunctions.isLeerNothingDbl(P.txtEigenmasse.Text) + + POSITION.nctsWP_VorpapierTyp = cProgramFunctions.isLeerNothing(P.cboVpTyp._value) + + + POSITION.nctsWP_BesondereVermeke_Export = P.cbxEmport.Checked + POSITION.nctsWP_BesondereVermeke_ExportAbgaben = P.cbxEmportAbgaben.Checked + POSITION.nctsWP_BesondereVermeke_ExportBeschraenkung = P.cbxEmportBeschraernkung.Checked + POSITION.nctsWP_BesondereVermeke_ExportAusEU = P.cbxExportAusEU.Checked + POSITION.nctsWP_VersendungslandPositionCode = cProgramFunctions.isLeerNothing(P.sbVersendungsLand._value) + POSITION.nctsWP_BestimmungslandPositionCode = cProgramFunctions.isLeerNothing(P.sbBestimmungsland._value) + + If P.cbxExportAusEU.CheckState = CheckState.Checked Then + POSITION.nctsWP_BesondereVermeke_ExportAusEU = True + ElseIf P.cbxExportAusEU.CheckState = CheckState.Unchecked Then + POSITION.nctsWP_BesondereVermeke_ExportAusEU = False + Else + POSITION.nctsWP_BesondereVermeke_ExportAusEU = Nothing + End If + + If P.cbxEmportAusLand.Checked = CheckState.Checked Then + POSITION.nctsWP_BesondereVermeke_ExportAusLand = cProgramFunctions.isLeerNothing(P.sbExportAusLand._value) + Else + POSITION.nctsWP_BesondereVermeke_ExportAusLand = Nothing + End If + + POSITION.nctsWP_BesondereVermeke_Vermerk = P.cbxVermerk.Text + POSITION.nctsWP_BesondereVermeke_Kz10600 = P.cbxVermerk10600.Checked + + + POSITION.nctsWP_VorpapierReferenz1 = Nothing + POSITION.nctsWP_VorpapierZusatz1 = Nothing + POSITION.nctsWP_VorpapierReferenz2 = Nothing + POSITION.nctsWP_VorpapierZusatz2 = Nothing + POSITION.nctsWP_VorpapierReferenz3 = Nothing + POSITION.nctsWP_VorpapierZusatz3 = Nothing + POSITION.nctsWP_VorpapierReferenz4 = Nothing + POSITION.nctsWP_VorpapierZusatz4 = Nothing + POSITION.nctsWP_VorpapierReferenz5 = Nothing + POSITION.nctsWP_VorpapierZusatz5 = Nothing + POSITION.nctsWP_VorpapierReferenz6 = Nothing + POSITION.nctsWP_VorpapierZusatz6 = Nothing + POSITION.nctsWP_VorpapierReferenz7 = Nothing + POSITION.nctsWP_VorpapierZusatz7 = Nothing + POSITION.nctsWP_VorpapierReferenz8 = Nothing + POSITION.nctsWP_VorpapierZusatz8 = Nothing + POSITION.nctsWP_VorpapierReferenz9 = Nothing + POSITION.nctsWP_VorpapierZusatz9 = Nothing + If P.dgvVorpapier.Rows.Count > 0 Then + POSITION.nctsWP_VorpapierReferenz1 = P.dgvVorpapier.Rows(0).Cells("VpReferenz").Value + POSITION.nctsWP_VorpapierZusatz1 = P.dgvVorpapier.Rows(0).Cells("VpZusatz").Value + End If + If P.dgvVorpapier.Rows.Count > 1 Then + POSITION.nctsWP_VorpapierReferenz2 = P.dgvVorpapier.Rows(1).Cells("VpReferenz").Value + POSITION.nctsWP_VorpapierZusatz2 = P.dgvVorpapier.Rows(1).Cells("VpZusatz").Value + End If + If P.dgvVorpapier.Rows.Count > 2 Then + POSITION.nctsWP_VorpapierReferenz3 = P.dgvVorpapier.Rows(2).Cells("VpReferenz").Value + POSITION.nctsWP_VorpapierZusatz3 = P.dgvVorpapier.Rows(2).Cells("VpZusatz").Value + End If + If P.dgvVorpapier.Rows.Count > 3 Then + POSITION.nctsWP_VorpapierReferenz4 = P.dgvVorpapier.Rows(3).Cells("VpReferenz").Value + POSITION.nctsWP_VorpapierZusatz4 = P.dgvVorpapier.Rows(3).Cells("VpZusatz").Value + End If + If P.dgvVorpapier.Rows.Count > 4 Then + POSITION.nctsWP_VorpapierReferenz5 = P.dgvVorpapier.Rows(4).Cells("VpReferenz").Value + POSITION.nctsWP_VorpapierZusatz5 = P.dgvVorpapier.Rows(4).Cells("VpZusatz").Value + End If + If P.dgvVorpapier.Rows.Count > 5 Then + POSITION.nctsWP_VorpapierReferenz6 = P.dgvVorpapier.Rows(5).Cells("VpReferenz").Value + POSITION.nctsWP_VorpapierZusatz6 = P.dgvVorpapier.Rows(5).Cells("VpZusatz").Value + End If + If P.dgvVorpapier.Rows.Count > 6 Then + POSITION.nctsWP_VorpapierReferenz7 = P.dgvVorpapier.Rows(6).Cells("VpReferenz").Value + POSITION.nctsWP_VorpapierZusatz7 = P.dgvVorpapier.Rows(6).Cells("VpZusatz").Value + End If + If P.dgvVorpapier.Rows.Count > 7 Then + POSITION.nctsWP_VorpapierReferenz8 = P.dgvVorpapier.Rows(7).Cells("VpReferenz").Value + POSITION.nctsWP_VorpapierZusatz8 = P.dgvVorpapier.Rows(7).Cells("VpZusatz").Value + End If + If P.dgvVorpapier.Rows.Count > 8 Then + POSITION.nctsWP_VorpapierReferenz9 = P.dgvVorpapier.Rows(8).Cells("VpReferenz").Value + POSITION.nctsWP_VorpapierZusatz9 = P.dgvVorpapier.Rows(8).Cells("VpZusatz").Value + End If + + POSITION.nctsWP_PACKSTUECKE = New List(Of VERAG_PROG_ALLGEMEIN.cNCTS_TR_WarenpositionPackstuecke) + For Each r As DataGridViewRow In P.dgvPackstuecke.Rows + Dim Pk As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_WarenpositionPackstuecke + Pk.nctsWpPk_Verpackungsart = r.Cells("PkCode").Value + Pk.nctsWpPk_PackstueckeAnzahl = r.Cells("Anzahl").Value + Pk.nctsWpPk_ZeichenNummern = r.Cells("Marke").Value + POSITION.nctsWP_PACKSTUECKE.Add(Pk) + Next + + POSITION.nctsWP_UNTERLAGEN = New List(Of VERAG_PROG_ALLGEMEIN.cNCTS_TR_WarenpositionVorgelegteUnterlagen) + For Each r As DataGridViewRow In P.dgvUnterlage.Rows + Dim Ul As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_WarenpositionVorgelegteUnterlagen + Ul.nctsWpUl_Typ = r.Cells("UlCode").Value + Ul.nctsWpUl_Referenz = r.Cells("UlReferenz").Value + Ul.nctsWpUl_Zusatz = r.Cells("UlZusatz").Value + POSITION.nctsWP_UNTERLAGEN.Add(Ul) + Next + + POSITION.nctsWP_KdRefNr = P.txtKdRefNr.Text + + POSITION.nctsWP_Versender_Name = cProgramFunctions.isLeerNothing(P.usrcntlVersedner.kdFirma.Text) + POSITION.nctsWP_Versender_StrasseHausnummer = cProgramFunctions.isLeerNothing(P.usrcntlVersedner.txtStrasse.Text) + POSITION.nctsWP_Versender_PLZ = cProgramFunctions.isLeerNothing(P.usrcntlVersedner.txtPlz.Text) + POSITION.nctsWP_Versender_Ort = cProgramFunctions.isLeerNothing(P.usrcntlVersedner.txtOrt.Text) + POSITION.nctsWP_Versender_Land = cProgramFunctions.isLeerNothing(P.usrcntlVersedner.sbLand._value) + POSITION.nctsWP_Versender_EORI = cProgramFunctions.isLeerNothing(P.usrcntlVersedner.txtEORI.Text) + POSITION.nctsWP_Versender_NLNR = cProgramFunctions.isLeerNothing(P.usrcntlVersedner.txtEORINL.Text) + + POSITION.nctsWP_Empfaenger_Name = cProgramFunctions.isLeerNothing(P.usrcntlEmpfaenger.kdFirma.Text) + POSITION.nctsWP_Empfaenger_StrasseHausnummer = cProgramFunctions.isLeerNothing(P.usrcntlEmpfaenger.txtStrasse.Text) + POSITION.nctsWP_Empfaenger_PLZ = cProgramFunctions.isLeerNothing(P.usrcntlEmpfaenger.txtPlz.Text) + POSITION.nctsWP_Empfaenger_Ort = cProgramFunctions.isLeerNothing(P.usrcntlEmpfaenger.txtOrt.Text) + POSITION.nctsWP_Empfaenger_Land = cProgramFunctions.isLeerNothing(P.usrcntlEmpfaenger.sbLand._value) + POSITION.nctsWP_Empfaenger_EORI = cProgramFunctions.isLeerNothing(P.usrcntlEmpfaenger.txtEORI.Text) + POSITION.nctsWP_Empfaenger_NLNR = cProgramFunctions.isLeerNothing(P.usrcntlEmpfaenger.txtEORINL.Text) + + POSITION.nctsWP_SumAVersender_Name = cProgramFunctions.isLeerNothing(P.usrcntlSumAVersedner.kdFirma.Text) + POSITION.nctsWP_SumAVersender_StrasseHausnummer = cProgramFunctions.isLeerNothing(P.usrcntlSumAVersedner.txtStrasse.Text) + POSITION.nctsWP_SumAVersender_PLZ = cProgramFunctions.isLeerNothing(P.usrcntlSumAVersedner.txtPlz.Text) + POSITION.nctsWP_SumAVersender_Ort = cProgramFunctions.isLeerNothing(P.usrcntlSumAVersedner.txtOrt.Text) + POSITION.nctsWP_SumAVersender_Land = cProgramFunctions.isLeerNothing(P.usrcntlSumAVersedner.sbLand._value) + POSITION.nctsWP_SumAVersender_EORI = cProgramFunctions.isLeerNothing(P.usrcntlSumAVersedner.txtEORI.Text) + POSITION.nctsWP_SumAVersender_NLNR = cProgramFunctions.isLeerNothing(P.usrcntlSumAVersedner.txtEORINL.Text) + + POSITION.nctsWP_SumAEmpfaenger_Name = cProgramFunctions.isLeerNothing(P.usrcntlSumAEmpfaenger.kdFirma.Text) + POSITION.nctsWP_SumAEmpfaenger_StrasseHausnummer = cProgramFunctions.isLeerNothing(P.usrcntlSumAEmpfaenger.txtStrasse.Text) + POSITION.nctsWP_SumAEmpfaenger_PLZ = cProgramFunctions.isLeerNothing(P.usrcntlSumAEmpfaenger.txtPlz.Text) + POSITION.nctsWP_SumAEmpfaenger_Ort = cProgramFunctions.isLeerNothing(P.usrcntlSumAEmpfaenger.txtOrt.Text) + POSITION.nctsWP_SumAEmpfaenger_Land = cProgramFunctions.isLeerNothing(P.usrcntlSumAEmpfaenger.sbLand._value) + POSITION.nctsWP_SumAEmpfaenger_EORI = cProgramFunctions.isLeerNothing(P.usrcntlSumAEmpfaenger.txtEORI.Text) + POSITION.nctsWP_SumAEmpfaenger_NLNR = cProgramFunctions.isLeerNothing(P.usrcntlSumAEmpfaenger.txtEORINL.Text) + + + NCTS.ncts_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_NCTS004_Position).txtWarenbezeichnung.Focus() : Catch : End Try + End Sub + + Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click + duplicateItem() + End Sub +End Class + + diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Sicherheit.Designer.vb b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Sicherheit.Designer.vb new file mode 100644 index 00000000..fe0d025e --- /dev/null +++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Sicherheit.Designer.vb @@ -0,0 +1,225 @@ + +Partial Class usrCntlATLAS_NCTS004_Sicherheit + Inherits System.Windows.Forms.UserControl + + 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + 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. + + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.pnl = New System.Windows.Forms.Panel() + Me.Panel2 = New System.Windows.Forms.Panel() + Me.Label6 = New System.Windows.Forms.Label() + Me.Button2 = New System.Windows.Forms.Button() + Me.Button1 = New System.Windows.Forms.Button() + Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.index = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.ID = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Art = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Abgabenbetrag = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.GRN = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.TIN_EORI = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Bezeichnung = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.Timer = New System.Windows.Forms.Timer(Me.components) + Me.pnl.SuspendLayout() + Me.Panel2.SuspendLayout() + CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'pnl + ' + Me.pnl.Controls.Add(Me.Panel2) + Me.pnl.Controls.Add(Me.Panel1) + 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(930, 503) + Me.pnl.TabIndex = 0 + ' + 'Panel2 + ' + Me.Panel2.Controls.Add(Me.Label6) + Me.Panel2.Controls.Add(Me.Button2) + Me.Panel2.Controls.Add(Me.Button1) + Me.Panel2.Controls.Add(Me.MyDatagridview1) + Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill + Me.Panel2.Location = New System.Drawing.Point(0, 0) + Me.Panel2.Name = "Panel2" + Me.Panel2.Size = New System.Drawing.Size(930, 253) + Me.Panel2.TabIndex = 60 + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label6.Location = New System.Drawing.Point(16, 14) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(132, 13) + Me.Label6.TabIndex = 57 + Me.Label6.Text = "Sicherheit auswählen:" + ' + 'Button2 + ' + Me.Button2.BackColor = System.Drawing.Color.White + Me.Button2.BackgroundImage = Global.SDL.My.Resources.del + Me.Button2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold) + Me.Button2.ForeColor = System.Drawing.Color.Black + Me.Button2.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.Button2.Location = New System.Drawing.Point(841, 5) + Me.Button2.Margin = New System.Windows.Forms.Padding(2) + Me.Button2.Name = "Button2" + Me.Button2.Size = New System.Drawing.Size(35, 26) + Me.Button2.TabIndex = 59 + Me.Button2.UseVisualStyleBackColor = False + ' + 'Button1 + ' + Me.Button1.BackColor = System.Drawing.Color.White + Me.Button1.BackgroundImage = Global.SDL.My.Resources.plus + Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold) + Me.Button1.ForeColor = System.Drawing.Color.Black + Me.Button1.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.Button1.Location = New System.Drawing.Point(874, 5) + Me.Button1.Margin = New System.Windows.Forms.Padding(2) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(35, 26) + Me.Button1.TabIndex = 44 + Me.Button1.UseVisualStyleBackColor = False + ' + 'MyDatagridview1 + ' + Me.MyDatagridview1.AKTUALISIERUNGS_INTERVALL = -1 + Me.MyDatagridview1.AllowUserToAddRows = False + Me.MyDatagridview1.AllowUserToDeleteRows = False + Me.MyDatagridview1.AllowUserToOrderColumns = True + Me.MyDatagridview1.AllowUserToResizeColumns = False + Me.MyDatagridview1.AllowUserToResizeRows = False + Me.MyDatagridview1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.MyDatagridview1.BackgroundColor = System.Drawing.Color.White + Me.MyDatagridview1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.MyDatagridview1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.index, Me.ID, Me.Art, Me.Abgabenbetrag, Me.GRN, Me.TIN_EORI, Me.Bezeichnung}) + Me.MyDatagridview1.Location = New System.Drawing.Point(16, 30) + Me.MyDatagridview1.Name = "MyDatagridview1" + Me.MyDatagridview1.ReadOnly = True + Me.MyDatagridview1.RowHeadersVisible = False + Me.MyDatagridview1.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.MyDatagridview1.Size = New System.Drawing.Size(893, 194) + Me.MyDatagridview1.TabIndex = 47 + ' + 'index + ' + Me.index.HeaderText = "index" + Me.index.Name = "index" + Me.index.ReadOnly = True + Me.index.Visible = False + ' + 'ID + ' + Me.ID.HeaderText = "ID" + Me.ID.Name = "ID" + Me.ID.ReadOnly = True + Me.ID.Width = 30 + ' + 'Art + ' + Me.Art.HeaderText = "Art" + Me.Art.Name = "Art" + Me.Art.ReadOnly = True + Me.Art.Width = 180 + ' + 'Abgabenbetrag + ' + Me.Abgabenbetrag.HeaderText = "Abgabenbetrag" + Me.Abgabenbetrag.Name = "Abgabenbetrag" + Me.Abgabenbetrag.ReadOnly = True + Me.Abgabenbetrag.Width = 120 + ' + 'GRN + ' + Me.GRN.HeaderText = "GRN" + Me.GRN.Name = "GRN" + Me.GRN.ReadOnly = True + Me.GRN.Width = 150 + ' + 'TIN_EORI + ' + Me.TIN_EORI.HeaderText = "TIN/EORI" + Me.TIN_EORI.Name = "TIN_EORI" + Me.TIN_EORI.ReadOnly = True + Me.TIN_EORI.Width = 150 + ' + 'Bezeichnung + ' + Me.Bezeichnung.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.Bezeichnung.HeaderText = "Bezeichnung" + Me.Bezeichnung.Name = "Bezeichnung" + Me.Bezeichnung.ReadOnly = True + ' + 'Panel1 + ' + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Bottom + Me.Panel1.Enabled = False + Me.Panel1.Location = New System.Drawing.Point(0, 253) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(930, 250) + Me.Panel1.TabIndex = 58 + ' + 'Timer + ' + Me.Timer.Enabled = True + Me.Timer.Interval = 1000 + ' + 'usrCntlATLAS_NCTS_Sicherheit + ' + 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_NCTS_Sicherheit" + Me.Size = New System.Drawing.Size(930, 503) + Me.pnl.ResumeLayout(False) + Me.Panel2.ResumeLayout(False) + Me.Panel2.PerformLayout() + CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents pnl As System.Windows.Forms.Panel + Friend WithEvents MyDatagridview1 As VERAG_PROG_ALLGEMEIN.MyDatagridview + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents Button1 As System.Windows.Forms.Button + Friend WithEvents Button2 As System.Windows.Forms.Button + Friend WithEvents Timer As System.Windows.Forms.Timer + Friend WithEvents Panel2 As System.Windows.Forms.Panel + Friend WithEvents index As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents ID As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents Art As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents Abgabenbetrag As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents GRN As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents TIN_EORI As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents Bezeichnung As System.Windows.Forms.DataGridViewTextBoxColumn + +End Class diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Sicherheit.resx b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Sicherheit.resx new file mode 100644 index 00000000..de0f5382 --- /dev/null +++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Sicherheit.resx @@ -0,0 +1,144 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + 17, 17 + + \ No newline at end of file diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Sicherheit.vb b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Sicherheit.vb new file mode 100644 index 00000000..0b9ff95b --- /dev/null +++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Sicherheit.vb @@ -0,0 +1,199 @@ +Public Class usrCntlATLAS_NCTS004_Sicherheit + + + Public LIST As New List(Of usrCntlATLAS_NCTS004_SicherheitPos) + ' Public NCTS As DAKOSY_Worker.cDakosyNCTSOut = Nothing + ' Dim AKT_POS As Integer = -1 + Dim NCTS As DAKOSY_Worker.cDakosyNCTSOut004 = Nothing + Dim NCTS_TR As VERAG_PROG_ALLGEMEIN.cNCTS_TR = Nothing + + Dim FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + + Sub New(NCTS As DAKOSY_Worker.cDakosyNCTSOut004, FIRMA_DY As String) 'NCTS As DAKOSY_Worker.cDakosyNCTSOut) + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + Me.NCTS = NCTS + Me.FIRMA_DY = FIRMA_DY + ' loadValues() + ' ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + 'If NCTS.ncts_SICHERHEITSANGABEN.Count = 0 Then + 'NCTS.ncts_SICHERHEITSANGABEN.Add(New DAKOSY_Worker.cDakosy_NCTSOut004_Guarantee) + 'End If + ' For Each s In NCTS.ncts_SICHERHEITSANGABEN + 'Dim u As New usrCntlATLAS_NCTS004_SicherheitPos + ' u.loadBrg(s) + ' LIST.Add(u) + ' Next + + End Sub + Sub New(NCTS_TR As VERAG_PROG_ALLGEMEIN.cNCTS_TR, FIRMA_DY As String) 'NCTS As DAKOSY_Worker.cDakosyNCTSOut) + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + Me.NCTS_TR = NCTS_TR + Me.FIRMA_DY = FIRMA_DY + ' loadValues() + ' ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + 'If NCTS.ncts_SICHERHEITSANGABEN.Count = 0 Then + 'NCTS.ncts_SICHERHEITSANGABEN.Add(New DAKOSY_Worker.cDakosy_NCTSOut004_Guarantee) + 'End If + ' For Each s In NCTS.ncts_SICHERHEITSANGABEN + 'Dim u As New usrCntlATLAS_NCTS004_SicherheitPos + ' u.loadBrg(s) + ' LIST.Add(u) + ' Next + + End Sub + + + + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + + ' NCTS.ncts_SICHERHEITSANGABEN.Add(New DAKOSY_Worker.cDakosy_NCTSOut004_Guarantee) + addPos() + End Sub + + Sub addPos(Optional sa As DAKOSY_Worker.cDakosy_NCTSOut004_Guarantee = Nothing) + Dim u As New usrCntlATLAS_NCTS004_SicherheitPos(FIRMA_DY) + LIST.Add(u) + If sa IsNot Nothing Then + u.setValues(sa) + End If + + loadDGVListValues() + + End Sub + + Sub addPos_TR(Optional sa As VERAG_PROG_ALLGEMEIN.cNCTS_TR_Sicherheitsangaben = Nothing) + Dim u As New usrCntlATLAS_NCTS004_SicherheitPos(FIRMA_DY) + LIST.Add(u) + If sa IsNot Nothing Then + u.setValues_TR(sa) + End If + + loadDGVListValues() + + End Sub + + Private Sub MyDatagridview1_SelectionChanged(sender As Object, e As EventArgs) Handles MyDatagridview1.SelectionChanged + initPosAnzeige() + End Sub + + Sub initPosAnzeige() + ' MsgBox("anz") + Panel1.Controls.Clear() + If MyDatagridview1.SelectedRows.Count > 0 Then + Panel1.Enabled = True + ' loadBrg(NCTS.ncts_SICHERHEITSANGABEN(MyDatagridview1.SelectedRows(0).Cells("index").Value)) + Panel1.Controls.Add(LIST(MyDatagridview1.SelectedRows(0).Cells("index").Value)) + Else + Panel1.Enabled = False + Panel1.Controls.Add(New usrCntlATLAS_NCTS004_SicherheitPos(FIRMA_DY)) ' Pseudo-Object, damit Platz besetzt + End If + End Sub + Public Sub loadDGVListValues() + + With MyDatagridview1 + If .Columns.Count <= 0 Then Exit Sub + ' Dim selIndex = -1 + ' If .SelectedRows.Count > 0 Then selIndex() + .Rows.Clear() + Dim cnt = 1 + For Each SA As usrCntlATLAS_NCTS004_SicherheitPos In LIST + Dim art = "" + 'For Each l In (New cDakosy_Sicherheitsarten).LIST + ' If SA.cboArtSicherheit = l.Value Then art = l.Text + 'Next + 'LIST.IndexOf(SA) + .Rows.Add(LIST.IndexOf(SA), cnt, SA.cboArtSicherheit.Text, SA.txtAbgabenbetrag.Text, SA.txtGRN.Text, SA.txtEORI_TIN.Text, SA.txtBezeichnung.Text) + ' index += 1 + cnt += 1 + '.loadBrg() + ' LIST.Add(SA) + Next + End With + End Sub + + Public Sub refreshDGV() + With MyDatagridview1 + + For Each r As DataGridViewRow In .Rows + Dim index = r.Cells("index").Value + r.Cells("Art").Value = LIST(index).cboArtSicherheit.Text + r.Cells("Abgabenbetrag").Value = LIST(index).txtAbgabenbetrag.Text + r.Cells("GRN").Value = LIST(index).txtGRN.Text + r.Cells("TIN_EORI").Value = LIST(index).txtEORI_TIN.Text + r.Cells("Bezeichnung").Value = LIST(index).txtBezeichnung.Text + Next + End With + End Sub + + Private Sub Panel1_Paint(sender As Object, e As PaintEventArgs) Handles Panel1.Paint + + End Sub + + Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click + LIST.RemoveAt(MyDatagridview1.SelectedRows(0).Cells("index").Value) + loadDGVListValues() + End Sub + + Private Sub Timer_Tick(sender As Object, e As EventArgs) Handles Timer.Tick + 'alle 1 Sekunden wird die Ansicht aktualisiert + refreshDGV() + End Sub + + + + Private Sub usrCntlATLAS_NCTS_Sicherheit_Load(sender As Object, e As EventArgs) Handles Me.Load + ' setValues(NCTS.ncts_SICHERHEITSANGABEN) + loadDGVListValues() + End Sub + + + + Public Function getValues() As List(Of DAKOSY_Worker.cDakosy_NCTSOut004_Guarantee) + Dim SA As New List(Of DAKOSY_Worker.cDakosy_NCTSOut004_Guarantee) + For Each s As usrCntlATLAS_NCTS004_SicherheitPos In LIST + SA.Add(s.getValues) + Next + Return SA + End Function + + + Public Sub setValues(ByRef SA As List(Of DAKOSY_Worker.cDakosy_NCTSOut004_Guarantee)) + Panel1.Controls.Clear() + If SA Is Nothing Then Exit Sub + LIST.Clear() + For Each s In SA + addPos(s) + Next + If LIST.Count = 0 Then addPos() 'leere Laden + loadDGVListValues() + initPosAnzeige() + End Sub + + + + Public Function getValues_TR() As List(Of VERAG_PROG_ALLGEMEIN.cNCTS_TR_Sicherheitsangaben) + Dim SA As New List(Of VERAG_PROG_ALLGEMEIN.cNCTS_TR_Sicherheitsangaben) + For Each s As usrCntlATLAS_NCTS004_SicherheitPos In LIST + SA.Add(s.getValues_TR) + Next + Return SA + End Function + + + Public Sub setValues_TR(ByRef SA As List(Of VERAG_PROG_ALLGEMEIN.cNCTS_TR_Sicherheitsangaben)) + Panel1.Controls.Clear() + If SA Is Nothing Then Exit Sub + LIST.Clear() + For Each s In SA + addPos_TR(s) + Next + If LIST.Count = 0 Then addPos() 'leere Laden + loadDGVListValues() + initPosAnzeige() + End Sub + +End Class diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_SicherheitPos.Designer.vb b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_SicherheitPos.Designer.vb new file mode 100644 index 00000000..92ba06d8 --- /dev/null +++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_SicherheitPos.Designer.vb @@ -0,0 +1,498 @@ + +Partial Class usrCntlATLAS_NCTS004_SicherheitPos + Inherits System.Windows.Forms.UserControl + + 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + 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. + + Private Sub InitializeComponent() + Me.Label8 = New System.Windows.Forms.Label() + Me.txtAbgabenbetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label3 = New System.Windows.Forms.Label() + Me.btnBrgVERAG_AT = New System.Windows.Forms.Button() + Me.txtBezeichnung = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.btnBrgVERAG_DE = New System.Windows.Forms.Button() + Me.txtZugriffscode = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.btnBrgTOBB = New System.Windows.Forms.Button() + Me.txtGRN = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.btnBrgSGS = New System.Windows.Forms.Button() + Me.txtEORI_TIN = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.btnBrgSonstige = New System.Windows.Forms.Button() + Me.Label5 = New System.Windows.Forms.Label() + Me.Label13 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.txtArtDetail = New System.Windows.Forms.TextBox() + Me.Label9 = New System.Windows.Forms.Label() + Me.cboArtSicherheit = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.Label4 = New System.Windows.Forms.Label() + Me.btnMars = New System.Windows.Forms.Button() + Me.btnEKOL = New System.Windows.Forms.Button() + Me.FlowLayoutPanel = New System.Windows.Forms.FlowLayoutPanel() + Me.btnBrgUNISPED_AT = New System.Windows.Forms.Button() + Me.btnBrgUNISPED_DE = New System.Windows.Forms.Button() + Me.btnBRG_IMEX_AT = New System.Windows.Forms.Button() + Me.FlowLayoutPanel.SuspendLayout() + Me.SuspendLayout() + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label8.Location = New System.Drawing.Point(5, 10) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(132, 13) + Me.Label8.TabIndex = 57 + Me.Label8.Text = "Sicherheit auswählen:" + ' + 'txtAbgabenbetrag + ' + Me.txtAbgabenbetrag._DateTimeOnly = False + Me.txtAbgabenbetrag._numbersOnly = False + Me.txtAbgabenbetrag._numbersOnlyKommastellen = "" + Me.txtAbgabenbetrag._numbersOnlyTrennzeichen = True + Me.txtAbgabenbetrag._Prozent = False + Me.txtAbgabenbetrag._ShortDateNew = False + Me.txtAbgabenbetrag._ShortDateOnly = False + Me.txtAbgabenbetrag._TimeOnly = False + Me.txtAbgabenbetrag._TimeOnly_Seconds = False + Me.txtAbgabenbetrag._value = Nothing + Me.txtAbgabenbetrag._Waehrung = True + Me.txtAbgabenbetrag._WaehrungZeichen = True + Me.txtAbgabenbetrag.ForeColor = System.Drawing.Color.Black + Me.txtAbgabenbetrag.Location = New System.Drawing.Point(124, 175) + Me.txtAbgabenbetrag.MaxLineLength = -1 + Me.txtAbgabenbetrag.MaxLines_Warning = "" + Me.txtAbgabenbetrag.MaxLines_Warning_Label = Nothing + Me.txtAbgabenbetrag.Name = "txtAbgabenbetrag" + Me.txtAbgabenbetrag.Size = New System.Drawing.Size(307, 20) + Me.txtAbgabenbetrag.TabIndex = 76 + ' + 'Label3 + ' + Me.Label3.Location = New System.Drawing.Point(15, 178) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(105, 13) + Me.Label3.TabIndex = 75 + Me.Label3.Text = "Abgabenbetrag:" + Me.Label3.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'btnBrgVERAG_AT + ' + Me.btnBrgVERAG_AT.BackColor = System.Drawing.Color.White + Me.btnBrgVERAG_AT.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.btnBrgVERAG_AT.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnBrgVERAG_AT.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold) + Me.btnBrgVERAG_AT.ForeColor = System.Drawing.Color.Black + Me.btnBrgVERAG_AT.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.btnBrgVERAG_AT.Location = New System.Drawing.Point(170, 2) + Me.btnBrgVERAG_AT.Margin = New System.Windows.Forms.Padding(2) + Me.btnBrgVERAG_AT.Name = "btnBrgVERAG_AT" + Me.btnBrgVERAG_AT.Size = New System.Drawing.Size(80, 38) + Me.btnBrgVERAG_AT.TabIndex = 62 + Me.btnBrgVERAG_AT.Text = "VERAG (AT)" + Me.btnBrgVERAG_AT.UseVisualStyleBackColor = False + ' + 'txtBezeichnung + ' + Me.txtBezeichnung._DateTimeOnly = False + Me.txtBezeichnung._numbersOnly = False + Me.txtBezeichnung._numbersOnlyKommastellen = "" + Me.txtBezeichnung._numbersOnlyTrennzeichen = True + Me.txtBezeichnung._Prozent = False + Me.txtBezeichnung._ShortDateNew = False + Me.txtBezeichnung._ShortDateOnly = False + Me.txtBezeichnung._TimeOnly = False + Me.txtBezeichnung._TimeOnly_Seconds = False + Me.txtBezeichnung._value = Nothing + Me.txtBezeichnung._Waehrung = False + Me.txtBezeichnung._WaehrungZeichen = True + Me.txtBezeichnung.ForeColor = System.Drawing.Color.Black + Me.txtBezeichnung.Location = New System.Drawing.Point(545, 77) + Me.txtBezeichnung.MaxLineLength = -1 + Me.txtBezeichnung.MaxLines_Warning = "" + Me.txtBezeichnung.MaxLines_Warning_Label = Nothing + Me.txtBezeichnung.Name = "txtBezeichnung" + Me.txtBezeichnung.Size = New System.Drawing.Size(363, 20) + Me.txtBezeichnung.TabIndex = 74 + ' + 'btnBrgVERAG_DE + ' + Me.btnBrgVERAG_DE.BackColor = System.Drawing.Color.White + Me.btnBrgVERAG_DE.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.btnBrgVERAG_DE.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnBrgVERAG_DE.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold) + Me.btnBrgVERAG_DE.ForeColor = System.Drawing.Color.Black + Me.btnBrgVERAG_DE.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.btnBrgVERAG_DE.Location = New System.Drawing.Point(254, 2) + Me.btnBrgVERAG_DE.Margin = New System.Windows.Forms.Padding(2) + Me.btnBrgVERAG_DE.Name = "btnBrgVERAG_DE" + Me.btnBrgVERAG_DE.Size = New System.Drawing.Size(80, 38) + Me.btnBrgVERAG_DE.TabIndex = 60 + Me.btnBrgVERAG_DE.Text = "VERAG (DE)" + Me.btnBrgVERAG_DE.UseVisualStyleBackColor = False + ' + 'txtZugriffscode + ' + Me.txtZugriffscode._DateTimeOnly = False + Me.txtZugriffscode._numbersOnly = False + Me.txtZugriffscode._numbersOnlyKommastellen = "" + Me.txtZugriffscode._numbersOnlyTrennzeichen = False + Me.txtZugriffscode._Prozent = False + Me.txtZugriffscode._ShortDateNew = False + Me.txtZugriffscode._ShortDateOnly = False + Me.txtZugriffscode._TimeOnly = False + Me.txtZugriffscode._TimeOnly_Seconds = False + Me.txtZugriffscode._value = Nothing + Me.txtZugriffscode._Waehrung = False + Me.txtZugriffscode._WaehrungZeichen = False + Me.txtZugriffscode.ForeColor = System.Drawing.Color.Black + Me.txtZugriffscode.Location = New System.Drawing.Point(545, 104) + Me.txtZugriffscode.MaxLineLength = -1 + Me.txtZugriffscode.MaxLines_Warning = "" + Me.txtZugriffscode.MaxLines_Warning_Label = Nothing + Me.txtZugriffscode.Name = "txtZugriffscode" + Me.txtZugriffscode.Size = New System.Drawing.Size(363, 20) + Me.txtZugriffscode.TabIndex = 73 + ' + 'btnBrgTOBB + ' + Me.btnBrgTOBB.BackColor = System.Drawing.Color.White + Me.btnBrgTOBB.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.btnBrgTOBB.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnBrgTOBB.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold) + Me.btnBrgTOBB.ForeColor = System.Drawing.Color.Black + Me.btnBrgTOBB.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.btnBrgTOBB.Location = New System.Drawing.Point(338, 2) + Me.btnBrgTOBB.Margin = New System.Windows.Forms.Padding(2) + Me.btnBrgTOBB.Name = "btnBrgTOBB" + Me.btnBrgTOBB.Size = New System.Drawing.Size(60, 38) + Me.btnBrgTOBB.TabIndex = 59 + Me.btnBrgTOBB.Text = "TOBB" + Me.btnBrgTOBB.UseVisualStyleBackColor = False + ' + 'txtGRN + ' + Me.txtGRN._DateTimeOnly = False + Me.txtGRN._numbersOnly = False + Me.txtGRN._numbersOnlyKommastellen = "" + Me.txtGRN._numbersOnlyTrennzeichen = True + Me.txtGRN._Prozent = False + Me.txtGRN._ShortDateNew = False + Me.txtGRN._ShortDateOnly = False + Me.txtGRN._TimeOnly = False + Me.txtGRN._TimeOnly_Seconds = False + Me.txtGRN._value = Nothing + Me.txtGRN._Waehrung = False + Me.txtGRN._WaehrungZeichen = True + Me.txtGRN.ForeColor = System.Drawing.Color.Black + Me.txtGRN.Location = New System.Drawing.Point(124, 104) + Me.txtGRN.MaxLineLength = -1 + Me.txtGRN.MaxLines_Warning = "" + Me.txtGRN.MaxLines_Warning_Label = Nothing + Me.txtGRN.Name = "txtGRN" + Me.txtGRN.Size = New System.Drawing.Size(307, 20) + Me.txtGRN.TabIndex = 72 + ' + 'btnBrgSGS + ' + Me.btnBrgSGS.BackColor = System.Drawing.Color.White + Me.btnBrgSGS.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.btnBrgSGS.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnBrgSGS.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold) + Me.btnBrgSGS.ForeColor = System.Drawing.Color.Black + Me.btnBrgSGS.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.btnBrgSGS.Location = New System.Drawing.Point(466, 2) + Me.btnBrgSGS.Margin = New System.Windows.Forms.Padding(2) + Me.btnBrgSGS.Name = "btnBrgSGS" + Me.btnBrgSGS.Size = New System.Drawing.Size(60, 38) + Me.btnBrgSGS.TabIndex = 61 + Me.btnBrgSGS.Text = "SGS" + Me.btnBrgSGS.UseVisualStyleBackColor = False + ' + 'txtEORI_TIN + ' + Me.txtEORI_TIN._DateTimeOnly = False + Me.txtEORI_TIN._numbersOnly = False + Me.txtEORI_TIN._numbersOnlyKommastellen = "" + Me.txtEORI_TIN._numbersOnlyTrennzeichen = True + Me.txtEORI_TIN._Prozent = False + Me.txtEORI_TIN._ShortDateNew = False + Me.txtEORI_TIN._ShortDateOnly = False + Me.txtEORI_TIN._TimeOnly = False + Me.txtEORI_TIN._TimeOnly_Seconds = False + Me.txtEORI_TIN._value = Nothing + Me.txtEORI_TIN._Waehrung = False + Me.txtEORI_TIN._WaehrungZeichen = True + Me.txtEORI_TIN.ForeColor = System.Drawing.Color.Black + Me.txtEORI_TIN.Location = New System.Drawing.Point(124, 130) + Me.txtEORI_TIN.MaxLineLength = -1 + Me.txtEORI_TIN.MaxLines_Warning = "" + Me.txtEORI_TIN.MaxLines_Warning_Label = Nothing + Me.txtEORI_TIN.Name = "txtEORI_TIN" + Me.txtEORI_TIN.Size = New System.Drawing.Size(307, 20) + Me.txtEORI_TIN.TabIndex = 71 + ' + 'btnBrgSonstige + ' + Me.btnBrgSonstige.BackColor = System.Drawing.Color.White + Me.btnBrgSonstige.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.btnBrgSonstige.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnBrgSonstige.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold) + Me.btnBrgSonstige.ForeColor = System.Drawing.Color.Black + Me.btnBrgSonstige.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.btnBrgSonstige.Location = New System.Drawing.Point(66, 44) + Me.btnBrgSonstige.Margin = New System.Windows.Forms.Padding(2) + Me.btnBrgSonstige.Name = "btnBrgSonstige" + Me.btnBrgSonstige.Size = New System.Drawing.Size(80, 38) + Me.btnBrgSonstige.TabIndex = 58 + Me.btnBrgSonstige.Text = "Sonstige" + Me.btnBrgSonstige.UseVisualStyleBackColor = False + ' + 'Label5 + ' + Me.Label5.Location = New System.Drawing.Point(15, 133) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(105, 13) + Me.Label5.TabIndex = 67 + Me.Label5.Text = "EORI/TIN:" + Me.Label5.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'Label13 + ' + Me.Label13.AutoSize = True + Me.Label13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label13.Location = New System.Drawing.Point(542, 10) + Me.Label13.Name = "Label13" + Me.Label13.Size = New System.Drawing.Size(50, 13) + Me.Label13.TabIndex = 63 + Me.Label13.Text = "Details:" + ' + 'Label2 + ' + Me.Label2.Location = New System.Drawing.Point(15, 107) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(105, 13) + Me.Label2.TabIndex = 68 + Me.Label2.Text = "GRN:" + Me.Label2.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'txtArtDetail + ' + Me.txtArtDetail.BackColor = System.Drawing.Color.WhiteSmoke + Me.txtArtDetail.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtArtDetail.Location = New System.Drawing.Point(545, 26) + Me.txtArtDetail.Multiline = True + Me.txtArtDetail.Name = "txtArtDetail" + Me.txtArtDetail.Size = New System.Drawing.Size(363, 38) + Me.txtArtDetail.TabIndex = 64 + ' + 'Label9 + ' + Me.Label9.Location = New System.Drawing.Point(15, 80) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(105, 13) + Me.Label9.TabIndex = 69 + Me.Label9.Text = "Art der Sicherheit:" + Me.Label9.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'cboArtSicherheit + ' + Me.cboArtSicherheit._allowedValuesFreiText = Nothing + Me.cboArtSicherheit._allowFreiText = False + Me.cboArtSicherheit._value = "" + Me.cboArtSicherheit.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboArtSicherheit.FormattingEnabled = True + Me.cboArtSicherheit.Location = New System.Drawing.Point(124, 77) + Me.cboArtSicherheit.Name = "cboArtSicherheit" + Me.cboArtSicherheit.Size = New System.Drawing.Size(307, 21) + Me.cboArtSicherheit.TabIndex = 65 + ' + 'Label1 + ' + Me.Label1.Location = New System.Drawing.Point(437, 80) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(102, 13) + Me.Label1.TabIndex = 66 + Me.Label1.Text = "Bezeichnung:" + Me.Label1.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'Label4 + ' + Me.Label4.Location = New System.Drawing.Point(433, 107) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(106, 13) + Me.Label4.TabIndex = 70 + Me.Label4.Text = "Zugriffscode:" + Me.Label4.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'btnMars + ' + Me.btnMars.BackColor = System.Drawing.Color.White + Me.btnMars.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.btnMars.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnMars.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold) + Me.btnMars.ForeColor = System.Drawing.Color.Black + Me.btnMars.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.btnMars.Location = New System.Drawing.Point(402, 2) + Me.btnMars.Margin = New System.Windows.Forms.Padding(2) + Me.btnMars.Name = "btnMars" + Me.btnMars.Size = New System.Drawing.Size(60, 38) + Me.btnMars.TabIndex = 77 + Me.btnMars.Text = "MARS" + Me.btnMars.UseVisualStyleBackColor = False + ' + 'btnEKOL + ' + Me.btnEKOL.BackColor = System.Drawing.Color.White + Me.btnEKOL.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.btnEKOL.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnEKOL.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold) + Me.btnEKOL.ForeColor = System.Drawing.Color.Black + Me.btnEKOL.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.btnEKOL.Location = New System.Drawing.Point(2, 44) + Me.btnEKOL.Margin = New System.Windows.Forms.Padding(2) + Me.btnEKOL.Name = "btnEKOL" + Me.btnEKOL.Size = New System.Drawing.Size(60, 38) + Me.btnEKOL.TabIndex = 78 + Me.btnEKOL.Text = "EKOL" + Me.btnEKOL.UseVisualStyleBackColor = False + ' + 'FlowLayoutPanel + ' + Me.FlowLayoutPanel.Controls.Add(Me.btnBrgUNISPED_AT) + Me.FlowLayoutPanel.Controls.Add(Me.btnBrgUNISPED_DE) + Me.FlowLayoutPanel.Controls.Add(Me.btnBrgVERAG_AT) + Me.FlowLayoutPanel.Controls.Add(Me.btnBrgVERAG_DE) + Me.FlowLayoutPanel.Controls.Add(Me.btnBrgTOBB) + Me.FlowLayoutPanel.Controls.Add(Me.btnMars) + Me.FlowLayoutPanel.Controls.Add(Me.btnBrgSGS) + Me.FlowLayoutPanel.Controls.Add(Me.btnEKOL) + Me.FlowLayoutPanel.Controls.Add(Me.btnBrgSonstige) + Me.FlowLayoutPanel.Controls.Add(Me.btnBRG_IMEX_AT) + Me.FlowLayoutPanel.Location = New System.Drawing.Point(6, 24) + Me.FlowLayoutPanel.Name = "FlowLayoutPanel" + Me.FlowLayoutPanel.Size = New System.Drawing.Size(538, 53) + Me.FlowLayoutPanel.TabIndex = 79 + ' + 'btnBrgUNISPED_AT + ' + Me.btnBrgUNISPED_AT.BackColor = System.Drawing.Color.White + Me.btnBrgUNISPED_AT.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.btnBrgUNISPED_AT.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnBrgUNISPED_AT.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold) + Me.btnBrgUNISPED_AT.ForeColor = System.Drawing.Color.Black + Me.btnBrgUNISPED_AT.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.btnBrgUNISPED_AT.Location = New System.Drawing.Point(2, 2) + Me.btnBrgUNISPED_AT.Margin = New System.Windows.Forms.Padding(2) + Me.btnBrgUNISPED_AT.Name = "btnBrgUNISPED_AT" + Me.btnBrgUNISPED_AT.Size = New System.Drawing.Size(80, 38) + Me.btnBrgUNISPED_AT.TabIndex = 79 + Me.btnBrgUNISPED_AT.Text = "UNISPED (AT)" + Me.btnBrgUNISPED_AT.UseVisualStyleBackColor = False + Me.btnBrgUNISPED_AT.Visible = False + ' + 'btnBrgUNISPED_DE + ' + Me.btnBrgUNISPED_DE.BackColor = System.Drawing.Color.White + Me.btnBrgUNISPED_DE.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.btnBrgUNISPED_DE.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnBrgUNISPED_DE.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold) + Me.btnBrgUNISPED_DE.ForeColor = System.Drawing.Color.Black + Me.btnBrgUNISPED_DE.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.btnBrgUNISPED_DE.Location = New System.Drawing.Point(86, 2) + Me.btnBrgUNISPED_DE.Margin = New System.Windows.Forms.Padding(2) + Me.btnBrgUNISPED_DE.Name = "btnBrgUNISPED_DE" + Me.btnBrgUNISPED_DE.Size = New System.Drawing.Size(80, 38) + Me.btnBrgUNISPED_DE.TabIndex = 80 + Me.btnBrgUNISPED_DE.Text = "UNISPED (DE)" + Me.btnBrgUNISPED_DE.UseVisualStyleBackColor = False + Me.btnBrgUNISPED_DE.Visible = False + ' + 'btnBRG_IMEX_AT + ' + Me.btnBRG_IMEX_AT.BackColor = System.Drawing.Color.White + Me.btnBRG_IMEX_AT.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.btnBRG_IMEX_AT.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnBRG_IMEX_AT.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold) + Me.btnBRG_IMEX_AT.ForeColor = System.Drawing.Color.Black + Me.btnBRG_IMEX_AT.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.btnBRG_IMEX_AT.Location = New System.Drawing.Point(150, 44) + Me.btnBRG_IMEX_AT.Margin = New System.Windows.Forms.Padding(2) + Me.btnBRG_IMEX_AT.Name = "btnBRG_IMEX_AT" + Me.btnBRG_IMEX_AT.Size = New System.Drawing.Size(80, 38) + Me.btnBRG_IMEX_AT.TabIndex = 81 + Me.btnBRG_IMEX_AT.Text = "IMEX (AT)" + Me.btnBRG_IMEX_AT.UseVisualStyleBackColor = False + ' + 'usrCntlATLAS_ncts_SicherheitPos + ' + 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.Label8) + Me.Controls.Add(Me.txtAbgabenbetrag) + Me.Controls.Add(Me.Label3) + Me.Controls.Add(Me.txtBezeichnung) + Me.Controls.Add(Me.txtZugriffscode) + Me.Controls.Add(Me.txtGRN) + Me.Controls.Add(Me.txtEORI_TIN) + Me.Controls.Add(Me.Label5) + Me.Controls.Add(Me.Label13) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.txtArtDetail) + Me.Controls.Add(Me.Label9) + Me.Controls.Add(Me.cboArtSicherheit) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.Label4) + Me.Controls.Add(Me.FlowLayoutPanel) + Me.Name = "usrCntlATLAS_ncts_SicherheitPos" + Me.Size = New System.Drawing.Size(920, 250) + Me.FlowLayoutPanel.ResumeLayout(False) + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents Label8 As System.Windows.Forms.Label + Friend WithEvents txtAbgabenbetrag As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents btnBrgVERAG_AT As System.Windows.Forms.Button + Friend WithEvents txtBezeichnung As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents btnBrgVERAG_DE As System.Windows.Forms.Button + Friend WithEvents txtZugriffscode As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents btnBrgTOBB As System.Windows.Forms.Button + Friend WithEvents txtGRN As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents btnBrgSGS As System.Windows.Forms.Button + Friend WithEvents txtEORI_TIN As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents btnBrgSonstige As System.Windows.Forms.Button + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents Label13 As System.Windows.Forms.Label + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents txtArtDetail As System.Windows.Forms.TextBox + Friend WithEvents Label9 As System.Windows.Forms.Label + Friend WithEvents cboArtSicherheit As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents btnMars As System.Windows.Forms.Button + Friend WithEvents btnEKOL As System.Windows.Forms.Button + Friend WithEvents FlowLayoutPanel As FlowLayoutPanel + Friend WithEvents btnBrgUNISPED_AT As Button + Friend WithEvents btnBrgUNISPED_DE As Button + Friend WithEvents btnBRG_IMEX_AT As Button +End Class diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_SicherheitPos.resx b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_SicherheitPos.resx new file mode 100644 index 00000000..1af7de15 --- /dev/null +++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_SicherheitPos.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_SicherheitPos.vb b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_SicherheitPos.vb new file mode 100644 index 00000000..12d1d683 --- /dev/null +++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_SicherheitPos.vb @@ -0,0 +1,292 @@ +Public Class usrCntlATLAS_NCTS004_SicherheitPos + Property ncts_ART = "" '"T-" + Public Event CHANGED() + Dim FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Sub New(FIRMA_DY) + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + cboArtSicherheit.Items.Clear() + For Each l In (New cDakosy_Sicherheitsarten).LIST + cboArtSicherheit.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(l.Text, l.Value)) + Next + Me.FIRMA_DY = FIRMA_DY + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + + End Sub + Private Sub usrCntlATLAS_ncts_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") + ' btnAllgemein_Click(btnBrgSonstige, New EventArgs) + ' initbuttons("") + + ' cboArtSicherheit.Items.Clear() + ' For Each l In (New cDakosy_Sicherheitsarten).LIST + 'cboArtSicherheit.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(l.Text, l.Value)) + ' Next + + Select Case FIRMA_DY + Case "UNISPED" + btnBrgUNISPED_AT.Visible = True + btnBrgUNISPED_DE.Visible = True + btnBrgVERAG_AT.Visible = False + btnBrgVERAG_DE.Visible = False + btnBRG_IMEX_AT.Visible = False + End Select + End Sub + + + + Public Sub loadBrg(SA As DAKOSY_Worker.cDakosy_NCTSOut004_Guarantee) + Exit Sub + ' ncts_ART = "TOBB" : txtArtDetail.Text = "Sicherheit der Firma TOBB" + setBtn(btnBrgVERAG_AT, False) + setBtn(btnBrgVERAG_DE, False) + setBtn(btnBrgUNISPED_DE, False) + setBtn(btnBrgUNISPED_DE, False) + setBtn(btnBrgTOBB, False) + setBtn(btnBrgSGS, False) + setBtn(btnMars, False) + setBtn(btnEKOL, False) + setBtn(btnBrgSonstige, False) + + Select Case If(SA.nctsGRT_GRN, "") + Case "05AT510000G000FP7" : setBtn(btnBrgVERAG_AT, True) + Case "17DE0000000071678" : setBtn(btnBrgVERAG_DE, True) + Case "05AT500000G000EU9" : setBtn(btnBrgUNISPED_AT, True) + Case "17DE0000000071270" : setBtn(btnBrgUNISPED_DE, True) + Case "16AT520000G000VA6" : setBtn(btnBRG_IMEX_AT, True) + Case Else : setBtn(btnBrgSonstige, True) + End Select + + + cboArtSicherheit.changeItem(If(SA.nctsGRT_Type, "")) 'Gesamtbürgschaft + txtGRN.Text = If(SA.nctsGRT_AccessCode, "") + ' txtEORI_TIN.Text = If(SA.nctsSA_TIN, "") + txtZugriffscode.Text = If(SA.nctsGRT_AccessCode, "") + txtAbgabenbetrag._value = If(SA.nctsGRT_AmountToBeCovered, "") + txtBezeichnung._value = If(SA.nctsGRT_AccountName, "") + 'txtEORI_TIN.Text = If(SA.nctsSA_TIN, "") + + End Sub + + + Private Sub btnAllgemein_Click(sender As Object, e As EventArgs) Handles btnBrgVERAG_AT.Click, btnBrgVERAG_DE.Click, btnBrgTOBB.Click, btnBrgSGS.Click, btnMars.Click, btnEKOL.Click, btnBrgSonstige.Click, btnBrgUNISPED_AT.Click, btnBrgUNISPED_DE.Click + + initbuttons(sender) + + End Sub + + Sub initbuttons(sender) ', Optional resetControls = False) + + setBtn(btnBrgVERAG_AT, False) + setBtn(btnBrgVERAG_DE, False) + setBtn(btnBrgTOBB, False) + setBtn(btnBrgSGS, False) + setBtn(btnMars, False) + setBtn(btnEKOL, False) + setBtn(btnBrgSonstige, False) + setBtn(btnBrgUNISPED_AT, False) + setBtn(btnBrgUNISPED_DE, False) + + 'If resetControls Then + + cboArtSicherheit.changeItem("") + txtGRN.Text = "" + txtEORI_TIN.Text = "" + txtZugriffscode.Text = "" + txtAbgabenbetrag._value = "" + txtEORI_TIN.Text = "" + ' End If + + + If sender Is btnBrgVERAG_AT Then + txtGRN.Text = "05AT510000G000FP7" + txtEORI_TIN.Text = "ATEOS1000000199" + txtZugriffscode.Text = "" '"0000" + txtZugriffscode.Text = VERAG_PROG_ALLGEMEIN.cMitarbeiter.getAccessCodeFrom_GRN(txtGRN.Text) + ncts_ART = "VERAG_AT" : txtArtDetail.Text = "Bürgschaft VERAG Spedition AG (Österreich)" & vbNewLine & "05AT510000G000FP7" + cboArtSicherheit.changeItem("0") 'Befreigung + setBtn(btnBrgVERAG_AT, True) + ElseIf sender Is btnBrgVERAG_DE Then + txtGRN.Text = "17DE0000000071678" + txtEORI_TIN.Text = "DE4824105" + txtZugriffscode.Text = "NCLJ" + ncts_ART = "VERAG_DE" : txtArtDetail.Text = "Bürgschaft VERAG Spedition GmbH (Deutschland)" & vbNewLine & "17DE0000000071678" + + cboArtSicherheit.changeItem("0") 'Befreiung + setBtn(btnBrgVERAG_DE, True) + ElseIf sender Is btnBrgTOBB Then + txtGRN.Text = "21TR0004000079552" '"12TR0004000004665" '"15TR0004000020917" + txtEORI_TIN.Text = "ITTR0000000000152" + txtZugriffscode.Text = "2023" + ncts_ART = "TOBB" : txtArtDetail.Text = "Sicherheit der Firma TOBB" + cboArtSicherheit.changeItem("1") 'Gesamtbürgschaft + setBtn(btnBrgTOBB, True) + ElseIf sender Is btnBRG_IMEX_AT Then + txtGRN.Text = "16AT520000G000VA6" + txtEORI_TIN.Text = "ATEOS1000059735" + txtZugriffscode.Text = "" + txtZugriffscode.Text = VERAG_PROG_ALLGEMEIN.cMitarbeiter.getAccessCodeFrom_GRN(txtGRN.Text) + + ncts_ART = "IMEX_AT" : txtArtDetail.Text = "Bürgschaft IMEX Customs Service GmbH (Österreich)" & vbNewLine & "16AT520000G000VA6" + cboArtSicherheit.changeItem("1") 'Gesamtbürgschaft + setBtn(btnBRG_IMEX_AT, True) + ElseIf sender Is btnBrgSGS Then + txtGRN.Text = "16DE0000000068410" + txtEORI_TIN.Text = "DE3331326" + txtZugriffscode.Text = "UEJZ" + + ncts_ART = "SGS" : txtArtDetail.Text = "Sicherheit der Firma SGS" + cboArtSicherheit.changeItem("1") 'Gesamtbürgschaft + setBtn(btnBrgSGS, True) + ElseIf sender Is btnMars Then + txtGRN.Text = "TR0004000020908" + txtEORI_TIN.Text = "BGKTR6120538808Z8" + txtZugriffscode.Text = "UEJZ" + + ncts_ART = "MARS" : txtArtDetail.Text = "Sicherheit der Firma MARS" + cboArtSicherheit.changeItem("1") 'Gesamtbürgschaft + setBtn(btnMars, True) + ElseIf sender Is btnEKOL Then + txtGRN.Text = "13TR0004000005094" + txtEORI_TIN.Text = "BGKTR3300012602Z8" + txtZugriffscode.Text = "2015" + ncts_ART = "EKOL" : txtArtDetail.Text = "Sicherheit der Firma EKOL" + cboArtSicherheit.changeItem("1") 'Gesamtbürgschaft + setBtn(btnEKOL, True) + + ' ElseIf sender Is btnKOEKNAR Then + ' txtGRN.Text = "15TR0004000017715" + ' txtEORI_TIN.Text = "ATEOS1000066891" + ' txtZugriffscode.Text = "4747" + ' ncts_ART = "KOEKNAR" : txtArtDetail.Text = "Sicherheit der Firma KÖKNAR" + ' cboArtSicherheit.changeItem("1") 'Gesamtbürgschaft + ' setBtn(btnEKOL, True) + + + ElseIf sender Is btnBrgUNISPED_AT Then + txtGRN.Text = "05AT500000G000EU9" + txtEORI_TIN.Text = "ATEOS1000000088" + txtZugriffscode.Text = "" + ncts_ART = "UNISPED_AT" : txtArtDetail.Text = "Bürgschaft Unisped Speditions GmbH (Österreich)" & vbNewLine & "05AT500000G000EU9" + cboArtSicherheit.changeItem("1") 'Gesamtbürgschaft + setBtn(btnEKOL, True) + ElseIf sender Is btnBrgUNISPED_DE Then + txtGRN.Text = "17DE0000000071270" + txtEORI_TIN.Text = "DE7467540" + txtZugriffscode.Text = "HOWE" + ncts_ART = "UNISPED_DE" : txtArtDetail.Text = "Bürgschaft Unisped Speditions GmbH (Deutschland)" & vbNewLine & "17DE0000000071270" + cboArtSicherheit.changeItem("0") 'Gesamtbürgschaft + setBtn(btnEKOL, True) + Else + ncts_ART = "Sonstige" : txtArtDetail.Text = "Sonstige Sicherheit" + cboArtSicherheit.changeItem("") 'Gesamtbürgschaft + setBtn(btnBrgSonstige, 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 cboArtSicherheit_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboArtSicherheit.SelectedIndexChanged + RaiseEvent CHANGED() + End Sub + + + + + + Public Function getValues() As DAKOSY_Worker.cDakosy_NCTSOut004_Guarantee + Dim SA = New DAKOSY_Worker.cDakosy_NCTSOut004_Guarantee + SA.nctsGRT_AmountToBeCovered = cProgramFunctions.isLeerNothing(txtAbgabenbetrag._value) + SA.nctsGRT_AccountName = cProgramFunctions.isLeerNothing(txtBezeichnung._value) + SA.nctsGRT_Type = cProgramFunctions.isLeerNothing(cboArtSicherheit._value) + SA.nctsGRT_GRN = cProgramFunctions.isLeerNothing(txtGRN._value) + SA.nctsGRT_AccessCode = cProgramFunctions.isLeerNothing(txtZugriffscode._value) + + 'Falls Zugriffscode leer --> von Mitarbeiterdaten (AT BRG) + If If(SA.nctsGRT_AccessCode, "") = "" Then + SA.nctsGRT_AccessCode = VERAG_PROG_ALLGEMEIN.cMitarbeiter.getAccessCodeFrom_GRN(SA.nctsGRT_GRN) + End If + 'SA.nctsSA_TIN = cProgramFunctions.isLeerNothing(txtEORI_TIN._value) + If SA.nctsGRT_AmountToBeCovered Is Nothing Then SA.nctsGRT_AmountToBeCovered = 0 + Return SA + End Function + + + Public Sub setValues(SA As DAKOSY_Worker.cDakosy_NCTSOut004_Guarantee) + setBtn(btnBrgVERAG_AT, False) + setBtn(btnBrgVERAG_DE, False) + setBtn(btnBrgTOBB, False) + setBtn(btnBrgSGS, False) + setBtn(btnMars, False) + setBtn(btnEKOL, False) + setBtn(btnBrgSonstige, False) + + Select Case If(SA.nctsGRT_GRN, "") + Case "05AT510000G000FP7" : setBtn(btnBrgVERAG_AT, True) + Case "17DE0000000071678" : setBtn(btnBrgVERAG_DE, True) + Case "16AT520000G000VA6" : setBtn(btnBRG_IMEX_AT, True) + Case Else : setBtn(btnBrgSonstige, True) + End Select + + + cboArtSicherheit.changeItem(If(SA.nctsGRT_Type, "")) 'Gesamtbürgschaft + txtGRN.Text = If(SA.nctsGRT_GRN, "") + 'txtEORI_TIN.Text = If(SA., "") + txtZugriffscode.Text = If(SA.nctsGRT_AccessCode, "") + txtAbgabenbetrag._value = If(SA.nctsGRT_AmountToBeCovered, "") + 'txtEORI_TIN.Text = If(SA.nctsSA_TIN, "") + + End Sub + + + Public Function getValues_TR() As VERAG_PROG_ALLGEMEIN.cNCTS_TR_Sicherheitsangaben + Dim SA = New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Sicherheitsangaben + SA.nctsSA_AbgabenBetrag = cProgramFunctions.isLeerNothing(txtAbgabenbetrag._value) + SA.nctsSA_BezeichnungBescheinigun = cProgramFunctions.isLeerNothing(txtBezeichnung._value) + SA.nctsSA_ArtCode = cProgramFunctions.isLeerNothing(cboArtSicherheit._value) + SA.nctsSA_GRN = cProgramFunctions.isLeerNothing(txtGRN._value) + SA.nctsSA_Zugriffcode = cProgramFunctions.isLeerNothing(txtZugriffscode._value) + SA.nctsSA_TIN = cProgramFunctions.isLeerNothing(txtEORI_TIN._value) + If SA.nctsSA_AbgabenBetrag Is Nothing Then SA.nctsSA_AbgabenBetrag = 0 + Return SA + End Function + + + Public Sub setValues_TR(SA As VERAG_PROG_ALLGEMEIN.cNCTS_TR_Sicherheitsangaben) + setBtn(btnBrgVERAG_AT, False) + setBtn(btnBrgVERAG_DE, False) + setBtn(btnBrgTOBB, False) + setBtn(btnBrgSGS, False) + setBtn(btnMars, False) + setBtn(btnEKOL, False) + setBtn(btnBrgSonstige, False) + + Select Case If(SA.nctsSA_GRN, "") + Case "05AT510000G000FP7" : setBtn(btnBrgVERAG_AT, True) + Case "17DE0000000071678" : setBtn(btnBrgVERAG_DE, True) + Case Else : setBtn(btnBrgSonstige, True) + End Select + + + cboArtSicherheit.changeItem(If(SA.nctsSA_ArtCode, "")) 'Gesamtbürgschaft + txtGRN.Text = If(SA.nctsSA_GRN, "") + txtEORI_TIN.Text = If(SA.nctsSA_TIN, "") + txtZugriffscode.Text = If(SA.nctsSA_Zugriffcode, "") + txtAbgabenbetrag._value = If(SA.nctsSA_AbgabenBetrag, "") + 'txtEORI_TIN.Text = If(SA.nctsSA_TIN, "") + + End Sub + +End Class diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/cDakosyInterface_Send.vb b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/cDakosyInterface_Send.vb index b1ba7728..c618178d 100644 --- a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/cDakosyInterface_Send.vb +++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/cDakosyInterface_Send.vb @@ -45,7 +45,91 @@ Class DAKOSY_Interface_SEND End Try End Function + 'Shared Function loadInClass_VersandanmeldungNCTSDE_003(ByRef cDY As cDakosyNCTSOut, USRCNTL As usrCntlATLAS_NCTS, cDYAnm As cDakosy_Zollanmeldungen, FIRMA_DY As String) As cDakosyNCTSOut + ' Try + ' Select Case FIRMA_DY + ' Case "UNISPED" + ' cDY.ncts_Trans_Partner = "UNAT" + ' Case Else + ' cDY.ncts_Trans_Partner = "VERA" + ' End Select + + ' cDY.ncts_firma = FIRMA_DY + ' cDY.ncts_Trans_DatumZeit = Now + ' cDY.ncts_Gestellt = False + ' cDY.ncts_Status = "00" + ' cDY.ncts_Trans_Referenz = USRCNTL.BezugsNr & "_" & Now.ToString("ddMMyyHHmmSS") 'Eindeutig + ' cDY.ncts_Trans_Referenz = USRCNTL.BezugsNr & "_" & Now.ToString("ddMMyyHHmmSS") 'Eindeutig + ' cDY.ncts_ObjectAlias = If(USRCNTL.AVISO IsNot Nothing, USRCNTL.AVISO.AvisoID, Nothing) + ' cDY.ncts_Trans_Version = "003" + ' cDY.ncts_Trans_Div1 = "ATILLA" + ' 'cDY.ncts_Trans_Div1 = "ATILLA" + ' 'cDY.ncts_Trans_Div1 = "ATILLA" + + ' cDY.ncts_Stammreferenz = isLeerNothing(USRCNTL.cboStammreferenz._value) + ' cDY.ncts_BezugsnummerVorblendung = cDY.ncts_Stammreferenz + + ' cDY.ncts_ObjectName = USRCNTL.BezugsNr + ' 'cDY.ncts_ObjectAlias = USRCNTL.AVISO.AvisoID + ' USRCNTL.ALLG.getValues(cDY) + ' USRCNTL.ADRESSEN.getValues(cDY) + ' USRCNTL.POSITIONEN.getValues(cDY) + ' cDY.ncts_SICHERHEITSANGABEN = USRCNTL.SICHERHEIT.getValues() + ' USRCNTL.VERSCHLUESSE.getValues(cDY) + ' 'cDY.ncts_WARENPOS=USRCNTL.POSITIONEN.getValues() + ' '-------------------------------- + + ' Return cDY + + ' Catch ex As Exception + ' MsgBox(ex.Message & ex.StackTrace) + ' Return Nothing + ' End Try + 'End Function + + Shared Function loadInClass_VersandanmeldungNCTSDE_004(ByRef cDY As cDakosyNCTSOut004, USRCNTL As usrCntlATLAS_NCTS004, cDYAnm As cDakosy_Zollanmeldungen, FIRMA_DY As String) As cDakosyNCTSOut004 + Try + + Select Case FIRMA_DY + Case "UNISPED" + cDY.ncts_Trans_Partner = "UNAT" + Case Else + cDY.ncts_Trans_Partner = "VERA" + End Select + + cDY.ncts_firma = FIRMA_DY + cDY.ncts_Trans_DatumZeit = Now + cDY.ncts_Gestellt = False + cDY.ncts_Status = "00" + cDY.ncts_Trans_Referenz = USRCNTL.BezugsNr & "_" & Now.ToString("ddMMyyHHmmSS") 'Eindeutig + cDY.ncts_Trans_Referenz = USRCNTL.BezugsNr & "_" & Now.ToString("ddMMyyHHmmSS") 'Eindeutig + cDY.ncts_ObjectAlias = If(USRCNTL.AVISO IsNot Nothing, USRCNTL.AVISO.AvisoID, Nothing) + cDY.ncts_Trans_Version = "004" + cDY.ncts_Trans_Div1 = "ATILLA" + 'cDY.ncts_Trans_Div1 = "ATILLA" + 'cDY.ncts_Trans_Div1 = "ATILLA" + + cDY.ncts_Stammreferenz = isLeerNothing(USRCNTL.cboStammreferenz._value) + cDY.ncts_BezugsnummerVorblendung = cDY.ncts_Stammreferenz + + cDY.ncts_ObjectName = USRCNTL.BezugsNr + 'cDY.ncts_ObjectAlias = USRCNTL.AVISO.AvisoID + USRCNTL.ALLG.getValues(cDY) + USRCNTL.ADRESSEN.getValues(cDY) + USRCNTL.POSITIONEN.getValues(cDY) + cDY.ncts_GUARANTEE = USRCNTL.SICHERHEIT.getValues() + ' USRCNTL.VERSCHLUESSE.getValues(cDY) + 'cDY.ncts_WARENPOS=USRCNTL.POSITIONEN.getValues() + '-------------------------------- + + Return cDY + + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + Return Nothing + End Try + End Function Shared Function loadInClass_VersandanmeldungAES(ByRef cDY As cDakosyAES, USRCNTL As usrCntlATLAS_AES, cDYAnm As cDakosy_Zollanmeldungen) As cDakosyAES @@ -1118,6 +1202,1147 @@ Class DAKOSY_Interface_SEND End Function + Shared Function generateVersandanmeldungNCTSDE_004(cDY As cDakosyNCTSOut004, ByRef saveFile As String, DY_ACTION As String) As Boolean + Dim Interface_VERSION = "004" + Dim ObjectAktion = DY_ACTION + + Dim XML As New VersandanmeldungNCTSDE_004.VersandanmeldungVATayp + + 'Transaktion: + XML.Transaktion = New VersandanmeldungNCTSDE_004.TransaktionNCTSTyp + XML.Transaktion.IOPartner = getIOPartner(cDY.ncts_firma) 'If(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "VERA", "VERG") + XML.Transaktion.IODatumZeit = Now + XML.Transaktion.IOReferenz = cDY.ncts_Trans_Referenz + If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then XML.Transaktion.IODivision3 = getDivision(cDY.ncts_firma) '"SUW" + XML.Transaktion.Version = Interface_VERSION + + XML.EinzelVersandanmeldung = New VersandanmeldungNCTSDE_004.EinzelVersandanmeldungTyp + + 'ObjektIdentifizierung: + XML.EinzelVersandanmeldung.ObjektIdentifizierung.NameAbsendendesSystem = "VERAG_ZOLL" + XML.EinzelVersandanmeldung.ObjektIdentifizierung = New VersandanmeldungNCTSDE_004.ObjektIdentifizierungVATyp + XML.EinzelVersandanmeldung.ObjektIdentifizierung.ObjektName = cDY.ncts_ObjectName + If cDY.ncts_ObjectAlias IsNot Nothing Then XML.EinzelVersandanmeldung.ObjektIdentifizierung.ObjektAliasname = cDY.ncts_ObjectAlias + Dim ObjektAktion As New List(Of String) : ObjektAktion.Add(ObjectAktion) + XML.EinzelVersandanmeldung.ObjektIdentifizierung.ObjektAktion = ObjektAktion + If If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DAKOSY_SB, "") <> "" Then XML.EinzelVersandanmeldung.ObjektIdentifizierung.Bearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DAKOSY_SB + + If cDY.ncts_BezugsnummerVorblendung IsNot Nothing Then XML.EinzelVersandanmeldung.ObjektIdentifizierung.BezugsnummerVorblendung = cDY.ncts_BezugsnummerVorblendung + + 'TransitOperation: + XML.EinzelVersandanmeldung.TransitOperation = New VersandanmeldungNCTSDE_004.TransitOperationType + + If cDY.ncts_CountryOfDispatch IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CountryOfDispatch = cDY.ncts_CountryOfDispatch + If cDY.ncts_CountryOfDestination IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CountryOfDestination = cDY.ncts_CountryOfDestination + If cDY.ncts_TIRCarnetNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.TIRCarnetNumber = cDY.ncts_TIRCarnetNumber + If cDY.ncts_ReductedDatasetIndicator IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.ReducedDatasetIndicator = CInt(Int(cDY.ncts_ReductedDatasetIndicator)) + + + XML.EinzelVersandanmeldung.TransitOperation.LocationOfGoods = New VersandanmeldungNCTSDE_004.LocationOfGoodsVAType + If cDY.ncts_LocationOfGoods_TypeofLocation IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.LocationOfGoods.TypeOfLocation = cDY.ncts_LocationOfGoods_TypeofLocation + If cDY.ncts_LocationOfGoods_QualifierIdenfitication IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.LocationOfGoods.QualifierOfIdentification = cDY.ncts_LocationOfGoods_QualifierIdenfitication + If cDY.ncts_LocationOfGoods_AdditionalIdentifier IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.LocationOfGoods.AdditionalIdentifier = CInt(Int(cDY.ncts_LocationOfGoods_AdditionalIdentifier)) + + XML.EinzelVersandanmeldung.TransitOperation.LocationOfGoods.ContactPerson = New VersandanmeldungNCTSDE_004.ContactPersonVAType + If cDY.ncts_LocationOfGoods_ContactPerson_Name IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.LocationOfGoods.ContactPerson.Name = cDY.ncts_LocationOfGoods_ContactPerson_Name + If cDY.ncts_LocationOfGoods_ContactPerson_PhoneNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.LocationOfGoods.ContactPerson.PhoneNumber = cDY.ncts_LocationOfGoods_ContactPerson_PhoneNumber + If cDY.ncts_LocationOfGoods_ContactPerson_EMailAddress IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.LocationOfGoods.ContactPerson.EMailAddress = cDY.ncts_LocationOfGoods_ContactPerson_EMailAddress + + + 'Nur 1x + If cDY.ncts_CustomsOfficeOfTransitDeclared_1_RefNumber IsNot Nothing Then + Dim CTD As New VersandanmeldungNCTSDE_004.CustomsOfficeOfTransitDeclaredVAType + If cDY.ncts_CustomsOfficeOfTransitDeclared_1_RefNumber IsNot Nothing Then CTD.ReferenceNumber = cDY.ncts_CustomsOfficeOfTransitDeclared_1_RefNumber + If cDY.ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime IsNot Nothing Then CTD.ArrivalDateAndTimeEstimated = cDY.ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime + XML.EinzelVersandanmeldung.TransitOperation.CustomsOfficeOfTransitDeclared.Add(CTD) + End If + + If cDY.ncts_CustomsOfficeOfDestinationDeclared IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CustomsOfficeOfDestinationDeclared = cDY.ncts_CustomsOfficeOfDestinationDeclared + If cDY.ncts_CustomsOfficeOfDeparture IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CustomsOfficeOfDeparture = cDY.ncts_CustomsOfficeOfDeparture + If cDY.ncts_CustomsOfficeOfExitForTransitDeclared IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CustomsOfficeOfExitForTransitDeclared = cDY.ncts_CustomsOfficeOfExitForTransitDeclared + If cDY.ncts_LimitDate IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.LimitDate = cDY.ncts_LimitDate + If cDY.ncts_TransitDeclarationType IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.TransitDeclarationType = cDY.ncts_TransitDeclarationType + If cDY.ncts_Declarationtype IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.DeclarationType = cDY.ncts_Declarationtype + If cDY.ncts_GrossMass IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.GrossMass = cDY.ncts_GrossMass + If cDY.ncts_BindingItinerary IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.BindingItinerary = cDY.ncts_BindingItinerary + + + + 'TRANSPORTEQUIPMENT: + If cDY.ncts_TRANSPORTEQUIPMENT.Count > 0 Then + XML.EinzelVersandanmeldung.TransitOperation.TransportEquipment = New List(Of VersandanmeldungNCTSDE_004.TransportEquipmentVAType) + For Each TE In cDY.ncts_TRANSPORTEQUIPMENT + Dim SA As New VersandanmeldungNCTSDE_004.TransportEquipmentVAType + + SA.NumberOfSeals = TE.nctsTE_NumberOfSeals + If TE.nctsTE_NumberOfSeals IsNot Nothing Then SA.NumberOfSeals = TE.nctsTE_NumberOfSeals + If TE.nctsTE_ContainerIdentificationNumber IsNot Nothing Then SA.ContainerIdentificationNumber = TE.nctsTE_ContainerIdentificationNumber + + If TE.nctsTE_Seal_1 IsNot Nothing AndAlso TE.nctsTE_Seal_1 <> "" Then SA.Seal.Add(TE.nctsTE_Seal_1) + If TE.nctsTE_Seal_2 IsNot Nothing AndAlso TE.nctsTE_Seal_2 <> "" Then SA.Seal.Add(TE.nctsTE_Seal_2) + If TE.nctsTE_Seal_3 IsNot Nothing AndAlso TE.nctsTE_Seal_3 <> "" Then SA.Seal.Add(TE.nctsTE_Seal_3) + If TE.nctsTE_Seal_4 IsNot Nothing AndAlso TE.nctsTE_Seal_4 <> "" Then SA.Seal.Add(TE.nctsTE_Seal_4) + If TE.nctsTE_Seal_5 IsNot Nothing AndAlso TE.nctsTE_Seal_5 <> "" Then SA.Seal.Add(TE.nctsTE_Seal_5) + If TE.nctsTE_Seal_6 IsNot Nothing AndAlso TE.nctsTE_Seal_6 <> "" Then SA.Seal.Add(TE.nctsTE_Seal_6) + If TE.nctsTE_Seal_7 IsNot Nothing AndAlso TE.nctsTE_Seal_7 <> "" Then SA.Seal.Add(TE.nctsTE_Seal_7) + If TE.nctsTE_Seal_8 IsNot Nothing AndAlso TE.nctsTE_Seal_8 <> "" Then SA.Seal.Add(TE.nctsTE_Seal_8) + If TE.nctsTE_Seal_9 IsNot Nothing AndAlso TE.nctsTE_Seal_9 <> "" Then SA.Seal.Add(TE.nctsTE_Seal_9) + XML.EinzelVersandanmeldung.TransitOperation.TransportEquipment.Add(SA) + + Next + End If + + 'Sicherheitsangaben: + If cDY.ncts_GUARANTEE.Count > 0 Then + XML.EinzelVersandanmeldung.TransitOperation.Guarantee = New List(Of VersandanmeldungNCTSDE_004.GuaranteeVAType) + For Each s In cDY.ncts_GUARANTEE + Dim GRT As New VersandanmeldungNCTSDE_004.GuaranteeVAType + If s.nctsGRT_Type IsNot Nothing Then GRT.GuaranteeType = s.nctsGRT_Type + If s.nctsGRT_OtherGuaranteeReference IsNot Nothing Then GRT.OtherGuaranteeReference = s.nctsGRT_OtherGuaranteeReference + + Dim SA As New VersandanmeldungNCTSDE_004.GuaranteeReferenceVAType + + If s.nctsGRT_Currency IsNot Nothing Then SA.Currency = s.nctsGRT_Currency + If s.nctsGRT_AmountToBeCovered IsNot Nothing Then SA.AmountToBeCovered = s.nctsGRT_AmountToBeCovered + If s.nctsGRT_AccountName IsNot Nothing Then SA.AccountName = s.nctsGRT_AccountName + If s.nctsGRT_GoodsValue IsNot Nothing Then SA.GoodsValue = s.nctsGRT_GoodsValue + If s.nctsGRT_CurrencyOfGoodsValue IsNot Nothing Then SA.CurrencyOfGoodsValue = s.nctsGRT_CurrencyOfGoodsValue + If s.nctsGRT_FractionOfGoodsValue IsNot Nothing Then SA.FractionOfGoodsValue = s.nctsGRT_FractionOfGoodsValue + If s.nctsGRT_CurrencyExchangeRateCustoms IsNot Nothing Then SA.CurrencyExchangeRateCustoms = s.nctsGRT_CurrencyExchangeRateCustoms + If s.nctsGRT_CurrencyExchangeRateAccount IsNot Nothing Then SA.CurrencyExchangeRateAccount = s.nctsGRT_CurrencyExchangeRateAccount + If s.nctsGRT_ExchangeDateCustoms IsNot Nothing Then SA.ExchangeDateCustoms = s.nctsGRT_ExchangeDateCustoms + If s.nctsGRT_ExchangeDateAccount IsNot Nothing Then SA.ExchangeDateAccount = s.nctsGRT_ExchangeDateAccount + If s.nctsGRT_CurrencyExchangeRateTypeCustoms IsNot Nothing Then SA.CurrencyExchangeRateTypeCustoms = s.nctsGRT_CurrencyExchangeRateTypeCustoms + If s.nctsGRT_CurrencyExchangeRateTypeAccount IsNot Nothing Then SA.CurrencyExchangeRateTypeAccount = s.nctsGRT_CurrencyExchangeRateTypeAccount + If s.nctsGRT_CalculateGoodsValueFromGoodsItems IsNot Nothing Then SA.CalculateGoodsValueFromGoodsItems = CInt(Int(s.nctsGRT_CalculateGoodsValueFromGoodsItems)) + If s.nctsGRT_Commentary IsNot Nothing Then SA.Commentary = s.nctsGRT_Commentary + + + If s.nctsGRT_GRN IsNot Nothing Then + SA.GRN = s.nctsGRT_GRN + If If(s.nctsGRT_GRN, "") = "05AT510000G000FP7" Then + If If(s.nctsGRT_AccessCode, "").Replace("0000", "").Length <> 4 Then + s.nctsGRT_AccessCode = InputBox("Bitte geben Sie den Zugriffscode für die AT-Bürgschaft ein:", "Zugriffscode", "") + If s.nctsGRT_AccessCode.length > 4 Then + s.nctsGRT_AccessCode = s.nctsGRT_AccessCode.ToString.Substring(0, 4) + End If + End If + End If + If s.nctsGRT_AccessCode IsNot Nothing Then SA.AccessCode = s.nctsGRT_AccessCode + + ' If s.nctsSA_TIN IsNot Nothing Then SA.TIN = s.nctsSA_TIN ---> Fehler, das Feld wird in ausl. TIN geschreiben --> muss aber leer bleiben + + End If + + GRT.GuaranteeReference.Add(SA) + XML.EinzelVersandanmeldung.TransitOperation.Guarantee.Add(GRT) + + Next + End If + + If cDY.ncts_ContainerIndicator IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.ContainerIndicator = CInt(Int(cDY.ncts_ContainerIndicator)) + If cDY.ncts_InlandModeOfTransport IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.InlandModeOfTransport = cDY.ncts_InlandModeOfTransport + If cDY.ncts_ModeOfTransportAtTheBorder IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.ModeOfTransportAtTheBorder = cDY.ncts_ModeOfTransportAtTheBorder + + + 'Beförderungsmittel - nur 1X + If cDY.ncts_DepartureTransportMeans_1_IdentificationNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.DepartureTransportMeansVAType + If cDY.ncts_DepartureTransportMeans_1_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = cDY.ncts_DepartureTransportMeans_1_IdentificationNumber + If cDY.ncts_DepartureTransportMeans_1_Nationality IsNot Nothing Then TM.Nationality = cDY.ncts_DepartureTransportMeans_1_Nationality + If cDY.ncts_DepartureTransportMeans_1_TypeOfIdentification IsNot Nothing Then TM.TypeOfIdentification = cDY.ncts_DepartureTransportMeans_1_TypeOfIdentification + XML.EinzelVersandanmeldung.TransitOperation.DepartureTransportMeans.Add(TM) + End If + + 'Grenzüberschr.VM - nur 1X + If cDY.ncts_ActiveBorderTransportMeans_1_IdentificationNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.ActiveBorderTransportMeansVAType + If cDY.ncts_ActiveBorderTransportMeans_1_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = cDY.ncts_ActiveBorderTransportMeans_1_IdentificationNumber + If cDY.ncts_ActiveBorderTransportMeans_1_Nationality IsNot Nothing Then TM.Nationality = cDY.ncts_ActiveBorderTransportMeans_1_Nationality + If cDY.ncts_ActiveBorderTransportMeans_1_TypeOfIdentification IsNot Nothing Then TM.TypeOfIdentification = cDY.ncts_ActiveBorderTransportMeans_1_TypeOfIdentification + If cDY.ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber IsNot Nothing Then TM.ConveyanceReferenceNumber = cDY.ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber + XML.EinzelVersandanmeldung.TransitOperation.ActiveBorderTransportMeans.Add(TM) + End If + + + 'Bewilligung 1 + If cDY.ncts_Authorisation_1_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.TransitOperationAuthorisationVAType + If cDY.ncts_Authorisation_1_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_Authorisation_1_ReferenceNumber + If cDY.ncts_Authorisation_1_Type IsNot Nothing Then TM.Type = cDY.ncts_Authorisation_1_Type + XML.EinzelVersandanmeldung.TransitOperation.Authorisation.Add(TM) + End If + 'Bewilligung 2 + If cDY.ncts_Authorisation_2_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.TransitOperationAuthorisationVAType + If cDY.ncts_Authorisation_2_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_Authorisation_2_ReferenceNumber + If cDY.ncts_Authorisation_2_Type IsNot Nothing Then TM.Type = cDY.ncts_Authorisation_2_Type + XML.EinzelVersandanmeldung.TransitOperation.Authorisation.Add(TM) + End If + 'Bewilligung 3 + If cDY.ncts_Authorisation_3_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.TransitOperationAuthorisationVAType + If cDY.ncts_Authorisation_3_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_Authorisation_3_ReferenceNumber + If cDY.ncts_Authorisation_3_Type IsNot Nothing Then TM.Type = cDY.ncts_Authorisation_3_Type + XML.EinzelVersandanmeldung.TransitOperation.Authorisation.Add(TM) + End If + + + + 'Absender + If cDY.ncts_Consignor_IdentificationNumber IsNot Nothing Or cDY.ncts_Consignor_Name IsNot Nothing Then + XML.EinzelVersandanmeldung.TransitOperation.Consignor = New VersandanmeldungNCTSDE_004.AddressVA1Type + If cDY.ncts_Consignor_IdentificationNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignor.IdentificationNumber = cDY.ncts_Consignor_IdentificationNumber + If cDY.ncts_Consignor_SubsidiaryNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignor.SubsidiaryNumber = cDY.ncts_Consignor_SubsidiaryNumber + If cDY.ncts_Consignor_Name IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignor.Name = cDY.ncts_Consignor_Name + If cDY.ncts_Consignor_Postcode IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignor.Postcode = cDY.ncts_Consignor_Postcode + If cDY.ncts_Consignor_StreetNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignor.StreetAndNumber = cDY.ncts_Consignor_StreetNumber + If cDY.ncts_Consignor_City IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignor.City = cDY.ncts_Consignor_City + If cDY.ncts_Consignor_Country IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignor.Country = cDY.ncts_Consignor_Country + If cDY.ncts_Consignor_ContactPerson_Name IsNot Nothing Then + XML.EinzelVersandanmeldung.TransitOperation.Consignor.ContactPerson = New VersandanmeldungNCTSDE_004.ContactPersonVAType + If cDY.ncts_Consignor_ContactPerson_Name IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignor.ContactPerson.Name = cDY.ncts_LocationOfGoods_ContactPerson_Name + If cDY.ncts_Consignor_ContactPerson_PhoneNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignor.ContactPerson.PhoneNumber = cDY.ncts_Consignor_ContactPerson_PhoneNumber + If cDY.ncts_Consignor_ContactPerson_EMailAddress IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignor.ContactPerson.EMailAddress = cDY.ncts_Consignor_ContactPerson_EMailAddress + End If + End If + + 'Empfänger + If cDY.ncts_Consignee_IdentificationNumber IsNot Nothing Or cDY.ncts_Consignee_Name IsNot Nothing Then + XML.EinzelVersandanmeldung.TransitOperation.Consignee = New VersandanmeldungNCTSDE_004.AddressVA1Type + If cDY.ncts_Consignee_IdentificationNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignee.IdentificationNumber = cDY.ncts_Consignee_IdentificationNumber + If cDY.ncts_Consignee_SubsidiaryNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignee.SubsidiaryNumber = cDY.ncts_Consignee_SubsidiaryNumber + If cDY.ncts_Consignee_Name IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignee.Name = cDY.ncts_Consignee_Name + If cDY.ncts_Consignee_Postcode IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignee.Postcode = cDY.ncts_Consignee_Postcode + If cDY.ncts_Consignee_StreetNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignee.StreetAndNumber = cDY.ncts_Consignee_StreetNumber + If cDY.ncts_Consignee_City IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignee.City = cDY.ncts_Consignee_City + If cDY.ncts_Consignee_Country IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignee.Country = cDY.ncts_Consignee_Country + If cDY.ncts_Consignee_ContactPerson_Name IsNot Nothing Then + XML.EinzelVersandanmeldung.TransitOperation.Consignee.ContactPerson = New VersandanmeldungNCTSDE_004.ContactPersonVAType + If cDY.ncts_Consignee_ContactPerson_Name IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignee.ContactPerson.Name = cDY.ncts_LocationOfGoods_ContactPerson_Name + If cDY.ncts_Consignee_ContactPerson_PhoneNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignee.ContactPerson.PhoneNumber = cDY.ncts_Consignee_ContactPerson_PhoneNumber + If cDY.ncts_Consignee_ContactPerson_EMailAddress IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignee.ContactPerson.EMailAddress = cDY.ncts_Consignee_ContactPerson_EMailAddress + End If + End If + + 'Inhaber Versandverfahren + If cDY.ncts_HolderOfTheTransitProcedure_IdentificationNumber IsNot Nothing Or cDY.ncts_HolderOfTheTransitProcedure_Name IsNot Nothing Then + XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure = New VersandanmeldungNCTSDE_004.HolderOfTheTransitProcedureVAType + If cDY.ncts_HolderOfTheTransitProcedure_IdentificationNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure.IdentificationNumber = cDY.ncts_HolderOfTheTransitProcedure_IdentificationNumber + If cDY.ncts_HolderOfTheTransitProcedure_Name IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure.Name = cDY.ncts_HolderOfTheTransitProcedure_Name + If cDY.ncts_HolderOfTheTransitProcedure_Postcode IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure.Postcode = cDY.ncts_HolderOfTheTransitProcedure_Postcode + If cDY.ncts_HolderOfTheTransitProcedure_StreetNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure.StreetAndNumber = cDY.ncts_HolderOfTheTransitProcedure_StreetNumber + If cDY.ncts_HolderOfTheTransitProcedure_City IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure.City = cDY.ncts_HolderOfTheTransitProcedure_City + If cDY.ncts_HolderOfTheTransitProcedure_Country IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure.Country = cDY.ncts_HolderOfTheTransitProcedure_Country + If cDY.ncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure.TIRHolderIdentificationNumber = cDY.ncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber + If cDY.ncts_HolderOfTheTransitProcedure_ContactPerson_Name IsNot Nothing Then + XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure.ContactPerson = New VersandanmeldungNCTSDE_004.ContactPersonVAType + If cDY.ncts_HolderOfTheTransitProcedure_ContactPerson_Name IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure.ContactPerson.Name = cDY.ncts_LocationOfGoods_ContactPerson_Name + If cDY.ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure.ContactPerson.PhoneNumber = cDY.ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber + If cDY.ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure.ContactPerson.EMailAddress = cDY.ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress + End If + End If + + + + 'Vertreter Inhaber Versandverfahren + If cDY.ncts_Representative_IdentificationNumber IsNot Nothing Then + XML.EinzelVersandanmeldung.TransitOperation.Representative = New VersandanmeldungNCTSDE_004.RepresentativeVAType + If cDY.ncts_Representative_IdentificationNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Representative.IdentificationNumber = cDY.ncts_Representative_IdentificationNumber + If cDY.ncts_Representative_ContactPerson_Name IsNot Nothing Then + XML.EinzelVersandanmeldung.TransitOperation.Representative.ContactPerson = New VersandanmeldungNCTSDE_004.ContactPersonVAType + If cDY.ncts_Representative_ContactPerson_Name IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Representative.ContactPerson.Name = cDY.ncts_LocationOfGoods_ContactPerson_Name + If cDY.ncts_Representative_ContactPerson_PhoneNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Representative.ContactPerson.PhoneNumber = cDY.ncts_Representative_ContactPerson_PhoneNumber + If cDY.ncts_Representative_ContactPerson_EMailAddress IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Representative.ContactPerson.EMailAddress = cDY.ncts_Representative_ContactPerson_EMailAddress + End If + End If + + + + 'Beförderer + If cDY.ncts_Carrier_IdentificationNumber IsNot Nothing Then + XML.EinzelVersandanmeldung.TransitOperation.Carrier = New VersandanmeldungNCTSDE_004.AddressVAType + If cDY.ncts_Carrier_IdentificationNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Carrier.IdentificationNumber = cDY.ncts_Carrier_IdentificationNumber + If cDY.ncts_Carrier_ContactPerson_Name IsNot Nothing Then + XML.EinzelVersandanmeldung.TransitOperation.Carrier.ContactPerson = New VersandanmeldungNCTSDE_004.ContactPersonVAType + If cDY.ncts_Carrier_ContactPerson_Name IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Carrier.ContactPerson.Name = cDY.ncts_LocationOfGoods_ContactPerson_Name + If cDY.ncts_Carrier_ContactPerson_PhoneNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Carrier.ContactPerson.PhoneNumber = cDY.ncts_Carrier_ContactPerson_PhoneNumber + If cDY.ncts_Carrier_ContactPerson_EMailAddress IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Carrier.ContactPerson.EMailAddress = cDY.ncts_Carrier_ContactPerson_EMailAddress + End If + End If + + + + 'Zus.Lieferkettenbeteiligter 1 + If cDY.ncts_AdditionalSupplyChainActor_2_IdentificationNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType + If cDY.ncts_AdditionalSupplyChainActor_2_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = cDY.ncts_AdditionalSupplyChainActor_2_IdentificationNumber + If cDY.ncts_AdditionalSupplyChainActor_2_Role IsNot Nothing Then TM.Role = cDY.ncts_AdditionalSupplyChainActor_2_Role + XML.EinzelVersandanmeldung.TransitOperation.AdditionalSupplyChainActor.Add(TM) + End If + 'Zus.Lieferkettenbeteiligter 2 + If cDY.ncts_AdditionalSupplyChainActor_2_IdentificationNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType + If cDY.ncts_AdditionalSupplyChainActor_2_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = cDY.ncts_AdditionalSupplyChainActor_2_IdentificationNumber + If cDY.ncts_AdditionalSupplyChainActor_2_Role IsNot Nothing Then TM.Role = cDY.ncts_AdditionalSupplyChainActor_2_Role + XML.EinzelVersandanmeldung.TransitOperation.AdditionalSupplyChainActor.Add(TM) + End If + 'Zus.Lieferkettenbeteiligter 3 + If cDY.ncts_AdditionalSupplyChainActor_2_IdentificationNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType + If cDY.ncts_AdditionalSupplyChainActor_2_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = cDY.ncts_AdditionalSupplyChainActor_2_IdentificationNumber + If cDY.ncts_AdditionalSupplyChainActor_2_Role IsNot Nothing Then TM.Role = cDY.ncts_AdditionalSupplyChainActor_2_Role + XML.EinzelVersandanmeldung.TransitOperation.AdditionalSupplyChainActor.Add(TM) + End If + + + + + If cDY.ncts_Security IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Security = CInt(Int(cDY.ncts_Security)) + If cDY.ncts_ReferenceNumberUCR IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.ReferenceNumberUCR = cDY.ncts_ReferenceNumberUCR + If cDY.ncts_SpecificCircomstanceIndicator IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.SpecificCircumstanceIndicator = cDY.ncts_SpecificCircomstanceIndicator + + If cDY.ncts_PlaceOfLoading_Location IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.PlaceOfLoading.Location = cDY.ncts_PlaceOfLoading_Location + If cDY.ncts_PlaceOfLoading_Country IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.PlaceOfLoading.Country = cDY.ncts_PlaceOfLoading_Country + If cDY.ncts_PlaceOfUnLoading_Location IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.PlaceOfUnloading.Location = cDY.ncts_PlaceOfUnLoading_Location + If cDY.ncts_PlaceOfUnLoading_Country IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.PlaceOfUnloading.Country = cDY.ncts_PlaceOfUnLoading_Country + + If cDY.ncts_TransportCharges IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.TransportCharges = cDY.ncts_TransportCharges + + If cDY.ncts_CountryOfRoutingOfConsignment_1 IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CountryOfRoutingOfConsignment.Add(cDY.ncts_CountryOfRoutingOfConsignment_1) + If cDY.ncts_CountryOfRoutingOfConsignment_2 IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CountryOfRoutingOfConsignment.Add(cDY.ncts_CountryOfRoutingOfConsignment_2) + If cDY.ncts_CountryOfRoutingOfConsignment_3 IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CountryOfRoutingOfConsignment.Add(cDY.ncts_CountryOfRoutingOfConsignment_3) + If cDY.ncts_CountryOfRoutingOfConsignment_4 IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CountryOfRoutingOfConsignment.Add(cDY.ncts_CountryOfRoutingOfConsignment_4) + If cDY.ncts_CountryOfRoutingOfConsignment_5 IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CountryOfRoutingOfConsignment.Add(cDY.ncts_CountryOfRoutingOfConsignment_5) + If cDY.ncts_CountryOfRoutingOfConsignment_6 IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CountryOfRoutingOfConsignment.Add(cDY.ncts_CountryOfRoutingOfConsignment_6) + If cDY.ncts_CountryOfRoutingOfConsignment_7 IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CountryOfRoutingOfConsignment.Add(cDY.ncts_CountryOfRoutingOfConsignment_7) + If cDY.ncts_CountryOfRoutingOfConsignment_8 IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CountryOfRoutingOfConsignment.Add(cDY.ncts_CountryOfRoutingOfConsignment_8) + If cDY.ncts_CountryOfRoutingOfConsignment_9 IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CountryOfRoutingOfConsignment.Add(cDY.ncts_CountryOfRoutingOfConsignment_9) + + + + 'Vorpapier 1 + If cDY.ncts_PreviousDocument_1_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentVAType + If cDY.ncts_PreviousDocument_1_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_PreviousDocument_1_ReferenceNumber + If cDY.ncts_PreviousDocument_1_Type IsNot Nothing Then TM.Type = cDY.ncts_PreviousDocument_1_Type + If cDY.ncts_PreviousDocument_1_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_PreviousDocument_1_ComplementOfInformation + XML.EinzelVersandanmeldung.TransitOperation.PreviousDocument.Add(TM) + End If + 'Vorpapier 2 + If cDY.ncts_PreviousDocument_2_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentVAType + If cDY.ncts_PreviousDocument_2_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_PreviousDocument_2_ReferenceNumber + If cDY.ncts_PreviousDocument_2_Type IsNot Nothing Then TM.Type = cDY.ncts_PreviousDocument_2_Type + If cDY.ncts_PreviousDocument_2_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_PreviousDocument_2_ComplementOfInformation + XML.EinzelVersandanmeldung.TransitOperation.PreviousDocument.Add(TM) + End If + 'Vorpapier 3 + If cDY.ncts_PreviousDocument_3_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentVAType + If cDY.ncts_PreviousDocument_3_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_PreviousDocument_3_ReferenceNumber + If cDY.ncts_PreviousDocument_3_Type IsNot Nothing Then TM.Type = cDY.ncts_PreviousDocument_3_Type + If cDY.ncts_PreviousDocument_3_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_PreviousDocument_3_ComplementOfInformation + XML.EinzelVersandanmeldung.TransitOperation.PreviousDocument.Add(TM) + End If + 'Vorpapier 4 + If cDY.ncts_PreviousDocument_4_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentVAType + If cDY.ncts_PreviousDocument_4_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_PreviousDocument_4_ReferenceNumber + If cDY.ncts_PreviousDocument_4_Type IsNot Nothing Then TM.Type = cDY.ncts_PreviousDocument_4_Type + If cDY.ncts_PreviousDocument_4_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_PreviousDocument_4_ComplementOfInformation + XML.EinzelVersandanmeldung.TransitOperation.PreviousDocument.Add(TM) + End If + 'Vorpapier 5 + If cDY.ncts_PreviousDocument_5_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentVAType + If cDY.ncts_PreviousDocument_5_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_PreviousDocument_5_ReferenceNumber + If cDY.ncts_PreviousDocument_5_Type IsNot Nothing Then TM.Type = cDY.ncts_PreviousDocument_5_Type + If cDY.ncts_PreviousDocument_5_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_PreviousDocument_5_ComplementOfInformation + XML.EinzelVersandanmeldung.TransitOperation.PreviousDocument.Add(TM) + End If + 'Vorpapier 6 + If cDY.ncts_PreviousDocument_6_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentVAType + If cDY.ncts_PreviousDocument_6_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_PreviousDocument_6_ReferenceNumber + If cDY.ncts_PreviousDocument_6_Type IsNot Nothing Then TM.Type = cDY.ncts_PreviousDocument_6_Type + If cDY.ncts_PreviousDocument_6_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_PreviousDocument_6_ComplementOfInformation + XML.EinzelVersandanmeldung.TransitOperation.PreviousDocument.Add(TM) + End If + 'Vorpapier 7 + If cDY.ncts_PreviousDocument_7_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentVAType + If cDY.ncts_PreviousDocument_7_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_PreviousDocument_7_ReferenceNumber + If cDY.ncts_PreviousDocument_7_Type IsNot Nothing Then TM.Type = cDY.ncts_PreviousDocument_7_Type + If cDY.ncts_PreviousDocument_7_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_PreviousDocument_7_ComplementOfInformation + XML.EinzelVersandanmeldung.TransitOperation.PreviousDocument.Add(TM) + End If + 'Vorpapier 8 + If cDY.ncts_PreviousDocument_8_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentVAType + If cDY.ncts_PreviousDocument_8_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_PreviousDocument_8_ReferenceNumber + If cDY.ncts_PreviousDocument_8_Type IsNot Nothing Then TM.Type = cDY.ncts_PreviousDocument_8_Type + If cDY.ncts_PreviousDocument_8_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_PreviousDocument_8_ComplementOfInformation + XML.EinzelVersandanmeldung.TransitOperation.PreviousDocument.Add(TM) + End If + 'Vorpapier 9 + If cDY.ncts_PreviousDocument_9_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentVAType + If cDY.ncts_PreviousDocument_9_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_PreviousDocument_9_ReferenceNumber + If cDY.ncts_PreviousDocument_9_Type IsNot Nothing Then TM.Type = cDY.ncts_PreviousDocument_9_Type + If cDY.ncts_PreviousDocument_9_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_PreviousDocument_9_ComplementOfInformation + XML.EinzelVersandanmeldung.TransitOperation.PreviousDocument.Add(TM) + End If + + 'Unterlage 1 + If cDY.ncts_SupportingDocument_1_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentVAType + If cDY.ncts_SupportingDocument_1_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_SupportingDocument_1_ReferenceNumber + If cDY.ncts_SupportingDocument_1_Type IsNot Nothing Then TM.Type = cDY.ncts_SupportingDocument_1_Type + If cDY.ncts_SupportingDocument_1_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_SupportingDocument_1_ComplementOfInformation + XML.EinzelVersandanmeldung.TransitOperation.SupportingDocument.Add(TM) + End If + 'Unterlage 2 + If cDY.ncts_SupportingDocument_2_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentVAType + If cDY.ncts_SupportingDocument_2_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_SupportingDocument_2_ReferenceNumber + If cDY.ncts_SupportingDocument_2_Type IsNot Nothing Then TM.Type = cDY.ncts_SupportingDocument_2_Type + If cDY.ncts_SupportingDocument_2_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_SupportingDocument_2_ComplementOfInformation + XML.EinzelVersandanmeldung.TransitOperation.SupportingDocument.Add(TM) + End If + 'Unterlage 3 + If cDY.ncts_SupportingDocument_3_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentVAType + If cDY.ncts_SupportingDocument_3_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_SupportingDocument_3_ReferenceNumber + If cDY.ncts_SupportingDocument_3_Type IsNot Nothing Then TM.Type = cDY.ncts_SupportingDocument_3_Type + If cDY.ncts_SupportingDocument_3_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_SupportingDocument_3_ComplementOfInformation + XML.EinzelVersandanmeldung.TransitOperation.SupportingDocument.Add(TM) + End If + 'Unterlage 4 + If cDY.ncts_SupportingDocument_4_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentVAType + If cDY.ncts_SupportingDocument_4_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_SupportingDocument_4_ReferenceNumber + If cDY.ncts_SupportingDocument_4_Type IsNot Nothing Then TM.Type = cDY.ncts_SupportingDocument_4_Type + If cDY.ncts_SupportingDocument_4_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_SupportingDocument_4_ComplementOfInformation + XML.EinzelVersandanmeldung.TransitOperation.SupportingDocument.Add(TM) + End If + 'Unterlage 5 + If cDY.ncts_SupportingDocument_5_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentVAType + If cDY.ncts_SupportingDocument_5_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_SupportingDocument_5_ReferenceNumber + If cDY.ncts_SupportingDocument_5_Type IsNot Nothing Then TM.Type = cDY.ncts_SupportingDocument_5_Type + If cDY.ncts_SupportingDocument_5_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_SupportingDocument_5_ComplementOfInformation + XML.EinzelVersandanmeldung.TransitOperation.SupportingDocument.Add(TM) + End If + 'Unterlage 6 + If cDY.ncts_SupportingDocument_6_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentVAType + If cDY.ncts_SupportingDocument_6_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_SupportingDocument_6_ReferenceNumber + If cDY.ncts_SupportingDocument_6_Type IsNot Nothing Then TM.Type = cDY.ncts_SupportingDocument_6_Type + If cDY.ncts_SupportingDocument_6_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_SupportingDocument_6_ComplementOfInformation + XML.EinzelVersandanmeldung.TransitOperation.SupportingDocument.Add(TM) + End If + 'Unterlage 7 + If cDY.ncts_SupportingDocument_7_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentVAType + If cDY.ncts_SupportingDocument_7_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_SupportingDocument_7_ReferenceNumber + If cDY.ncts_SupportingDocument_7_Type IsNot Nothing Then TM.Type = cDY.ncts_SupportingDocument_7_Type + If cDY.ncts_SupportingDocument_7_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_SupportingDocument_7_ComplementOfInformation + XML.EinzelVersandanmeldung.TransitOperation.SupportingDocument.Add(TM) + End If + 'Unterlage 8 + If cDY.ncts_SupportingDocument_8_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentVAType + If cDY.ncts_SupportingDocument_8_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_SupportingDocument_8_ReferenceNumber + If cDY.ncts_SupportingDocument_8_Type IsNot Nothing Then TM.Type = cDY.ncts_SupportingDocument_8_Type + If cDY.ncts_SupportingDocument_8_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_SupportingDocument_8_ComplementOfInformation + XML.EinzelVersandanmeldung.TransitOperation.SupportingDocument.Add(TM) + End If + 'Unterlage 9 + If cDY.ncts_SupportingDocument_9_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentVAType + If cDY.ncts_SupportingDocument_9_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_SupportingDocument_9_ReferenceNumber + If cDY.ncts_SupportingDocument_9_Type IsNot Nothing Then TM.Type = cDY.ncts_SupportingDocument_9_Type + If cDY.ncts_SupportingDocument_9_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_SupportingDocument_9_ComplementOfInformation + XML.EinzelVersandanmeldung.TransitOperation.SupportingDocument.Add(TM) + End If + + + 'Transportpapier 1 + If cDY.ncts_TransportDocument_1_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.TransportDocumentVAType + If cDY.ncts_TransportDocument_1_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_TransportDocument_1_ReferenceNumber + If cDY.ncts_TransportDocument_1_Type IsNot Nothing Then TM.Type = cDY.ncts_TransportDocument_1_Type + XML.EinzelVersandanmeldung.TransitOperation.TransportDocument.Add(TM) + End If + 'Transportpapier 2 + If cDY.ncts_TransportDocument_2_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.TransportDocumentVAType + If cDY.ncts_TransportDocument_2_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_TransportDocument_2_ReferenceNumber + If cDY.ncts_TransportDocument_2_Type IsNot Nothing Then TM.Type = cDY.ncts_TransportDocument_2_Type + XML.EinzelVersandanmeldung.TransitOperation.TransportDocument.Add(TM) + End If + 'Transportpapier 3 + If cDY.ncts_TransportDocument_3_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.TransportDocumentVAType + If cDY.ncts_TransportDocument_3_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_TransportDocument_3_ReferenceNumber + If cDY.ncts_TransportDocument_3_Type IsNot Nothing Then TM.Type = cDY.ncts_TransportDocument_3_Type + XML.EinzelVersandanmeldung.TransitOperation.TransportDocument.Add(TM) + End If + 'Transportpapier 4 + If cDY.ncts_TransportDocument_4_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.TransportDocumentVAType + If cDY.ncts_TransportDocument_4_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_TransportDocument_4_ReferenceNumber + If cDY.ncts_TransportDocument_4_Type IsNot Nothing Then TM.Type = cDY.ncts_TransportDocument_4_Type + XML.EinzelVersandanmeldung.TransitOperation.TransportDocument.Add(TM) + End If + 'Transportpapier 5 + If cDY.ncts_TransportDocument_5_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.TransportDocumentVAType + If cDY.ncts_TransportDocument_5_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_TransportDocument_5_ReferenceNumber + If cDY.ncts_TransportDocument_5_Type IsNot Nothing Then TM.Type = cDY.ncts_TransportDocument_5_Type + XML.EinzelVersandanmeldung.TransitOperation.TransportDocument.Add(TM) + End If + 'Transportpapier 6 + If cDY.ncts_TransportDocument_6_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.TransportDocumentVAType + If cDY.ncts_TransportDocument_6_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_TransportDocument_6_ReferenceNumber + If cDY.ncts_TransportDocument_6_Type IsNot Nothing Then TM.Type = cDY.ncts_TransportDocument_6_Type + XML.EinzelVersandanmeldung.TransitOperation.TransportDocument.Add(TM) + End If + 'Transportpapier 7 + If cDY.ncts_TransportDocument_7_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.TransportDocumentVAType + If cDY.ncts_TransportDocument_7_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_TransportDocument_7_ReferenceNumber + If cDY.ncts_TransportDocument_7_Type IsNot Nothing Then TM.Type = cDY.ncts_TransportDocument_7_Type + XML.EinzelVersandanmeldung.TransitOperation.TransportDocument.Add(TM) + End If + 'Transportpapier 8 + If cDY.ncts_TransportDocument_8_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.TransportDocumentVAType + If cDY.ncts_TransportDocument_8_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_TransportDocument_8_ReferenceNumber + If cDY.ncts_TransportDocument_8_Type IsNot Nothing Then TM.Type = cDY.ncts_TransportDocument_8_Type + XML.EinzelVersandanmeldung.TransitOperation.TransportDocument.Add(TM) + End If + 'Transportpapier 9 + If cDY.ncts_TransportDocument_9_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.TransportDocumentVAType + If cDY.ncts_TransportDocument_9_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_TransportDocument_9_ReferenceNumber + If cDY.ncts_TransportDocument_9_Type IsNot Nothing Then TM.Type = cDY.ncts_TransportDocument_9_Type + XML.EinzelVersandanmeldung.TransitOperation.TransportDocument.Add(TM) + End If + + + 'ZusVermerk 1 + If cDY.ncts_AdditionalReference_1_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferenceVAType + If cDY.ncts_AdditionalReference_1_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_AdditionalReference_1_ReferenceNumber + If cDY.ncts_AdditionalReference_1_Type IsNot Nothing Then TM.Type = cDY.ncts_AdditionalReference_1_Type + XML.EinzelVersandanmeldung.TransitOperation.AdditionalReference.Add(TM) + End If + 'ZusVermerk 2 + If cDY.ncts_AdditionalReference_2_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferenceVAType + If cDY.ncts_AdditionalReference_2_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_AdditionalReference_2_ReferenceNumber + If cDY.ncts_AdditionalReference_2_Type IsNot Nothing Then TM.Type = cDY.ncts_AdditionalReference_2_Type + XML.EinzelVersandanmeldung.TransitOperation.AdditionalReference.Add(TM) + End If + 'ZusVermerk 3 + If cDY.ncts_AdditionalReference_3_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferenceVAType + If cDY.ncts_AdditionalReference_3_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_AdditionalReference_3_ReferenceNumber + If cDY.ncts_AdditionalReference_3_Type IsNot Nothing Then TM.Type = cDY.ncts_AdditionalReference_3_Type + XML.EinzelVersandanmeldung.TransitOperation.AdditionalReference.Add(TM) + End If + 'ZusVermerk 4 + If cDY.ncts_AdditionalReference_4_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferenceVAType + If cDY.ncts_AdditionalReference_4_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_AdditionalReference_4_ReferenceNumber + If cDY.ncts_AdditionalReference_4_Type IsNot Nothing Then TM.Type = cDY.ncts_AdditionalReference_4_Type + XML.EinzelVersandanmeldung.TransitOperation.AdditionalReference.Add(TM) + End If + 'ZusVermerk 5 + If cDY.ncts_AdditionalReference_5_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferenceVAType + If cDY.ncts_AdditionalReference_5_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_AdditionalReference_5_ReferenceNumber + If cDY.ncts_AdditionalReference_5_Type IsNot Nothing Then TM.Type = cDY.ncts_AdditionalReference_5_Type + XML.EinzelVersandanmeldung.TransitOperation.AdditionalReference.Add(TM) + End If + 'ZusVermerk 6 + If cDY.ncts_AdditionalReference_6_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferenceVAType + If cDY.ncts_AdditionalReference_6_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_AdditionalReference_6_ReferenceNumber + If cDY.ncts_AdditionalReference_6_Type IsNot Nothing Then TM.Type = cDY.ncts_AdditionalReference_6_Type + XML.EinzelVersandanmeldung.TransitOperation.AdditionalReference.Add(TM) + End If + 'ZusVermerk 7 + If cDY.ncts_AdditionalReference_7_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferenceVAType + If cDY.ncts_AdditionalReference_7_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_AdditionalReference_7_ReferenceNumber + If cDY.ncts_AdditionalReference_7_Type IsNot Nothing Then TM.Type = cDY.ncts_AdditionalReference_7_Type + XML.EinzelVersandanmeldung.TransitOperation.AdditionalReference.Add(TM) + End If + 'ZusVermerk 8 + If cDY.ncts_AdditionalReference_8_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferenceVAType + If cDY.ncts_AdditionalReference_8_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_AdditionalReference_8_ReferenceNumber + If cDY.ncts_AdditionalReference_8_Type IsNot Nothing Then TM.Type = cDY.ncts_AdditionalReference_8_Type + XML.EinzelVersandanmeldung.TransitOperation.AdditionalReference.Add(TM) + End If + 'ZusVermerk 9 + If cDY.ncts_AdditionalReference_9_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferenceVAType + If cDY.ncts_AdditionalReference_9_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_AdditionalReference_9_ReferenceNumber + If cDY.ncts_AdditionalReference_9_Type IsNot Nothing Then TM.Type = cDY.ncts_AdditionalReference_9_Type + XML.EinzelVersandanmeldung.TransitOperation.AdditionalReference.Add(TM) + End If + + + 'ZusInformation 1 + If cDY.ncts_AdditionalInformation_1_Code IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationVAType + If cDY.ncts_AdditionalInformation_1_Code IsNot Nothing Then TM.Code = cDY.ncts_AdditionalInformation_1_Code + If cDY.ncts_AdditionalInformation_1_Text IsNot Nothing Then TM.Text = cDY.ncts_AdditionalInformation_1_Text + XML.EinzelVersandanmeldung.TransitOperation.AdditionalInformation.Add(TM) + End If + 'ZusInformation 2 + If cDY.ncts_AdditionalInformation_2_Code IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationVAType + If cDY.ncts_AdditionalInformation_2_Code IsNot Nothing Then TM.Code = cDY.ncts_AdditionalInformation_2_Code + If cDY.ncts_AdditionalInformation_2_Text IsNot Nothing Then TM.Text = cDY.ncts_AdditionalInformation_2_Text + XML.EinzelVersandanmeldung.TransitOperation.AdditionalInformation.Add(TM) + End If + 'ZusInformation 3 + If cDY.ncts_AdditionalInformation_3_Code IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationVAType + If cDY.ncts_AdditionalInformation_3_Code IsNot Nothing Then TM.Code = cDY.ncts_AdditionalInformation_3_Code + If cDY.ncts_AdditionalInformation_3_Text IsNot Nothing Then TM.Text = cDY.ncts_AdditionalInformation_3_Text + XML.EinzelVersandanmeldung.TransitOperation.AdditionalInformation.Add(TM) + End If + 'ZusInformation 4 + If cDY.ncts_AdditionalInformation_4_Code IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationVAType + If cDY.ncts_AdditionalInformation_4_Code IsNot Nothing Then TM.Code = cDY.ncts_AdditionalInformation_4_Code + If cDY.ncts_AdditionalInformation_4_Text IsNot Nothing Then TM.Text = cDY.ncts_AdditionalInformation_4_Text + XML.EinzelVersandanmeldung.TransitOperation.AdditionalInformation.Add(TM) + End If + 'ZusInformation 5 + If cDY.ncts_AdditionalInformation_5_Code IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationVAType + If cDY.ncts_AdditionalInformation_5_Code IsNot Nothing Then TM.Code = cDY.ncts_AdditionalInformation_5_Code + If cDY.ncts_AdditionalInformation_5_Text IsNot Nothing Then TM.Text = cDY.ncts_AdditionalInformation_5_Text + XML.EinzelVersandanmeldung.TransitOperation.AdditionalInformation.Add(TM) + End If + 'ZusInformation 6 + If cDY.ncts_AdditionalInformation_6_Code IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationVAType + If cDY.ncts_AdditionalInformation_6_Code IsNot Nothing Then TM.Code = cDY.ncts_AdditionalInformation_6_Code + If cDY.ncts_AdditionalInformation_6_Text IsNot Nothing Then TM.Text = cDY.ncts_AdditionalInformation_6_Text + XML.EinzelVersandanmeldung.TransitOperation.AdditionalInformation.Add(TM) + End If + 'ZusInformation 7 + If cDY.ncts_AdditionalInformation_7_Code IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationVAType + If cDY.ncts_AdditionalInformation_7_Code IsNot Nothing Then TM.Code = cDY.ncts_AdditionalInformation_7_Code + If cDY.ncts_AdditionalInformation_7_Text IsNot Nothing Then TM.Text = cDY.ncts_AdditionalInformation_7_Text + XML.EinzelVersandanmeldung.TransitOperation.AdditionalInformation.Add(TM) + End If + 'ZusInformation 8 + If cDY.ncts_AdditionalInformation_8_Code IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationVAType + If cDY.ncts_AdditionalInformation_8_Code IsNot Nothing Then TM.Code = cDY.ncts_AdditionalInformation_8_Code + If cDY.ncts_AdditionalInformation_8_Text IsNot Nothing Then TM.Text = cDY.ncts_AdditionalInformation_8_Text + XML.EinzelVersandanmeldung.TransitOperation.AdditionalInformation.Add(TM) + End If + 'ZusInformation 9 + If cDY.ncts_AdditionalInformation_9_Code IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationVAType + If cDY.ncts_AdditionalInformation_9_Code IsNot Nothing Then TM.Code = cDY.ncts_AdditionalInformation_9_Code + If cDY.ncts_AdditionalInformation_9_Text IsNot Nothing Then TM.Text = cDY.ncts_AdditionalInformation_9_Text + XML.EinzelVersandanmeldung.TransitOperation.AdditionalInformation.Add(TM) + End If + + If cDY.ncts_AUTOIMPIndicator IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.AUTOIMPIndicator = CInt(Int(cDY.ncts_AUTOIMPIndicator)) + + + + + + + + + 'Warenposition: + If cDY.ncts_HOUSE_CONSIGNMENT IsNot Nothing AndAlso cDY.ncts_HOUSE_CONSIGNMENT.Count > 0 Then + XML.EinzelVersandanmeldung.TransitOperation.HouseConsignment = New List(Of VersandanmeldungNCTSDE_004.HouseConsignmentVAType) + + Dim CntItemNoWhole = 1 + For Each p In cDY.ncts_HOUSE_CONSIGNMENT + Dim HC = New VersandanmeldungNCTSDE_004.HouseConsignmentVAType + + If p.nctsHC_CountryOfDispatch IsNot Nothing Then HC.CountryOfDispatch = p.nctsHC_CountryOfDispatch + If p.nctsHC_CountryOfDestination IsNot Nothing Then HC.CountryOfDestination = p.nctsHC_CountryOfDestination + + + + If p.nctsWP_CONSIGNMENT_ITEM IsNot Nothing AndAlso p.nctsWP_CONSIGNMENT_ITEM.Count > 0 Then + HC.ConsignmentItem = New List(Of VersandanmeldungNCTSDE_004.ConsignmentItemVAType) + + Dim CntItemNo = 1 + For Each pp In p.nctsWP_CONSIGNMENT_ITEM + Dim HCCI = New VersandanmeldungNCTSDE_004.ConsignmentItemVAType + + + HCCI.GoodsItemNumber = CntItemNo + CntItemNo += 1 + + HCCI.DeclarationGoodsItemNumber = CntItemNoWhole + CntItemNoWhole += 1 + + If pp.nctsHCCI_CommodityCode IsNot Nothing Then HCCI.CommodityCode = pp.nctsHCCI_CommodityCode + If pp.nctsHCCI_ReferenceNumberUCR IsNot Nothing Then HCCI.ReferenceNumberUCR = pp.nctsHCCI_ReferenceNumberUCR + If pp.nctsHCCI_MethodeOfPayment IsNot Nothing Then HCCI.MethodOfPayment = pp.nctsHCCI_MethodeOfPayment + If pp.nctsHCCI_UNNumber_1 IsNot Nothing Then HCCI.UNNumber.Add(pp.nctsHCCI_UNNumber_1) + If pp.nctsHCCI_UNNumber_2 IsNot Nothing Then HCCI.UNNumber.Add(pp.nctsHCCI_UNNumber_2) + If pp.nctsHCCI_UNNumber_3 IsNot Nothing Then HCCI.UNNumber.Add(pp.nctsHCCI_UNNumber_3) + If pp.nctsHCCI_UNNumber_4 IsNot Nothing Then HCCI.UNNumber.Add(pp.nctsHCCI_UNNumber_4) + + If pp.nctsHCCI_DeclarationType IsNot Nothing Then HCCI.DeclarationType = pp.nctsHCCI_DeclarationType + If pp.nctsHCCI_ArticleCode IsNot Nothing Then HCCI.ArticleCode = pp.nctsHCCI_ArticleCode + If pp.nctsHCCI_DescriptionOfGoods IsNot Nothing Then HCCI.DescriptionOfGoods = pp.nctsHCCI_DescriptionOfGoods + If pp.nctsHCCI_CusCode IsNot Nothing Then HCCI.CusCode = pp.nctsHCCI_CusCode + If pp.nctsHCCI_CountryOfDispatch IsNot Nothing Then HCCI.CountryOfDispatch = pp.nctsHCCI_CountryOfDispatch + If pp.nctsHCCI_CountryOfDestination IsNot Nothing Then HCCI.CountryOfDestination = pp.nctsHCCI_CountryOfDestination + + If pp.nctsHCCI_GrossMass IsNot Nothing Then HCCI.GrossMass = pp.nctsHCCI_GrossMass + If pp.nctsHCCI_NetMass IsNot Nothing Then HCCI.NetMass = pp.nctsHCCI_NetMass + + + If pp.nctsHCCI_GoodsValue IsNot Nothing Then HCCI.GoodsValue = pp.nctsHCCI_GoodsValue + If pp.nctsHCCI_CurrencyOfGoodsValue IsNot Nothing Then HCCI.CurrencyOfGoodsValue = pp.nctsHCCI_CurrencyOfGoodsValue + If pp.nctsHCCI_ExchangeRate IsNot Nothing Then HCCI.ExchangeRate = pp.nctsHCCI_ExchangeRate + If pp.nctsHCCI_ExchangeDate IsNot Nothing Then HCCI.ExchangeDate = pp.nctsHCCI_ExchangeDate + If pp.nctsHCCI_CurrencyExchangeRateType IsNot Nothing Then HCCI.CurrencyExchangeRateType = pp.nctsHCCI_CurrencyExchangeRateType + If pp.nctsHCCI_GuaranteeAmount IsNot Nothing Then HCCI.GuaranteeAmount = pp.nctsHCCI_GuaranteeAmount + If pp.nctsHCCI_FractionOfGoodsValue IsNot Nothing Then HCCI.FractionOfGoodsValue = pp.nctsHCCI_FractionOfGoodsValue + + + + + 'Empfänger + If pp.nctsHCCI_Consignor_IdentificationNumber IsNot Nothing Or pp.nctsHCCI_Consignor_Name IsNot Nothing Then + HCCI.Consignee = New VersandanmeldungNCTSDE_004.AddressVA1Type + If pp.nctsHCCI_Consignor_IdentificationNumber IsNot Nothing Then HCCI.Consignee.IdentificationNumber = pp.nctsHCCI_Consignor_IdentificationNumber + If pp.nctsHCCI_Consignor_SubsidiaryNumber IsNot Nothing Then HCCI.Consignee.SubsidiaryNumber = pp.nctsHCCI_Consignor_SubsidiaryNumber + If pp.nctsHCCI_Consignor_Name IsNot Nothing Then HCCI.Consignee.Name = pp.nctsHCCI_Consignor_Name + If pp.nctsHCCI_Consignor_Postcode IsNot Nothing Then HCCI.Consignee.Postcode = pp.nctsHCCI_Consignor_Postcode + If pp.nctsHCCI_Consignor_StreetNumber IsNot Nothing Then HCCI.Consignee.StreetAndNumber = pp.nctsHCCI_Consignor_StreetNumber + If pp.nctsHCCI_Consignor_City IsNot Nothing Then HCCI.Consignee.City = pp.nctsHCCI_Consignor_City + If pp.nctsHCCI_Consignor_Country IsNot Nothing Then HCCI.Consignee.Country = pp.nctsHCCI_Consignor_Country + If pp.nctsHCCI_Consignor_ContactPerson_Name IsNot Nothing Then + HCCI.Consignee.ContactPerson = New VersandanmeldungNCTSDE_004.ContactPersonVAType + If pp.nctsHCCI_Consignor_ContactPerson_Name IsNot Nothing Then HCCI.Consignee.ContactPerson.Name = pp.nctsHCCI_Consignor_ContactPerson_Name + If pp.nctsHCCI_Consignor_ContactPerson_PhoneNumber IsNot Nothing Then HCCI.Consignee.ContactPerson.PhoneNumber = pp.nctsHCCI_Consignor_ContactPerson_PhoneNumber + If pp.nctsHCCI_Consignor_ContactPerson_EMailAddress IsNot Nothing Then HCCI.Consignee.ContactPerson.EMailAddress = pp.nctsHCCI_Consignor_ContactPerson_EMailAddress + End If + End If + + + + 'Lieferkettenbeteiligter 1 + If pp.nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType + If pp.nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = pp.nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber + If pp.nctsHCCI_AdditionalSupplyChainActor_1_Role IsNot Nothing Then TM.Role = pp.nctsHCCI_AdditionalSupplyChainActor_1_Role + HCCI.AdditionalSupplyChainActor.Add(TM) + End If + 'Lieferkettenbeteiligter 2 + If pp.nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType + If pp.nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = pp.nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber + If pp.nctsHCCI_AdditionalSupplyChainActor_2_Role IsNot Nothing Then TM.Role = pp.nctsHCCI_AdditionalSupplyChainActor_2_Role + HCCI.AdditionalSupplyChainActor.Add(TM) + End If + 'Lieferkettenbeteiligter 3 + If pp.nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType + If pp.nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = pp.nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber + If pp.nctsHCCI_AdditionalSupplyChainActor_3_Role IsNot Nothing Then TM.Role = pp.nctsHCCI_AdditionalSupplyChainActor_3_Role + HCCI.AdditionalSupplyChainActor.Add(TM) + End If + 'Lieferkettenbeteiligter 4 + If pp.nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType + If pp.nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = pp.nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber + If pp.nctsHCCI_AdditionalSupplyChainActor_4_Role IsNot Nothing Then TM.Role = pp.nctsHCCI_AdditionalSupplyChainActor_4_Role + HCCI.AdditionalSupplyChainActor.Add(TM) + End If + 'Lieferkettenbeteiligter 5 + If pp.nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType + If pp.nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = pp.nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber + If pp.nctsHCCI_AdditionalSupplyChainActor_5_Role IsNot Nothing Then TM.Role = pp.nctsHCCI_AdditionalSupplyChainActor_5_Role + HCCI.AdditionalSupplyChainActor.Add(TM) + End If + 'Lieferkettenbeteiligter 6 + If pp.nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType + If pp.nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = pp.nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber + If pp.nctsHCCI_AdditionalSupplyChainActor_6_Role IsNot Nothing Then TM.Role = pp.nctsHCCI_AdditionalSupplyChainActor_6_Role + HCCI.AdditionalSupplyChainActor.Add(TM) + End If + 'Lieferkettenbeteiligter 7 + If pp.nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType + If pp.nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = pp.nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber + If pp.nctsHCCI_AdditionalSupplyChainActor_7_Role IsNot Nothing Then TM.Role = pp.nctsHCCI_AdditionalSupplyChainActor_7_Role + HCCI.AdditionalSupplyChainActor.Add(TM) + End If + 'Lieferkettenbeteiligter 8 + If pp.nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType + If pp.nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = pp.nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber + If pp.nctsHCCI_AdditionalSupplyChainActor_8_Role IsNot Nothing Then TM.Role = pp.nctsHCCI_AdditionalSupplyChainActor_8_Role + HCCI.AdditionalSupplyChainActor.Add(TM) + End If + 'Lieferkettenbeteiligter 9 + If pp.nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType + If pp.nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = pp.nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber + If pp.nctsHCCI_AdditionalSupplyChainActor_9_Role IsNot Nothing Then TM.Role = pp.nctsHCCI_AdditionalSupplyChainActor_9_Role + HCCI.AdditionalSupplyChainActor.Add(TM) + End If + + + + + 'Vorpapier 1 + If pp.nctsHCCI_PreviousDocument_1_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentPositionVAType + If pp.nctsHCCI_PreviousDocument_1_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_PreviousDocument_1_Type + If pp.nctsHCCI_PreviousDocument_1_ReferenceNumber IsNot Nothing Then TM.PreviousDocumentDetails.ReferenceNumber = pp.nctsHCCI_PreviousDocument_1_ReferenceNumber + If pp.nctsHCCI_PreviousDocument_1_ComplementOfInformation IsNot Nothing Then TM.PreviousDocumentDetails.ComplementOfInformation = pp.nctsHCCI_PreviousDocument_1_ComplementOfInformation + If pp.nctsHCCI_PreviousDocument_1_GoodsItemNumber IsNot Nothing Then TM.PreviousDocumentDetails.GoodsItemNumber = pp.nctsHCCI_PreviousDocument_1_GoodsItemNumber + HCCI.PreviousDocument.Add(TM) + End If + 'Vorpapier 2 + If pp.nctsHCCI_PreviousDocument_2_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentPositionVAType + If pp.nctsHCCI_PreviousDocument_2_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_PreviousDocument_2_Type + If pp.nctsHCCI_PreviousDocument_2_ReferenceNumber IsNot Nothing Then TM.PreviousDocumentDetails.ReferenceNumber = pp.nctsHCCI_PreviousDocument_2_ReferenceNumber + If pp.nctsHCCI_PreviousDocument_2_ComplementOfInformation IsNot Nothing Then TM.PreviousDocumentDetails.ComplementOfInformation = pp.nctsHCCI_PreviousDocument_2_ComplementOfInformation + If pp.nctsHCCI_PreviousDocument_2_GoodsItemNumber IsNot Nothing Then TM.PreviousDocumentDetails.GoodsItemNumber = pp.nctsHCCI_PreviousDocument_2_GoodsItemNumber + HCCI.PreviousDocument.Add(TM) + End If + 'Vorpapier 3 + If pp.nctsHCCI_PreviousDocument_3_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentPositionVAType + If pp.nctsHCCI_PreviousDocument_3_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_PreviousDocument_3_Type + If pp.nctsHCCI_PreviousDocument_3_ReferenceNumber IsNot Nothing Then TM.PreviousDocumentDetails.ReferenceNumber = pp.nctsHCCI_PreviousDocument_3_ReferenceNumber + If pp.nctsHCCI_PreviousDocument_3_ComplementOfInformation IsNot Nothing Then TM.PreviousDocumentDetails.ComplementOfInformation = pp.nctsHCCI_PreviousDocument_3_ComplementOfInformation + If pp.nctsHCCI_PreviousDocument_3_GoodsItemNumber IsNot Nothing Then TM.PreviousDocumentDetails.GoodsItemNumber = pp.nctsHCCI_PreviousDocument_3_GoodsItemNumber + HCCI.PreviousDocument.Add(TM) + End If + 'Vorpapier 4 + If pp.nctsHCCI_PreviousDocument_4_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentPositionVAType + If pp.nctsHCCI_PreviousDocument_4_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_PreviousDocument_4_Type + If pp.nctsHCCI_PreviousDocument_4_ReferenceNumber IsNot Nothing Then TM.PreviousDocumentDetails.ReferenceNumber = pp.nctsHCCI_PreviousDocument_4_ReferenceNumber + If pp.nctsHCCI_PreviousDocument_4_ComplementOfInformation IsNot Nothing Then TM.PreviousDocumentDetails.ComplementOfInformation = pp.nctsHCCI_PreviousDocument_4_ComplementOfInformation + If pp.nctsHCCI_PreviousDocument_4_GoodsItemNumber IsNot Nothing Then TM.PreviousDocumentDetails.GoodsItemNumber = pp.nctsHCCI_PreviousDocument_4_GoodsItemNumber + HCCI.PreviousDocument.Add(TM) + End If + 'Vorpapier 5 + If pp.nctsHCCI_PreviousDocument_5_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentPositionVAType + If pp.nctsHCCI_PreviousDocument_5_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_PreviousDocument_5_Type + If pp.nctsHCCI_PreviousDocument_5_ReferenceNumber IsNot Nothing Then TM.PreviousDocumentDetails.ReferenceNumber = pp.nctsHCCI_PreviousDocument_5_ReferenceNumber + If pp.nctsHCCI_PreviousDocument_5_ComplementOfInformation IsNot Nothing Then TM.PreviousDocumentDetails.ComplementOfInformation = pp.nctsHCCI_PreviousDocument_5_ComplementOfInformation + If pp.nctsHCCI_PreviousDocument_5_GoodsItemNumber IsNot Nothing Then TM.PreviousDocumentDetails.GoodsItemNumber = pp.nctsHCCI_PreviousDocument_5_GoodsItemNumber + HCCI.PreviousDocument.Add(TM) + End If + 'Vorpapier 6 + If pp.nctsHCCI_PreviousDocument_6_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentPositionVAType + If pp.nctsHCCI_PreviousDocument_6_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_PreviousDocument_6_Type + If pp.nctsHCCI_PreviousDocument_6_ReferenceNumber IsNot Nothing Then TM.PreviousDocumentDetails.ReferenceNumber = pp.nctsHCCI_PreviousDocument_6_ReferenceNumber + If pp.nctsHCCI_PreviousDocument_6_ComplementOfInformation IsNot Nothing Then TM.PreviousDocumentDetails.ComplementOfInformation = pp.nctsHCCI_PreviousDocument_6_ComplementOfInformation + If pp.nctsHCCI_PreviousDocument_6_GoodsItemNumber IsNot Nothing Then TM.PreviousDocumentDetails.GoodsItemNumber = pp.nctsHCCI_PreviousDocument_6_GoodsItemNumber + HCCI.PreviousDocument.Add(TM) + End If + 'Vorpapier 7 + If pp.nctsHCCI_PreviousDocument_7_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentPositionVAType + If pp.nctsHCCI_PreviousDocument_7_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_PreviousDocument_7_Type + If pp.nctsHCCI_PreviousDocument_7_ReferenceNumber IsNot Nothing Then TM.PreviousDocumentDetails.ReferenceNumber = pp.nctsHCCI_PreviousDocument_7_ReferenceNumber + If pp.nctsHCCI_PreviousDocument_7_ComplementOfInformation IsNot Nothing Then TM.PreviousDocumentDetails.ComplementOfInformation = pp.nctsHCCI_PreviousDocument_7_ComplementOfInformation + If pp.nctsHCCI_PreviousDocument_7_GoodsItemNumber IsNot Nothing Then TM.PreviousDocumentDetails.GoodsItemNumber = pp.nctsHCCI_PreviousDocument_7_GoodsItemNumber + HCCI.PreviousDocument.Add(TM) + End If + 'Vorpapier 8 + If pp.nctsHCCI_PreviousDocument_8_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentPositionVAType + If pp.nctsHCCI_PreviousDocument_8_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_PreviousDocument_8_Type + If pp.nctsHCCI_PreviousDocument_8_ReferenceNumber IsNot Nothing Then TM.PreviousDocumentDetails.ReferenceNumber = pp.nctsHCCI_PreviousDocument_8_ReferenceNumber + If pp.nctsHCCI_PreviousDocument_8_ComplementOfInformation IsNot Nothing Then TM.PreviousDocumentDetails.ComplementOfInformation = pp.nctsHCCI_PreviousDocument_8_ComplementOfInformation + If pp.nctsHCCI_PreviousDocument_8_GoodsItemNumber IsNot Nothing Then TM.PreviousDocumentDetails.GoodsItemNumber = pp.nctsHCCI_PreviousDocument_8_GoodsItemNumber + HCCI.PreviousDocument.Add(TM) + End If + 'Vorpapier 9 + If pp.nctsHCCI_PreviousDocument_9_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentPositionVAType + If pp.nctsHCCI_PreviousDocument_9_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_PreviousDocument_9_Type + If pp.nctsHCCI_PreviousDocument_9_ReferenceNumber IsNot Nothing Then TM.PreviousDocumentDetails.ReferenceNumber = pp.nctsHCCI_PreviousDocument_9_ReferenceNumber + If pp.nctsHCCI_PreviousDocument_9_ComplementOfInformation IsNot Nothing Then TM.PreviousDocumentDetails.ComplementOfInformation = pp.nctsHCCI_PreviousDocument_9_ComplementOfInformation + If pp.nctsHCCI_PreviousDocument_9_GoodsItemNumber IsNot Nothing Then TM.PreviousDocumentDetails.GoodsItemNumber = pp.nctsHCCI_PreviousDocument_9_GoodsItemNumber + HCCI.PreviousDocument.Add(TM) + End If + + + + + If pp.nctsHCCI_PACKAGING IsNot Nothing AndAlso pp.nctsHCCI_PACKAGING.Count > 0 Then + HCCI.Packaging = New List(Of VersandanmeldungNCTSDE_004.PackstueckVATyp) + For Each w In pp.nctsHCCI_PACKAGING + Dim PK As New VersandanmeldungNCTSDE_004.PackstueckVATyp + If w.nctsHCCIPK_NumberOfPackages IsNot Nothing Then PK.NumberOfPackages = w.nctsHCCIPK_NumberOfPackages.ToString.Replace(".", "") + If w.nctsHCCIPK_TypeOfPackages IsNot Nothing Then PK.TypeOfPackages = w.nctsHCCIPK_TypeOfPackages + If w.nctsHCCIPK_GoodsItemNumber IsNot Nothing Then PK.GoodsItemNumber = w.nctsHCCIPK_GoodsItemNumber + If w.nctsHCCIPK_ShippingMarks IsNot Nothing Then PK.ShippingMarks = w.nctsHCCIPK_ShippingMarks + HCCI.Packaging.Add(PK) + Next + End If + + + + 'Unterlage 1 + If pp.nctsHCCI_SupportingDocument_1_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentPositionVAType + If pp.nctsHCCI_SupportingDocument_1_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_SupportingDocument_1_Type + If pp.nctsHCCI_SupportingDocument_1_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_SupportingDocument_1_ReferenceNumber + If pp.nctsHCCI_SupportingDocument_1_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = pp.nctsHCCI_SupportingDocument_1_ComplementOfInformation + HCCI.SupportingDocument.Add(TM) + End If + 'Unterlage 2 + If pp.nctsHCCI_SupportingDocument_2_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentPositionVAType + If pp.nctsHCCI_SupportingDocument_2_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_SupportingDocument_2_Type + If pp.nctsHCCI_SupportingDocument_2_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_SupportingDocument_2_ReferenceNumber + If pp.nctsHCCI_SupportingDocument_2_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = pp.nctsHCCI_SupportingDocument_2_ComplementOfInformation + HCCI.SupportingDocument.Add(TM) + End If + 'Unterlage 3 + If pp.nctsHCCI_SupportingDocument_3_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentPositionVAType + If pp.nctsHCCI_SupportingDocument_3_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_SupportingDocument_3_Type + If pp.nctsHCCI_SupportingDocument_3_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_SupportingDocument_3_ReferenceNumber + If pp.nctsHCCI_SupportingDocument_3_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = pp.nctsHCCI_SupportingDocument_3_ComplementOfInformation + HCCI.SupportingDocument.Add(TM) + End If + 'Unterlage 4 + If pp.nctsHCCI_SupportingDocument_4_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentPositionVAType + If pp.nctsHCCI_SupportingDocument_4_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_SupportingDocument_4_Type + If pp.nctsHCCI_SupportingDocument_4_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_SupportingDocument_4_ReferenceNumber + If pp.nctsHCCI_SupportingDocument_4_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = pp.nctsHCCI_SupportingDocument_4_ComplementOfInformation + HCCI.SupportingDocument.Add(TM) + End If + 'Unterlage 5 + If pp.nctsHCCI_SupportingDocument_5_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentPositionVAType + If pp.nctsHCCI_SupportingDocument_5_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_SupportingDocument_5_Type + If pp.nctsHCCI_SupportingDocument_5_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_SupportingDocument_5_ReferenceNumber + If pp.nctsHCCI_SupportingDocument_5_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = pp.nctsHCCI_SupportingDocument_5_ComplementOfInformation + HCCI.SupportingDocument.Add(TM) + End If + 'Unterlage 6 + If pp.nctsHCCI_SupportingDocument_6_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentPositionVAType + If pp.nctsHCCI_SupportingDocument_6_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_SupportingDocument_6_Type + If pp.nctsHCCI_SupportingDocument_6_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_SupportingDocument_6_ReferenceNumber + If pp.nctsHCCI_SupportingDocument_6_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = pp.nctsHCCI_SupportingDocument_6_ComplementOfInformation + HCCI.SupportingDocument.Add(TM) + End If + 'Unterlage 7 + If pp.nctsHCCI_SupportingDocument_7_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentPositionVAType + If pp.nctsHCCI_SupportingDocument_7_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_SupportingDocument_7_Type + If pp.nctsHCCI_SupportingDocument_7_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_SupportingDocument_7_ReferenceNumber + If pp.nctsHCCI_SupportingDocument_7_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = pp.nctsHCCI_SupportingDocument_7_ComplementOfInformation + HCCI.SupportingDocument.Add(TM) + End If + 'Unterlage 8 + If pp.nctsHCCI_SupportingDocument_8_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentPositionVAType + If pp.nctsHCCI_SupportingDocument_8_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_SupportingDocument_8_Type + If pp.nctsHCCI_SupportingDocument_8_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_SupportingDocument_8_ReferenceNumber + If pp.nctsHCCI_SupportingDocument_8_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = pp.nctsHCCI_SupportingDocument_8_ComplementOfInformation + HCCI.SupportingDocument.Add(TM) + End If + 'Unterlage 9 + If pp.nctsHCCI_SupportingDocument_9_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentPositionVAType + If pp.nctsHCCI_SupportingDocument_9_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_SupportingDocument_9_Type + If pp.nctsHCCI_SupportingDocument_9_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_SupportingDocument_9_ReferenceNumber + If pp.nctsHCCI_SupportingDocument_9_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = pp.nctsHCCI_SupportingDocument_9_ComplementOfInformation + HCCI.SupportingDocument.Add(TM) + End If + + + + 'ZusVermerk 1 + If pp.nctsHCCI_AdditionalReference_1_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferencePositionVAType + If pp.nctsHCCI_AdditionalReference_1_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_AdditionalReference_1_Type + If pp.nctsHCCI_AdditionalReference_1_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_AdditionalReference_1_ReferenceNumber + HCCI.AdditionalReference.Add(TM) + End If + 'ZusVermerk 2 + If pp.nctsHCCI_AdditionalReference_2_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferencePositionVAType + If pp.nctsHCCI_AdditionalReference_2_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_AdditionalReference_2_Type + If pp.nctsHCCI_AdditionalReference_2_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_AdditionalReference_2_ReferenceNumber + HCCI.AdditionalReference.Add(TM) + End If + 'ZusVermerk 3 + If pp.nctsHCCI_AdditionalReference_3_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferencePositionVAType + If pp.nctsHCCI_AdditionalReference_3_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_AdditionalReference_3_Type + If pp.nctsHCCI_AdditionalReference_3_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_AdditionalReference_3_ReferenceNumber + HCCI.AdditionalReference.Add(TM) + End If + 'ZusVermerk 4 + If pp.nctsHCCI_AdditionalReference_4_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferencePositionVAType + If pp.nctsHCCI_AdditionalReference_4_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_AdditionalReference_4_Type + If pp.nctsHCCI_AdditionalReference_4_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_AdditionalReference_4_ReferenceNumber + HCCI.AdditionalReference.Add(TM) + End If + 'ZusVermerk 5 + If pp.nctsHCCI_AdditionalReference_5_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferencePositionVAType + If pp.nctsHCCI_AdditionalReference_5_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_AdditionalReference_5_Type + If pp.nctsHCCI_AdditionalReference_5_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_AdditionalReference_5_ReferenceNumber + HCCI.AdditionalReference.Add(TM) + End If + 'ZusVermerk 6 + If pp.nctsHCCI_AdditionalReference_6_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferencePositionVAType + If pp.nctsHCCI_AdditionalReference_6_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_AdditionalReference_6_Type + If pp.nctsHCCI_AdditionalReference_6_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_AdditionalReference_6_ReferenceNumber + HCCI.AdditionalReference.Add(TM) + End If + 'ZusVermerk 7 + If pp.nctsHCCI_AdditionalReference_7_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferencePositionVAType + If pp.nctsHCCI_AdditionalReference_7_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_AdditionalReference_7_Type + If pp.nctsHCCI_AdditionalReference_7_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_AdditionalReference_7_ReferenceNumber + HCCI.AdditionalReference.Add(TM) + End If + 'ZusVermerk 8 + If pp.nctsHCCI_AdditionalReference_8_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferencePositionVAType + If pp.nctsHCCI_AdditionalReference_8_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_AdditionalReference_8_Type + If pp.nctsHCCI_AdditionalReference_8_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_AdditionalReference_8_ReferenceNumber + HCCI.AdditionalReference.Add(TM) + End If + 'ZusVermerk 9 + If pp.nctsHCCI_AdditionalReference_9_ReferenceNumber IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferencePositionVAType + If pp.nctsHCCI_AdditionalReference_9_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_AdditionalReference_9_Type + If pp.nctsHCCI_AdditionalReference_9_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_AdditionalReference_9_ReferenceNumber + HCCI.AdditionalReference.Add(TM) + End If + + 'ZusInformation 1 + If pp.nctsHCCI_AdditionalInformation_1_Text IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationPositionVAType + If pp.nctsHCCI_AdditionalInformation_1_Code IsNot Nothing Then TM.code = pp.nctsHCCI_AdditionalInformation_1_Code + If pp.nctsHCCI_AdditionalInformation_1_Text IsNot Nothing Then TM.text = pp.nctsHCCI_AdditionalInformation_1_Text + HCCI.AdditionalInformation.Add(TM) + End If + 'ZusInformation 2 + If pp.nctsHCCI_AdditionalInformation_2_Text IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationPositionVAType + If pp.nctsHCCI_AdditionalInformation_2_Code IsNot Nothing Then TM.Code = pp.nctsHCCI_AdditionalInformation_2_Code + If pp.nctsHCCI_AdditionalInformation_2_Text IsNot Nothing Then TM.Text = pp.nctsHCCI_AdditionalInformation_2_Text + HCCI.AdditionalInformation.Add(TM) + End If + 'ZusInformation 3 + If pp.nctsHCCI_AdditionalInformation_3_Text IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationPositionVAType + If pp.nctsHCCI_AdditionalInformation_3_Code IsNot Nothing Then TM.Code = pp.nctsHCCI_AdditionalInformation_3_Code + If pp.nctsHCCI_AdditionalInformation_3_Text IsNot Nothing Then TM.Text = pp.nctsHCCI_AdditionalInformation_3_Text + HCCI.AdditionalInformation.Add(TM) + End If + 'ZusInformation 4 + If pp.nctsHCCI_AdditionalInformation_4_Text IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationPositionVAType + If pp.nctsHCCI_AdditionalInformation_4_Code IsNot Nothing Then TM.Code = pp.nctsHCCI_AdditionalInformation_4_Code + If pp.nctsHCCI_AdditionalInformation_4_Text IsNot Nothing Then TM.Text = pp.nctsHCCI_AdditionalInformation_4_Text + HCCI.AdditionalInformation.Add(TM) + End If + 'ZusInformation 5 + If pp.nctsHCCI_AdditionalInformation_5_Text IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationPositionVAType + If pp.nctsHCCI_AdditionalInformation_5_Code IsNot Nothing Then TM.Code = pp.nctsHCCI_AdditionalInformation_5_Code + If pp.nctsHCCI_AdditionalInformation_5_Text IsNot Nothing Then TM.Text = pp.nctsHCCI_AdditionalInformation_5_Text + HCCI.AdditionalInformation.Add(TM) + End If + 'ZusInformation 6 + If pp.nctsHCCI_AdditionalInformation_6_Text IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationPositionVAType + If pp.nctsHCCI_AdditionalInformation_6_Code IsNot Nothing Then TM.Code = pp.nctsHCCI_AdditionalInformation_6_Code + If pp.nctsHCCI_AdditionalInformation_6_Text IsNot Nothing Then TM.Text = pp.nctsHCCI_AdditionalInformation_6_Text + HCCI.AdditionalInformation.Add(TM) + End If + 'ZusInformation 7 + If pp.nctsHCCI_AdditionalInformation_7_Text IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationPositionVAType + If pp.nctsHCCI_AdditionalInformation_7_Code IsNot Nothing Then TM.Code = pp.nctsHCCI_AdditionalInformation_7_Code + If pp.nctsHCCI_AdditionalInformation_7_Text IsNot Nothing Then TM.Text = pp.nctsHCCI_AdditionalInformation_7_Text + HCCI.AdditionalInformation.Add(TM) + End If + 'ZusInformation 8 + If pp.nctsHCCI_AdditionalInformation_8_Text IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationPositionVAType + If pp.nctsHCCI_AdditionalInformation_8_Code IsNot Nothing Then TM.Code = pp.nctsHCCI_AdditionalInformation_8_Code + If pp.nctsHCCI_AdditionalInformation_8_Text IsNot Nothing Then TM.Text = pp.nctsHCCI_AdditionalInformation_8_Text + HCCI.AdditionalInformation.Add(TM) + End If + 'ZusInformation 9 + If pp.nctsHCCI_AdditionalInformation_9_Text IsNot Nothing Then + Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationPositionVAType + If pp.nctsHCCI_AdditionalInformation_9_Code IsNot Nothing Then TM.code = pp.nctsHCCI_AdditionalInformation_9_Code + If pp.nctsHCCI_AdditionalInformation_9_Text IsNot Nothing Then TM.text = pp.nctsHCCI_AdditionalInformation_9_Text + HCCI.AdditionalInformation.Add(TM) + End If + + + HC.ConsignmentItem.Add(HCCI) + Next + End If + + XML.EinzelVersandanmeldung.TransitOperation.HouseConsignment.Add(HC) + + + Next + End If + + Dim saveDir = Application.StartupPath & "\Dakosy_SEND\" + If Not System.IO.Directory.Exists(saveDir) Then + System.IO.Directory.CreateDirectory(saveDir) + End If + + saveFile = saveDir & "DY_" & Now.ToString("yyMMdd_HHmmss") & ".xml" + + XML.SaveToFile(saveFile) + + replaceNullDateXML(saveFile) + + Return True + End Function + + Shared Function generateVersandanmeldungAES(cDY As cDakosyAES, ByRef saveFile As String, DY_ACTION As String) As Boolean diff --git a/SDL/ZOLLSYSTEM/DAKOSY/frmZollanmeldung.vb b/SDL/ZOLLSYSTEM/DAKOSY/frmZollanmeldung.vb index b3ed8279..e09a8494 100644 --- a/SDL/ZOLLSYSTEM/DAKOSY/frmZollanmeldung.vb +++ b/SDL/ZOLLSYSTEM/DAKOSY/frmZollanmeldung.vb @@ -189,19 +189,23 @@ End If If Me.DY Is Nothing Then - Dim usrcntl As New usrCntlATLAS_NCTS(ART, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF, FIRMA_DY) + Dim usrcntl As New usrCntlATLAS_NCTS004(ART, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF, FIRMA_DY) usrcntl.Dock = DockStyle.Fill Me.pnl.Controls.Add(usrcntl) Else - Dim usrcntl As New usrCntlATLAS_NCTS(DY, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF) - usrcntl.Dock = DockStyle.Fill - Me.pnl.Controls.Add(usrcntl) + If Me.DY.dy_Erstellung >= "24.09.2023" Then + Dim usrcntl As New usrCntlATLAS_NCTS004(DY, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF) + usrcntl.Dock = DockStyle.Fill + Me.pnl.Controls.Add(usrcntl) + Else + Dim usrcntl As New usrCntlATLAS_NCTS(DY, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF) + usrcntl.Dock = DockStyle.Fill + Me.pnl.Controls.Add(usrcntl) + End If End If - - Case "AES", "EX", "EU", "CO" If Me.DY Is Nothing Then diff --git a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb index 6bfc57dc..50e0ac94 100644 --- a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb +++ b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb @@ -342,7 +342,7 @@ Public Class KdSearchBox SQLstr &= " INNER JOIN Filialen on Filialen.FilialenNr=isnull(Kunden.FilialenNr,4803) " SQLstr &= " WHERE 1=1 " SQLstr &= " AND ( " - SQLstr &= " Ordnungsbegriff LIKE '" & srch & "%' " + SQLstr &= " Ordnungsbegriff COLLATE Latin1_General_CI_AI LIKE '" & srch & "%' COLLATE Latin1_General_CI_AI " If IsNumeric(srch) Then SQLstr &= " OR AdressenNr LIKE '" & srch & "%' " If _searchName1 Then SQLstr &= " OR Adressen.[Name 1] LIKE '" & srch & "%' " SQLstr &= " ) " @@ -426,7 +426,7 @@ Public Class KdSearchBox SQLstr &= " INNER JOIN Filialen on Filialen.FilialenNr=isnull(Kunden.FilialenNr,4803) " SQLstr &= " WHERE 1=1 " SQLstr &= " AND ( " - SQLstr &= " Ordnungsbegriff LIKE '" & srch & "%' " + SQLstr &= " Ordnungsbegriff COLLATE Latin1_General_CI_AI LIKE '" & srch & "%' COLLATE Latin1_General_CI_AI " If IsNumeric(srch) Then SQLstr &= " OR AdressenNr LIKE '" & srch & "%' " If _searchName1 Then SQLstr &= " OR Adressen.[Name 1] LIKE '" & srch & "%' " SQLstr &= " ) " diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb b/VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb index 2c0c6f96..c1f42bab 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb @@ -77,6 +77,8 @@ Public Class cMitarbeiter Property mit_MAVerzeichnis_Spitzname As Object = Nothing Property mit_foto_DocId As Object = Nothing + Property mit_fotoHover1_DocId As Object = Nothing + Property mit_fotoHover2_DocId As Object = Nothing Property mit_sprache As String = "DE" Property mit_fakturierungsgruppe As String = "" Property mit_CSuser As Object = Nothing @@ -183,6 +185,8 @@ Public Class cMitarbeiter list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_MAVerzeichnis_Motto", mit_MAVerzeichnis_Motto)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_MAVerzeichnis_Spitzname", mit_MAVerzeichnis_Spitzname)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_foto_DocId", mit_foto_DocId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_fotoHover1_DocId", mit_fotoHover1_DocId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_fotoHover2_DocId", mit_fotoHover2_DocId)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_sprache", mit_sprache)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_fakturierungsgruppe", mit_fakturierungsgruppe)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_CSuser", mit_CSuser)) @@ -375,6 +379,8 @@ Public Class cMitarbeiter Me.mit_MAVerzeichnis_allowFoto = dr.Item("mit_MAVerzeichnis_allowFoto") If Not dr.Item("mit_foto_DocId") Is DBNull.Value Then Me.mit_foto_DocId = dr.Item("mit_foto_DocId") + If Not dr.Item("mit_fotoHover1_DocId") Is DBNull.Value Then Me.mit_fotoHover1_DocId = dr.Item("mit_fotoHover1_DocId") + If Not dr.Item("mit_fotoHover2_DocId") Is DBNull.Value Then Me.mit_fotoHover2_DocId = dr.Item("mit_fotoHover2_DocId") If Not dr.Item("mit_MAVerzeichnis_Spitzname") Is DBNull.Value Then Me.mit_MAVerzeichnis_Spitzname = dr.Item("mit_MAVerzeichnis_Spitzname") If Not dr.Item("mit_MAVerzeichnis_Motto") Is DBNull.Value Then Me.mit_MAVerzeichnis_Motto = dr.Item("mit_MAVerzeichnis_Motto") If Not dr.Item("mit_sprache") Is DBNull.Value Then Me.mit_sprache = dr.Item("mit_sprache") diff --git a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb index 26b9ceba..f5663110 100644 --- a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb +++ b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb @@ -1,6 +1,7 @@ Imports System.ComponentModel Imports System.Drawing Imports System.Net +Imports System.Windows.Forms Imports VERAG_PROG_ALLGEMEIN.cCreditSafeAPI Public Class frmMitarbeitersuche @@ -8,6 +9,8 @@ Public Class frmMitarbeitersuche Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Dim timas As New cTimasAPI Dim requestDone As Boolean = False + Dim MA As cMitarbeiter = Nothing + Sub New() ' Dieser Aufruf ist für den Designer erforderlich. @@ -65,9 +68,11 @@ Public Class frmMitarbeitersuche lblTimasSaldo.Visible = False Panel1.Visible = False btnSettings.Visible = False - Dim MA As cMitarbeiter = Nothing + ' Dim MA As cMitarbeiter = Nothing If sbMitarbeiter._value <> "" Then MA = New cMitarbeiter(sbMitarbeiter._value) + Else + MA = Nothing End If If MA Is Nothing Then @@ -152,6 +157,7 @@ Public Class frmMitarbeitersuche Case Else PictureBox3.BackgroundImage = Nothing End Select + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMINFUNCTIONS", "SDL") Then btn.Visible = True btnSettings.Visible = True @@ -387,4 +393,64 @@ Public Class frmMitarbeitersuche Dim webAddress As String = "https://zeit.verag.ag/webterminal/" Process.Start(webAddress) End Sub + + + + Sub setBGPic(art, MA) + HOVER_ART = art + If art = "" Or MA Is Nothing Then + pic.BackgroundImage = My.Resources.personGray_m + picGeschlecht.Visible = True + + + If MA.mit_geschlecht = "w" Then + pic.BackgroundImage = My.Resources.personGray_w + picGeschlecht.BackgroundImage = My.Resources.weiblich + Else + pic.BackgroundImage = My.Resources.personGray_m + picGeschlecht.BackgroundImage = My.Resources.männlich + End If + If MA Is Nothing Then Exit Sub + End If + + If MA.mit_MAVerzeichnis_allowFoto Then + Try + Select Case art + Case "HOVER1" : If MA.mit_fotoHover1_DocId IsNot Nothing Then pic.BackgroundImage = Image.FromFile(cDATENSERVER.GET_PDFPath_BY_DocID(MA.mit_fotoHover1_DocId)) + Case "HOVER2" : If MA.mit_fotoHover2_DocId IsNot Nothing Then pic.BackgroundImage = Image.FromFile(cDATENSERVER.GET_PDFPath_BY_DocID(MA.mit_fotoHover2_DocId)) + Case Else : If MA.mit_foto_DocId IsNot Nothing Then pic.BackgroundImage = Image.FromFile(cDATENSERVER.GET_PDFPath_BY_DocID(MA.mit_foto_DocId)) + End Select + Catch ex As Exception + pic.BackgroundImage = My.Resources.personGray_m + End Try + End If + + + End Sub + Private Sub pic_MouseHover(sender As Object, e As EventArgs) Handles pic.MouseHover + Dim point + pic.PointToClient(point) + + End Sub + + + Dim HOVER_ART = "" + Private Sub pic_MouseMove(sender As Object, e As MouseEventArgs) Handles pic.MouseMove + Dim art = "" + + If e.X < pic.Size.Width / 2 Then + art = "HOVER1" + Else + art = "HOVER2" + End If + If art <> HOVER_ART Then + setBGPic(art, MA) + End If + End Sub + + Private Sub pic_MouseLeave(sender As Object, e As EventArgs) Handles pic.MouseLeave + If HOVER_ART <> "" Then + setBGPic("", MA) + End If + End Sub End Class \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersucheBearbeiten.Designer.vb b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersucheBearbeiten.Designer.vb index 834b91b0..fe61e8e0 100644 --- a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersucheBearbeiten.Designer.vb +++ b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersucheBearbeiten.Designer.vb @@ -26,6 +26,10 @@ Partial Class frmMitarbeitersucheBearbeiten Me.pnlSrch = New System.Windows.Forms.Panel() Me.btnClose = New System.Windows.Forms.Button() Me.pnlMain = New System.Windows.Forms.Panel() + Me.Label1 = New System.Windows.Forms.Label() + Me.PictureBox2 = New System.Windows.Forms.PictureBox() + Me.PictureBox1 = New System.Windows.Forms.PictureBox() + Me.cbxAllowFoto = New System.Windows.Forms.CheckBox() Me.btn = New System.Windows.Forms.Button() Me.txtMotto = New System.Windows.Forms.TextBox() Me.cbxMotto = New System.Windows.Forms.CheckBox() @@ -40,10 +44,13 @@ Partial Class frmMitarbeitersucheBearbeiten Me.lblWohnadresse = New System.Windows.Forms.Label() Me.lblName = New System.Windows.Forms.Label() Me.pic = New System.Windows.Forms.PictureBox() - Me.cbxAllowFoto = New System.Windows.Forms.CheckBox() + Me.pnlHoverPic = New System.Windows.Forms.Panel() Me.pnlSrch.SuspendLayout() Me.pnlMain.SuspendLayout() + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnlHoverPic.SuspendLayout() Me.SuspendLayout() ' 'pnlSrch @@ -92,12 +99,56 @@ Partial Class frmMitarbeitersucheBearbeiten Me.pnlMain.Controls.Add(Me.lblWohnadresse) Me.pnlMain.Controls.Add(Me.lblName) Me.pnlMain.Controls.Add(Me.pic) + Me.pnlMain.Controls.Add(Me.pnlHoverPic) Me.pnlMain.Dock = System.Windows.Forms.DockStyle.Fill Me.pnlMain.Location = New System.Drawing.Point(0, 29) Me.pnlMain.Name = "pnlMain" Me.pnlMain.Size = New System.Drawing.Size(703, 335) Me.pnlMain.TabIndex = 1 ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!) + Me.Label1.Location = New System.Drawing.Point(4, 1) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(98, 24) + Me.Label1.TabIndex = 36 + Me.Label1.Text = "Hover-Pic:" + ' + 'PictureBox2 + ' + Me.PictureBox2.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.personGray_m + Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.PictureBox2.Cursor = System.Windows.Forms.Cursors.Hand + Me.PictureBox2.Location = New System.Drawing.Point(77, 29) + Me.PictureBox2.Name = "PictureBox2" + Me.PictureBox2.Size = New System.Drawing.Size(63, 59) + Me.PictureBox2.TabIndex = 35 + Me.PictureBox2.TabStop = False + ' + 'PictureBox1 + ' + Me.PictureBox1.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.personGray_m + Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.PictureBox1.Cursor = System.Windows.Forms.Cursors.Hand + Me.PictureBox1.Location = New System.Drawing.Point(8, 29) + Me.PictureBox1.Name = "PictureBox1" + Me.PictureBox1.Size = New System.Drawing.Size(63, 59) + Me.PictureBox1.TabIndex = 34 + Me.PictureBox1.TabStop = False + ' + 'cbxAllowFoto + ' + Me.cbxAllowFoto.AutoSize = True + Me.cbxAllowFoto.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!) + Me.cbxAllowFoto.Location = New System.Drawing.Point(7, 187) + Me.cbxAllowFoto.Name = "cbxAllowFoto" + Me.cbxAllowFoto.Size = New System.Drawing.Size(150, 28) + Me.cbxAllowFoto.TabIndex = 33 + Me.cbxAllowFoto.Text = "Foto anzeigen" + Me.cbxAllowFoto.UseVisualStyleBackColor = True + ' 'btn ' Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat @@ -241,16 +292,16 @@ Partial Class frmMitarbeitersucheBearbeiten Me.pic.TabIndex = 0 Me.pic.TabStop = False ' - 'cbxAllowFoto + 'pnlHoverPic ' - Me.cbxAllowFoto.AutoSize = True - Me.cbxAllowFoto.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!) - Me.cbxAllowFoto.Location = New System.Drawing.Point(7, 187) - Me.cbxAllowFoto.Name = "cbxAllowFoto" - Me.cbxAllowFoto.Size = New System.Drawing.Size(150, 28) - Me.cbxAllowFoto.TabIndex = 33 - Me.cbxAllowFoto.Text = "Foto anzeigen" - Me.cbxAllowFoto.UseVisualStyleBackColor = True + Me.pnlHoverPic.Controls.Add(Me.Label1) + Me.pnlHoverPic.Controls.Add(Me.PictureBox2) + Me.pnlHoverPic.Controls.Add(Me.PictureBox1) + Me.pnlHoverPic.Location = New System.Drawing.Point(-1, 232) + Me.pnlHoverPic.Name = "pnlHoverPic" + Me.pnlHoverPic.Size = New System.Drawing.Size(181, 100) + Me.pnlHoverPic.TabIndex = 37 + Me.pnlHoverPic.Visible = False ' 'frmMitarbeitersucheBearbeiten ' @@ -268,7 +319,11 @@ Partial Class frmMitarbeitersucheBearbeiten Me.pnlSrch.ResumeLayout(False) Me.pnlMain.ResumeLayout(False) Me.pnlMain.PerformLayout() + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnlHoverPic.ResumeLayout(False) + Me.pnlHoverPic.PerformLayout() Me.ResumeLayout(False) End Sub @@ -291,4 +346,8 @@ Partial Class frmMitarbeitersucheBearbeiten Friend WithEvents cbxGeburtsdatum As Windows.Forms.CheckBox Friend WithEvents cbxWohnort As Windows.Forms.CheckBox Friend WithEvents cbxAllowFoto As Windows.Forms.CheckBox + Friend WithEvents Label1 As Windows.Forms.Label + Friend WithEvents PictureBox2 As Windows.Forms.PictureBox + Friend WithEvents PictureBox1 As Windows.Forms.PictureBox + Friend WithEvents pnlHoverPic As Windows.Forms.Panel End Class diff --git a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersucheBearbeiten.vb b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersucheBearbeiten.vb index 243b8a61..df11b47f 100644 --- a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersucheBearbeiten.vb +++ b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersucheBearbeiten.vb @@ -19,6 +19,11 @@ Public Class frmMitarbeitersucheBearbeiten Private Sub frmMitarbeitersuche_Load(sender As Object, e As EventArgs) Handles Me.Load If MA Is Nothing Then Me.Close() initMA() + + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", "SDL") Then + pnlHoverPic.Visible = True + End If + End Sub @@ -59,6 +64,29 @@ Public Class frmMitarbeitersucheBearbeiten pic.BackgroundImage = My.Resources.personGray_m End If + If MA.mit_fotoHover1_DocId IsNot Nothing Then + Try + PictureBox1.BackgroundImage = Image.FromFile(cDATENSERVER.GET_PDFPath_BY_DocID(MA.mit_fotoHover1_DocId)) + Catch ex As Exception + PictureBox1.BackgroundImage = My.Resources.personGray_m + End Try + ElseIf MA.mit_geschlecht = "w" Then + PictureBox1.BackgroundImage = My.Resources.personGray_w + Else + PictureBox1.BackgroundImage = My.Resources.personGray_m + End If + + If MA.mit_fotoHover2_DocId IsNot Nothing Then + Try + PictureBox2.BackgroundImage = Image.FromFile(cDATENSERVER.GET_PDFPath_BY_DocID(MA.mit_fotoHover2_DocId)) + Catch ex As Exception + PictureBox2.BackgroundImage = My.Resources.personGray_m + End Try + ElseIf MA.mit_geschlecht = "w" Then + PictureBox2.BackgroundImage = My.Resources.personGray_w + Else + PictureBox2.BackgroundImage = My.Resources.personGray_m + End If End Sub Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click @@ -129,7 +157,7 @@ Public Class frmMitarbeitersucheBearbeiten Dim Extension = New IO.FileInfo(fd.FileName).Extension Dim docId = -1 - If saveToDS(Extension, fd.FileName, docId) Then + If saveToDS(Extension, fd.FileName, "FRONT", docId) Then MA.mit_foto_DocId = docId Try @@ -141,13 +169,13 @@ Public Class frmMitarbeitersucheBearbeiten End If End Sub - Public Function saveToDS(Extension, sourcePath, Optional ByRef da_id = -1) As Boolean + Public Function saveToDS(Extension, sourcePath, art, Optional ByRef da_id = -1) As Boolean Dim DS As VERAG_PROG_ALLGEMEIN.cDATENSERVER = Nothing If da_id > 0 Then DS = New cDATENSERVER(da_id) Else - DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "MITARBEITER", "PERSONAL_FOTOS", "", "", MA.mit_nname & "_" & MA.mit_id & Extension, -1, False) + DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "MITARBEITER", "PERSONAL_FOTOS", "", "", MA.mit_nname & "_" & MA.mit_id & "_" & art & Extension, -1, False) End If ' Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "MITARBEITER", "PERSONAL_FOTOS", "", "", MA.mit_nname & "_" & MA.mit_id, -1, False) @@ -159,4 +187,53 @@ Public Class frmMitarbeitersucheBearbeiten Return True End Function + Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click + Dim fd As Windows.Forms.OpenFileDialog = New Windows.Forms.OpenFileDialog() + + fd.Title = "Bild auswählen" + ' fd.InitialDirectory = "F:\PROGRAMME\ADMIN_DATA\Fotos_Mitarbeiter\" + fd.Filter = "Image Files(*.BMP;*.JPG;*.GIF;*.PNG)|*.BMP;*.JPG;*.GIF;*.PNG" + fd.FilterIndex = 2 + fd.RestoreDirectory = True + + If fd.ShowDialog() = DialogResult.OK AndAlso fd.FileName <> "" Then + + Dim Extension = New IO.FileInfo(fd.FileName).Extension + Dim docId = -1 + If saveToDS(Extension, fd.FileName, "HOVER1", docId) Then + + MA.mit_fotoHover1_DocId = docId + Try + PictureBox1.BackgroundImage = Image.FromFile(cDATENSERVER.GET_PDFPath_BY_DocID(MA.mit_fotoHover1_DocId)) + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + End If + End If + End Sub + + Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click + Dim fd As Windows.Forms.OpenFileDialog = New Windows.Forms.OpenFileDialog() + + fd.Title = "Bild auswählen" + ' fd.InitialDirectory = "F:\PROGRAMME\ADMIN_DATA\Fotos_Mitarbeiter\" + fd.Filter = "Image Files(*.BMP;*.JPG;*.GIF;*.PNG)|*.BMP;*.JPG;*.GIF;*.PNG" + fd.FilterIndex = 2 + fd.RestoreDirectory = True + + If fd.ShowDialog() = DialogResult.OK AndAlso fd.FileName <> "" Then + + Dim Extension = New IO.FileInfo(fd.FileName).Extension + Dim docId = -1 + If saveToDS(Extension, fd.FileName, "HOVER2", docId) Then + + MA.mit_fotoHover2_DocId = docId + Try + PictureBox2.BackgroundImage = Image.FromFile(cDATENSERVER.GET_PDFPath_BY_DocID(MA.mit_fotoHover2_DocId)) + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + End If + End If + End Sub End Class \ No newline at end of file