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

EXG Auto NCTS

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-10-14 16:37:05 +02:00
parent 36c9fb0750
commit ff29ef6e57
7 changed files with 560 additions and 441 deletions
Download Patch File Download Diff File Expand all files Collapse all files

412
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EXGestellung/usrCntlATLAS_EXGestellung.Designer.vb generated
View File

@@ -24,15 +24,28 @@ Partial Class usrCntlATLAS_EXGestellung
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.pnl = New System.Windows.Forms.Panel()
Me.cboDakosyAction = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.Label5 = New System.Windows.Forms.Label()
Me.Button2 = New System.Windows.Forms.Button()
Me.cbxNCTS = New System.Windows.Forms.CheckBox()
Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
Me.Button3 = New System.Windows.Forms.Button()
Me.Label7 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.sbAbgangZollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.rtbMRN = New System.Windows.Forms.RichTextBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.cboStammreferenz = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.MyPanel2 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
Me.cbxAutoTranslate = New System.Windows.Forms.CheckBox()
Me.cbxForceTranslate = New System.Windows.Forms.CheckBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.lblBezugsnummer = New System.Windows.Forms.Label()
Me.cntxtBezugsnr = New System.Windows.Forms.ContextMenuStrip(Me.components)
@@ -42,26 +55,23 @@ Partial Class usrCntlATLAS_EXGestellung
Me.txtDyNiederlassung = New System.Windows.Forms.Label()
Me.MenuStrip = New System.Windows.Forms.MenuStrip()
Me.OptionenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.Button2 = New System.Windows.Forms.Button()
Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components)
Me.btnAllgemein = New System.Windows.Forms.Button()
Me.cboDakosyAction = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
Me.cbxAutoTranslate = New System.Windows.Forms.CheckBox()
Me.cbxForceTranslate = New System.Windows.Forms.CheckBox()
Me.sbAbgangZollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.cboStammreferenz = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.cboStammreferenz2 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label8 = New System.Windows.Forms.Label()
Me.Panel3 = New System.Windows.Forms.Panel()
CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer.Panel1.SuspendLayout()
Me.SplitContainer.Panel2.SuspendLayout()
Me.SplitContainer.SuspendLayout()
Me.MyFlowLayoutPanel1.SuspendLayout()
Me.pnl.SuspendLayout()
Me.MyPanel1.SuspendLayout()
Me.MyPanel2.SuspendLayout()
Me.cntxtBezugsnr.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.MenuStrip.SuspendLayout()
Me.MyFlowLayoutPanel1.SuspendLayout()
Me.MyPanel1.SuspendLayout()
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel3.SuspendLayout()
Me.SuspendLayout()
'
'SplitContainer
@@ -94,11 +104,42 @@ Partial Class usrCntlATLAS_EXGestellung
Me.SplitContainer.Panel2.Controls.Add(Me.Label2)
Me.SplitContainer.Panel2.Controls.Add(Me.cboStammreferenz)
Me.SplitContainer.Panel2.Controls.Add(Me.Label6)
Me.SplitContainer.Panel2.Controls.Add(Me.MyPanel2)
Me.SplitContainer.Panel2.Controls.Add(Me.Panel3)
Me.SplitContainer.Size = New System.Drawing.Size(1014, 633)
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.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(653, 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
'
'pnl
'
Me.pnl.BackColor = System.Drawing.Color.WhiteSmoke
@@ -110,6 +151,20 @@ Partial Class usrCntlATLAS_EXGestellung
Me.pnl.Size = New System.Drawing.Size(361, 72)
Me.pnl.TabIndex = 1
'
'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(159, 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)
@@ -126,18 +181,84 @@ Partial Class usrCntlATLAS_EXGestellung
Me.Button1.Text = "An DAKOSY senden -->"
Me.Button1.UseVisualStyleBackColor = False
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(253, 7)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(83, 13)
Me.Label5.TabIndex = 23
Me.Label5.Text = "Firma wechseln:"
Me.Label5.TextAlign = System.Drawing.ContentAlignment.TopRight
Me.Label5.Visible = False
'
'Button2
'
Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button2.BackColor = System.Drawing.Color.White
Me.Button2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button2.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.Button2.Location = New System.Drawing.Point(341, 2)
Me.Button2.Margin = New System.Windows.Forms.Padding(2)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(83, 22)
Me.Button2.TabIndex = 22
Me.Button2.Text = "UNISPED"
Me.Button2.UseVisualStyleBackColor = False
Me.Button2.Visible = False
'
'cbxNCTS
'
Me.cbxNCTS.AutoSize = True
Me.cbxNCTS.Checked = True
Me.cbxNCTS.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxNCTS.Location = New System.Drawing.Point(474, 31)
Me.cbxNCTS.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Underline)
Me.cbxNCTS.Location = New System.Drawing.Point(474, 19)
Me.cbxNCTS.Name = "cbxNCTS"
Me.cbxNCTS.Size = New System.Drawing.Size(98, 17)
Me.cbxNCTS.Size = New System.Drawing.Size(123, 21)
Me.cbxNCTS.TabIndex = 21
Me.cbxNCTS.Text = "NCTS Erstellen"
Me.cbxNCTS.UseVisualStyleBackColor = True
'
'MyPanel1
'
Me.MyPanel1.BackColor = System.Drawing.Color.WhiteSmoke
Me.MyPanel1.Controls.Add(Me.MyDatagridview1)
Me.MyPanel1.Controls.Add(Me.Label7)
Me.MyPanel1.Enabled = False
Me.MyPanel1.Location = New System.Drawing.Point(454, 88)
Me.MyPanel1.Name = "MyPanel1"
Me.MyPanel1.Size = New System.Drawing.Size(560, 472)
Me.MyPanel1.TabIndex = 20
Me.MyPanel1.Visible = False
'
'Button3
'
Me.Button3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button3.BackColor = System.Drawing.Color.White
Me.Button3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button3.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.Button3.Location = New System.Drawing.Point(9, 2)
Me.Button3.Margin = New System.Windows.Forms.Padding(2)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(159, 42)
Me.Button3.TabIndex = 25
Me.Button3.Text = "NCTS an DAKOSY senden -->"
Me.Button3.UseVisualStyleBackColor = False
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label7.Location = New System.Drawing.Point(17, 35)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(93, 13)
Me.Label7.TabIndex = 24
Me.Label7.Text = "EXG gefunden:"
Me.Label7.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'Label4
'
Me.Label4.AutoSize = True
@@ -156,6 +277,31 @@ Partial Class usrCntlATLAS_EXGestellung
Me.TextBox1.Size = New System.Drawing.Size(25, 20)
Me.TextBox1.TabIndex = 18
'
'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(145, 56)
Me.sbAbgangZollstelle.Name = "sbAbgangZollstelle"
Me.sbAbgangZollstelle.searchActive = True
Me.sbAbgangZollstelle.Size = New System.Drawing.Size(183, 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 = 17
Me.sbAbgangZollstelle.usrcntl = Nothing
'
'Label3
'
Me.Label3.AutoSize = True
@@ -184,6 +330,20 @@ Partial Class usrCntlATLAS_EXGestellung
Me.Label2.Text = "NCTS-Vorpapier (MRN):"
Me.Label2.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(144, 27)
Me.cboStammreferenz.Name = "cboStammreferenz"
Me.cboStammreferenz.Size = New System.Drawing.Size(280, 21)
Me.cboStammreferenz.TabIndex = 11
'
'Label6
'
Me.Label6.AutoSize = True
@@ -194,6 +354,40 @@ Partial Class usrCntlATLAS_EXGestellung
Me.Label6.Text = "Stammref.:"
Me.Label6.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'MyPanel2
'
Me.MyPanel2.BackColor = System.Drawing.Color.WhiteSmoke
Me.MyPanel2.Controls.Add(Me.cboStammreferenz2)
Me.MyPanel2.Controls.Add(Me.cbxAutoTranslate)
Me.MyPanel2.Controls.Add(Me.Label8)
Me.MyPanel2.Controls.Add(Me.cbxForceTranslate)
Me.MyPanel2.Enabled = False
Me.MyPanel2.Location = New System.Drawing.Point(454, 41)
Me.MyPanel2.Name = "MyPanel2"
Me.MyPanel2.Size = New System.Drawing.Size(393, 49)
Me.MyPanel2.TabIndex = 26
Me.MyPanel2.Visible = False
'
'cbxAutoTranslate
'
Me.cbxAutoTranslate.AutoSize = True
Me.cbxAutoTranslate.Location = New System.Drawing.Point(20, 5)
Me.cbxAutoTranslate.Name = "cbxAutoTranslate"
Me.cbxAutoTranslate.Size = New System.Drawing.Size(162, 17)
Me.cbxAutoTranslate.TabIndex = 22
Me.cbxAutoTranslate.Text = "KN8 Texte bei nicht D-A-CH"
Me.cbxAutoTranslate.UseVisualStyleBackColor = True
'
'cbxForceTranslate
'
Me.cbxForceTranslate.AutoSize = True
Me.cbxForceTranslate.Location = New System.Drawing.Point(199, 5)
Me.cbxForceTranslate.Name = "cbxForceTranslate"
Me.cbxForceTranslate.Size = New System.Drawing.Size(137, 17)
Me.cbxForceTranslate.TabIndex = 23
Me.cbxForceTranslate.Text = "Übersetzung erzwingen"
Me.cbxForceTranslate.UseVisualStyleBackColor = True
'
'Label1
'
Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -278,147 +472,48 @@ Partial Class usrCntlATLAS_EXGestellung
Me.OptionenToolStripMenuItem.Size = New System.Drawing.Size(69, 20)
Me.OptionenToolStripMenuItem.Text = "Optionen"
'
'Button2
'MyDatagridview1
'
Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button2.BackColor = System.Drawing.Color.White
Me.Button2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button2.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.Button2.Location = New System.Drawing.Point(341, 2)
Me.Button2.Margin = New System.Windows.Forms.Padding(2)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(83, 22)
Me.Button2.TabIndex = 22
Me.Button2.Text = "UNISPED"
Me.Button2.UseVisualStyleBackColor = False
Me.Button2.Visible = False
Me.MyDatagridview1.AKTUALISIERUNGS_INTERVALL = -1
Me.MyDatagridview1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.MyDatagridview1.Location = New System.Drawing.Point(20, 51)
Me.MyDatagridview1.Name = "MyDatagridview1"
Me.MyDatagridview1.Size = New System.Drawing.Size(537, 398)
Me.MyDatagridview1.TabIndex = 26
'
'MyFlowLayoutPanel1
'cboStammreferenz2
'
Me.MyFlowLayoutPanel1.BackColor = System.Drawing.Color.WhiteSmoke
Me.MyFlowLayoutPanel1.Controls.Add(Me.btnAllgemein)
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(653, 72)
Me.MyFlowLayoutPanel1.TabIndex = 0
Me.cboStammreferenz2._allowedValuesFreiText = Nothing
Me.cboStammreferenz2._allowFreiText = False
Me.cboStammreferenz2._value = ""
Me.cboStammreferenz2.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.cboStammreferenz2.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboStammreferenz2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cboStammreferenz2.FormattingEnabled = True
Me.cboStammreferenz2.Location = New System.Drawing.Point(113, 22)
Me.cboStammreferenz2.Name = "cboStammreferenz2"
Me.cboStammreferenz2.Size = New System.Drawing.Size(271, 21)
Me.cboStammreferenz2.TabIndex = 27
'
'btnAllgemein
'Label8
'
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
Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(17, 25)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(57, 13)
Me.Label8.TabIndex = 28
Me.Label8.Text = "Stammref.:"
Me.Label8.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'cboDakosyAction
'Panel3
'
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(159, 21)
Me.cboDakosyAction.TabIndex = 1
'
'MyPanel1
'
Me.MyPanel1.Controls.Add(Me.cbxAutoTranslate)
Me.MyPanel1.Controls.Add(Me.cbxForceTranslate)
Me.MyPanel1.Enabled = False
Me.MyPanel1.Location = New System.Drawing.Point(454, 56)
Me.MyPanel1.Name = "MyPanel1"
Me.MyPanel1.Size = New System.Drawing.Size(560, 504)
Me.MyPanel1.TabIndex = 20
'
'cbxAutoTranslate
'
Me.cbxAutoTranslate.AutoSize = True
Me.cbxAutoTranslate.Checked = True
Me.cbxAutoTranslate.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxAutoTranslate.Location = New System.Drawing.Point(20, 15)
Me.cbxAutoTranslate.Name = "cbxAutoTranslate"
Me.cbxAutoTranslate.Size = New System.Drawing.Size(162, 17)
Me.cbxAutoTranslate.TabIndex = 22
Me.cbxAutoTranslate.Text = "KN8 Texte bei nicht D-A-CH"
Me.cbxAutoTranslate.UseVisualStyleBackColor = True
'
'cbxForceTranslate
'
Me.cbxForceTranslate.AutoSize = True
Me.cbxForceTranslate.Location = New System.Drawing.Point(199, 15)
Me.cbxForceTranslate.Name = "cbxForceTranslate"
Me.cbxForceTranslate.Size = New System.Drawing.Size(137, 17)
Me.cbxForceTranslate.TabIndex = 23
Me.cbxForceTranslate.Text = "Übersetzung erzwingen"
Me.cbxForceTranslate.UseVisualStyleBackColor = True
'
'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(145, 56)
Me.sbAbgangZollstelle.Name = "sbAbgangZollstelle"
Me.sbAbgangZollstelle.searchActive = True
Me.sbAbgangZollstelle.Size = New System.Drawing.Size(183, 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 = 17
Me.sbAbgangZollstelle.usrcntl = Nothing
'
'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(144, 27)
Me.cboStammreferenz.Name = "cboStammreferenz"
Me.cboStammreferenz.Size = New System.Drawing.Size(280, 21)
Me.cboStammreferenz.TabIndex = 11
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(253, 7)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(83, 13)
Me.Label5.TabIndex = 23
Me.Label5.Text = "Firma wechseln:"
Me.Label5.TextAlign = System.Drawing.ContentAlignment.TopRight
Me.Label5.Visible = False
Me.Panel3.BackColor = System.Drawing.Color.WhiteSmoke
Me.Panel3.Controls.Add(Me.Button3)
Me.Panel3.Location = New System.Drawing.Point(844, 41)
Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(170, 49)
Me.Panel3.TabIndex = 27
Me.Panel3.Visible = False
'
'usrCntlATLAS_EXGestellung
'
@@ -431,15 +526,19 @@ Partial Class usrCntlATLAS_EXGestellung
Me.SplitContainer.Panel2.PerformLayout()
CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainer.ResumeLayout(False)
Me.MyFlowLayoutPanel1.ResumeLayout(False)
Me.pnl.ResumeLayout(False)
Me.MyPanel1.ResumeLayout(False)
Me.MyPanel1.PerformLayout()
Me.MyPanel2.ResumeLayout(False)
Me.MyPanel2.PerformLayout()
Me.cntxtBezugsnr.ResumeLayout(False)
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
Me.MenuStrip.ResumeLayout(False)
Me.MenuStrip.PerformLayout()
Me.MyFlowLayoutPanel1.ResumeLayout(False)
Me.MyPanel1.ResumeLayout(False)
Me.MyPanel1.PerformLayout()
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel3.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
@@ -472,4 +571,11 @@ Partial Class usrCntlATLAS_EXGestellung
Friend WithEvents cbxAutoTranslate As CheckBox
Friend WithEvents Button2 As Button
Friend WithEvents Label5 As Label
Friend WithEvents Label7 As Label
Friend WithEvents Button3 As Button
Friend WithEvents MyPanel2 As VERAG_PROG_ALLGEMEIN.MyPanel
Friend WithEvents cboStammreferenz2 As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label8 As Label
Friend WithEvents MyDatagridview1 As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents Panel3 As Panel
End Class

328
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EXGestellung/usrCntlATLAS_EXGestellung.vb
View File

@@ -1,4 +1,5 @@
Imports com.sun.tools.doclets.internal.toolkit.util
Imports System.Data.SqlClient
Imports com.sun.tools.doclets.internal.toolkit.util
Imports DAKOSY_Worker
Public Class usrCntlATLAS_EXGestellung
@@ -52,15 +53,70 @@ Public Class usrCntlATLAS_EXGestellung
End If
initStammref()
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("EXG_2_NCTS", "AVISO") Then
initEXGs()
Else
Panel3.Visible = False
MyPanel2.Visible = False
MyPanel1.Visible = False
End If
End Sub
Sub initEXGs()
MyPanel1.Visible = False
Panel3.Visible = False
MyDatagridview1.DataSource = Nothing
If SENDUNG Is Nothing Then Exit Sub
Dim bezugsNr As String = SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Try
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Dim query As String = "SELECT exg_Id, exg_ObjectName, exg_MRN, exg_CustomsOfficeOfExitForTransitDeclared, exg_Consignor_Name " &
"FROM tblDakosy_EXG " &
"WHERE exg_ObjectName LIKE @bezugsNr " &
"ORDER BY exg_Trans_DatumZeit"
Using cmd As New SqlCommand(query, conn)
cmd.Parameters.AddWithValue("@bezugsNr", bezugsNr.Replace("[", "[[]").Replace("%", "[%]").Replace("_", "[_]") & "[_]EXG[0-9]%")
Dim dt As New DataTable
Using adapter As New SqlDataAdapter(cmd)
adapter.Fill(dt)
End Using
If dt.Rows.Count > 0 Then
MyDatagridview1.DataSource = dt
MyPanel2.Visible = True
MyPanel2.Enabled = True
MyPanel1.Visible = True
Panel3.Visible = True
MyPanel1.Enabled = True
MyDatagridview1.Columns("exg_Id").Visible = False
MyDatagridview1.Columns("exg_ObjectName").HeaderText = "Bezugsnummer"
MyDatagridview1.Columns("exg_Consignor_Name").HeaderText = "Versender"
MyDatagridview1.Columns("exg_MRN").HeaderText = "MRN"
MyDatagridview1.Columns("exg_CustomsOfficeOfExitForTransitDeclared").HeaderText = "Ausgangszollstelle"
MyDatagridview1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
End If
End Using
End Using
Catch ex As Exception
MsgBox("Fehler beim Laden der EXG-Datensätze:" & vbCrLf & ex.Message & ex.StackTrace)
End Try
End Sub
Sub initStammref()
Select Case FIRMA_DY
Case "VERAG"
txtDyMandant.Text = "VERG"
txtDyNiederlassung.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
txtDyNiederlassung.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
Case "ATILLA"
txtDyMandant.Text = "ATIL"
@@ -68,7 +124,7 @@ Public Class usrCntlATLAS_EXGestellung
Case "UNISPED"
txtDyMandant.Text = "UNAT"
txtDyNiederlassung.Text = "SUB"
txtDyNiederlassung.Text = "ATSPED"'"SUB"
Case "IMEX"
txtDyMandant.Text = "IMEX"
@@ -103,6 +159,12 @@ Public Class usrCntlATLAS_EXGestellung
If cboStammreferenz.Items.Count = 2 Then
cboStammreferenz.SelectedIndex = 1
End If
cboStammreferenz2.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.Replace("DTB", "SUB") & "') and dySr_visible=1", False, "FMZOLL", True)
cboStammreferenz2.changeItem("")
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
@@ -148,104 +210,31 @@ Public Class usrCntlATLAS_EXGestellung
Next
If Not err Then
If cbxNCTS.Checked Then
'Es wird gleich eine NCTS Nachricht erstellt, die BEfüllung erfolge nach Verarbeitung der EXG -> bei der letzten wird der NCTS Datensatz gesendet
Dim NCTS_OUT = usrCntlATLAS_NCTS004.genNCTSfromStammref(Me, FIRMA_DY, AVISO, SENDUNG, "")
If NCTS_OUT Is Nothing Then
MsgBox("NCTS-Entwurf konnte nicht erstellt werden!")
Exit Sub
End If
If NCTS_OUT.ncts_Id <= 0 OrElse NCTS_OUT.ncts_dyaAnmID <= 0 Then
MsgBox("NCTS-Entwurf hat keine gültige ID!")
Exit Sub
End If
NCTS_OUT.ncts_HOUSE_CONSIGNMENT.Clear()
NCTS_OUT.DELETE_HouseConsignment()
If NCTS_OUT IsNot Nothing AndAlso NCTS_OUT.ncts_Id > 0 Then
MsgBox("Eine neue Versandanmeldung mit der BezugsNummer '" & NCTS_OUT.ncts_ObjectName & "' wurde erstellt. Befüllung wird bei Gestellvorgang automatisch vorgenommen.")
lblBezugsnummer.Text = NCTS_OUT.ncts_ObjectName
For Each exgId In exg_list
MsgBox(NCTS_OUT.ncts_dyaAnmID)
cDakosyEXG.UPDATE_FillNCTS_ID(exgId, NCTS_OUT.ncts_dyaAnmID)
Next
If Not NCTS_OUT.SAVE_ALL() Then
MsgBox("NCTS-Entwurf konnte nicht gespeichert werden!")
Exit Sub
End If
'Dim BezugsNr = ""
'Dim NCTS_OUT As New DAKOSY_Worker.cDakosyNCTSOut004
'Dim f As New frmDakosyStammreferenz("DE", "NCTS", False,,, FIRMA_DY)
'Dim Stammreferenz = Nothing
'f.selectForEXG = True
'If f.ShowDialog(Me.FindForm) Then
' Stammreferenz = f.STAMMREF
' sentToDakosy = f.sentToDakosy
'End If
'Try
' BezugsNr = usrCntlATLAS_NCTS004.getBezugsnr(FIRMA_DY, SENDUNG, BezugsNr, "")
' lblBezugsnummer.Text = BezugsNr
' MsgBox(BezugsNr)
'Catch ex As Exception
' MsgBox(ex.Message & ex.StackTrace)
'End Try
'ncts_OUT = cDakosyNCTSOut004.LOADByBezugsNr(BezugsNr, True)
'If True Then 'NCTS_OUT Is Nothing Then
' Dim cDy_ART = "T2"
' Select Case (SENDUNG.tblSnd_Abfertigungsart_ID)
' Case 5 : cDy_ART = "T1"
' Case Else : cDy_ART = "T2"
' End Select
' Dim DY_ANM As New cDakosy_Zollanmeldungen
' If DY_ANM Is Nothing Then
' DY_ANM = New cDakosy_Zollanmeldungen(NCTS_OUT.ncts_dyaAnmID)
' End If
' DY_ANM.dy_ART = cDy_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?
' If DY_ANM.SAVE() Then 'Speichern, ID wird erzeugt
' '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 Is Nothing Then
' NCTS_OUT = New cDakosyNCTSOut004
' End If
' NCTS_OUT.ncts_Id = -1
' NCTS_OUT.ncts_dyaAnmID = DY_ANM.dy_Id
' '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
' usrCntlATLAS_NCTS004.loaddataFromAVISO(AVISO, SENDUNG, cDy_ART, BezugsNr, NCTS_OUT)
' 'cboStammreferenz.changeItem(Stammreferenz)
' If NCTS_OUT.SAVE() Then
' MsgBox("Eine neue Versandanmeldung mit der BezugsNummer '" & BezugsNr & "' wurde erstellt. Befüllung wird bei Gestellvorgang automatisch vorgenommen.")
' For Each exgId In exg_list
' MsgBox(NCTS_OUT.ncts_dyaAnmID)
' cDakosyEXG.UPDATE_FillNCTS_ID(exgId, NCTS_OUT.ncts_dyaAnmID)
' Next
' End If
' End If
'End If
''ncts_OUT
For Each exgId In exg_list
cDakosyEXG.UPDATE_FillNCTS_ID(exgId, NCTS_OUT.ncts_dyaAnmID)
Next
lblBezugsnummer.Text = NCTS_OUT.ncts_ObjectName
End If
End If
Me.FindForm.Close()
@@ -483,7 +472,7 @@ Public Class usrCntlATLAS_EXGestellung
End Function
Private Sub cbxNCTS_CheckedChanged(sender As Object, e As EventArgs) Handles cbxNCTS.CheckedChanged
MyPanel1.Enabled = cbxNCTS.Checked
MyPanel2.Enabled = cbxNCTS.Checked
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
@@ -507,5 +496,156 @@ Public Class usrCntlATLAS_EXGestellung
End If
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Dim exgIds As New List(Of Integer)
For Each row As DataGridViewRow In MyDatagridview1.Rows
If Not row.IsNewRow AndAlso row.Cells("exg_Id").Value IsNot Nothing Then
exgIds.Add(Convert.ToInt32(row.Cells("exg_Id").Value))
End If
Next
If exgIds.Count = 0 Then
MsgBox("Keine EXG-Gestellungen vorhanden!")
Exit Sub
End If
Try
Me.Cursor = Cursors.WaitCursor
Dim saveFile As String = SendNCTS(exgIds, True, "T1")
'MsgBox("NCTS erfolgreich erstellt!" & vbCrLf & saveFile)
'Process.Start(saveFile)
Me.FindForm.Close()
Catch ex As Exception
MsgBox("Fehler beim Erstellen des NCTS:" & vbCrLf & ex.Message)
Finally
Me.Cursor = Cursors.Default
End Try
End Sub
Function SendNCTS(exgIds As List(Of Integer), Optional sendFTP As Boolean = False, Optional nctsArt As String = "T2") As String
If exgIds Is Nothing OrElse exgIds.Count = 0 Then
Throw New Exception("Keine EXG-Gestellungen übergeben.")
End If
'Console.WriteLine("EXG-Test: " & exgIds.Count & " Gestellungen gefunden.")
Dim BezugsNr As String = ""
BezugsNr = usrCntlATLAS_NCTS004.getBezugsnr(txtDyMandant.Text, SENDUNG, BezugsNr, "")
Dim NCTS_OUT As New DAKOSY_Worker.cDakosyNCTSOut004
Dim DY_ANM As New cDakosy_Zollanmeldungen
Dim firma As String = ""
Dim niederlassung As String = ""
Dim firstEXG As Boolean = True
NCTS_OUT.ncts_ObjectName = BezugsNr
If cboStammreferenz2._value <> "" Then NCTS_OUT.ncts_BezugsnummerVorblendung = cboStammreferenz2._value
'::::AVISO Daten befüllen::::
cDakosyNCTSOut004.loaddataFromAVISO(AVISO, SENDUNG, "", BezugsNr, NCTS_OUT, FIRMA_DY, False)
'::::::::::::::::::::::::::::
'EXG-Daten laden und NCTS befüllen
For Each exgId In exgIds.Distinct()
Dim EXG As New DAKOSY_Worker.cDakosyEXG
EXG.exg_Id = exgId
If Not EXG.LOAD(True) Then Throw New Exception("EXG nicht gefunden: " & exgId)
If EXG.exg_POSITION Is Nothing OrElse EXG.exg_POSITION.Count = 0 Then Throw New Exception("EXG ohne Positionen: " & exgId)
If firstEXG Then
firma = EXG.exg_firma
niederlassung = EXG.exg_niederlassung
firstEXG = False
Else
If firma <> EXG.exg_firma OrElse niederlassung <> EXG.exg_niederlassung Then
Throw New Exception("EXG-Datensätze gehören zu unterschiedlichen Firmen oder Niederlassungen.")
End If
End If
DAKOSY_Worker.cDakosyNCTSOut004.fillNCTS_WithEXG(NCTS_OUT, EXG, BezugsNr, cbxAutoTranslate.Checked, cbxForceTranslate.Checked)
'Console.WriteLine("NCTS: EXG übernommen: " & EXG.exg_ObjectName)
'Dim HC = NCTS_OUT.ncts_HOUSE_CONSIGNMENT.Last()
'Console.WriteLine("EXG: " & EXG.exg_ObjectName)
'Console.WriteLine("EXG Versender: " & Convert.ToString(EXG.exg_Consignor_Name))
'Console.WriteLine("EXG Empfänger: " & Convert.ToString(EXG.exg_Consignee_Name))
'Console.WriteLine("NCTS Versender: " & Convert.ToString(HC.nctsHC_Consignor_Name))
'Console.WriteLine("NCTS Empfänger: " & Convert.ToString(HC.nctsHC_Consignee_Name))
Next
If NCTS_OUT.ncts_HOUSE_CONSIGNMENT Is Nothing OrElse NCTS_OUT.ncts_HOUSE_CONSIGNMENT.Count = 0 Then
Throw New Exception("Keine NCTS-House-Consignments erzeugt.")
End If
'Neue Zollanmeldung erstellen
DY_ANM.dy_ART = nctsArt
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)
If Not DY_ANM.SAVE() OrElse DY_ANM.dy_Id <= 0 Then
Throw New Exception("NCTS-Zollanmeldung konnte nicht erstellt werden.")
End If
'NCTS ergänzen
NCTS_OUT.ncts_Trans_Referenz = BezugsNr & "_" & Now.ToString("ddMMyyHHmmss")
NCTS_OUT.ncts_niederlassung = If(String.IsNullOrWhiteSpace(niederlassung), "SUB", niederlassung)
NCTS_OUT.ncts_Declarationtype = nctsArt
'NCTS speichern und optional versenden
Return cDakosyNCTSOut004.SaveAndSendNCTS(NCTS_OUT, DY_ANM, BezugsNr, If(String.IsNullOrWhiteSpace(firma), "VERAG", firma), sendFTP, SENDUNG, "CREATE", nctsArt)
''NCTS mit Zollanmeldung verknüpfen
'NCTS_OUT.ncts_ObjectName = BezugsNr
'NCTS_OUT.ncts_dyaAnmID = DY_ANM.dy_Id
'NCTS_OUT.ncts_Trans_Referenz = BezugsNr & "_" & Now.ToString("ddMMyyHHmmss")
'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 = If(String.IsNullOrWhiteSpace(firma), "VERAG", firma)
'NCTS_OUT.ncts_niederlassung = If(String.IsNullOrWhiteSpace(niederlassung), "SUB", niederlassung)
''CheckNCTSStringLengths(NCTS_OUT)
'If Not NCTS_OUT.SAVE_ALL() Then
' Throw New Exception("NCTS-Daten konnten nicht gespeichert werden. DY-ID: " & DY_ANM.dy_Id)
'End If
''NCTS-XML erstellen
'Dim saveFile As String = ""
'If Not cDakosyNCTSOut004.generateVersandanmeldungNCTSDE_004(NCTS_OUT, saveFile, "CREATE", Application.StartupPath, "NCTS") Then
' Throw New Exception("NCTS-XML konnte nicht erzeugt werden.")
'End If
'If String.IsNullOrWhiteSpace(saveFile) OrElse Not System.IO.File.Exists(saveFile) Then
' Throw New Exception("NCTS-XML-Datei fehlt.")
'End If
''Optional an DAKOSY senden
'If sendFTP Then
' If cDakosyFunftions.send_Data_To_Dakosy_FTP(saveFile, BezugsNr, DY_ANM.dy_Id, firma) Then
' DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_ANM, DAKOSY_Worker.cDY_Statusliste.S_03)
' DY_ANM.UPDATE_DATA()
' DY_ANM.UPDATE_AVISO_SND(DY_ANM.dy_SendungsId)
' Else
' DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_ANM, DAKOSY_Worker.cDY_Statusliste.S_09)
' Throw New Exception("NCTS-FTP-Versand fehlgeschlagen. DY-ID: " & DY_ANM.dy_Id)
' End If
'End If
''Console.WriteLine("NCTS: " & BezugsNr & " / DY-ID: " & DY_ANM.dy_Id)
'Return saveFile
End Function
End Class

246
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004.vb
View File

@@ -230,7 +230,7 @@ Public Class usrCntlATLAS_NCTS004
End If
loaddataFromAVISO(AVISO, SENDUNG, cDy_ART, BezugsNr, ncts_OUT, FIRMA_DY)
cDakosyNCTSOut004.loaddataFromAVISO(AVISO, SENDUNG, cDy_ART, BezugsNr, ncts_OUT, FIRMA_DY, True)
cboStammreferenz.changeItem(Stammreferenz)
@@ -402,156 +402,6 @@ Public Class usrCntlATLAS_NCTS004
Shared Sub loaddataFromAVISO(AVISO As cAviso, SENDUNG As cSendungen, cDy_ART As String, BezugsNr As String, ByRef cdy As cDakosyNCTSOut004, FIRMA_DY As String)
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
Select Case AVISO.Transportmittelart
Case "LKW", "SPRINTER"
cdy.ncts_DepartureTransportMeans_1_TypeOfIdentification = 30
If FIRMA_DY <> "AMBAR" Then
cdy.ncts_InlandModeOfTransport = "3"
cdy.ncts_ModeOfTransportAtTheBorder = "3"
End If
End Select
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_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)
@@ -576,51 +426,77 @@ Public Class usrCntlATLAS_NCTS004
DY_ANM.SAVE() 'Speichern, ID wird erzeugt
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'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 cDakosyNCTSOut004.generateVersandanmeldungNCTSDE_004(ncts_OUT, saveFile, cboDakosyAction._value, Application.StartupPath, cDy_ART) 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 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)
Try
If Not sentToDakosy AndAlso vbYes <> MsgBox("Sollen die Daten abgeschickt werden?" & vbNewLine & "Eine Änderung ist nur noch in der Dakosy Software möglich.", vbYesNoCancel) Then Exit Sub
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 ncts_OUT Is Nothing Then Throw New Exception("Keine NCTS-Daten vorhanden.")
If DY_ANM Is Nothing OrElse DY_ANM.dy_Id <= 0 Then Throw New Exception("Zollanmeldung konnte nicht gespeichert werden.")
If Not ncts_OUT.SAVE_ALL() Then Exit Sub
'Aktuelle Eingabefelder in NCTS übernehmen
DAKOSY_Interface_SEND.loadInClass_VersandanmeldungNCTSDE_004(ncts_OUT, Me, DY_ANM, Me.FIRMA_DY)
Dim saveFile = ""
If cDakosyNCTSOut004.generateVersandanmeldungNCTSDE_004(ncts_OUT, saveFile, cboDakosyAction._value, Application.StartupPath, cDy_ART) 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
'NCTS speichern, XML erstellen und versenden
Dim saveFile As String = cDakosyNCTSOut004.SaveAndSendNCTS(ncts_OUT, DY_ANM, BezugsNr, Me.FIRMA_DY, True, SENDUNG, cboDakosyAction._value, cDy_ART)
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)
'MsgBox("NCTS erfolgreich versendet!" & vbCrLf & saveFile)
Me.FindForm.Close()
End If
Me.Cursor = Cursors.Default
Catch ex As Exception
MsgBox("Fehler beim NCTS-Versand:" & vbCrLf & ex.Message)
Finally
Me.Cursor = Cursors.Default
End Try
End Sub
Private Sub SpeichernToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SpeichernToolStripMenuItem.Click
Me.Refresh()
@@ -792,7 +668,7 @@ Public Class usrCntlATLAS_NCTS004
NCTS_OUT.ncts_Id = -1
NCTS_OUT.ncts_dyaAnmID = DY_ANM.dy_Id
usrCntlATLAS_NCTS004.loaddataFromAVISO(AVISO, SENDUNG, cDy_ART, BezugsNr, NCTS_OUT, FIRMA_DY)
cDakosyNCTSOut004.loaddataFromAVISO(AVISO, SENDUNG, cDy_ART, BezugsNr, NCTS_OUT, FIRMA_DY, True)
'cboStammreferenz.changeItem(Stammreferenz)
If NCTS_OUT.SAVE() Then

2
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/Verwahrung/usrCntlATLAS_SummarischeAnmeldung.Designer.vb generated
View File

@@ -177,7 +177,7 @@ Partial Class usrCntlATLAS_SummarischeAnmeldung
Me.Button2.Location = New System.Drawing.Point(144, 116)
Me.Button2.Margin = New System.Windows.Forms.Padding(2)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(227, 42)
Me.Button2.Size = New System.Drawing.Size(234, 42)
Me.Button2.TabIndex = 21
Me.Button2.Text = "Positionen aus PDF erstellen"
Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleRight

3
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/Verwahrung/usrCntlATLAS_SummarischeAnmeldung.resx
View File

@@ -123,7 +123,4 @@
<metadata name="MenuStrip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="MenuStrip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
</root>

3
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/cDakosyInterface_Send.vb
View File

@@ -17,7 +17,6 @@ Public Class DAKOSY_Interface_SEND
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"
@@ -140,7 +139,6 @@ Public Class DAKOSY_Interface_SEND
'cDY.aes_Gestellt = False
cDY.aes_Status = "00"
cDY.aes_Trans_Referenz = USRCNTL.BezugsNr & "_" & Now.ToString("ddMMyyHHmmSS") 'Eindeutig
cDY.aes_Trans_Referenz = USRCNTL.BezugsNr & "_" & Now.ToString("ddMMyyHHmmSS") 'Eindeutig
cDY.aes_ObjectAlias = If(USRCNTL.AVISO IsNot Nothing, USRCNTL.AVISO.AvisoID, Nothing)
'cDY.aes_Trans_Version = "003"
cDY.aes_Trans_Div1 = "ATILLA"
@@ -184,7 +182,6 @@ Public Class DAKOSY_Interface_SEND
'cDY.EZA_Gestellt = False
cDY.eza_Status = "00"
cDY.eza_Trans_Referenz = USRCNTL.BezugsNr & "_" & Now.ToString("ddMMyyHHmmSS") 'Eindeutig
cDY.eza_Trans_Referenz = USRCNTL.BezugsNr & "_" & Now.ToString("ddMMyyHHmmSS") 'Eindeutig
cDY.eza_ObjectAlias = If(USRCNTL.AVISO IsNot Nothing, USRCNTL.AVISO.AvisoID, Nothing)
'cDY.EZA_Trans_Version = "003"
cDY.eza_Trans_Div1 = "VERAG"

3
VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb
View File

@@ -45,6 +45,9 @@ Public Class cProgramFunctions
End Function
Public Shared Function isLeerNothing(o) As Object
Return If(o = "", Nothing, o)
End Function
Public Shared Function ExpandNumbers(input As String) As String
If String.IsNullOrWhiteSpace(input) Then Return ""