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

ModaltransAPI

Browse Source
This commit is contained in:
d.breimaier
2023-07-24 17:17:44 +02:00
parent ef4187804d
commit 792ccc4e4d
23 changed files with 3890 additions and 1052 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
SDL/ZOLLSYSTEM/DAKOSY/frmZollanmeldung.vb
View File

@@ -144,6 +144,29 @@
End Select
Case "MODALTRANS"
Select Case ART
Case "Export", "Import" ', "NCTS", "ÜT"
If ART = "ÜT" Then
ART = "T1"
isSTAMMREF = False
STAMMREF = "" '??????????????????????????????
End If
If Me.DY Is Nothing Then
Dim usrcntl As New usrCntlModaltrans_NCTS(ART, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF, FIRMA_DY)
usrcntl.Dock = DockStyle.Fill
Me.pnl.Controls.Add(usrcntl)
Else
'Dim usrcntl As New usrCntlModaltrans_NCTS(DY, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF)
'usrcntl.Dock = DockStyle.Fill
'Me.pnl.Controls.Add(usrcntl)
End If
End Select
Case Else '"DAKOSY'

517
SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS.Designer.vb generated Normal file
View File

@@ -0,0 +1,517 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class usrCntlModaltrans_NCTS
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
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.btnVerschlüsse = 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.pic = New System.Windows.Forms.PictureBox()
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()
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()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
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
Me.btnSicherheit.Visible = False
'
'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
'
'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 MT 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.pic)
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
'
'pic
'
Me.pic.BackColor = System.Drawing.Color.White
Me.pic.BackgroundImage = Global.SDL.My.Resources.Resources.modaltrans_original
Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.pic.Location = New System.Drawing.Point(217, 0)
Me.pic.Name = "pic"
Me.pic.Size = New System.Drawing.Size(100, 24)
Me.pic.TabIndex = 20
Me.pic.TabStop = False
'
'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 ..."
'
'usrCntlModaltrans_NCTS
'
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 = "usrCntlModaltrans_NCTS"
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()
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
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 btnVerschlüsse 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 pic As PictureBox
End Class

126
SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS.resx Normal file
View File

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

613
SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS.vb Normal file
View File

@@ -0,0 +1,613 @@
Imports DAKOSY_Worker
Imports VERAG_PROG_ALLGEMEIN
Imports VERAG_PROG_ALLGEMEIN.agsCustomsExchange
Imports VERAG_PROG_ALLGEMEIN.IDEV_Intrastat
Public Class usrCntlModaltrans_NCTS
Property ALLG As usrCntlATLAS_NCTS_Allg
Property ADRESSEN As usrCntlATLAS_ncts_Adressen
'Property SICHERHEIT As usrCntlATLAS_NCTS_Sicherheit
Property POSITIONEN As usrCntlATLAS_NCTS_Positionen
'Property VERSCHLUESSE As usrCntlATLAS_NCTS_Verschluesse
Property Jahr2Stellig As Integer
Property zusatz As String
Property BezugsNr As String = ""
Property AVISO As VERAG_PROG_ALLGEMEIN.cAviso
Property SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen
Property sendToModaltrans = 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 VERAG_PROG_ALLGEMEIN.cNCTS_TR = Nothing
'Dim DY_ANM As cDakosy_Zollanmeldungen = Nothing
Sub New(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.isSTAMMREF = isSTAMMREF
Me.STAMMREF = STAMMREF
'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, 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
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_NCTS_Sicherheit(ncts_OUT, FIRMA_DY)
'VERSCHLUESSE = New usrCntlATLAS_NCTS_Verschluesse() 'ncts_OUT)
ADRESSEN = New usrCntlATLAS_ncts_Adressen(ncts_OUT, FIRMA_DY) ')
ALLG = New usrCntlATLAS_NCTS_Allg(ncts_OUT)
POSITIONEN = New usrCntlATLAS_NCTS_Positionen(ncts_OUT)
If isSTAMMREF Then
Me.BezugsNr = "STAMMREFERENZ"
If ncts_OUT Is Nothing Then ncts_OUT = New VERAG_PROG_ALLGEMEIN.cNCTS_TR()
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
'End If
Try
BezugsNr = getBezugsnr(BezugsNr)
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
ncts_OUT = VERAG_PROG_ALLGEMEIN.cNCTS_TR.LOADByBezugsNr(BezugsNr, True)
If ncts_OUT Is Nothing Then
'Falls zur BezugsNr schon ein Eintrag in der DB vorhanden ist
'ncts_OUT = VERAG_PROG_ALLGEMEIN.cNCTS_TR.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 VERAG_PROG_ALLGEMEIN.cNCTS_TR()
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_ArtAnmeldung = Me.cDy_ART
Else
'Wenn keine Art --> T1
If ncts_OUT.ncts_ArtAnmeldung Is Nothing Or ncts_OUT.ncts_ArtAnmeldung = "" Then
ncts_OUT.ncts_ArtAnmeldung = "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_TR(ncts_OUT.ncts_SICHERHEITSANGABEN)
'VERSCHLUESSE.setValues_TR(ncts_OUT)
ADRESSEN.setValues_TR(ncts_OUT)
ALLG.setValues(ncts_OUT)
POSITIONEN.setValues_TR(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
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 sendToModaltrans 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 VERAG_PROG_ALLGEMEIN.cOregonNCTs_DeclarationData)
Try
'==> VORBLENDUNG:
cdy.auto_send = False 'If the declaration is created correctly, and if it is desired to be sent directly to the customs system after this process, it should be set as "true".
cdy.service_code = "" 'Options: - "chief" - "cds"
cdy.doc_type = "" 'EXA, EXD, IMA, IMD declaration type code
cdy.declaration_type = cDy_ART
cdy.commercial_ref = BezugsNr
cdy.ducr = ""
cdy.mucr = ""
cdy.ducr_part = ""
cdy.export_country_id = ""
cdy.multiple_consignor = ""
cdy.invoice_amount = ""
cdy.invoice_curr = ""
cdy.goods_location = ""
cdy.border_transport_type = ""
cdy.border_vehicle_code = ""
cdy.border_vehicle_coun = ""
cdy.inland_transport_type = ""
cdy.container_no = ""
cdy.gvms_interested = ""
cdy.freight_amount = ""
cdy.freight_curr = ""
cdy.payment_method = ""
cdy.total_packages = ""
cdy.nature_of_transaction = ""
cdy.premises_code = ""
cdy.first_dan_no = ""
cdy.second_dan_no = ""
cdy.insurance_amount = ""
cdy.insurance_curr = ""
cdy.other_amounts = ""
cdy.other_amounts_curr = ""
cdy.apportment_indicator = ""
cdy.total_gross_weight = ""
cdy.total_net_weight = ""
cdy.airfreight_cost = ""
cdy.vat_adjustment = ""
cdy.vat_adjustment_curr = ""
cdy.discount_amount = ""
cdy.discount_curr = ""
cdy.discount_rate = ""
cdy.incoterm = ""
cdy.incoterm_location = ""
cdy.trader_ref = ""
cdy.arrival_transport_type = ""
cdy.guarantee_code = ""
cdy.guarantee_reference = ""
If AVISO IsNot Nothing Then
'cdy.ncts_Befoerderungsmittel_KennzeichenAbgang = AVISO.LKW_Nr
'cdy.ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode = AVISO.LKW_Nationalitaet
'cdy.ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend = AVISO.LKW_Nr
'cdy.ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode = AVISO.LKW_Nationalitaet
End If
cdy.consignee_eori = cProgramFunctions.isLeerNothing(SENDUNG.NCTS_Verzollungsadresse_EORI)
cdy.consignee_name = cProgramFunctions.isLeerNothing(SENDUNG.tblSnd_NCTSVerzollungsadresse)
cdy.consignee_address = cProgramFunctions.isLeerNothing(SENDUNG.NCTS_Verzollungsadresse_Strasse)
cdy.consignee_postcode = cProgramFunctions.isLeerNothing(SENDUNG.NCTS_Verzollungsadresse_PLZ)
cdy.consignee_city_name = cProgramFunctions.isLeerNothing(SENDUNG.NCTS_Verzollungsadresse_Ort)
cdy.consignee_country_id = cProgramFunctions.isLeerNothing(SENDUNG.NCTS_Verzollungsadresse_Land)
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.carrier_eori = KD_Befoerderer.EORITIN
If KD_Befoerderer.EORITIN IsNot Nothing Then
'cdy.ncts_SumA_Befoerderer_NLNR = KD_Befoerderer.EORITIN_NL
End If
cdy.carrier_name = (If(AD_Befoerderer.Name_1, "") & " " & If(AD_Befoerderer.Name_2, "")).Trim
cdy.carrier_address = AD_Befoerderer.Straße
cdy.carrier_postcode = AD_Befoerderer.PLZ
cdy.carrier_city_name = AD_Befoerderer.Ordnungsbegriff
cdy.carrier_country_id = cProgramFunctions.getISO2Land(AD_Befoerderer.LandKz)
Else
cdy.carrier_name = If(AVISO.Frächter, "")
End If
If SENDUNG IsNot Nothing Then
Dim FilialeAktFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(SENDUNG.FilialenNr,, "")
cdy.declarant_eori = FilialeAktFirma
cdy.declarant_name = ""
cdy.declarant_address = ""
cdy.declarant_city_name = ""
cdy.declarant_country_id = ""
cdy.declarant_postcode = ""
cdy.declarant_rep = ""
Dim p As VERAG_PROG_ALLGEMEIN.cOregonNCTs_GoodsAttribute = Nothing
If SENDUNG.tblSnd_anzahlPOS > 0 Then
p = Nothing 'cdy.ncts_WARENPOS(0)
Else
p = New VERAG_PROG_ALLGEMEIN.cOregonNCTs_GoodsAttribute
p.declarationDataID = cdy.id
p.SAVE()
End If
p.commodity = SENDUNG.tblSnd_Warenbezeichnung
If SENDUNG.tblSnd_Colli IsNot Nothing AndAlso IsNumeric(SENDUNG.tblSnd_Colli) Then
Dim pk As New VERAG_PROG_ALLGEMEIN.cOregonNCTs_PacksAttribute
pk.pack_count = SENDUNG.tblSnd_Colli
pk.pack_type = "PKG"
pk.goods_attribute_id = p.id
pk.SAVE()
End If
p.net_wg = SENDUNG.tblSnd_Gewicht
p.invoice_amount = SENDUNG.tblSnd_Warenwert
p.invoice_curr = SENDUNG.tblSnd_WarenwertWaehrung
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)
p.sender_eori_code = kdVERSENDER.EORITIN
p.sender_name = If(adVERSENDER.Name_1, "") & If(adVERSENDER.Name_2, "")
p.sender_address = adVERSENDER.Straße
p.sender_postcode = adVERSENDER.PLZ
p.sender_city_name = adVERSENDER.Ort
If adVERSENDER.LandKz IsNot Nothing Then
p.sender_country_id = cProgramFunctions.getISO2Land(adVERSENDER.LandKz)
End If
End If
If SENDUNG.tblSnd_EmpfaengerKdNr > 0 Then
Dim adEMPFAENGER As New VERAG_PROG_ALLGEMEIN.cAdressen(SENDUNG.tblSnd_EmpfaengerKdNr)
Dim kdEMPFAENGER As New VERAG_PROG_ALLGEMEIN.cKunde(SENDUNG.tblSnd_EmpfaengerKdNr)
p.consignee_eori_code = kdEMPFAENGER.EORITIN
p.consignee_name = If(adEMPFAENGER.Name_1, "") & If(adEMPFAENGER.Name_2, "")
p.consignee_address = adEMPFAENGER.Straße
p.consignee_postcode = adEMPFAENGER.PLZ
p.consignee_city_name = adEMPFAENGER.Ort
If adEMPFAENGER.LandKz IsNot Nothing Then
p.consignee_country_id = cProgramFunctions.getISO2Land(adEMPFAENGER.LandKz)
End If
End If
End If
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)
'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 False Then 'sentToDakosy OrElse vbYes = MsgBox("Sollen die Daten abgeschickt werden?" & vbNewLine & "Eine Änderung ist nur noch in der MIC 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 VERAG_PROG_ALLGEMEIN.cNCTS_TR(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_Partnersystem = "VERAG_MIC" ' eigene Anmeldungen in Fremdsystem
ncts_OUT.ncts_Status = DAKOSY_Worker.cDY_Statusliste.S_05
ncts_OUT.ncts_Status_KEWILL_Equivalent = DAKOSY_Worker.cDY_Statusliste.S_05
loadInClass_VersandanmeldungNCTS(ncts_OUT, Me, FIRMA_DY)
If Not ncts_OUT.SAVE_ALL() Then Exit Sub '---> DANN SCHON
Dim saveFile = ""
If VERAG_PROG_ALLGEMEIN.cMIC.generateNCTS(ncts_OUT, saveFile, BezugsNr) Then
If saveFile <> "" Then
Process.Start(saveFile)
' VERAG_PROG_ALLGEMEIN.cMIC.send_Data_To_Dakosy_FTP()
'If Not send_Data_To_Dakosy_FTP(saveFile, BezugsNr, Nothing, Nothing) Then
' MsgBox("Sendefehler!")
'End If
End If
End If
'---> DANN SCHON:::
'Dim saveFile = ""
'If VERAG_PROG_ALLGEMEIN.cMICInterface.generateVersandanmeldungNCTS(ncts_OUT, saveFile, cboDakosyAction._value) Then
' If saveFile <> "" Then
' If cDakosyFunftions.send_Data_To_Dakosy_FTP(saveFile, BezugsNr, DY_ANM.dy_Id, FIRMA_DY) Then
' DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_ANM, DAKOSY_Worker.cDY_Statusliste.S_03)
' 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()
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
'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_Partnersystem = "VERAG_MIC" ' eigene Anmeldungen in Fremdsystem
ncts_OUT.ncts_Status = DAKOSY_Worker.cDY_Statusliste.S_00
ncts_OUT.ncts_Status_KEWILL_Equivalent = DAKOSY_Worker.cDY_Statusliste.S_00
loadInClass_VersandanmeldungNCTS(ncts_OUT, Me, 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
Function loadInClass_VersandanmeldungNCTS(ByRef NCTS As VERAG_PROG_ALLGEMEIN.cNCTS_TR, USRCNTL As usrCntlModaltrans_NCTS, FIRMA_DY As String) As VERAG_PROG_ALLGEMEIN.cNCTS_TR
Try
Select Case FIRMA_DY
Case "UNISPED"
NCTS.ncts_Trans_Partner = "UNAT"
Case Else
NCTS.ncts_Trans_Partner = "VERA"
End Select
NCTS.ncts_Trans_DatumZeit = Now
NCTS.ncts_Gestellt = False
NCTS.ncts_Status = "00"
NCTS.ncts_Trans_Referenz = USRCNTL.BezugsNr & "_" & Now.ToString("ddMMyyHHmmSS") 'Eindeutig
NCTS.ncts_Trans_Referenz = USRCNTL.BezugsNr & "_" & Now.ToString("ddMMyyHHmmSS") 'Eindeutig
NCTS.ncts_ObjectAlias = If(USRCNTL.AVISO IsNot Nothing, USRCNTL.AVISO.AvisoID, Nothing)
NCTS.ncts_Trans_Version = "003"
NCTS.ncts_Trans_Div1 = "ATILLA"
'NCTS.ncts_Trans_Div1 = "ATILLA"
'NCTS.ncts_Trans_Div1 = "ATILLA"
NCTS.ncts_Stammreferenz = If(USRCNTL.cboStammreferenz._value = "", Nothing, USRCNTL.cboStammreferenz._value)
NCTS.ncts_BezugsnummerVorblendung = NCTS.ncts_Stammreferenz
NCTS.ncts_ObjectName = USRCNTL.BezugsNr
'NCTS.ncts_ObjectAlias = USRCNTL.AVISO.AvisoID
USRCNTL.ALLG.getValues(NCTS)
USRCNTL.ADRESSEN.getValues_TR(NCTS)
USRCNTL.POSITIONEN.getValues_TR(NCTS)
'NCTS.ncts_SICHERHEITSANGABEN = USRCNTL.SICHERHEIT.getValues_TR()
'USRCNTL.VERSCHLUESSE.getValues_TR(NCTS)
'NCTS.ncts_WARENPOS=USRCNTL.POSITIONEN.getValues()
'--------------------------------
Return NCTS
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
Return Nothing
End Try
End Function
End Class

6
SDL/ZOLLSYSTEM/TELOTEC/eZOLL/EZA/usrCntlTCeZOLL_EZA.vb
View File

@@ -9,26 +9,20 @@ Public Class usrCntlTCeZOLL_EZA
Property POSITIONEN As usrCntlATLAS_EZA_Positionen
Property DV1 As usrCntlATLAS_EZA_DV1
Property Jahr2Stellig As Integer
Property zusatz As String
Property BezugsNr As String = ""
Dim sentToDakosy = False
Property AVISO As VERAG_PROG_ALLGEMEIN.cAviso
Property SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen
Dim cDy_ART As String = "EZA"
'Dim EZA As cDakosyEZA = Nothing
Dim TC_ANM As cTelotec_Anmeldung = Nothing
Dim FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Property isSTAMMREF As Boolean = False
Property STAMMREF As String = ""