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

Merge branch 'master' of https://verag.visualstudio.com/SDL/_git/SDL

Browse Source
This commit is contained in:
d.breimaier
2023-09-25 16:13:07 +02:00
parent 2de1e68a43 04166a91f0
commit 85f69d8672
34 changed files with 10599 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlVerpflichtungserklärungFahrer.vb
View File

@@ -212,6 +212,25 @@
Dim notFoundTMP = SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr & " " & SENDUNG.tblSnd_Empfaenger & vbNewLine
'Dakosy--NCTS004----------------------------------------
If SENDUNG.FilialenNr > 0 And SENDUNG.AbfertigungsNr > 0 Then
Dim DyPos = SENDUNG.AbfertigungsNr.ToString
If SENDUNG.AbfertigungsNr.ToString.Length >= 8 Then
DyPos = CInt(SENDUNG.AbfertigungsNr.ToString.Substring(2))
End If
Dim dt As DataTable = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql("Select [ncts_Id] FROM [tblDakosy_NCTSOut004] WHERE (ncts_ObjectName LIKE '%" & SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr & "%' OR ncts_ObjectName LIKE '%" & SENDUNG.FilialenNr & "-" & SENDUNG.AbfertigungsNr & "%' OR ncts_ObjectName LIKE '%" & SENDUNG.FilialenNr & "/" & DyPos & "' OR ncts_ObjectName LIKE '%" & SENDUNG.FilialenNr & "-" & DyPos & "' OR ncts_ObjectName='" & SENDUNG.tblSnd_DakosyRef & "') AND ncts_Status between '50' and '60' ORDER BY ncts_ObjectName", "FMZOLL")
' If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
For Each row As DataRow In dt.Rows
Dim DY As New DAKOSY_Worker.cDakosyNCTSOut004(row("ncts_Id"))
If DY IsNot Nothing AndAlso DY.ncts_MRN IsNot Nothing Then
MyDatagridview1.Rows.Add(DY.ncts_MRN)
End If
Next
notFoundTMP = ""
' Else
End If
'Dakosy------------------------------------------
If SENDUNG.FilialenNr > 0 And SENDUNG.AbfertigungsNr > 0 Then
Dim DyPos = SENDUNG.AbfertigungsNr.ToString
@@ -230,6 +249,7 @@
notFoundTMP = ""
' Else
End If
'E-ZOLL--------------------------------------
If SENDUNG.FilialenNr > 0 And SENDUNG.AbfertigungsNr > 0 Then

63
SDL/SDL.vbproj
View File

@@ -964,6 +964,48 @@
<Compile Include="ZOLLSYSTEM\DAKOSY\ATLAS\frmDY_LogBuch.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="ZOLLSYSTEM\DAKOSY\ATLAS\NCTS004\usrCntlATLAS_NCTS004.Designer.vb">
<DependentUpon>usrCntlATLAS_NCTS004.vb</DependentUpon>
</Compile>
<Compile Include="ZOLLSYSTEM\DAKOSY\ATLAS\NCTS004\usrCntlATLAS_NCTS004.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="ZOLLSYSTEM\DAKOSY\ATLAS\NCTS004\usrCntlATLAS_NCTS004_Allg.Designer.vb">
<DependentUpon>usrCntlATLAS_NCTS004_Allg.vb</DependentUpon>
</Compile>
<Compile Include="ZOLLSYSTEM\DAKOSY\ATLAS\NCTS004\usrCntlATLAS_NCTS004_Allg.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="ZOLLSYSTEM\DAKOSY\ATLAS\NCTS004\usrCntlATLAS_NCTS004_Adressen.Designer.vb">
<DependentUpon>usrCntlATLAS_NCTS004_Adressen.vb</DependentUpon>
</Compile>
<Compile Include="ZOLLSYSTEM\DAKOSY\ATLAS\NCTS004\usrCntlATLAS_NCTS004_Adressen.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="ZOLLSYSTEM\DAKOSY\ATLAS\NCTS004\usrCntlATLAS_NCTS004_Sicherheit.Designer.vb">
<DependentUpon>usrCntlATLAS_NCTS004_Sicherheit.vb</DependentUpon>
</Compile>
<Compile Include="ZOLLSYSTEM\DAKOSY\ATLAS\NCTS004\usrCntlATLAS_NCTS004_Sicherheit.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="ZOLLSYSTEM\DAKOSY\ATLAS\NCTS004\usrCntlATLAS_NCTS004_SicherheitPos.Designer.vb">
<DependentUpon>usrCntlATLAS_NCTS004_SicherheitPos.vb</DependentUpon>
</Compile>
<Compile Include="ZOLLSYSTEM\DAKOSY\ATLAS\NCTS004\usrCntlATLAS_NCTS004_SicherheitPos.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="ZOLLSYSTEM\DAKOSY\ATLAS\NCTS004\usrCntlATLAS_NCTS004_Position.Designer.vb">
<DependentUpon>usrCntlATLAS_NCTS004_Position.vb</DependentUpon>
</Compile>
<Compile Include="ZOLLSYSTEM\DAKOSY\ATLAS\NCTS004\usrCntlATLAS_NCTS004_Position.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="ZOLLSYSTEM\DAKOSY\ATLAS\NCTS004\usrCntlATLAS_NCTS004_Positionen.Designer.vb">
<DependentUpon>usrCntlATLAS_NCTS004_Positionen.vb</DependentUpon>
</Compile>
<Compile Include="ZOLLSYSTEM\DAKOSY\ATLAS\NCTS004\usrCntlATLAS_NCTS004_Positionen.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="ZOLLSYSTEM\DAKOSY\ATLAS\NCTS\frmRoutenauswahl.Designer.vb">
<DependentUpon>frmRoutenauswahl.vb</DependentUpon>
</Compile>
@@ -3175,6 +3217,27 @@
<EmbeddedResource Include="ZOLLSYSTEM\DAKOSY\ATLAS\frmDY_LogBuch.resx">
<DependentUpon>frmDY_LogBuch.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="ZOLLSYSTEM\DAKOSY\ATLAS\NCTS004\usrCntlATLAS_NCTS004.resx">
<DependentUpon>usrCntlATLAS_NCTS004.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="ZOLLSYSTEM\DAKOSY\ATLAS\NCTS004\usrCntlATLAS_NCTS004_Allg.resx">
<DependentUpon>usrCntlATLAS_NCTS004_Allg.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="ZOLLSYSTEM\DAKOSY\ATLAS\NCTS004\usrCntlATLAS_NCTS004_Adressen.resx">
<DependentUpon>usrCntlATLAS_NCTS004_Adressen.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="ZOLLSYSTEM\DAKOSY\ATLAS\NCTS004\usrCntlATLAS_NCTS004_Sicherheit.resx">
<DependentUpon>usrCntlATLAS_NCTS004_Sicherheit.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="ZOLLSYSTEM\DAKOSY\ATLAS\NCTS004\usrCntlATLAS_NCTS004_SicherheitPos.resx">
<DependentUpon>usrCntlATLAS_NCTS004_SicherheitPos.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="ZOLLSYSTEM\DAKOSY\ATLAS\NCTS004\usrCntlATLAS_NCTS004_Position.resx">
<DependentUpon>usrCntlATLAS_NCTS004_Position.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="ZOLLSYSTEM\DAKOSY\ATLAS\NCTS004\usrCntlATLAS_NCTS004_Positionen.resx">
<DependentUpon>usrCntlATLAS_NCTS004_Positionen.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="ZOLLSYSTEM\DAKOSY\ATLAS\NCTS\frmRoutenauswahl.resx">
<DependentUpon>frmRoutenauswahl.vb</DependentUpon>
</EmbeddedResource>

1
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Adressen.vb
View File

@@ -170,7 +170,6 @@
'usrCntlSumA_Befoerderer.txtAnsprechpartner.Text=NCTS.ncts_SumA_Befoerderer_Ansprechpartner ' git es nicht
End Sub
Public Sub getValues_TR(ByRef NCTS As VERAG_PROG_ALLGEMEIN.cNCTS_TR)
NCTS.ncts_Hauptverpflichteter_Name = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.kdFirma.Text)

500
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004.Designer.vb generated Normal file
View File

@@ -0,0 +1,500 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class usrCntlATLAS_NCTS004
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.btnPositionen = New System.Windows.Forms.Button()
Me.Button5 = New System.Windows.Forms.Button()
Me.pnl = New System.Windows.Forms.Panel()
Me.Label8 = New System.Windows.Forms.Label()
Me.Label7 = New System.Windows.Forms.Label()
Me.Label6 = New System.Windows.Forms.Label()
Me.cboStammreferenz = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboDakosyAction = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.lblBezugsnummer = New System.Windows.Forms.Label()
Me.cntxtBezugsnr = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.NeueBezugsnummerVergebenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.txtDyMandant = New System.Windows.Forms.Label()
Me.txtDyNiederlassung = New System.Windows.Forms.Label()
Me.MenuStrip = New System.Windows.Forms.MenuStrip()
Me.OptionenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.SpeichernToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.LadenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.btnVerschlüsse = New System.Windows.Forms.Button()
CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer.Panel1.SuspendLayout()
Me.SplitContainer.SuspendLayout()
Me.MyFlowLayoutPanel1.SuspendLayout()
Me.pnl.SuspendLayout()
Me.cntxtBezugsnr.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.MenuStrip.SuspendLayout()
Me.SuspendLayout()
'
'SplitContainer
'
Me.SplitContainer.Dock = System.Windows.Forms.DockStyle.Fill
Me.SplitContainer.FixedPanel = System.Windows.Forms.FixedPanel.Panel1
Me.SplitContainer.IsSplitterFixed = True
Me.SplitContainer.Location = New System.Drawing.Point(0, 25)
Me.SplitContainer.Margin = New System.Windows.Forms.Padding(0)
Me.SplitContainer.Name = "SplitContainer"
Me.SplitContainer.Orientation = System.Windows.Forms.Orientation.Horizontal
'
'SplitContainer.Panel1
'
Me.SplitContainer.Panel1.Controls.Add(Me.MyFlowLayoutPanel1)
Me.SplitContainer.Panel1.Controls.Add(Me.pnl)
'
'SplitContainer.Panel2
'
Me.SplitContainer.Panel2.BackColor = System.Drawing.Color.WhiteSmoke
Me.SplitContainer.Size = New System.Drawing.Size(934, 687)
Me.SplitContainer.SplitterDistance = 72
Me.SplitContainer.SplitterWidth = 1
Me.SplitContainer.TabIndex = 0
'
'MyFlowLayoutPanel1
'
Me.MyFlowLayoutPanel1.BackColor = System.Drawing.Color.WhiteSmoke
Me.MyFlowLayoutPanel1.Controls.Add(Me.btnAllgemein)
Me.MyFlowLayoutPanel1.Controls.Add(Me.btnAdressen)
Me.MyFlowLayoutPanel1.Controls.Add(Me.btnSicherheit)
Me.MyFlowLayoutPanel1.Controls.Add(Me.btnVerschlüsse)
Me.MyFlowLayoutPanel1.Controls.Add(Me.btnPositionen)
Me.MyFlowLayoutPanel1.Controls.Add(Me.Button5)
Me.MyFlowLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.MyFlowLayoutPanel1.Location = New System.Drawing.Point(0, 0)
Me.MyFlowLayoutPanel1.Margin = New System.Windows.Forms.Padding(1)
Me.MyFlowLayoutPanel1.Name = "MyFlowLayoutPanel1"
Me.MyFlowLayoutPanel1.Size = New System.Drawing.Size(573, 72)
Me.MyFlowLayoutPanel1.TabIndex = 0
'
'btnAllgemein
'
Me.btnAllgemein.BackColor = System.Drawing.Color.SteelBlue
Me.btnAllgemein.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.btnAllgemein.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAllgemein.ForeColor = System.Drawing.SystemColors.ControlLightLight
Me.btnAllgemein.Image = Global.SDL.My.Resources.Resources.android_note12
Me.btnAllgemein.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnAllgemein.Location = New System.Drawing.Point(2, 2)
Me.btnAllgemein.Margin = New System.Windows.Forms.Padding(2)
Me.btnAllgemein.Name = "btnAllgemein"
Me.btnAllgemein.Padding = New System.Windows.Forms.Padding(0, 12, 0, 3)
Me.btnAllgemein.Size = New System.Drawing.Size(75, 67)
Me.btnAllgemein.TabIndex = 0
Me.btnAllgemein.Text = "Allgemein"
Me.btnAllgemein.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.btnAllgemein.UseVisualStyleBackColor = False
'
'btnAdressen
'
Me.btnAdressen.BackColor = System.Drawing.Color.White
Me.btnAdressen.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.btnAdressen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAdressen.Image = Global.SDL.My.Resources.Resources.house1
Me.btnAdressen.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnAdressen.Location = New System.Drawing.Point(81, 2)
Me.btnAdressen.Margin = New System.Windows.Forms.Padding(2)
Me.btnAdressen.Name = "btnAdressen"
Me.btnAdressen.Padding = New System.Windows.Forms.Padding(0, 0, 0, 3)
Me.btnAdressen.Size = New System.Drawing.Size(75, 67)
Me.btnAdressen.TabIndex = 1
Me.btnAdressen.Text = "Adressen"
Me.btnAdressen.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.btnAdressen.UseVisualStyleBackColor = False
'
'btnSicherheit
'
Me.btnSicherheit.BackColor = System.Drawing.Color.White
Me.btnSicherheit.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.btnSicherheit.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSicherheit.Image = Global.SDL.My.Resources.Resources.sicherheit1
Me.btnSicherheit.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnSicherheit.Location = New System.Drawing.Point(160, 2)
Me.btnSicherheit.Margin = New System.Windows.Forms.Padding(2)
Me.btnSicherheit.Name = "btnSicherheit"
Me.btnSicherheit.Padding = New System.Windows.Forms.Padding(0, 0, 0, 3)
Me.btnSicherheit.Size = New System.Drawing.Size(81, 67)
Me.btnSicherheit.TabIndex = 2
Me.btnSicherheit.Text = "Sicherheit"
Me.btnSicherheit.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.btnSicherheit.UseVisualStyleBackColor = False
'
'btnPositionen
'
Me.btnPositionen.BackColor = System.Drawing.Color.White
Me.btnPositionen.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.btnPositionen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnPositionen.Image = Global.SDL.My.Resources.Resources.list_new_small2
Me.btnPositionen.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnPositionen.Location = New System.Drawing.Point(330, 2)
Me.btnPositionen.Margin = New System.Windows.Forms.Padding(2)
Me.btnPositionen.Name = "btnPositionen"
Me.btnPositionen.Padding = New System.Windows.Forms.Padding(0, 0, 0, 3)
Me.btnPositionen.Size = New System.Drawing.Size(81, 67)
Me.btnPositionen.TabIndex = 4
Me.btnPositionen.Text = "Positionen"
Me.btnPositionen.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.btnPositionen.UseVisualStyleBackColor = False
'
'Button5
'
Me.Button5.BackColor = System.Drawing.Color.White
Me.Button5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button5.Image = Global.SDL.My.Resources.Resources.android_note12
Me.Button5.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.Button5.Location = New System.Drawing.Point(415, 2)
Me.Button5.Margin = New System.Windows.Forms.Padding(2)
Me.Button5.Name = "Button5"
Me.Button5.Padding = New System.Windows.Forms.Padding(0, 12, 0, 3)
Me.Button5.Size = New System.Drawing.Size(81, 67)
Me.Button5.TabIndex = 5
Me.Button5.Text = "Referenzen"
Me.Button5.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.Button5.UseVisualStyleBackColor = False
Me.Button5.Visible = False
'
'pnl
'
Me.pnl.BackColor = System.Drawing.Color.WhiteSmoke
Me.pnl.Controls.Add(Me.Label8)
Me.pnl.Controls.Add(Me.Label7)
Me.pnl.Controls.Add(Me.Label6)
Me.pnl.Controls.Add(Me.cboStammreferenz)
Me.pnl.Controls.Add(Me.cboDakosyAction)
Me.pnl.Controls.Add(Me.Button1)
Me.pnl.Controls.Add(Me.Label4)
Me.pnl.Controls.Add(Me.Label5)
Me.pnl.Controls.Add(Me.Label2)
Me.pnl.Controls.Add(Me.Label3)
Me.pnl.Dock = System.Windows.Forms.DockStyle.Right
Me.pnl.Location = New System.Drawing.Point(573, 0)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(361, 72)
Me.pnl.TabIndex = 1
'
'Label8
'
Me.Label8.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(8, 34)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(60, 13)
Me.Label8.TabIndex = 14
Me.Label8.Text = "Rohmasse:"
Me.Label8.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'Label7
'
Me.Label7.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold)
Me.Label7.Location = New System.Drawing.Point(73, 31)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(122, 18)
Me.Label7.TabIndex = 13
Me.Label7.Text = "0 kg"
Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label6
'
Me.Label6.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(8, 51)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(57, 13)
Me.Label6.TabIndex = 12
Me.Label6.Text = "Stammref.:"
Me.Label6.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'cboStammreferenz
'
Me.cboStammreferenz._allowedValuesFreiText = Nothing
Me.cboStammreferenz._allowFreiText = False
Me.cboStammreferenz._value = ""
Me.cboStammreferenz.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.cboStammreferenz.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboStammreferenz.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cboStammreferenz.FormattingEnabled = True
Me.cboStammreferenz.Location = New System.Drawing.Point(66, 48)
Me.cboStammreferenz.Name = "cboStammreferenz"
Me.cboStammreferenz.Size = New System.Drawing.Size(129, 21)
Me.cboStammreferenz.TabIndex = 11
'
'cboDakosyAction
'
Me.cboDakosyAction._allowedValuesFreiText = Nothing
Me.cboDakosyAction._allowFreiText = False
Me.cboDakosyAction._value = ""
Me.cboDakosyAction.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.cboDakosyAction.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboDakosyAction.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cboDakosyAction.FormattingEnabled = True
Me.cboDakosyAction.Location = New System.Drawing.Point(200, 48)
Me.cboDakosyAction.Name = "cboDakosyAction"
Me.cboDakosyAction.Size = New System.Drawing.Size(158, 21)
Me.cboDakosyAction.TabIndex = 1
'
'Button1
'
Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button1.BackColor = System.Drawing.Color.White
Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.Button1.Location = New System.Drawing.Point(200, 5)
Me.Button1.Margin = New System.Windows.Forms.Padding(2)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(159, 42)
Me.Button1.TabIndex = 6
Me.Button1.Text = "An DAKOSY senden -->"
Me.Button1.UseVisualStyleBackColor = False
'
'Label4
'
Me.Label4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(8, 19)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(67, 13)
Me.Label4.TabIndex = 9
Me.Label4.Text = "Packstücke:"
Me.Label4.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'Label5
'
Me.Label5.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold)
Me.Label5.Location = New System.Drawing.Point(73, 16)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(122, 18)
Me.Label5.TabIndex = 10
Me.Label5.Text = "0 Pk"
Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label2
'
Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(8, 4)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(59, 13)
Me.Label2.TabIndex = 7
Me.Label2.Text = "Positionen:"
Me.Label2.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'Label3
'
Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold)
Me.Label3.Location = New System.Drawing.Point(103, 1)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(92, 18)
Me.Label3.TabIndex = 8
Me.Label3.Text = "1"
Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label1
'
Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label1.AutoSize = True
Me.Label1.BackColor = System.Drawing.Color.White
Me.Label1.Location = New System.Drawing.Point(581, 7)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(82, 13)
Me.Label1.TabIndex = 5
Me.Label1.Text = "Bezugsnummer:"
'
'lblBezugsnummer
'
Me.lblBezugsnummer.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblBezugsnummer.BackColor = System.Drawing.Color.White
Me.lblBezugsnummer.ContextMenuStrip = Me.cntxtBezugsnr
Me.lblBezugsnummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblBezugsnummer.Location = New System.Drawing.Point(738, 1)
Me.lblBezugsnummer.Name = "lblBezugsnummer"
Me.lblBezugsnummer.Size = New System.Drawing.Size(193, 23)
Me.lblBezugsnummer.TabIndex = 6
Me.lblBezugsnummer.Text = "4800/000000/17 AAA"
Me.lblBezugsnummer.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'cntxtBezugsnr
'
Me.cntxtBezugsnr.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NeueBezugsnummerVergebenToolStripMenuItem})
Me.cntxtBezugsnr.Name = "cntxtBezugsnr"
Me.cntxtBezugsnr.Size = New System.Drawing.Size(239, 26)
Me.cntxtBezugsnr.Text = "Bezugsnr"
'
'NeueBezugsnummerVergebenToolStripMenuItem
'
Me.NeueBezugsnummerVergebenToolStripMenuItem.Name = "NeueBezugsnummerVergebenToolStripMenuItem"
Me.NeueBezugsnummerVergebenToolStripMenuItem.Size = New System.Drawing.Size(238, 22)
Me.NeueBezugsnummerVergebenToolStripMenuItem.Text = "neue Bezugsnummer vergeben"
'
'Panel1
'
Me.Panel1.Controls.Add(Me.txtDyMandant)
Me.Panel1.Controls.Add(Me.Label1)
Me.Panel1.Controls.Add(Me.txtDyNiederlassung)
Me.Panel1.Controls.Add(Me.lblBezugsnummer)
Me.Panel1.Controls.Add(Me.MenuStrip)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(934, 25)
Me.Panel1.TabIndex = 1
'
'txtDyMandant
'
Me.txtDyMandant.BackColor = System.Drawing.Color.White
Me.txtDyMandant.Location = New System.Drawing.Point(443, 7)
Me.txtDyMandant.Name = "txtDyMandant"
Me.txtDyMandant.Size = New System.Drawing.Size(48, 13)
Me.txtDyMandant.TabIndex = 19
Me.txtDyMandant.Text = "VERG"
Me.txtDyMandant.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'txtDyNiederlassung
'
Me.txtDyNiederlassung.BackColor = System.Drawing.Color.White
Me.txtDyNiederlassung.Location = New System.Drawing.Point(497, 7)
Me.txtDyNiederlassung.Name = "txtDyNiederlassung"
Me.txtDyNiederlassung.Size = New System.Drawing.Size(63, 13)
Me.txtDyNiederlassung.TabIndex = 18
Me.txtDyNiederlassung.Text = "SUB"
'
'MenuStrip
'
Me.MenuStrip.BackColor = System.Drawing.Color.White
Me.MenuStrip.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.OptionenToolStripMenuItem})
Me.MenuStrip.Location = New System.Drawing.Point(0, 0)
Me.MenuStrip.Name = "MenuStrip"
Me.MenuStrip.Size = New System.Drawing.Size(934, 24)
Me.MenuStrip.TabIndex = 0
'
'OptionenToolStripMenuItem
'
Me.OptionenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SpeichernToolStripMenuItem, Me.LadenToolStripMenuItem})
Me.OptionenToolStripMenuItem.Name = "OptionenToolStripMenuItem"
Me.OptionenToolStripMenuItem.Size = New System.Drawing.Size(69, 20)
Me.OptionenToolStripMenuItem.Text = "Optionen"
'
'SpeichernToolStripMenuItem
'
Me.SpeichernToolStripMenuItem.Name = "SpeichernToolStripMenuItem"
Me.SpeichernToolStripMenuItem.Size = New System.Drawing.Size(126, 22)
Me.SpeichernToolStripMenuItem.Text = "Speichern"
'
'LadenToolStripMenuItem
'
Me.LadenToolStripMenuItem.Name = "LadenToolStripMenuItem"
Me.LadenToolStripMenuItem.Size = New System.Drawing.Size(126, 22)
Me.LadenToolStripMenuItem.Text = "Laden ..."
'
'btnVerschlüsse
'
Me.btnVerschlüsse.BackColor = System.Drawing.Color.White
Me.btnVerschlüsse.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.btnVerschlüsse.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnVerschlüsse.Image = Global.SDL.My.Resources.Resources.seal3
Me.btnVerschlüsse.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnVerschlüsse.Location = New System.Drawing.Point(245, 2)
Me.btnVerschlüsse.Margin = New System.Windows.Forms.Padding(2)
Me.btnVerschlüsse.Name = "btnVerschlüsse"
Me.btnVerschlüsse.Padding = New System.Windows.Forms.Padding(0, 6, 0, 3)
Me.btnVerschlüsse.Size = New System.Drawing.Size(81, 67)
Me.btnVerschlüsse.TabIndex = 3
Me.btnVerschlüsse.Text = "Verschlüsse"
Me.btnVerschlüsse.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.btnVerschlüsse.UseVisualStyleBackColor = False
Me.btnVerschlüsse.Visible = False
'
'usrCntlATLAS_NCTS004
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Controls.Add(Me.SplitContainer)
Me.Controls.Add(Me.Panel1)
Me.Name = "usrCntlATLAS_NCTS004"
Me.Size = New System.Drawing.Size(934, 712)
Me.SplitContainer.Panel1.ResumeLayout(False)
CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainer.ResumeLayout(False)
Me.MyFlowLayoutPanel1.ResumeLayout(False)
Me.pnl.ResumeLayout(False)
Me.pnl.PerformLayout()
Me.cntxtBezugsnr.ResumeLayout(False)
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
Me.MenuStrip.ResumeLayout(False)
Me.MenuStrip.PerformLayout()
Me.ResumeLayout(False)
End Sub
Friend WithEvents SplitContainer As System.Windows.Forms.SplitContainer
Friend WithEvents MyFlowLayoutPanel1 As VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel
Friend WithEvents btnAllgemein As System.Windows.Forms.Button
Friend WithEvents btnAdressen As System.Windows.Forms.Button
Friend WithEvents btnSicherheit As System.Windows.Forms.Button
Friend WithEvents btnPositionen As System.Windows.Forms.Button
Friend WithEvents Button5 As System.Windows.Forms.Button
Friend WithEvents pnl As System.Windows.Forms.Panel
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents lblBezugsnummer As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents MenuStrip As System.Windows.Forms.MenuStrip
Friend WithEvents OptionenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents SpeichernToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents LadenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents cboDakosyAction As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents cntxtBezugsnr As System.Windows.Forms.ContextMenuStrip
Friend WithEvents NeueBezugsnummerVergebenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents cboStammreferenz As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents txtDyMandant As System.Windows.Forms.Label
Friend WithEvents txtDyNiederlassung As System.Windows.Forms.Label
Friend WithEvents Label4 As Label
Friend WithEvents Label7 As Label
Friend WithEvents Label8 As Label
Friend WithEvents btnVerschlüsse As Button
End Class

126
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004.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>125, 17</value>
</metadata>
<metadata name="MenuStrip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
</root>

636
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004.vb Normal file
View File

@@ -0,0 +1,636 @@
Imports DAKOSY_Worker
Imports Tamir
Imports Tamir.SharpSsh
Public Class usrCntlATLAS_NCTS004
Property ALLG As usrCntlATLAS_NCTS004_Allg
Property ADRESSEN As usrCntlATLAS_NCTS004_Adressen
Property SICHERHEIT As usrCntlATLAS_NCTS004_Sicherheit
Property POSITIONEN As usrCntlATLAS_NCTS004_Positionen
'Property VERSCHLUESSE As usrCntlATLAS_NCTS_Verschluesse
'Property FilialeNr As Integer
' Property AbfertigungsNr As Integer
Property Jahr2Stellig As Integer
Property zusatz As String
Property BezugsNr As String = ""
' Property AvisoId As Integer
'Property SENDUNGS_ID As Integer
Property AVISO As VERAG_PROG_ALLGEMEIN.cAviso
Property SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen
Dim sentToDakosy = False
Property isSTAMMREF As Boolean = False ' Wenn das Formular als Stammreferenz bearbeitet wird
Property STAMMREF As String = "" ' Wenn eine Stammrefereenz als Grundlage dient
Dim FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Dim cDy_ART As String = If(FIRMA_DY = "ATILLA", "T2", "T1")
Dim ncts_OUT As cDakosyNCTSOut004 = Nothing
Dim DY_ANM As cDakosy_Zollanmeldungen = Nothing
Sub New(ncts_OUT As cDakosyNCTSOut004, Optional isSTAMMREF As Boolean = False, Optional STAMMREF As String = "")
InitializeComponent()
Me.isSTAMMREF = isSTAMMREF
Me.STAMMREF = STAMMREF
Me.ncts_OUT = ncts_OUT
DY_ANM = New cDakosy_Zollanmeldungen(ncts_OUT.ncts_dyaAnmID)
If DY_ANM.dy_AvisoId > 0 Then
Dim AV As New VERAG_PROG_ALLGEMEIN.cAvisoDAL
AVISO = AV.LesenAviso(DY_ANM.dy_AvisoId, "")
End If
If DY_ANM.dy_SendungsId > 0 Then
SENDUNG = New VERAG_PROG_ALLGEMEIN.cSendungen(DY_ANM.dy_SendungsId)
End If
End Sub
Sub New(DY_ANM As cDakosy_Zollanmeldungen, AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, Jahr2Stellig As Integer, Optional zusatz As String = "", Optional isSTAMMREF As Boolean = False, Optional STAMMREF As String = "")
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.Jahr2Stellig = Jahr2Stellig
Me.zusatz = zusatz
Me.AVISO = AVISO
Me.SENDUNG = SENDUNG
Me.DY_ANM = DY_ANM
Me.isSTAMMREF = isSTAMMREF
Me.STAMMREF = STAMMREF
If DY_ANM IsNot Nothing Then
Me.ncts_OUT = DAKOSY_Worker.cDakosyNCTSOut004.LOADByAnmIDFull(DY_ANM.dy_Id, True)
Me.cDy_ART = If(DY_ANM.dy_ART, "")
If Me.cDy_ART = "" And Me.ncts_OUT IsNot Nothing Then Me.cDy_ART = If(Me.ncts_OUT.ncts_Declarationtype, "")
If Me.cDy_ART = "" Then Me.cDy_ART = "T1"
If ncts_OUT IsNot Nothing Then
Me.FIRMA_DY = If(Me.ncts_OUT.ncts_firma, "")
End If
End If
'DY_ANM = New cDakosy_Zollanmeldungen(ncts_OUT.ncts_dyaAnmID)
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Sub New(ART As String, AvisoId As Integer, SENDUNGS_ID As Integer, Jahr2Stellig As Integer, Optional zusatz As String = "", Optional isSTAMMREF As Boolean = False, Optional STAMMREF As String = "")
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.cDy_ART = If(ART = "NCTS", "T1", ART)
If AvisoId > 0 Then
Dim AV As New VERAG_PROG_ALLGEMEIN.cAvisoDAL
AVISO = AV.LesenAviso(AvisoId, "")
End If
If SENDUNGS_ID > 0 Then
SENDUNG = New VERAG_PROG_ALLGEMEIN.cSendungen(SENDUNGS_ID)
End If
Me.Jahr2Stellig = Jahr2Stellig
Me.isSTAMMREF = isSTAMMREF
Me.STAMMREF = STAMMREF
Me.zusatz = zusatz
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Sub New(ART As String, Aviso As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, Jahr2Stellig As Integer, Optional zusatz As String = "", Optional isSTAMMREF As Boolean = False, Optional STAMMREF As String = "", Optional FIRMA_DY As String = "")
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.cDy_ART = If(ART = "NCTS", "T1", ART)
Me.AVISO = Aviso
Me.SENDUNG = SENDUNG
Me.isSTAMMREF = isSTAMMREF
Me.STAMMREF = STAMMREF
Me.Jahr2Stellig = Jahr2Stellig
Me.zusatz = zusatz
If FIRMA_DY <> "" Then Me.FIRMA_DY = FIRMA_DY
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Function getBezugsnr(ByRef BezugsNr)
Dim BezugsNrTmp = ""
Select Case FIRMA_DY
Case "UNISPED"
If If(SENDUNG.tblSnd_DakosyRef, "") <> "" Then
BezugsNrTmp = SENDUNG.tblSnd_DakosyRef
Else
BezugsNrTmp = SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr
End If
Case Else
BezugsNrTmp = SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr '& If(zusatz <> "", "/" & zusatz, "") 'zusatz ' & "/" & Jahr2Stellig
End Select
BezugsNr = BezugsNrTmp
zusatz = "A"
'Soloagne bis die Bezugsnummer noch nicht existiert
While DAKOSY_Worker.cDakosy_Zollanmeldungen.ExistsBezugsNr(BezugsNr) 'IsNot Nothing
BezugsNr = BezugsNrTmp & "/" & zusatz
If zusatz.Length = 1 Then
zusatz = Chr(Asc(zusatz.ToString) + 1)
Else
zusatz = zusatz.Substring(0, 1) & Chr(Asc(zusatz.Substring(0, 2).ToString) + 1)
End If
If zusatz = "Z" Then zusatz = "AA"
End While
lblBezugsnummer.Text = BezugsNr
Return BezugsNr
End Function
Private Sub usrCntlATLAS_Load(sender As Object, e As EventArgs) Handles Me.Load
'MsgBox("LOAD")
cboDakosyAction.Items.Clear()
cboDakosyAction.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neuen Datensatz erstellen", DY_ObjektAktion.OBJ_CREATE))
cboDakosyAction.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vohr. DS ändern", DY_ObjektAktion.OBJ_CHANGE))
cboDakosyAction.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vorh. DS stornieren", DY_ObjektAktion.OBJ_CANCEL))
cboDakosyAction.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Datensatz an ZOLL senden", DY_ObjektAktion.OBJ_SEND))
cboDakosyAction.changeItem(DY_ObjektAktion.OBJ_CREATE)
Select Case FIRMA_DY
Case "VERAG" : txtDyMandant.Text = "VERG"
txtDyNiederlassung.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
' Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
'Case "SUB" : txtDyNiederlassung.Text = "VERG"
'Case "SUW" : txtDyNiederlassung.Text = "ATIL"
''Case "SBG" : txtDyNiederlassung.Text = "IMEX"
'Case "NEU" : txtDyNiederlassung.Text = "IMEX"
'Case "NKD" : txtDyNiederlassung.Text = "IMEX"
'End Select
Case "ATILLA" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "SUW"
Case "UNISPED" : txtDyMandant.Text = "UNAT" : txtDyNiederlassung.Text = "ATSPED"
Case "IMEX" : txtDyMandant.Text = "IMEX" : txtDyNiederlassung.Text = "IME"
Case "AMBAR" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "AMBWO"
End Select
cboStammreferenz.fillWithSQL("SELECT [dySr_Stammreferenz],[dySr_Bezeichnung] FROM [tblDakosy_Stammreferenzen] WHERE dySr_Land='DE' AND dySr_Verfahren='NCTS' and dySr_dy_Mandant='" & txtDyMandant.Text & "' and dySr_dy_Niederlassung IN ('','" & txtDyNiederlassung.Text & "') and dySr_visible=1", False, "FMZOLL", True)
cboStammreferenz.changeItem("")
SICHERHEIT = New usrCntlATLAS_NCTS004_Sicherheit(ncts_OUT, FIRMA_DY)
'VERSCHLUESSE = New usrCntlATLAS_NCTS_Verschluesse() 'ncts_OUT)
ADRESSEN = New usrCntlATLAS_NCTS004_Adressen(ncts_OUT, FIRMA_DY) ')
ALLG = New usrCntlATLAS_NCTS004_Allg(ncts_OUT)
POSITIONEN = New usrCntlATLAS_NCTS004_Positionen(ncts_OUT)
If isSTAMMREF Then
Me.BezugsNr = "STAMMREFERENZ"
If ncts_OUT Is Nothing Then ncts_OUT = New cDakosyNCTSOut004
ncts_OUT.ncts_ObjectName = BezugsNr
Else
If ncts_OUT Is Nothing Then ' NEUE ZOLLANMELDUNG
Dim f As New frmDakosyStammreferenz("DE", "NCTS", False,,, FIRMA_DY)
Dim Stammreferenz = Nothing
If f.ShowDialog(Me) Then
Stammreferenz = f.STAMMREF
sentToDakosy = f.sentToDakosy
End If
Try
BezugsNr = getBezugsnr(BezugsNr)
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
ncts_OUT = cDakosyNCTSOut004.LOADByBezugsNr(BezugsNr, True)
If ncts_OUT Is Nothing Then
'Falls zur BezugsNr schon ein Eintrag in der DB vorhanden ist
ncts_OUT = cDakosyNCTSOut004.LOADByAnmIDFull(f.STAMMREF_DYID, True) ' DyID --> Falls bei der Stammreferenz eine Vorlage hinterlegt ist!
If ncts_OUT IsNot Nothing Then
'Stmmreferenz - Werte zurücksetzen, damit nicht falsch übergeben
ncts_OUT.ncts_dyaAnmID = -1
ncts_OUT.ncts_Id = -1
Else
ncts_OUT = New cDakosyNCTSOut004
End If
loaddataFromAVISO(ncts_OUT)
cboStammreferenz.changeItem(Stammreferenz)
End If
'ncts_OUT
Else
' ncts_OUT is ot nothing
Me.BezugsNr = ncts_OUT.ncts_ObjectName
'MsgBox(ncts_OUT.ncts_Hauptverpflichteter_Name)
End If
End If
If If(ncts_OUT.ncts_firma, "") = "" Then If FIRMA_DY <> "" Then ncts_OUT.ncts_firma = FIRMA_DY
If If(Me.cDy_ART, "") <> "" Then
'Muss noch überschrieben werdne, da sonst Art von Stammref hergenommen wird...
ncts_OUT.ncts_Declarationtype = Me.cDy_ART
Else
'Wenn keine Art --> T1
If ncts_OUT.ncts_Declarationtype Is Nothing Or ncts_OUT.ncts_Declarationtype = "" Then
ncts_OUT.ncts_Declarationtype = "T1"
End If
End If
'hinzufügen, damit alle Controls richtig geladen und initialisiert werden:s
Me.SplitContainer.Panel2.Controls.Add(SICHERHEIT)
'Me.SplitContainer.Panel2.Controls.Add(VERSCHLUESSE)
Me.SplitContainer.Panel2.Controls.Add(ALLG)
Me.SplitContainer.Panel2.Controls.Add(POSITIONEN)
Me.SplitContainer.Panel2.Controls.Add(ADRESSEN)
' MsgBox(ncts_OUT.ncts_Hauptverpflichteter_Name)
'Werte setzen:
SICHERHEIT.setValues(ncts_OUT.ncts_GUARANTEE)
' VERSCHLUESSE.setValues(ncts_OUT)
ADRESSEN.setValues(ncts_OUT)
ALLG.setValues(ncts_OUT)
POSITIONEN.setValues(ncts_OUT)
If If(ncts_OUT.ncts_Stammreferenz, "") <> "" Then cboStammreferenz.changeItem(ncts_OUT.ncts_Stammreferenz)
'Controls wieder entfernen:
Me.SplitContainer.Panel2.Controls.Clear()
' If ALLG.txtKennnummer.Text = "" Then ALLG.txtKennnummer.Text = BezugsNr
' ADRESSEN.CreateControl()
For Each c In MyFlowLayoutPanel1.Controls
If c.GetType.ToString = GetType(System.Windows.Forms.Button).ToString Then
AddHandler DirectCast(c, System.Windows.Forms.Button).Click, AddressOf buttonClick
End If
Next
AddHandler ADRESSEN.Button1.Click, Sub()
Dim origin = ""
Dim destination = ""
'Dim usrCntlVers = ADRESSEN.usrCntlVersender
'origin &= usrCntlVers.txtStrasse.Text & " "
'origin &= usrCntlVers.sbLand._value & " "
'origin &= usrCntlVers.txtPlz.Text & " "
'origin &= usrCntlVers.txtOrt.Text & " "
If ALLG.sbAbgangZollstelle._value <> "" Then
origin = ALLG.sbAbgangZollstelle._value.Substring(0, 2) & " " & ALLG.sbAbgangZollstelle.Text
End If
Dim usrCntlEmpf = ADRESSEN.usrCntlEmpfaenger
destination &= usrCntlEmpf.txtStrasse.Text & " "
destination &= usrCntlEmpf.sbLand._value & " "
destination &= usrCntlEmpf.txtPlz.Text & " "
destination &= usrCntlEmpf.txtOrt.Text & " "
Dim duration = ""
Dim distance = ""
VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance(origin, destination, duration, "", distance)
ADRESSEN.lblWegstreckeVonNach.Text = "von: " & origin & vbNewLine
ADRESSEN.lblWegstreckeVonNach.Text &= "nach: " & destination
ADRESSEN.lblWegstrecke.Text = distance
ADRESSEN.lblWegZeit.Text = duration
End Sub
SplitContainer.Panel2.Controls.Add(ALLG)
lblBezugsnummer.Text = BezugsNr
ALLG.Dock = DockStyle.Fill
ADRESSEN.Dock = DockStyle.Fill
POSITIONEN.Dock = DockStyle.Fill
SICHERHEIT.Dock = DockStyle.Fill
'VERSCHLUESSE.Dock = DockStyle.Fill
'
'
AddHandler POSITIONEN.RohmasseChanged, Sub(rohmasse, packstuecke)
Label5.Text = packstuecke.ToString("N0") & " Pk"
Label7.Text = rohmasse.ToString("N2") & " kg"
End Sub
AddHandler POSITIONEN.PosAnzChanged, Sub(anz)
Label3.Text = anz
End Sub
If isSTAMMREF Then
Button1.Visible = False
cboDakosyAction.Visible = False
lblBezugsnummer.Text = "STAMMREFERENZ"
lblBezugsnummer.ForeColor = Color.Red
End If
If sentToDakosy Then
Try
Me.Button1.PerformClick()
Me.FindForm.Close()
Catch
End Try
End If
Try
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_DakosyZA_AVISO_Edit", "AVISO") Then
Me.FindForm.Close()
End If
Catch
End Try
End Sub
Sub buttonClick(sender As Object, e As EventArgs) 'HANDLED
Dim btn As System.Windows.Forms.Button = DirectCast(sender, System.Windows.Forms.Button)
For Each c In MyFlowLayoutPanel1.Controls
If c.GetType.ToString = GetType(System.Windows.Forms.Button).ToString Then
DirectCast(c, System.Windows.Forms.Button).BackColor = Drawing.Color.White
DirectCast(c, System.Windows.Forms.Button).ForeColor = Drawing.Color.Black
End If
Next
btn.BackColor = Drawing.Color.SteelBlue 'Drawing.Color.FromArgb(0, 54, 128)
btn.ForeColor = Drawing.Color.White
SplitContainer.Panel2.Controls.Clear()
If btn Is btnAllgemein Then
SplitContainer.Panel2.Controls.Add(ALLG)
ElseIf btn Is btnAdressen Then
SplitContainer.Panel2.Controls.Add(ADRESSEN)
ElseIf btn Is btnSicherheit Then
SplitContainer.Panel2.Controls.Add(SICHERHEIT)
'ElseIf btn Is btnVerschlüsse Then
' SplitContainer.Panel2.Controls.Add(VERSCHLUESSE)
ElseIf btn Is btnPositionen Then
SplitContainer.Panel2.Controls.Add(POSITIONEN)
End If
End Sub
Sub loaddataFromAVISO(ByRef cdy As cDakosyNCTSOut004)
Try
'==> VORBLENDUNG:
' Dim cdy As New cDakosyNCTSOut
cdy.ncts_ObjectName = BezugsNr
cdy.ncts_CustomsOfficeOfDeparture = "" '"DE007701" ' Neuhaus (öSTERR:)
frmZollanmeldung.setZollstelle(cdy.ncts_CustomsOfficeOfDeparture, AVISO)
cdy.ncts_dyaArt = cDy_ART
If AVISO IsNot Nothing Then
cdy.ncts_DepartureTransportMeans_1_IdentificationNumber = AVISO.LKW_Nr
cdy.ncts_DepartureTransportMeans_1_Nationality = AVISO.LKW_Nationalitaet
If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "ATILLA" Then
'cdy.transportm = "X"
Else
'cdy.ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend = AVISO.LKW_Nr
' cdy.ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode = AVISO.LKW_Nationalitaet
End If
End If
cdy.ncts_InlandModeOfTransport = "3"
cdy.ncts_ModeOfTransportAtTheBorder = "3"
'cdy.ncts_Befoerderungsmittel_ArtGrenzueberschreitung = "35"
If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "ATILLA" Or (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" And AVISO.ImEx = "EXPORT") Then
cdy.ncts_Security = True
cdy.ncts_SpecificCircomstanceIndicator = "C"
cdy.ncts_TransportCharges = "D"
cdy.ncts_PlaceOfLoading_Country = "DE"
'cdy.ncts_SumA_KennnummerSendung = "OHNE"
If AVISO.Frächter_KdNr IsNot Nothing AndAlso IsNumeric(AVISO.Frächter_KdNr) AndAlso AVISO.Frächter_KdNr > 0 Then
Dim AD_Befoerderer As New VERAG_PROG_ALLGEMEIN.cAdressen(AVISO.Frächter_KdNr) ' Befoerderer
Dim KD_Befoerderer As New VERAG_PROG_ALLGEMEIN.cKunde(AVISO.Frächter_KdNr) ' Befoerderer
cdy.ncts_Carrier_IdentificationNumber = KD_Befoerderer.EORITIN
If KD_Befoerderer.EORITIN IsNot Nothing Then cdy.ncts_Carrier_SubsidiaryNumber = KD_Befoerderer.EORITIN_NL
'cdy.ncts_Carrier_name = (If(AD_Befoerderer.Name_1, "") & " " & If(AD_Befoerderer.Name_2, "")).trim
'cdy.ncts_Carrier_st = AD_Befoerderer.Straße
'cdy.ncts_SumA_Befoerderer_PLZ = AD_Befoerderer.PLZ
'cdy.ncts_SumA_Befoerderer_Ort = AD_Befoerderer.Ordnungsbegriff
'cdy.ncts_SumA_Befoerderer_Land = cProgramFunctions.getISO2Land(AD_Befoerderer.LandKz)
Else
'cdy.ncts_SumA_Befoerderer_Name = If(AVISO.Frächter, "")
End If
End If
If SENDUNG IsNot Nothing Then
Dim HC As DAKOSY_Worker.cDakosy_NCTSOut004_HouseConsignment = Nothing
If cdy.ncts_HOUSE_CONSIGNMENT.Count > 0 Then
HC = cdy.ncts_HOUSE_CONSIGNMENT(0)
Else
HC = New DAKOSY_Worker.cDakosy_NCTSOut004_HouseConsignment
cdy.ncts_HOUSE_CONSIGNMENT.Add(HC) ' schon wieder...'nciht mehr anfügen
End If
Dim p As DAKOSY_Worker.cDakosy_NCTSOut004_HouseConsignment_ConsignmentItem = Nothing
If HC.nctsWP_CONSIGNMENT_ITEM.Count > 0 Then
p = HC.nctsWP_CONSIGNMENT_ITEM(0)
Else
p = New DAKOSY_Worker.cDakosy_NCTSOut004_HouseConsignment_ConsignmentItem
HC.nctsWP_CONSIGNMENT_ITEM.Add(p) ' schon wieder...'nciht mehr anfügen
End If
p.nctsHCCI_DescriptionOfGoods = SENDUNG.tblSnd_Warenbezeichnung
If SENDUNG.tblSnd_Colli IsNot Nothing AndAlso IsNumeric(SENDUNG.tblSnd_Colli) Then
Dim pk As New DAKOSY_Worker.cDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packaging
pk.nctsHCCIPK_NumberOfPackages = SENDUNG.tblSnd_Colli
pk.nctsHCCIPK_TypeOfPackages = "PK"
'pk.nctsHCCIPK_GoodsItemNumber = "OHNE" -->BEIPACK Verweis auf andere Pos-
p.nctsHCCI_PACKAGING.Add(pk)
End If
p.nctsHCCI_GrossMass = SENDUNG.tblSnd_Gewicht
p.nctsHCCI_GoodsValue = SENDUNG.tblSnd_Warenwert
p.nctsHCCI_CurrencyOfGoodsValue = SENDUNG.tblSnd_WarenwertWaehrung
' p.nctsWP_Warenbezeichnung = SENDUNG.tblSnd_Warenbezeichnung
'If If(p.nctsWP_VorpapierTyp, "") = "" Then p.nctsWP_VorpapierTyp = "OHNE"
If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "ATILLA" Then
' p.nctsWP_BesondereVermeke_Export = True
End If
'cdy.ncts_WARENPOS.Add(p)
Select Case cdy.ncts_CustomsOfficeOfDeparture
Case "DE007458" 'Bad Reichenhall --> Empfänger muss tat. Empf. sein; Gest.Adresse nicht akzeptiert!!
If SENDUNG.tblSnd_EmpfaengerKdNr > 0 Then
Dim adEMPF As New VERAG_PROG_ALLGEMEIN.cAdressen(SENDUNG.tblSnd_EmpfaengerKdNr)
Dim kdEMPF As New VERAG_PROG_ALLGEMEIN.cKunde(SENDUNG.tblSnd_EmpfaengerKdNr)
cdy.ncts_Consignee_IdentificationNumber = kdEMPF.EORITIN
cdy.ncts_Consignee_SubsidiaryNumber = kdEMPF.EORITIN_NL
cdy.ncts_Consignee_Name = If(adEMPF.Name_1, "") & If(adEMPF.Name_2, "")
cdy.ncts_Consignee_StreetNumber = adEMPF.Straße
cdy.ncts_Consignee_Postcode = adEMPF.PLZ
cdy.ncts_Consignee_City = adEMPF.Ort
If adEMPF.LandKz IsNot Nothing Then cdy.ncts_Consignee_Country = cProgramFunctions.getISO2Land(adEMPF.LandKz)
cdy.ncts_CustomsOfficeOfDestinationDeclared = cProgramFunctions.isLeerNothing(SENDUNG.NCTS_Bestimmungszollstelle)
End If
Case Else
cdy.ncts_Consignee_IdentificationNumber = cProgramFunctions.isLeerNothing(SENDUNG.NCTS_Verzollungsadresse_EORI)
cdy.ncts_Consignee_SubsidiaryNumber = cProgramFunctions.isLeerNothing(SENDUNG.NCTS_Verzollungsadresse_EORI_NL)
cdy.ncts_Consignee_Name = cProgramFunctions.isLeerNothing(SENDUNG.tblSnd_NCTSVerzollungsadresse)
cdy.ncts_Consignee_StreetNumber = cProgramFunctions.isLeerNothing(SENDUNG.NCTS_Verzollungsadresse_Strasse)
cdy.ncts_Consignee_Postcode = cProgramFunctions.isLeerNothing(SENDUNG.NCTS_Verzollungsadresse_PLZ)
cdy.ncts_Consignee_City = cProgramFunctions.isLeerNothing(SENDUNG.NCTS_Verzollungsadresse_Ort)
cdy.ncts_Consignee_Country = cProgramFunctions.isLeerNothing(SENDUNG.NCTS_Verzollungsadresse_Land)
cdy.ncts_CustomsOfficeOfDestinationDeclared = cProgramFunctions.isLeerNothing(SENDUNG.NCTS_Bestimmungszollstelle)
End Select
If SENDUNG.tblSnd_AbsenderKdNr > 0 Then
Dim adVERSENDER As New VERAG_PROG_ALLGEMEIN.cAdressen(SENDUNG.tblSnd_AbsenderKdNr)
Dim kdVERSENDER As New VERAG_PROG_ALLGEMEIN.cKunde(SENDUNG.tblSnd_AbsenderKdNr)
cdy.ncts_Consignor_IdentificationNumber = kdVERSENDER.EORITIN
cdy.ncts_Consignor_SubsidiaryNumber = kdVERSENDER.EORITIN_NL
cdy.ncts_Consignor_Name = If(adVERSENDER.Name_1, "") & If(adVERSENDER.Name_2, "")
cdy.ncts_Consignor_StreetNumber = adVERSENDER.Straße
cdy.ncts_Consignor_Postcode = adVERSENDER.PLZ
cdy.ncts_Consignor_City = adVERSENDER.Ort
If adVERSENDER.LandKz IsNot Nothing Then cdy.ncts_Consignor_Country = cProgramFunctions.getISO2Land(adVERSENDER.LandKz)
' cdy.ncts_BestimmungsstelleDienststellennummer = cProgramFunctions.isLeerNothing(SENDUNG.NCTS_Bestimmungszollstelle)
End If
End If
' NCTS= cdy
Catch ex As Exception
MsgBox(ex.StackTrace)
End Try
End Sub
Sub setValue(ncts_OUT)
BezugsNr = ncts_OUT.ncts_ObjectName
End Sub
Private Sub pnl_Paint(sender As Object, e As PaintEventArgs)
End Sub
Sub loadDYZollanmeldungen(Optional Status As String = "") ' + Speichern
If DY_ANM Is Nothing Then
DY_ANM = New cDakosy_Zollanmeldungen(ncts_OUT.ncts_dyaAnmID)
End If
DY_ANM.dy_ART = ALLG.NCTS_ART 'cDy_ART
DY_ANM.dy_BezugsNr = BezugsNr
DY_ANM.dy_AvisoId = If(AVISO Is Nothing, Nothing, AVISO.AvisoID)
DY_ANM.dy_SendungsId = If(SENDUNG Is Nothing, Nothing, SENDUNG.tblSnd_SendungID)
'Status?
DY_ANM.SAVE() 'Speichern, ID wird erzeugt
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.Refresh()
Me.Cursor = Cursors.WaitCursor
If sentToDakosy OrElse vbYes = MsgBox("Sollen die Daten abgeschickt werden?" & vbNewLine & "Eine Änderung ist nur noch in der Dakosy Software möglich.", vbYesNoCancel) Then
' Dim cDyAnm As New cDakosy_Zollanmeldungen(cDy_ART, BezugsNr, AVISO.AvisoID, SENDUNG.tblSnd_SendungID)
loadDYZollanmeldungen()
If ncts_OUT IsNot Nothing Then
'Dim cDY As New cDakosyNCTSOut(cDyAnm.dy_Id, cDyAnm.dy_Erstellung_SB)
ncts_OUT.ncts_dyaAnmID = DY_ANM.dy_Id
ncts_OUT.ncts_Erstellung_SB = DY_ANM.dy_Erstellung_SB
ncts_OUT.ncts_LetzteBearbeitung = Now
ncts_OUT.ncts_LetzteBearbeitung_SB = DY_ANM.dy_LetzteBearbeitung_SB
ncts_OUT.ncts_firma = Me.FIRMA_DY
DAKOSY_Interface_SEND.loadInClass_VersandanmeldungNCTSDE_004(ncts_OUT, Me, DY_ANM, Me.FIRMA_DY)
If Not ncts_OUT.SAVE_ALL() Then Exit Sub
Dim saveFile = ""
If DAKOSY_Interface_SEND.generateVersandanmeldungNCTSDE_004(ncts_OUT, saveFile, cboDakosyAction._value) Then
If saveFile <> "" Then
If cDakosyFunftions.send_Data_To_Dakosy_FTP(saveFile, BezugsNr, DY_ANM.dy_Id, Me.FIRMA_DY) Then
DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_ANM, DAKOSY_Worker.cDY_Statusliste.S_03)
If SENDUNG IsNot Nothing Then SENDUNG.SET_VGMA() ' MA Vorgeschrieben in Sendung setzen.
Else
DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_ANM, DAKOSY_Worker.cDY_Statusliste.S_09)
MsgBox("Sendefehler!")
End If
End If
End If
End If
DY_ANM.UPDATE_DATA()
'Beim Senden soll die Sendung überhnommen + tblSnd_VG_MA gesetzt werden --> damit gleich gesehen wird, dass der Akt in Bearbeitung ist.
DY_ANM.UPDATE_AVISO_SND(DY_ANM.dy_SendungsId)
Me.FindForm.Close()
End If
Me.Cursor = Cursors.Default
End Sub
Private Sub SpeichernToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SpeichernToolStripMenuItem.Click
Me.Refresh()
' Dim cDyAnm As New cDakosy_Zollanmeldungen(cDy_ART, BezugsNr, If(AVISO Is Nothing, Nothing, AVISO.AvisoID), If(SENDUNG Is Nothing, Nothing, SENDUNG.tblSnd_SendungID))
loadDYZollanmeldungen()
If ncts_OUT IsNot Nothing Then
'Dim cDY As New cDakosyNCTSOut(cDyAnm.dy_Id, cDyAnm.dy_Erstellung_SB)
ncts_OUT.ncts_dyaAnmID = DY_ANM.dy_Id
ncts_OUT.ncts_Erstellung_SB = DY_ANM.dy_Erstellung_SB
ncts_OUT.ncts_LetzteBearbeitung = Now
ncts_OUT.ncts_LetzteBearbeitung_SB = DY_ANM.dy_LetzteBearbeitung_SB
DAKOSY_Interface_SEND.loadInClass_VersandanmeldungNCTSDE_004(ncts_OUT, Me, DY_ANM, FIRMA_DY)
If Not ncts_OUT.SAVE_ALL() Then
'gespeichert
End If
End If
DY_ANM.UPDATE_DATA()
End Sub
Private Sub NeueBezugsnummerVergebenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeueBezugsnummerVergebenToolStripMenuItem.Click
BezugsNr = getBezugsnr(BezugsNr)
End Sub
End Class

285
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Adressen.Designer.vb generated Normal file
View File

@@ -0,0 +1,285 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class usrCntlATLAS_NCTS004_Adressen
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.pnl = New System.Windows.Forms.Panel()
Me.lblWegstreckeVonNach = New System.Windows.Forms.Label()
Me.lblWegZeit = New System.Windows.Forms.Label()
Me.lblWegstrecke = New System.Windows.Forms.Label()
Me.Button1 = New System.Windows.Forms.Button()
Me.lblBefullen = New System.Windows.Forms.Label()
Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.grp = New System.Windows.Forms.GroupBox()
Me.usrCntlSumA_Versender = New SDL.usrCntlAdresse()
Me.cbxSumABeforderer = New System.Windows.Forms.CheckBox()
Me.usrCntlSumA_Empfaenger = New SDL.usrCntlAdresse()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.usrCntlSumA_Befoerderer = New SDL.usrCntlAdresse()
Me.usrCntlZugelEmpfaenger = New SDL.usrCntlAdresse()
Me.usrCntlEmpfaenger = New SDL.usrCntlAdresse()
Me.usrCntlVersender = New SDL.usrCntlAdresse()
Me.usrCntlHauptverpflichteter = New SDL.usrCntlAdresse()
Me.PictureBox2 = New System.Windows.Forms.PictureBox()
Me.pnl.SuspendLayout()
Me.grp.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'pnl
'
Me.pnl.Controls.Add(Me.lblWegstreckeVonNach)
Me.pnl.Controls.Add(Me.lblWegZeit)
Me.pnl.Controls.Add(Me.lblWegstrecke)
Me.pnl.Controls.Add(Me.Button1)
Me.pnl.Controls.Add(Me.lblBefullen)
Me.pnl.Controls.Add(Me.MyComboBox1)
Me.pnl.Controls.Add(Me.grp)
Me.pnl.Controls.Add(Me.usrCntlSumA_Befoerderer)
Me.pnl.Controls.Add(Me.usrCntlZugelEmpfaenger)
Me.pnl.Controls.Add(Me.usrCntlEmpfaenger)
Me.pnl.Controls.Add(Me.usrCntlVersender)
Me.pnl.Controls.Add(Me.usrCntlHauptverpflichteter)
Me.pnl.Controls.Add(Me.PictureBox2)
Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnl.Location = New System.Drawing.Point(0, 0)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(907, 628)
Me.pnl.TabIndex = 0
'
'lblWegstreckeVonNach
'
Me.lblWegstreckeVonNach.Location = New System.Drawing.Point(160, 324)
Me.lblWegstreckeVonNach.Name = "lblWegstreckeVonNach"
Me.lblWegstreckeVonNach.Size = New System.Drawing.Size(265, 29)
Me.lblWegstreckeVonNach.TabIndex = 55
'
'lblWegZeit
'
Me.lblWegZeit.AutoSize = True
Me.lblWegZeit.Location = New System.Drawing.Point(20, 375)
Me.lblWegZeit.Name = "lblWegZeit"
Me.lblWegZeit.Size = New System.Drawing.Size(19, 13)
Me.lblWegZeit.TabIndex = 54
Me.lblWegZeit.Text = "----"
Me.lblWegZeit.Visible = False
'
'lblWegstrecke
'
Me.lblWegstrecke.AutoSize = True
Me.lblWegstrecke.Location = New System.Drawing.Point(20, 360)
Me.lblWegstrecke.Name = "lblWegstrecke"
Me.lblWegstrecke.Size = New System.Drawing.Size(19, 13)
Me.lblWegstrecke.TabIndex = 53
Me.lblWegstrecke.Text = "----"
Me.lblWegstrecke.Visible = False
'
'Button1
'
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Location = New System.Drawing.Point(17, 324)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(137, 29)
Me.Button1.TabIndex = 52
Me.Button1.Text = "Strecke berechnen"
Me.Button1.UseVisualStyleBackColor = True
Me.Button1.Visible = False
'
'lblBefullen
'
Me.lblBefullen.AutoSize = True
Me.lblBefullen.Location = New System.Drawing.Point(569, 8)
Me.lblBefullen.Name = "lblBefullen"
Me.lblBefullen.Size = New System.Drawing.Size(48, 13)
Me.lblBefullen.TabIndex = 51
Me.lblBefullen.Text = "Befüllen:"
'
'MyComboBox1
'
Me.MyComboBox1._allowedValuesFreiText = Nothing
Me.MyComboBox1._allowFreiText = False
Me.MyComboBox1._value = ""
Me.MyComboBox1.FormattingEnabled = True
Me.MyComboBox1.Location = New System.Drawing.Point(623, 5)
Me.MyComboBox1.Name = "MyComboBox1"
Me.MyComboBox1.Size = New System.Drawing.Size(267, 21)
Me.MyComboBox1.TabIndex = 50
'
'grp
'
Me.grp.Controls.Add(Me.usrCntlSumA_Versender)
Me.grp.Controls.Add(Me.cbxSumABeforderer)
Me.grp.Controls.Add(Me.usrCntlSumA_Empfaenger)
Me.grp.Controls.Add(Me.PictureBox1)
Me.grp.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.grp.Location = New System.Drawing.Point(3, 443)
Me.grp.Name = "grp"
Me.grp.Size = New System.Drawing.Size(897, 182)
Me.grp.TabIndex = 10
Me.grp.TabStop = False
Me.grp.Text = "SumA - Sicherheit"
'
'usrCntlSumA_Versender
'
Me.usrCntlSumA_Versender._Titel = "SumA Versender:"
Me.usrCntlSumA_Versender.BackColor = System.Drawing.Color.WhiteSmoke
Me.usrCntlSumA_Versender.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.usrCntlSumA_Versender.Enabled = False
Me.usrCntlSumA_Versender.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.usrCntlSumA_Versender.Location = New System.Drawing.Point(14, 40)
Me.usrCntlSumA_Versender.Name = "usrCntlSumA_Versender"
Me.usrCntlSumA_Versender.Size = New System.Drawing.Size(408, 132)
Me.usrCntlSumA_Versender.TabIndex = 6
'
'cbxSumABeforderer
'
Me.cbxSumABeforderer.AutoSize = True
Me.cbxSumABeforderer.Checked = True
Me.cbxSumABeforderer.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxSumABeforderer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxSumABeforderer.Location = New System.Drawing.Point(14, 25)
Me.cbxSumABeforderer.Name = "cbxSumABeforderer"
Me.cbxSumABeforderer.Size = New System.Drawing.Size(115, 17)
Me.cbxSumABeforderer.TabIndex = 9
Me.cbxSumABeforderer.Text = "SumA = Beförderer"
Me.cbxSumABeforderer.UseVisualStyleBackColor = True
'
'usrCntlSumA_Empfaenger
'
Me.usrCntlSumA_Empfaenger._Titel = "SumA Empfänger:"
Me.usrCntlSumA_Empfaenger.BackColor = System.Drawing.Color.WhiteSmoke
Me.usrCntlSumA_Empfaenger.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.usrCntlSumA_Empfaenger.Enabled = False
Me.usrCntlSumA_Empfaenger.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.usrCntlSumA_Empfaenger.Location = New System.Drawing.Point(479, 40)
Me.usrCntlSumA_Empfaenger.Name = "usrCntlSumA_Empfaenger"
Me.usrCntlSumA_Empfaenger.Size = New System.Drawing.Size(408, 132)
Me.usrCntlSumA_Empfaenger.TabIndex = 7
'
'PictureBox1
'
Me.PictureBox1.BackgroundImage = Global.SDL.My.Resources.Resources.lorry_motion
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox1.Location = New System.Drawing.Point(418, 83)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(58, 34)
Me.PictureBox1.TabIndex = 49
Me.PictureBox1.TabStop = False
Me.PictureBox1.Visible = False
'
'usrCntlSumA_Befoerderer
'
Me.usrCntlSumA_Befoerderer._Titel = "Beförderer:"
Me.usrCntlSumA_Befoerderer.BackColor = System.Drawing.Color.PapayaWhip
Me.usrCntlSumA_Befoerderer.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.usrCntlSumA_Befoerderer.Location = New System.Drawing.Point(17, 29)
Me.usrCntlSumA_Befoerderer.Name = "usrCntlSumA_Befoerderer"
Me.usrCntlSumA_Befoerderer.Size = New System.Drawing.Size(408, 132)
Me.usrCntlSumA_Befoerderer.TabIndex = 5
'
'usrCntlZugelEmpfaenger
'
Me.usrCntlZugelEmpfaenger._Titel = "Zugelassener Empfänger:"
Me.usrCntlZugelEmpfaenger.BackColor = System.Drawing.Color.PapayaWhip
Me.usrCntlZugelEmpfaenger.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.usrCntlZugelEmpfaenger.Location = New System.Drawing.Point(482, 307)
Me.usrCntlZugelEmpfaenger.Name = "usrCntlZugelEmpfaenger"
Me.usrCntlZugelEmpfaenger.Size = New System.Drawing.Size(408, 132)
Me.usrCntlZugelEmpfaenger.TabIndex = 4
'
'usrCntlEmpfaenger
'
Me.usrCntlEmpfaenger._Titel = "Empfänger:"
Me.usrCntlEmpfaenger.BackColor = System.Drawing.Color.PapayaWhip
Me.usrCntlEmpfaenger.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.usrCntlEmpfaenger.Location = New System.Drawing.Point(482, 176)
Me.usrCntlEmpfaenger.Name = "usrCntlEmpfaenger"
Me.usrCntlEmpfaenger.Size = New System.Drawing.Size(408, 132)
Me.usrCntlEmpfaenger.TabIndex = 3
'
'usrCntlVersender
'
Me.usrCntlVersender._Titel = "Versender:"
Me.usrCntlVersender.BackColor = System.Drawing.Color.PapayaWhip
Me.usrCntlVersender.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.usrCntlVersender.Location = New System.Drawing.Point(17, 176)
Me.usrCntlVersender.Name = "usrCntlVersender"
Me.usrCntlVersender.Size = New System.Drawing.Size(408, 132)
Me.usrCntlVersender.TabIndex = 2
'
'usrCntlHauptverpflichteter
'
Me.usrCntlHauptverpflichteter._Titel = "Hauptverpflichteter:"
Me.usrCntlHauptverpflichteter.BackColor = System.Drawing.Color.PapayaWhip
Me.usrCntlHauptverpflichteter.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.usrCntlHauptverpflichteter.Location = New System.Drawing.Point(482, 29)
Me.usrCntlHauptverpflichteter.Name = "usrCntlHauptverpflichteter"
Me.usrCntlHauptverpflichteter.Size = New System.Drawing.Size(408, 132)
Me.usrCntlHauptverpflichteter.TabIndex = 1
'
'PictureBox2
'
Me.PictureBox2.BackgroundImage = Global.SDL.My.Resources.Resources.lorry_motion
Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox2.Location = New System.Drawing.Point(421, 221)
Me.PictureBox2.Name = "PictureBox2"
Me.PictureBox2.Size = New System.Drawing.Size(58, 34)
Me.PictureBox2.TabIndex = 49
Me.PictureBox2.TabStop = False
'
'usrCntlATLAS_ncts_Adressen
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.Controls.Add(Me.pnl)
Me.Name = "usrCntlATLAS_ncts_Adressen"
Me.Size = New System.Drawing.Size(907, 628)
Me.pnl.ResumeLayout(False)
Me.pnl.PerformLayout()
Me.grp.ResumeLayout(False)
Me.grp.PerformLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents pnl As System.Windows.Forms.Panel
Friend WithEvents usrCntlVersender As SDL.usrCntlAdresse
Friend WithEvents usrCntlHauptverpflichteter As SDL.usrCntlAdresse
Friend WithEvents usrCntlZugelEmpfaenger As SDL.usrCntlAdresse
Friend WithEvents usrCntlEmpfaenger As SDL.usrCntlAdresse
Friend WithEvents usrCntlSumA_Befoerderer As SDL.usrCntlAdresse
Friend WithEvents grp As System.Windows.Forms.GroupBox
Friend WithEvents usrCntlSumA_Versender As SDL.usrCntlAdresse
Friend WithEvents cbxSumABeforderer As System.Windows.Forms.CheckBox
Friend WithEvents usrCntlSumA_Empfaenger As SDL.usrCntlAdresse
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox
Friend WithEvents lblBefullen As System.Windows.Forms.Label
Friend WithEvents MyComboBox1 As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents lblWegZeit As Label
Friend WithEvents lblWegstrecke As Label
Friend WithEvents Button1 As Button
Friend WithEvents lblWegstreckeVonNach As Label
End Class

120
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Adressen.resx Normal file
View File

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

451
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Adressen.vb Normal file
View File

@@ -0,0 +1,451 @@
Public Class usrCntlATLAS_NCTS004_Adressen
' Dim OWNER As Control
Dim ncts_OUT As DAKOSY_Worker.cDakosyNCTSOut004 = Nothing
Dim NCTS_TR As VERAG_PROG_ALLGEMEIN.cNCTS_TR = Nothing
'Sub New(OWNER As Control, ncts_OUT As DAKOSY_Worker.cDakosyNCTSOut)
Dim FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Sub New(ncts_OUT As DAKOSY_Worker.cDakosyNCTSOut004, FIRMA_DY As String)
InitializeComponent()
'Me.OWNER = OWNER
Me.ncts_OUT = ncts_OUT
Me.FIRMA_DY = FIRMA_DY
End Sub
Sub New(NCTS_TR As VERAG_PROG_ALLGEMEIN.cNCTS_TR, FIRMA_DY As String)
InitializeComponent()
'Me.OWNER = OWNER
Me.NCTS_TR = NCTS_TR
Me.FIRMA_DY = FIRMA_DY
End Sub
Public Sub usrCntlATLAS_ncts_Adressen_Load(sender As Object, e As EventArgs) Handles Me.Load
' usrCntlSumA_Befoerderer.initME()
MyComboBox1.Items.Clear()
Select Case FIRMA_DY
Case "UNISPED"
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Unisped Speditions GMBH (AT)", "UNISPED_AT"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Unisped Speditions GMBH (DE)", "UNISPED_DE"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EKOL Sultanbeyli -Istanbul", "EKOL"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("MARS Istanbul", "MARS"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SGS Hamburg", "SGS"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TOBB Ankara", "TOBB"))
Case Else
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG Spedition GMBH", "VERAG_GMBH"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG Spedition AG", "VERAG_AG"))
' MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA", "ATILLA"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EKOL Sultanbeyli -Istanbul", "EKOL"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("MARS Istanbul", "MARS"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SGS Hamburg", "SGS"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TOBB Ankara", "TOBB"))
End Select
End Sub
Public Sub getValues(ByRef NCTS As DAKOSY_Worker.cDakosyNCTSOut004)
NCTS.ncts_HolderOfTheTransitProcedure_Name = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.kdFirma.Text)
NCTS.ncts_HolderOfTheTransitProcedure_StreetNumber = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.txtStrasse.Text)
NCTS.ncts_HolderOfTheTransitProcedure_Postcode = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.txtPlz.Text)
NCTS.ncts_HolderOfTheTransitProcedure_City = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.txtOrt.Text)
NCTS.ncts_HolderOfTheTransitProcedure_Country = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.sbLand._value)
NCTS.ncts_HolderOfTheTransitProcedure_IdentificationNumber = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.txtEORI.Text)
NCTS.ncts_Consignor_Name = cProgramFunctions.isLeerNothing(usrCntlVersender.kdFirma.Text)
NCTS.ncts_Consignor_StreetNumber = cProgramFunctions.isLeerNothing(usrCntlVersender.txtStrasse.Text)
NCTS.ncts_Consignor_Postcode = cProgramFunctions.isLeerNothing(usrCntlVersender.txtPlz.Text)
NCTS.ncts_Consignor_City = cProgramFunctions.isLeerNothing(usrCntlVersender.txtOrt.Text)
NCTS.ncts_Consignor_Country = cProgramFunctions.isLeerNothing(usrCntlVersender.sbLand._value)
NCTS.ncts_Consignor_IdentificationNumber = cProgramFunctions.isLeerNothing(usrCntlVersender.txtEORI.Text)
NCTS.ncts_Consignor_SubsidiaryNumber = cProgramFunctions.isLeerNothing(usrCntlVersender.txtEORINL.Text)
'NCTS.ncts_Versender_TIN = cProgramFunctions.isLeerNothing(usrCntlVersender..Text)
NCTS.ncts_Consignee_Name = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.kdFirma.Text)
NCTS.ncts_Consignee_StreetNumber = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.txtStrasse.Text)
NCTS.ncts_Consignee_Postcode = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.txtPlz.Text)
NCTS.ncts_Consignee_City = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.txtOrt.Text)
NCTS.ncts_Consignee_Country = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.sbLand._value)
NCTS.ncts_Consignee_IdentificationNumber = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.txtEORI.Text)
NCTS.ncts_Consignee_SubsidiaryNumber = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.txtEORINL.Text)
'NCTS.ncts_ZugelassenerEmpfaenger_EORI = cProgramFunctions.isLeerNothing(usrCntlZugelEmpfaenger.txtEORI.Text)
' MsgBox(NCTS.ncts_ZugelassenerEmpfaenger_EORI)
'SumA: Beförderer
'--------------------------------
'NCTS.ncts_Carrier_IdentificationNumber = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.kdFirma.Text)
'NCTS.ncts_SumA_Befoerderer_StrasseHausnummer = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtStrasse.Text)
'NCTS.ncts_SumA_Befoerderer_PLZ = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtPlz.Text)
'NCTS.ncts_SumA_Befoerderer_Ort = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtOrt.Text)
'NCTS.ncts_SumA_Befoerderer_Land = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.sbLand._value)
NCTS.ncts_Carrier_IdentificationNumber = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtEORI.Text)
NCTS.ncts_Carrier_SubsidiaryNumber = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtEORINL.Text)
'If cbxSumABeforderer.Checked Then
' NCTS.ncts_SumA_Empfaenger_Name = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.kdFirma.Text)
' NCTS.ncts_SumA_Empfaenger_StrasseHausnummer = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtStrasse.Text)
' NCTS.ncts_SumA_Empfaenger_PLZ = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtPlz.Text)
' NCTS.ncts_SumA_Empfaenger_Ort = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtOrt.Text)
' NCTS.ncts_SumA_Empfaenger_Land = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.sbLand._value)
' NCTS.ncts_SumA_Empfaenger_EORI = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtEORI.Text)
' NCTS.ncts_SumA_Empfaenger_NLNR = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtEORINL.Text)
' NCTS.ncts_SumA_Versender_Name = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.kdFirma.Text)
' NCTS.ncts_SumA_Versender_StrasseHausnummer = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtStrasse.Text)
' NCTS.ncts_SumA_Versender_PLZ = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtPlz.Text)
' NCTS.ncts_SumA_Versender_Ort = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtOrt.Text)
' NCTS.ncts_SumA_Versender_Land = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.sbLand._value)
' NCTS.ncts_SumA_Versender_EORI = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtEORI.Text)
' NCTS.ncts_SumA_Versender_NLNR = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtEORINL.Text)
'Else
' NCTS.ncts_SumA_Empfaenger_Name = cProgramFunctions.isLeerNothing(usrCntlSumA_Empfaenger.kdFirma.Text)
' NCTS.ncts_SumA_Empfaenger_StrasseHausnummer = cProgramFunctions.isLeerNothing(usrCntlSumA_Empfaenger.txtStrasse.Text)
' NCTS.ncts_SumA_Empfaenger_PLZ = cProgramFunctions.isLeerNothing(usrCntlSumA_Empfaenger.txtPlz.Text)
' NCTS.ncts_SumA_Empfaenger_Ort = cProgramFunctions.isLeerNothing(usrCntlSumA_Empfaenger.txtOrt.Text)
' NCTS.ncts_SumA_Empfaenger_Land = cProgramFunctions.isLeerNothing(usrCntlSumA_Empfaenger.sbLand._value)
' NCTS.ncts_SumA_Empfaenger_EORI = cProgramFunctions.isLeerNothing(usrCntlSumA_Empfaenger.txtEORI.Text)
' NCTS.ncts_SumA_Empfaenger_NLNR = cProgramFunctions.isLeerNothing(usrCntlSumA_Empfaenger.txtEORINL.Text)
' NCTS.ncts_SumA_Versender_Name = cProgramFunctions.isLeerNothing(usrCntlSumA_Versender.kdFirma.Text)
' NCTS.ncts_SumA_Versender_StrasseHausnummer = cProgramFunctions.isLeerNothing(usrCntlSumA_Versender.txtStrasse.Text)
' NCTS.ncts_SumA_Versender_PLZ = cProgramFunctions.isLeerNothing(usrCntlSumA_Versender.txtPlz.Text)
' NCTS.ncts_SumA_Versender_Ort = cProgramFunctions.isLeerNothing(usrCntlSumA_Versender.txtOrt.Text)
' NCTS.ncts_SumA_Versender_Land = cProgramFunctions.isLeerNothing(usrCntlSumA_Versender.sbLand._value)
' NCTS.ncts_SumA_Versender_EORI = cProgramFunctions.isLeerNothing(usrCntlSumA_Versender.txtEORI.Text)
' NCTS.ncts_SumA_Versender_NLNR = cProgramFunctions.isLeerNothing(usrCntlSumA_Versender.txtEORINL.Text)
'End If
End Sub
Public Sub setValues(NCTS As DAKOSY_Worker.cDakosyNCTSOut004)
'usrCntlSumA_Befoerderer.initME()
If NCTS Is Nothing Then Exit Sub
usrCntlHauptverpflichteter.kdFirma.Text = NCTS.ncts_HolderOfTheTransitProcedure_Name
usrCntlHauptverpflichteter.txtStrasse.Text = NCTS.ncts_HolderOfTheTransitProcedure_StreetNumber
usrCntlHauptverpflichteter.txtPlz.Text = NCTS.ncts_HolderOfTheTransitProcedure_Postcode
usrCntlHauptverpflichteter.txtOrt.Text = NCTS.ncts_HolderOfTheTransitProcedure_City
usrCntlHauptverpflichteter.txtEORI.Text = NCTS.ncts_HolderOfTheTransitProcedure_IdentificationNumber
'usrCntlHauptverpflichteter.txtEORINL.Text = NCTS.ncts_HolderOfTheTransitProcedure_su
usrCntlHauptverpflichteter.sbLand.SET_VALUE(NCTS.ncts_HolderOfTheTransitProcedure_Country)
'usrCntlZugelEmpfaenger.txtEORI.Text = NCTS.ncts_ZugelassenerEmpfaenger_EORI
'usrCntlHauptverpflichteter.txtAnsprechpartner.Text=NCTS.ncts_Hauptverpflichteter_Ansprechpartner ' git es nicht
usrCntlVersender.kdFirma.Text = NCTS.ncts_Consignor_Name
usrCntlVersender.txtStrasse.Text = NCTS.ncts_Consignor_StreetNumber
usrCntlVersender.txtPlz.Text = NCTS.ncts_Consignor_Postcode
usrCntlVersender.txtOrt.Text = NCTS.ncts_Consignor_City
usrCntlVersender.txtEORI.Text = NCTS.ncts_Consignor_IdentificationNumber
usrCntlVersender.txtEORINL.Text = NCTS.ncts_Consignor_SubsidiaryNumber
usrCntlVersender.sbLand.SET_VALUE(NCTS.ncts_Consignor_Country)
'usrCntlVersender.txtAnsprechpartner.Text=NCTS.ncts_Versender_Ansprechpartner ' git es nicht
usrCntlEmpfaenger.kdFirma.Text = NCTS.ncts_Consignee_Name
usrCntlEmpfaenger.txtStrasse.Text = NCTS.ncts_Consignee_StreetNumber
usrCntlEmpfaenger.txtPlz.Text = NCTS.ncts_Consignee_Postcode
usrCntlEmpfaenger.txtOrt.Text = NCTS.ncts_Consignee_City
usrCntlEmpfaenger.txtEORI.Text = NCTS.ncts_Consignee_IdentificationNumber
usrCntlEmpfaenger.txtEORINL.Text = NCTS.ncts_Consignee_SubsidiaryNumber
usrCntlEmpfaenger.sbLand.SET_VALUE(NCTS.ncts_Consignee_Country)
'usrCntlEmpfaenger.txtAnsprechpartner.Text=NCTS.ncts_Empfaenger_Ansprechpartner ' git es nicht
' usrCntlHauptverpflichteter.txtEORI.Text = NCTS.ncts_ZugelassenerEmpfaenger_EORI
'usrCntlHauptverpflichteter.txtEORINL.Text = NCTS.ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender
'usrCntlHauptverpflichteter.sbLand.SET_VALUE(NCTS.ncts_Hauptverpflichteter_Land)
'usrCntlHauptverpflichteter.txtAnsprechpartner.Text=NCTS.ncts_Hauptverpflichteter_Ansprechpartner ' git es nicht
'usrCntlSumA_Befoerderer.kdFirma.Text = NCTS.ncts_SumA_Befoerderer_Name
'usrCntlSumA_Befoerderer.txtStrasse.Text = NCTS.ncts_SumA_Befoerderer_StrasseHausnummer
'usrCntlSumA_Befoerderer.txtPlz.Text = NCTS.ncts_SumA_Befoerderer_PLZ
'usrCntlSumA_Befoerderer.txtOrt.Text = NCTS.ncts_SumA_Befoerderer_Ort
usrCntlSumA_Befoerderer.txtEORI.Text = NCTS.ncts_Carrier_IdentificationNumber
usrCntlSumA_Befoerderer.txtEORINL.Text = NCTS.ncts_Carrier_SubsidiaryNumber
'usrCntlSumA_Befoerderer.sbLand.SET_VALUE(NCTS.ncts_SumA_Befoerderer_Land)
'usrCntlSumA_Befoerderer.txtAnsprechpartner.Text=NCTS.ncts_SumA_Befoerderer_Ansprechpartner ' git es nicht
End Sub
'Public Sub setValues(NCTS As DAKOSY_Worker.cDakosyNCTSOut004)
' 'usrCntlSumA_Befoerderer.initME()
' If NCTS Is Nothing Then Exit Sub
' usrCntlHauptverpflichteter.kdFirma.Text = NCTS.ncts_HolderOfTheTransitProcedure_Name
' usrCntlHauptverpflichteter.txtStrasse.Text = NCTS.ncts_HolderOfTheTransitProcedure_StreetNumber
' usrCntlHauptverpflichteter.txtPlz.Text = NCTS.ncts_HolderOfTheTransitProcedure_Postcode
' usrCntlHauptverpflichteter.txtOrt.Text = NCTS.ncts_HolderOfTheTransitProcedure_City
' usrCntlHauptverpflichteter.txtEORI.Text = NCTS.ncts_HolderOfTheTransitProcedure_IdentificationNumber
' 'usrCntlHauptverpflichteter.txtEORINL.Text = NCTS.ncts_HolderOfTheTransitProcedure_su
' usrCntlHauptverpflichteter.sbLand.SET_VALUE(NCTS.ncts_HolderOfTheTransitProcedure_Country)
' 'usrCntlZugelEmpfaenger.txtEORI.Text = NCTS.ncts_ZugelassenerEmpfaenger_EORI
' 'usrCntlHauptverpflichteter.txtAnsprechpartner.Text=NCTS.ncts_Hauptverpflichteter_Ansprechpartner ' git es nicht
' usrCntlVersender.kdFirma.Text = NCTS.ncts_Consignor_Name
' usrCntlVersender.txtStrasse.Text = NCTS.ncts_Consignor_StreetNumber
' usrCntlVersender.txtPlz.Text = NCTS.ncts_Consignor_Postcode
' usrCntlVersender.txtOrt.Text = NCTS.ncts_Consignor_City
' usrCntlVersender.txtEORI.Text = NCTS.ncts_Consignor_IdentificationNumber
' usrCntlVersender.txtEORINL.Text = NCTS.ncts_Consignor_SubsidiaryNumber
' usrCntlVersender.sbLand.SET_VALUE(NCTS.ncts_Consignor_Country)
' 'usrCntlVersender.txtAnsprechpartner.Text=NCTS.ncts_Versender_Ansprechpartner ' git es nicht
' usrCntlEmpfaenger.kdFirma.Text = NCTS.ncts_Consignee_Name
' usrCntlEmpfaenger.txtStrasse.Text = NCTS.ncts_Consignee_StreetNumber
' usrCntlEmpfaenger.txtPlz.Text = NCTS.ncts_Consignee_Postcode
' usrCntlEmpfaenger.txtOrt.Text = NCTS.ncts_Consignee_City
' usrCntlEmpfaenger.txtEORI.Text = NCTS.ncts_Consignee_IdentificationNumber
' usrCntlEmpfaenger.txtEORINL.Text = NCTS.ncts_Consignee_SubsidiaryNumber
' usrCntlEmpfaenger.sbLand.SET_VALUE(NCTS.ncts_Consignee_Country)
' 'usrCntlEmpfaenger.txtAnsprechpartner.Text=NCTS.ncts_Empfaenger_Ansprechpartner ' git es nicht
' ' usrCntlHauptverpflichteter.txtEORI.Text = NCTS.ncts_ZugelassenerEmpfaenger_EORI
' 'usrCntlHauptverpflichteter.txtEORINL.Text = NCTS.ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender
' 'usrCntlHauptverpflichteter.sbLand.SET_VALUE(NCTS.ncts_Hauptverpflichteter_Land)
' 'usrCntlHauptverpflichteter.txtAnsprechpartner.Text=NCTS.ncts_Hauptverpflichteter_Ansprechpartner ' git es nicht
' 'usrCntlSumA_Befoerderer.kdFirma.Text = NCTS.ncts_Carrier_AdressCode
' 'usrCntlSumA_Befoerderer.txtStrasse.Text = NCTS.ncts_SumA_Befoerderer_StrasseHausnummer
' 'usrCntlSumA_Befoerderer.txtPlz.Text = NCTS.ncts_SumA_Befoerderer_PLZ
' 'usrCntlSumA_Befoerderer.txtOrt.Text = NCTS.ncts_SumA_Befoerderer_Ort
' usrCntlSumA_Befoerderer.txtEORI.Text = NCTS.ncts_Carrier_IdentificationNumber
' usrCntlSumA_Befoerderer.txtEORINL.Text = NCTS.ncts_Carrier_SubsidiaryNumber
' 'usrCntlSumA_Befoerderer.sbLand.SET_VALUE(NCTS.ncts_SumA_Befoerderer_Land)
' 'usrCntlSumA_Befoerderer.txtAnsprechpartner.Text=NCTS.ncts_SumA_Befoerderer_Ansprechpartner ' git es nicht
'End Sub
'Public Sub getValues_TR(ByRef NCTS As VERAG_PROG_ALLGEMEIN.cNCTS_TR)
' NCTS.ncts_Hauptverpflichteter_Name = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.kdFirma.Text)
' NCTS.ncts_Hauptverpflichteter_StrasseHausnummer = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.txtStrasse.Text)
' NCTS.ncts_Hauptverpflichteter_PLZ = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.txtPlz.Text)
' NCTS.ncts_Hauptverpflichteter_Ort = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.txtOrt.Text)
' NCTS.ncts_Hauptverpflichteter_Land = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.sbLand._value)
' NCTS.ncts_Hauptverpflichteter_EORI = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.txtEORI.Text)
' NCTS.ncts_Hauptverpflichteter_NLNR = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.txtEORINL.Text)
' NCTS.ncts_Versender_Name = cProgramFunctions.isLeerNothing(usrCntlVersender.kdFirma.Text)
' NCTS.ncts_Versender_StrasseHausnummer = cProgramFunctions.isLeerNothing(usrCntlVersender.txtStrasse.Text)
' NCTS.ncts_Versender_PLZ = cProgramFunctions.isLeerNothing(usrCntlVersender.txtPlz.Text)
' NCTS.ncts_Versender_Ort = cProgramFunctions.isLeerNothing(usrCntlVersender.txtOrt.Text)
' NCTS.ncts_Versender_Land = cProgramFunctions.isLeerNothing(usrCntlVersender.sbLand._value)
' NCTS.ncts_Versender_EORI = cProgramFunctions.isLeerNothing(usrCntlVersender.txtEORI.Text)
' NCTS.ncts_Versender_NLNR = cProgramFunctions.isLeerNothing(usrCntlVersender.txtEORINL.Text)
' 'NCTS.ncts_Versender_TIN = cProgramFunctions.isLeerNothing(usrCntlVersender..Text)
' NCTS.ncts_Empfaenger_Name = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.kdFirma.Text)
' NCTS.ncts_Empfaenger_StrasseHausnummer = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.txtStrasse.Text)
' NCTS.ncts_Empfaenger_PLZ = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.txtPlz.Text)
' NCTS.ncts_Empfaenger_Ort = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.txtOrt.Text)
' NCTS.ncts_Empfaenger_Land = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.sbLand._value)
' NCTS.ncts_Empfaenger_EORI = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.txtEORI.Text)
' NCTS.ncts_Empfaenger_NLNR = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.txtEORINL.Text)
' NCTS.ncts_ZugelassenerEmpfaenger_EORI = cProgramFunctions.isLeerNothing(usrCntlZugelEmpfaenger.txtEORI.Text)
' 'SumA: Beförderer
' '--------------------------------
' NCTS.ncts_SumA_Befoerderer_Name = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.kdFirma.Text)
' NCTS.ncts_SumA_Befoerderer_StrasseHausnummer = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtStrasse.Text)
' NCTS.ncts_SumA_Befoerderer_PLZ = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtPlz.Text)
' NCTS.ncts_SumA_Befoerderer_Ort = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtOrt.Text)
' NCTS.ncts_SumA_Befoerderer_Land = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.sbLand._value)
' NCTS.ncts_SumA_Befoerderer_EORI = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtEORI.Text)
' NCTS.ncts_SumA_Befoerderer_NLNR = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtEORINL.Text)
' If cbxSumABeforderer.Checked Then
' NCTS.ncts_SumA_Empfaenger_Name = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.kdFirma.Text)
' NCTS.ncts_SumA_Empfaenger_StrasseHausnummer = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtStrasse.Text)
' NCTS.ncts_SumA_Empfaenger_PLZ = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtPlz.Text)
' NCTS.ncts_SumA_Empfaenger_Ort = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtOrt.Text)
' NCTS.ncts_SumA_Empfaenger_Land = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.sbLand._value)
' NCTS.ncts_SumA_Empfaenger_EORI = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtEORI.Text)
' NCTS.ncts_SumA_Empfaenger_NLNR = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtEORINL.Text)
' NCTS.ncts_SumA_Versender_Name = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.kdFirma.Text)
' NCTS.ncts_SumA_Versender_StrasseHausnummer = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtStrasse.Text)
' NCTS.ncts_SumA_Versender_PLZ = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtPlz.Text)
' NCTS.ncts_SumA_Versender_Ort = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtOrt.Text)
' NCTS.ncts_SumA_Versender_Land = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.sbLand._value)
' NCTS.ncts_SumA_Versender_EORI = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtEORI.Text)
' NCTS.ncts_SumA_Versender_NLNR = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtEORINL.Text)
' Else
' NCTS.ncts_SumA_Empfaenger_Name = cProgramFunctions.isLeerNothing(usrCntlSumA_Empfaenger.kdFirma.Text)
' NCTS.ncts_SumA_Empfaenger_StrasseHausnummer = cProgramFunctions.isLeerNothing(usrCntlSumA_Empfaenger.txtStrasse.Text)
' NCTS.ncts_SumA_Empfaenger_PLZ = cProgramFunctions.isLeerNothing(usrCntlSumA_Empfaenger.txtPlz.Text)
' NCTS.ncts_SumA_Empfaenger_Ort = cProgramFunctions.isLeerNothing(usrCntlSumA_Empfaenger.txtOrt.Text)
' NCTS.ncts_SumA_Empfaenger_Land = cProgramFunctions.isLeerNothing(usrCntlSumA_Empfaenger.sbLand._value)
' NCTS.ncts_SumA_Empfaenger_EORI = cProgramFunctions.isLeerNothing(usrCntlSumA_Empfaenger.txtEORI.Text)
' NCTS.ncts_SumA_Empfaenger_NLNR = cProgramFunctions.isLeerNothing(usrCntlSumA_Empfaenger.txtEORINL.Text)
' NCTS.ncts_SumA_Versender_Name = cProgramFunctions.isLeerNothing(usrCntlSumA_Versender.kdFirma.Text)
' NCTS.ncts_SumA_Versender_StrasseHausnummer = cProgramFunctions.isLeerNothing(usrCntlSumA_Versender.txtStrasse.Text)
' NCTS.ncts_SumA_Versender_PLZ = cProgramFunctions.isLeerNothing(usrCntlSumA_Versender.txtPlz.Text)
' NCTS.ncts_SumA_Versender_Ort = cProgramFunctions.isLeerNothing(usrCntlSumA_Versender.txtOrt.Text)
' NCTS.ncts_SumA_Versender_Land = cProgramFunctions.isLeerNothing(usrCntlSumA_Versender.sbLand._value)
' NCTS.ncts_SumA_Versender_EORI = cProgramFunctions.isLeerNothing(usrCntlSumA_Versender.txtEORI.Text)
' NCTS.ncts_SumA_Versender_NLNR = cProgramFunctions.isLeerNothing(usrCntlSumA_Versender.txtEORINL.Text)
' End If
'End Sub
'Public Sub setValues_TR(NCTS As VERAG_PROG_ALLGEMEIN.cNCTS_TR)
' 'usrCntlSumA_Befoerderer.initME()
' If NCTS Is Nothing Then Exit Sub
' usrCntlHauptverpflichteter.kdFirma.Text = NCTS.ncts_Hauptverpflichteter_Name
' usrCntlHauptverpflichteter.txtStrasse.Text = NCTS.ncts_Hauptverpflichteter_StrasseHausnummer
' usrCntlHauptverpflichteter.txtPlz.Text = NCTS.ncts_Hauptverpflichteter_PLZ
' usrCntlHauptverpflichteter.txtOrt.Text = NCTS.ncts_Hauptverpflichteter_Ort
' usrCntlHauptverpflichteter.txtEORI.Text = NCTS.ncts_Hauptverpflichteter_EORI
' usrCntlHauptverpflichteter.txtEORINL.Text = NCTS.ncts_Hauptverpflichteter_NLNR
' usrCntlHauptverpflichteter.sbLand.SET_VALUE(NCTS.ncts_Hauptverpflichteter_Land)
' 'usrCntlHauptverpflichteter.txtAnsprechpartner.Text=NCTS.ncts_Hauptverpflichteter_Ansprechpartner ' git es nicht
' usrCntlVersender.kdFirma.Text = NCTS.ncts_Versender_Name
' usrCntlVersender.txtStrasse.Text = NCTS.ncts_Versender_StrasseHausnummer
' usrCntlVersender.txtPlz.Text = NCTS.ncts_Versender_PLZ
' usrCntlVersender.txtOrt.Text = NCTS.ncts_Versender_Ort
' usrCntlVersender.txtEORI.Text = NCTS.ncts_Versender_EORI
' usrCntlVersender.txtEORINL.Text = NCTS.ncts_Versender_NLNR
' usrCntlVersender.sbLand.SET_VALUE(NCTS.ncts_Versender_Land)
' 'usrCntlVersender.txtAnsprechpartner.Text=NCTS.ncts_Versender_Ansprechpartner ' git es nicht
' usrCntlEmpfaenger.kdFirma.Text = NCTS.ncts_Empfaenger_Name
' usrCntlEmpfaenger.txtStrasse.Text = NCTS.ncts_Empfaenger_StrasseHausnummer
' usrCntlEmpfaenger.txtPlz.Text = NCTS.ncts_Empfaenger_PLZ
' usrCntlEmpfaenger.txtOrt.Text = NCTS.ncts_Empfaenger_Ort
' usrCntlEmpfaenger.txtEORI.Text = NCTS.ncts_Empfaenger_EORI
' usrCntlEmpfaenger.txtEORINL.Text = NCTS.ncts_Empfaenger_NLNR
' usrCntlEmpfaenger.sbLand.SET_VALUE(NCTS.ncts_Empfaenger_Land)
' 'usrCntlEmpfaenger.txtAnsprechpartner.Text=NCTS.ncts_Empfaenger_Ansprechpartner ' git es nicht
' usrCntlZugelEmpfaenger.txtEORI.Text = NCTS.ncts_ZugelassenerEmpfaenger_EORI
' 'usrCntlHauptverpflichteter.txtEORINL.Text = NCTS.ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender
' 'usrCntlHauptverpflichteter.sbLand.SET_VALUE(NCTS.ncts_Hauptverpflichteter_Land)
' 'usrCntlHauptverpflichteter.txtAnsprechpartner.Text=NCTS.ncts_Hauptverpflichteter_Ansprechpartner ' git es nicht
' usrCntlSumA_Befoerderer.kdFirma.Text = NCTS.ncts_SumA_Befoerderer_Name
' usrCntlSumA_Befoerderer.txtStrasse.Text = NCTS.ncts_SumA_Befoerderer_StrasseHausnummer
' usrCntlSumA_Befoerderer.txtPlz.Text = NCTS.ncts_SumA_Befoerderer_PLZ
' usrCntlSumA_Befoerderer.txtOrt.Text = NCTS.ncts_SumA_Befoerderer_Ort
' usrCntlSumA_Befoerderer.txtEORI.Text = NCTS.ncts_SumA_Befoerderer_EORI
' usrCntlSumA_Befoerderer.txtEORINL.Text = NCTS.ncts_SumA_Befoerderer_NLNR
' usrCntlSumA_Befoerderer.sbLand.SET_VALUE(NCTS.ncts_SumA_Befoerderer_Land)
' 'usrCntlSumA_Befoerderer.txtAnsprechpartner.Text=NCTS.ncts_SumA_Befoerderer_Ansprechpartner ' git es nicht
'End Sub
Private Sub cbxSumABeforderer_CheckedChanged(sender As Object, e As EventArgs) Handles cbxSumABeforderer.CheckedChanged
usrCntlSumA_Versender.Enabled = Not cbxSumABeforderer.Checked
usrCntlSumA_Empfaenger.Enabled = Not cbxSumABeforderer.Checked
If cbxSumABeforderer.Checked Then
usrCntlSumA_Versender.BackColor = Color.WhiteSmoke
usrCntlSumA_Empfaenger.BackColor = Color.WhiteSmoke
PictureBox1.Visible = False
Else
usrCntlSumA_Versender.BackColor = Color.PapayaWhip
usrCntlSumA_Empfaenger.BackColor = Color.PapayaWhip
PictureBox1.Visible = True
End If
End Sub
Private Sub MyComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles MyComboBox1.SelectedIndexChanged
Select Case MyComboBox1._value
Case "VERAG_AG"
usrCntlHauptverpflichteter.txtEORI.Text = "ATEOS1000000199"
usrCntlHauptverpflichteter.txtEORINL.Text = "0001"
usrCntlHauptverpflichteter.kdFirma.Text = "VERAG SPEDITION AG"
usrCntlHauptverpflichteter.txtStrasse.Text = "SUBEN 14-15"
usrCntlHauptverpflichteter.txtPlz.Text = "4975"
usrCntlHauptverpflichteter.txtOrt.Text = "Suben"
usrCntlHauptverpflichteter.sbLand.SET_VALUE("AT")
Case "VERAG_GMBH"
Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(712255) ' VERAG Neuhaus
Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(712255) ' VERAG Neuhaus
usrCntlHauptverpflichteter.txtEORI.Text = "DE4824105" ' KD.EORITIN
usrCntlHauptverpflichteter.txtEORINL.Text = "0000"
usrCntlHauptverpflichteter.kdFirma.Text = (If(AD.Name_1, "") & " " & If(AD.Name_2, "")).trim
usrCntlHauptverpflichteter.txtStrasse.Text = AD.Straße
usrCntlHauptverpflichteter.txtPlz.Text = AD.PLZ
usrCntlHauptverpflichteter.txtOrt.Text = AD.Ort
usrCntlHauptverpflichteter.sbLand.SET_VALUE(cProgramFunctions.getISO2Land(AD.LandKz))
Case "UNISPED_AT"
usrCntlHauptverpflichteter.txtEORI.Text = "ATEOS1000000088"
usrCntlHauptverpflichteter.txtEORINL.Text = "0000"
usrCntlHauptverpflichteter.kdFirma.Text = "UNISPED Speditions GmbH"
usrCntlHauptverpflichteter.txtStrasse.Text = "SUBEN 15"
usrCntlHauptverpflichteter.txtPlz.Text = "4975"
usrCntlHauptverpflichteter.txtOrt.Text = "Suben"
usrCntlHauptverpflichteter.sbLand.SET_VALUE("AT")
Case "UNISPED_DE"
usrCntlHauptverpflichteter.txtEORI.Text = "DE7467540" ' KD.EORITIN
usrCntlHauptverpflichteter.txtEORINL.Text = "0000"
usrCntlHauptverpflichteter.kdFirma.Text = "UNISPED Deutschland Speditions GmbH"
usrCntlHauptverpflichteter.txtStrasse.Text = "HARTHAM 6"
usrCntlHauptverpflichteter.txtPlz.Text = "94152"
usrCntlHauptverpflichteter.txtOrt.Text = "NEUHAUS AM INN"
usrCntlHauptverpflichteter.sbLand.SET_VALUE("DE")
Case "TOBB"
usrCntlHauptverpflichteter.txtEORI.Text = "ITTR0000000000152"
usrCntlHauptverpflichteter.txtEORINL.Text = ""
usrCntlHauptverpflichteter.kdFirma.Text = "TOBB UND Lojistik A.S."
usrCntlHauptverpflichteter.txtStrasse.Text = "Bumlupmar Bulvan Nr. 252"
usrCntlHauptverpflichteter.txtPlz.Text = "6530"
usrCntlHauptverpflichteter.txtOrt.Text = "Ankara"
usrCntlHauptverpflichteter.sbLand.SET_VALUE("TR")
Case "EKOL"
usrCntlHauptverpflichteter.txtEORI.Text = "ITTR0000000000152"
usrCntlHauptverpflichteter.txtEORINL.Text = ""
usrCntlHauptverpflichteter.kdFirma.Text = "EKOL Lojistik AS."
usrCntlHauptverpflichteter.txtStrasse.Text = "Ekol Cad. No 2"
usrCntlHauptverpflichteter.txtPlz.Text = "34935"
usrCntlHauptverpflichteter.txtOrt.Text = "Sultanbeyli -Istanbul"
usrCntlHauptverpflichteter.sbLand.SET_VALUE("TR")
Case "SGS"
usrCntlHauptverpflichteter.txtEORI.Text = "DE3331326"
usrCntlHauptverpflichteter.txtEORINL.Text = "0000"
usrCntlHauptverpflichteter.kdFirma.Text = "SGS GERMANY GmbH"
usrCntlHauptverpflichteter.txtStrasse.Text = "Rödingsmarkt 16"
usrCntlHauptverpflichteter.txtPlz.Text = "20459"
usrCntlHauptverpflichteter.txtOrt.Text = "Hamburg"
usrCntlHauptverpflichteter.sbLand.SET_VALUE("DE")
Case "MARS"
usrCntlHauptverpflichteter.txtEORI.Text = "BGKTR6120538808Z8"
usrCntlHauptverpflichteter.txtEORINL.Text = ""
usrCntlHauptverpflichteter.kdFirma.Text = "MARS LOJISTIK ULUS.TAS.DEP.DAGITIM VE TIC A.S."
usrCntlHauptverpflichteter.txtStrasse.Text = "Yenibosna Merkez Nr.21"
usrCntlHauptverpflichteter.txtPlz.Text = "00000"
usrCntlHauptverpflichteter.txtOrt.Text = "ISTANBUL"
usrCntlHauptverpflichteter.sbLand.SET_VALUE("TR")
Case Else
usrCntlHauptverpflichteter.txtEORI.Text = ""
usrCntlHauptverpflichteter.txtEORINL.Text = ""
usrCntlHauptverpflichteter.kdFirma.Text = ""
usrCntlHauptverpflichteter.txtStrasse.Text = ""
usrCntlHauptverpflichteter.txtPlz.Text = ""
usrCntlHauptverpflichteter.txtOrt.Text = ""
usrCntlHauptverpflichteter.sbLand.SET_VALUE("")
End Select
End Sub
End Class

1528
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Allg.Designer.vb generated Normal file
View File

File diff suppressed because it is too large Load Diff

120
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Allg.resx Normal file
View File

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

444
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Allg.vb Normal file
View File

@@ -0,0 +1,444 @@
Public Class usrCntlATLAS_NCTS004_Allg
Property NCTS_ART = "T"
Dim NCTS As DAKOSY_Worker.cDakosyNCTSOut004 = Nothing
Dim NCTS_TR As VERAG_PROG_ALLGEMEIN.cNCTS_TR = Nothing
Sub New(NCTS As DAKOSY_Worker.cDakosyNCTSOut004)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.NCTS = NCTS
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Sub New(NCTS_TR As VERAG_PROG_ALLGEMEIN.cNCTS_TR)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.NCTS_TR = NCTS_TR
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub usrCntlATLAS_NCTS_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'MySearchBox1.initSearchBox(Me.FindForm, "AdressenNr, [Name 1] FROM Adressen", {"[Name 1]", "Ort", "PLZ"}, "", "[Name 1]", "AdressenNr", "AdressenNr")
' sbAbgangZollstelle.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
' sbBestimmungZollstelle.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
'sbDurchgangszollstelle1.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
'sbDurchgangszollstelle2.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
'sbDurchgangszollstelle3.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
'sbDurchgangszollstelle4.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
'sbDurchgangszollstelle5.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
'sbDurchgangszollstelle6.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
'sbDurchgangszollstelle7.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
'sbDurchgangszollstelle8.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
'sbDurchgangszollstelle9.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
sbAbgangZollstelle.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
sbBestimmungZollstelle.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
sbDurchgangszollstelle1.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
sbDurchgangszollstelle2.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
sbDurchgangszollstelle3.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
sbDurchgangszollstelle4.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
sbDurchgangszollstelle5.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
sbDurchgangszollstelle6.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
sbDurchgangszollstelle7.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
sbDurchgangszollstelle8.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
sbDurchgangszollstelle9.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
sbRoute1.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
sbRoute2.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
sbRoute3.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
sbRoute4.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
sbRoute5.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
sbRoute6.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
sbRoute7.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
sbRoute8.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
sbRoute9.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
sbBestimmungsland.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
sbVersendungsLand.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
sbKennzeichenGrenzeLand.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "Code", "FMZOLL", , 400, 200)
sbKennzeichenAbgangLand.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "Code", "FMZOLL", , 400, 200)
' AddHandler sbAbgangZollstelle.VALUE_CHANGED, Sub()
'If sbAbgangZollstelle.DR IsNot Nothing Then
'If sbVersendungsLand._value = "" Then sbVersendungsLand.SET_VALUE(sbAbgangZollstelle.DR("Land"))
' End If
'End Sub
AddHandler sbBestimmungZollstelle.VALUE_CHANGED, Sub()
If sbBestimmungZollstelle.DR IsNot Nothing Then
If sbBestimmungsland._value = "" Then sbBestimmungsland.SET_VALUE(sbBestimmungZollstelle.DR("Land"))
End If
End Sub
' LIST_BGW = (New SQL).loadCboBySqlWithListItem("SELECT [basncd_dstnr],[basncd_name] +' (' +[basncd_alpha]+')' FROM [atlas].[dbo].[basncd] where [basncd_gbdat] >= getdate() order by [basncd_alpha], [basncd_name]", False, "ATLAS")
cboVerkehrszweig.Items.Clear()
cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1 - Seeverkehr", "1"))
cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("2 - Eisenbahnverkehr", "2"))
cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("3 - Straßenverkehr", "3"))
cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4 - Luftverkehr", "4"))
cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("5 - Postsendungen", "5"))
cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("7 - Feste Transporteinrichtungen", "7"))
cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("8 - Binnenschifffahrt", "8"))
cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("9 - Eigener Antrieb", "9"))
cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("10 - Seeverkehr", "10"))
cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("12 - Waggon auf Seeschiff", "12"))
cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("16 - Straßenfahrzeug auf Seeschiff", "16"))
cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("17 - Anhänger/Auflieger auf Seeschiff", "17"))
cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("18 - Binnenschiff auf Seeschiff", "18"))
cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("20 - Eisenbahnverkehr", "20"))
cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("23 - Straßenfahrzeug auf Eisenbahn", "23"))
cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("30 - Straßenverkehr", "30"))
cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("40 - Luftverkehr", "40"))
cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("50 - Postsendungen", "50"))
cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("70 - Feste Transporteinrichtungen", "70"))
cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("80 - Binnenschifffahrt", "80"))
cboVerkehrszweig.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("90 - Eigener Antrieb", "90"))
cboVerkehrszweig.changeItem("3")
cboArtGrenzUeberschreitung.Items.Clear()
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("10 - Seeschiff", "10"))
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("20 - Waggon", "20"))
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("31 - Pkw", "31"))
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("32 - Pkw mit Anhänger", "32"))
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("33 - Lkw", "33"))
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("34 - Lkw mit Anhänger", "34"))
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("35 - Zugmaschine mit Auflieger ", "35"))
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("40 - Flugzeug", "40"))
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("50 - Binnenschiff", "50"))
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("60 - Eigener Antrieb", "60"))
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("70 - Feste Transporteinrichtung", "70"))
cboArtGrenzUeberschreitung.changeItem("35")
cboBesondereUmstaende.Items.Clear()
cboBesondereUmstaende.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboBesondereUmstaende.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("A - Post- und Express-Sendungen", "A"))
cboBesondereUmstaende.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("C - Straßentransport", "C"))
cboBesondereUmstaende.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("D - Bahntransport", "D"))
cboBesondereUmstaende.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("E - Zugel. Wirtschaftsbeteiligte", "E"))
cboBesondereUmstaende.changeItem("C")
cboVerfahrensart.Items.Clear()
cboVerfahrensart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboVerfahrensart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("10 - Normalverfahren", "10"))
cboVerfahrensart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("11 - Vereinfachtes Vertfahren ohne Verschlüsse", "11"))
cboVerfahrensart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("12 - Vereinfachtes Vertfahren MIT Verschlüsse", "12"))
cboVerfahrensart.changeItem("10")
cboZahlungsweiseBefKosten.Items.Clear()
cboZahlungsweiseBefKosten.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboZahlungsweiseBefKosten.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("A - Barzahlung", "A"))
cboZahlungsweiseBefKosten.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("B - Kreditkartenzahlung", "B"))
cboZahlungsweiseBefKosten.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("C - Zahlung mit Scheck", "C"))
cboZahlungsweiseBefKosten.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("D - andere", "D"))
cboZahlungsweiseBefKosten.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("H - Elektr.Geldtransfer", "H"))
cboZahlungsweiseBefKosten.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Y - Kontoinhaber = Beförderer", "Y"))
cboZahlungsweiseBefKosten.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Z - nicht vorausbezahlt", "Z"))
cboZahlungsweiseBefKosten.changeItem("D")
'btnAllgemein_Click(btnT2, New EventArgs)
' setValues(NCTS)
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs)
MsgBox(sbAbgangZollstelle._value)
End Sub
Public Sub getValues(ByRef NCTS As DAKOSY_Worker.cDakosyNCTSOut004)
NCTS.ncts_Declarationtype = cProgramFunctions.isLeerNothing(NCTS_ART)
NCTS.ncts_TransitDeclarationType = cProgramFunctions.isLeerNothing(cboVerfahrensart._value)
NCTS.ncts_CustomsOfficeOfDeparture = cProgramFunctions.isLeerNothing(sbAbgangZollstelle._value)
NCTS.ncts_CustomsOfficeOfDestinationDeclared = cProgramFunctions.isLeerNothing(sbBestimmungZollstelle._value)
NCTS.ncts_CountryOfDispatch = cProgramFunctions.isLeerNothing(sbVersendungsLand._value)
NCTS.ncts_CountryOfDestination = cProgramFunctions.isLeerNothing(sbBestimmungsland._value)
NCTS.ncts_CustomsOfficeOfTransitDeclared_1_RefNumber = cProgramFunctions.isLeerNothing(sbDurchgangszollstelle1._value)
NCTS.ncts_CustomsOfficeOfTransitDeclared_2_RefNumber = cProgramFunctions.isLeerNothing(sbDurchgangszollstelle2._value)
NCTS.ncts_CustomsOfficeOfTransitDeclared_3_RefNumber = cProgramFunctions.isLeerNothing(sbDurchgangszollstelle3._value)
NCTS.ncts_CustomsOfficeOfTransitDeclared_4_RefNumber = cProgramFunctions.isLeerNothing(sbDurchgangszollstelle4._value)
NCTS.ncts_CustomsOfficeOfTransitDeclared_5_RefNumber = cProgramFunctions.isLeerNothing(sbDurchgangszollstelle5._value)
NCTS.ncts_CustomsOfficeOfTransitDeclared_6_RefNumber = cProgramFunctions.isLeerNothing(sbDurchgangszollstelle6._value)
NCTS.ncts_CustomsOfficeOfTransitDeclared_7_RefNumber = cProgramFunctions.isLeerNothing(sbDurchgangszollstelle7._value)
NCTS.ncts_CustomsOfficeOfTransitDeclared_8_RefNumber = cProgramFunctions.isLeerNothing(sbDurchgangszollstelle8._value)
NCTS.ncts_CustomsOfficeOfTransitDeclared_9_RefNumber = cProgramFunctions.isLeerNothing(sbDurchgangszollstelle9._value)
NCTS.ncts_CountryOfRoutingOfConsignment_1 = cProgramFunctions.isLeerNothing(sbRoute1._value)
NCTS.ncts_CountryOfRoutingOfConsignment_2 = cProgramFunctions.isLeerNothing(sbRoute2._value)
NCTS.ncts_CountryOfRoutingOfConsignment_3 = cProgramFunctions.isLeerNothing(sbRoute3._value)
NCTS.ncts_CountryOfRoutingOfConsignment_4 = cProgramFunctions.isLeerNothing(sbRoute4._value)
NCTS.ncts_CountryOfRoutingOfConsignment_5 = cProgramFunctions.isLeerNothing(sbRoute5._value)
NCTS.ncts_CountryOfRoutingOfConsignment_6 = cProgramFunctions.isLeerNothing(sbRoute6._value)
NCTS.ncts_CountryOfRoutingOfConsignment_7 = cProgramFunctions.isLeerNothing(sbRoute7._value)
NCTS.ncts_CountryOfRoutingOfConsignment_8 = cProgramFunctions.isLeerNothing(sbRoute8._value)
NCTS.ncts_CountryOfRoutingOfConsignment_9 = cProgramFunctions.isLeerNothing(sbRoute9._value)
'NCTS.ncts_SumA_KennnummerSendung = cProgramFunctions.isLeerNothing(txtKennnummer.Text)
' NCTS.ncts_BeladungsOrt = cProgramFunctions.isLeerNothing(txtBeladungsort.Text)
NCTS.ncts_PlaceOfLoading_Location = cProgramFunctions.isLeerNothing(txtLadeort.Text)
NCTS.ncts_PlaceOfUnLoading_Location = cProgramFunctions.isLeerNothing(txtEntladeort.Text)
' NCTS.ncts_Wiedergestellungsdatum = cProgramFunctions.isLeerNothing(txtWiedergestellungsdatum._value)
If isVereinfachtesVerfahren() Then
'NCTS.ncts_KzVereinfachtesVerfahren = True
' MsgBox(txtWiedergestellungsdatum._value)
NCTS.ncts_LimitDate = cProgramFunctions.isLeerNothing(txtWiedergestellungsdatum._value)
' NCTS.ncts_BeladungsOrt = cProgramFunctions.isLeerNothing(txtBeladungsort.Text)
Else
' NCTS.ncts_KzVereinfachtesVerfahren = False
NCTS.ncts_LimitDate = Nothing
' NCTS.ncts_BeladungsOrt = Nothing
End If
NCTS.ncts_Security = cbxSumASicherheit.Checked
NCTS.ncts_DepartureTransportMeans_1_IdentificationNumber = cProgramFunctions.isLeerNothing(txtKennzeichenAbgang._value)
NCTS.ncts_DepartureTransportMeans_1_Nationality = cProgramFunctions.isLeerNothing(sbKennzeichenAbgangLand._value)
' NCTS.ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend = cProgramFunctions.isLeerNothing(txtKennzeichenGrenze._value)
' NCTS.ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode = cProgramFunctions.isLeerNothing(sbKennzeichenGrenzeLand._value)
NCTS.ncts_DepartureTransportMeans_1_TypeOfIdentification = cProgramFunctions.isLeerNothing(cboArtGrenzUeberschreitung._value)
' NCTS.ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent = cProgramFunctions.isLeerNothing(cboVerkehrszweig._value)
NCTS.ncts_SpecificCircomstanceIndicator = cProgramFunctions.isLeerNothing(cboBesondereUmstaende._value)
NCTS.ncts_TransportCharges = cProgramFunctions.isLeerNothing(cboZahlungsweiseBefKosten._value)
' NCTS.ncts_GesamtRohmasse = cProgramFunctions.isLeerNothing(rohm._value)
' NCTS.ncts_KzVereinfachtesVerfahren = If(cbxVereinfachtesVerfahren.Checked, True, False) '???
End Sub
Public Sub setValues(NCTS As DAKOSY_Worker.cDakosyNCTSOut004)
If NCTS Is Nothing Then Exit Sub
sbAbgangZollstelle.SET_VALUE(If(NCTS.ncts_CustomsOfficeOfDeparture, ""))
sbBestimmungZollstelle.SET_VALUE(If(NCTS.ncts_CustomsOfficeOfDestinationDeclared, ""))
sbVersendungsLand.SET_VALUE(If(NCTS.ncts_CountryOfDispatch, ""))
sbBestimmungsland.SET_VALUE(If(NCTS.ncts_CountryOfDestination, ""))
sbDurchgangszollstelle1.SET_VALUE(NCTS.ncts_CustomsOfficeOfTransitDeclared_1_RefNumber)
sbDurchgangszollstelle2.SET_VALUE(NCTS.ncts_CustomsOfficeOfTransitDeclared_2_RefNumber)
sbDurchgangszollstelle3.SET_VALUE(NCTS.ncts_CustomsOfficeOfTransitDeclared_3_RefNumber)
sbDurchgangszollstelle4.SET_VALUE(NCTS.ncts_CustomsOfficeOfTransitDeclared_4_RefNumber)
sbDurchgangszollstelle5.SET_VALUE(NCTS.ncts_CustomsOfficeOfTransitDeclared_5_RefNumber)
sbDurchgangszollstelle6.SET_VALUE(NCTS.ncts_CustomsOfficeOfTransitDeclared_6_RefNumber)
sbDurchgangszollstelle7.SET_VALUE(NCTS.ncts_CustomsOfficeOfTransitDeclared_7_RefNumber)
sbDurchgangszollstelle8.SET_VALUE(NCTS.ncts_CustomsOfficeOfTransitDeclared_8_RefNumber)
sbDurchgangszollstelle9.SET_VALUE(NCTS.ncts_CustomsOfficeOfTransitDeclared_9_RefNumber)
sbRoute1.SET_VALUE(NCTS.ncts_CountryOfRoutingOfConsignment_1)
sbRoute2.SET_VALUE(NCTS.ncts_CountryOfRoutingOfConsignment_2)
sbRoute3.SET_VALUE(NCTS.ncts_CountryOfRoutingOfConsignment_3)
sbRoute4.SET_VALUE(NCTS.ncts_CountryOfRoutingOfConsignment_4)
sbRoute5.SET_VALUE(NCTS.ncts_CountryOfRoutingOfConsignment_5)
sbRoute6.SET_VALUE(NCTS.ncts_CountryOfRoutingOfConsignment_6)
sbRoute7.SET_VALUE(NCTS.ncts_CountryOfRoutingOfConsignment_7)
sbRoute8.SET_VALUE(NCTS.ncts_CountryOfRoutingOfConsignment_8)
sbRoute9.SET_VALUE(NCTS.ncts_CountryOfRoutingOfConsignment_9)
'txtKennnummer.Text = NCTS.ncts_SumA_KennnummerSendung
NCTS_ART = If(NCTS.ncts_Declarationtype, "T")
Select Case NCTS_ART
Case "T-", "T" : initButton(btnTMinus)
Case "T1" : initButton(btnT1)
Case "T2" : initButton(btnT2)
Case "T2F" : initButton(btnT2F)
Case "TIR" : initButton(btnTIR)
End Select
cboVerfahrensart.changeItem(If(NCTS.ncts_TransitDeclarationType, ""))
'cbxVereinfachtesVerfahren.Checked = If(NCTS.ncts_KzVereinfachtesVerfahren, False)
'cbxSumASicherheit.Checked = If(NCTS.ncts_SumA_KzSumASicherheit, False)
' txtBeladungsort.Text = If(NCTS.ncts_PlaceOfLoading_Location, "")
txtWiedergestellungsdatum._value = If(NCTS.ncts_LimitDate, Nothing)
txtLadeort.Text = If(NCTS.ncts_PlaceOfLoading_Location, "")
txtEntladeort.Text = If(NCTS.ncts_PlaceOfUnLoading_Location, "")
txtKennzeichenAbgang.Text = If(NCTS.ncts_DepartureTransportMeans_1_IdentificationNumber, "")
sbKennzeichenAbgangLand.SET_VALUE(If(NCTS.ncts_DepartureTransportMeans_1_Nationality, ""))
'txtKennzeichenGrenze.Text = If(NCTS.ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend, "")
'sbKennzeichenGrenzeLand.SET_VALUE(If(NCTS.ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode, ""))
cboArtGrenzUeberschreitung.changeItem(NCTS.ncts_DepartureTransportMeans_1_TypeOfIdentification)
' cboVerkehrszweig.changeItem(NCTS.ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent)
cboBesondereUmstaende.changeItem(NCTS.ncts_SpecificCircomstanceIndicator)
cboZahlungsweiseBefKosten.changeItem(NCTS.ncts_TransportCharges)
End Sub
Private Sub btnAllgemein_Click(sender As Object, e As EventArgs) Handles btnTMinus.Click, btnTIR.Click, btnT2F.Click, btnT2.Click, btnT1.Click
initButton(sender)
End Sub
Sub initButton(sender As Button)
setBtn(btnTMinus, False)
setBtn(btnT1, False)
setBtn(btnT2, False)
setBtn(btnT2F, False)
setBtn(btnTIR, False)
If sender Is btnTMinus Then
NCTS_ART = "T-" : txtArtDetail.Text = "Versandanmeldung T- Gemischte Sendungen aus T1- und T2-Waren oder aus T1- und T2F-Waren, die - für jede Warenart getrennt - auf Positionsebene aufgeführt sind."
ElseIf sender Is btnT1 Then
NCTS_ART = "T1" : txtArtDetail.Text = "Versandanmeldung T1 Waren, die im externen gemeinschaftlichen/gemeinsamen Versandverfahren befördert werden sollen."
ElseIf sender Is btnT2 Then
NCTS_ART = "T2" : txtArtDetail.Text = "Versandanmeldung T2 Waren, die - soweit nicht das T2F-Verfahren vorgeschrieben ist - im internen gemeinschaftlichen Versandverfahren befördert werden sollen"
ElseIf sender Is btnT2F Then
NCTS_ART = "T2F" : txtArtDetail.Text = "Versandanmeldung T2F Waren, die im Linienverkehr zwischen Teilen des Zollgebiets der Gemeinschaft, in denen die Richtlinie 77/388/EWG (6. Mehrwertsteuerrichtlinie) Anwendung findet und den Teilen des Zollgebiets der Gemeinschaft, in denen diese Richtlinie nicht gilt (siehe Titel I, Absatz 3) im internen gemeinschaftlichen Versandverfahren befördert werden sollen."
ElseIf sender Is btnTIR Then
NCTS_ART = "TIR" : txtArtDetail.Text = "Versandanmeldung für Waren, die im TIR (Transports Internationaux Routiers) befördert werden sollen"
End If
setBtn(sender, True)
End Sub
Sub setBtn(btn As Button, value As Boolean)
If value Then
btn.BackColor = Color.OrangeRed
btn.ForeColor = Color.White
Else
btn.BackColor = Color.White
btn.ForeColor = Color.Black
End If
End Sub
Private Sub lklRoutenauswahl_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lklRoutenauswahl.LinkClicked
Dim frmRoutenauswahl As New frmRoutenauswahl
If frmRoutenauswahl.ShowDialog(Me) = DialogResult.OK Then
If frmRoutenauswahl.ROUTE.Count > 0 Then sbRoute1.SET_VALUE(frmRoutenauswahl.ROUTE(0)) Else sbRoute1.SET_VALUE("")
If frmRoutenauswahl.ROUTE.Count > 1 Then sbRoute2.SET_VALUE(frmRoutenauswahl.ROUTE(1)) Else sbRoute2.SET_VALUE("")
If frmRoutenauswahl.ROUTE.Count > 2 Then sbRoute3.SET_VALUE(frmRoutenauswahl.ROUTE(2)) Else sbRoute3.SET_VALUE("")
If frmRoutenauswahl.ROUTE.Count > 3 Then sbRoute4.SET_VALUE(frmRoutenauswahl.ROUTE(3)) Else sbRoute4.SET_VALUE("")
If frmRoutenauswahl.ROUTE.Count > 4 Then sbRoute5.SET_VALUE(frmRoutenauswahl.ROUTE(4)) Else sbRoute5.SET_VALUE("")
If frmRoutenauswahl.ROUTE.Count > 5 Then sbRoute6.SET_VALUE(frmRoutenauswahl.ROUTE(5)) Else sbRoute6.SET_VALUE("")
If frmRoutenauswahl.ROUTE.Count > 6 Then sbRoute7.SET_VALUE(frmRoutenauswahl.ROUTE(6)) Else sbRoute7.SET_VALUE("")
If frmRoutenauswahl.ROUTE.Count > 7 Then sbRoute8.SET_VALUE(frmRoutenauswahl.ROUTE(7)) Else sbRoute8.SET_VALUE("")
If frmRoutenauswahl.ROUTE.Count > 8 Then sbRoute9.SET_VALUE(frmRoutenauswahl.ROUTE(8)) Else sbRoute9.SET_VALUE("")
If frmRoutenauswahl.ZOLLAEMTER.Count > 0 Then sbDurchgangszollstelle1.SET_VALUE(frmRoutenauswahl.ZOLLAEMTER(0)) Else sbDurchgangszollstelle1.SET_VALUE("")
If frmRoutenauswahl.ZOLLAEMTER.Count > 1 Then sbDurchgangszollstelle2.SET_VALUE(frmRoutenauswahl.ZOLLAEMTER(1)) Else sbDurchgangszollstelle2.SET_VALUE("")
If frmRoutenauswahl.ZOLLAEMTER.Count > 2 Then sbDurchgangszollstelle3.SET_VALUE(frmRoutenauswahl.ZOLLAEMTER(2)) Else sbDurchgangszollstelle3.SET_VALUE("")
If frmRoutenauswahl.ZOLLAEMTER.Count > 3 Then sbDurchgangszollstelle4.SET_VALUE(frmRoutenauswahl.ZOLLAEMTER(3)) Else sbDurchgangszollstelle4.SET_VALUE("")
If frmRoutenauswahl.ZOLLAEMTER.Count > 4 Then sbDurchgangszollstelle5.SET_VALUE(frmRoutenauswahl.ZOLLAEMTER(4)) Else sbDurchgangszollstelle5.SET_VALUE("")
If frmRoutenauswahl.ZOLLAEMTER.Count > 5 Then sbDurchgangszollstelle6.SET_VALUE(frmRoutenauswahl.ZOLLAEMTER(5)) Else sbDurchgangszollstelle6.SET_VALUE("")
If frmRoutenauswahl.ZOLLAEMTER.Count > 6 Then sbDurchgangszollstelle7.SET_VALUE(frmRoutenauswahl.ZOLLAEMTER(6)) Else sbDurchgangszollstelle7.SET_VALUE("")
If frmRoutenauswahl.ZOLLAEMTER.Count > 7 Then sbDurchgangszollstelle8.SET_VALUE(frmRoutenauswahl.ZOLLAEMTER(7)) Else sbDurchgangszollstelle8.SET_VALUE("")
If frmRoutenauswahl.ZOLLAEMTER.Count > 8 Then sbDurchgangszollstelle9.SET_VALUE(frmRoutenauswahl.ZOLLAEMTER(8)) Else sbDurchgangszollstelle9.SET_VALUE("")
If frmRoutenauswahl.BESTIMMUNGSLAND <> "" Then sbBestimmungsland.SET_VALUE(frmRoutenauswahl.BESTIMMUNGSLAND)
End If
End Sub
Private Sub cbxSumASicherheit_CheckedChanged(sender As Object, e As EventArgs) Handles cbxSumASicherheit.CheckedChanged
txtEntladeort.Enabled = isVereinfachtesVerfahren()
txtLadeort.Enabled = isVereinfachtesVerfahren()
If Not txtLadeort.Enabled Then txtLadeort.Text = ""
If Not txtEntladeort.Enabled Then txtEntladeort.Text = ""
End Sub
Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click
txtKennzeichenGrenze.Text = txtKennzeichenAbgang.Text
End Sub
Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
txtKennzeichenAbgang.Text = txtKennzeichenGrenze.Text
End Sub
Private Sub sbVersendungsLand_TextChanged() Handles sbVersendungsLand.VALUE_CHANGED
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" And isVereinfachtesVerfahren() Then
If sbVersendungsLand._value <> "" And txtLadeort.Text = "" Then
txtLadeort.Text = sbVersendungsLand._value
End If
End If
End Sub
Private Sub sbBestimmungsland_TextChanged() Handles sbBestimmungsland.VALUE_CHANGED
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" And isVereinfachtesVerfahren() Then
If sbBestimmungsland._value <> "" And txtEntladeort.Text = "" Then
txtEntladeort.Text = sbBestimmungsland._value
End If
End If
End Sub
Function isVereinfachtesVerfahren()
Return (cboVerfahrensart._value = "11" Or cboVerfahrensart._value = "12")
End Function
Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
txtKennzeichenGrenze.Text = txtKennzeichenAbgang.Text
sbKennzeichenGrenzeLand.SET_VALUE(sbKennzeichenAbgangLand._value)
End Sub
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
Dim origin = ""
Dim destination = ""
If sbAbgangZollstelle._value <> "" Then
origin = sbAbgangZollstelle._value.Substring(0, 2) & " " & sbAbgangZollstelle.Text
Else Exit Sub
End If
If sbBestimmungZollstelle._value <> "" Then
destination = sbBestimmungZollstelle._value.Substring(0, 2) & " " & sbBestimmungZollstelle.Text
Else Exit Sub
End If
Dim duration = ""
Dim distance = ""
Dim distanceSek = ""
VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance(origin, destination, duration, distance, cbxWegStrecke.Checked)
'lblWegstreckeVonNach.Text = "von: " & origin & vbNewLine
'lblWegstreckeVonNach.Text &= "nach: " & destination
lblWegstrecke.Text = "Wegstrecke: " & distance
lblWegZeit.Text = "Fahrzeit: " & duration
End Sub
End Class

1661
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Position.Designer.vb generated Normal file
View File

File diff suppressed because it is too large Load Diff

193
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Position.resx Normal file
View File

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

528
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Position.vb Normal file
View File

@@ -0,0 +1,528 @@
Public Class usrCntlATLAS_NCTS004_Position
'' Public Event ADD()
' Public Event REMOVE(id)
' Public Event NEXT_POS()
' Public Event PREV_POS()
Dim WARE As DAKOSY_Worker.cDakosy_NCTSOut004_HouseConsignment_ConsignmentItem = Nothing
Dim WARE_TR As VERAG_PROG_ALLGEMEIN.cNCTS_TR_Warenposition = Nothing
Event RohmasseChanged(rohmasse As Double, packstuecke As Double)
Dim id As Integer = -1
Dim PK_EDIT = -1
Dim UL_EDIT = -1
Dim VP_EDIT = -1
Sub New(id)
InitializeComponent()
Me.id = id
End Sub
Sub New(id As Integer, WARE As DAKOSY_Worker.cDakosy_NCTSOut004_HouseConsignment_ConsignmentItem)
InitializeComponent()
Me.id = id
Me.WARE = WARE
End Sub
Sub New(id As Integer, WARE_TR As VERAG_PROG_ALLGEMEIN.cNCTS_TR_Warenposition)
InitializeComponent()
Me.id = id
Me.WARE_TR = WARE_TR
End Sub
Function getPackstuecke() As Integer
getPackstuecke = 0
For Each row As DataGridViewRow In dgvPackstuecke.Rows
getPackstuecke += If(IsNumeric(row.Cells("Anzahl").Value), row.Cells("Anzahl").Value, 0)
Next
End Function
Private Sub usrCntlATLAS_NCTS_Position_Load(sender As Object, e As EventArgs) Handles Me.Load
' cboColliMenge.Items.Clear()
' cboColliMenge.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
' cboColliMenge.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VQ", "VQ"))
' cboColliMenge.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VG", "VG"))
' cboColliMenge.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VL", "VL"))
' cboColliMenge.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VR", "VR"))
' cboColliMenge.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VY", "VY"))
' cboColliMenge.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VO", "VO"))
' Me.Parent.KeyDown += New KeyEventHandler(usrCntlATLAS_NCTS_Position_KeyDown)
'sbPkTyp.initSearchBox(Me.FindForm, " [Code] ,[Description] as Verpackungsart, Code + ' ' + Description as display FROM tbl_DY_ZollDE_C0017_PackstueckeVerpackungsarten", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
' sbUlArten.initSearchBox(Me.FindForm, " [Code] ,[Description] as Art,Code + ' ' + Description as display FROM tbl_DY_ZollDE_C0013_UnterlagenArten", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
sbPkTyp.initSearchBox(Me.FindForm, " [Code] ,[Description] as Verpackungsart FROM tbl_DY_ZollDE_C0017_PackstueckeVerpackungsarten", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", , "FMZOLL", , 400, 200)
sbUlArten.initSearchBox(Me.FindForm, " [Code] ,[Description] as Art FROM tbl_DY_ZollDE_C0013_UnterlagenArten", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", , "FMZOLL", , 400, 200)
sbExportAusLand.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "Code", "FMZOLL", , 400, 200)
sbBestimmungsland.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "Code", "FMZOLL", , 400, 200)
sbVersendungsLand.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "Code", "FMZOLL", , 400, 200)
cboWaehrung.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land FROM [tbl_DY_ZollDE_I0400_Waehrungsliste]", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "Code", "FMZOLL", , 400, 200)
cboArtAnmeldung.Items.Clear()
cboArtAnmeldung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboArtAnmeldung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T1 - Versandanmeldung T1 Waren, die im externen gemeinschaftlichen/gemeinsamen Versandverfahren befördert werden sollen.", "T1"))
cboArtAnmeldung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T2 - Versandanmeldung T2 Waren, die - soweit nicht das T2F-Verfahren vorgeschrieben ist - im internen gemeinschaftlichen Versandverfahren befördert werden sollen", "T2"))
cboArtAnmeldung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T2F - Versandanmeldung T2F Waren, die im Linienverkehr zwischen Teilen des Zollgebiets der Gemeinschaft, in denen die Richtlinie 77/388/EWG (6. Mehrwertsteuerrichtlinie) Anwendung findet und den Teilen des Zollgebiets der Gemeinschaft, in denen diese Richtlinie nicht gilt (siehe Titel I, Absatz 3) im internen gemeinschaftlichen Versandverfahren befördert werden sollen.", "T2F"))
cboVpTyp.Items.Clear()
For Each v In (New cVorpapierTypen).LIST
cboVpTyp.Items.Add(v)
Next
' cboVpTyp.changeItem("OHNE")
cboVpTyp.changeItem("OHNE")
If WARE IsNot Nothing Then setvalue(WARE)
If WARE_TR IsNot Nothing Then setvalue_TR(WARE_TR)
End Sub
Sub setvalue(WARE As DAKOSY_Worker.cDakosy_NCTSOut004_HouseConsignment_ConsignmentItem)
If WARE IsNot Nothing Then
Me.txtWarenbezeichnung.Text = If(WARE.nctsHCCI_DescriptionOfGoods, "")
Me.txtRohmasse.Text = If(WARE.nctsHCCI_GrossMass, "")
Me.txtEigenmasse.Text = If(WARE.nctsHCCI_NetMass, "")
Me.txtWarennummer.Text = If(WARE.nctsHCCI_CommodityCode, "")
Me.txtWarenwert._value = If(WARE.nctsHCCI_GoodsValue, "")
'Me.txtSiBetragProzent._value = If(WARE.nctsWP_WarenwertProzent, 0.25)
'Me.cboVpTyp.changeItem(If(WARE.nctsWP_VorpapierTyp, ""))
Me.cboWaehrung.SET_VALUE(If(WARE.nctsHCCI_CurrencyOfGoodsValue, ""))
Dim packstuecke = 0
dgvPackstuecke.Rows.Clear()
If WARE.nctsHCCI_PACKAGING IsNot Nothing Then
For Each PK In WARE.nctsHCCI_PACKAGING
Dim VerpackArtTxt = sbPkTyp.GET_VALUE_OnlyReturn(PK.nctsHCCIPK_TypeOfPackages)
dgvPackstuecke.Rows.Add(PK.nctsHCCIPK_TypeOfPackages, PK.nctsHCCIPK_NumberOfPackages, VerpackArtTxt, PK.nctsHCCIPK_GoodsItemNumber)
Next
End If
RaiseEvent RohmasseChanged(If(IsNumeric(txtRohmasse.Text), CDbl(txtRohmasse.Text), 0), getPackstuecke)
dgvUnterlage.Rows.Clear()
'If WARE.nctsWP_UNTERLAGEN IsNot Nothing Then
' For Each Ul In WARE.nctsWP_UNTERLAGEN
' Dim UlTxt = sbUlArten.GET_VALUE_OnlyReturn(Ul.nctsWpUl_Typ)
' dgvUnterlage.Rows.Add(Ul.nctsWpUl_Typ, UlTxt, Ul.nctsWpUl_Referenz, Ul.nctsWpUl_Zusatz)
' Next
'End If
dgvVorpapier.Rows.Clear()
If WARE.nctsHCCI_PreviousDocument_1_ReferenceNumber IsNot Nothing And WARE.nctsHCCI_PreviousDocument_1_ReferenceNumber <> "" Then dgvVorpapier.Rows.Add(WARE.nctsHCCI_PreviousDocument_1_ReferenceNumber, If(WARE.nctsHCCI_PreviousDocument_1_ComplementOfInformation, ""))
If WARE.nctsHCCI_PreviousDocument_2_ReferenceNumber IsNot Nothing And WARE.nctsHCCI_PreviousDocument_2_ReferenceNumber <> "" Then dgvVorpapier.Rows.Add(WARE.nctsHCCI_PreviousDocument_2_ReferenceNumber, If(WARE.nctsHCCI_PreviousDocument_2_ComplementOfInformation, ""))
If WARE.nctsHCCI_PreviousDocument_3_ReferenceNumber IsNot Nothing And WARE.nctsHCCI_PreviousDocument_3_ReferenceNumber <> "" Then dgvVorpapier.Rows.Add(WARE.nctsHCCI_PreviousDocument_3_ReferenceNumber, If(WARE.nctsHCCI_PreviousDocument_3_ComplementOfInformation, ""))
If WARE.nctsHCCI_PreviousDocument_4_ReferenceNumber IsNot Nothing And WARE.nctsHCCI_PreviousDocument_4_ReferenceNumber <> "" Then dgvVorpapier.Rows.Add(WARE.nctsHCCI_PreviousDocument_4_ReferenceNumber, If(WARE.nctsHCCI_PreviousDocument_4_ComplementOfInformation, ""))
If WARE.nctsHCCI_PreviousDocument_5_ReferenceNumber IsNot Nothing And WARE.nctsHCCI_PreviousDocument_5_ReferenceNumber <> "" Then dgvVorpapier.Rows.Add(WARE.nctsHCCI_PreviousDocument_5_ReferenceNumber, If(WARE.nctsHCCI_PreviousDocument_5_ComplementOfInformation, ""))
If WARE.nctsHCCI_PreviousDocument_6_ReferenceNumber IsNot Nothing And WARE.nctsHCCI_PreviousDocument_6_ReferenceNumber <> "" Then dgvVorpapier.Rows.Add(WARE.nctsHCCI_PreviousDocument_6_ReferenceNumber, If(WARE.nctsHCCI_PreviousDocument_6_ComplementOfInformation, ""))
If WARE.nctsHCCI_PreviousDocument_7_ReferenceNumber IsNot Nothing And WARE.nctsHCCI_PreviousDocument_7_ReferenceNumber <> "" Then dgvVorpapier.Rows.Add(WARE.nctsHCCI_PreviousDocument_7_ReferenceNumber, If(WARE.nctsHCCI_PreviousDocument_7_ComplementOfInformation, ""))
If WARE.nctsHCCI_PreviousDocument_8_ReferenceNumber IsNot Nothing And WARE.nctsHCCI_PreviousDocument_8_ReferenceNumber <> "" Then dgvVorpapier.Rows.Add(WARE.nctsHCCI_PreviousDocument_8_ReferenceNumber, If(WARE.nctsHCCI_PreviousDocument_8_ComplementOfInformation, ""))
If WARE.nctsHCCI_PreviousDocument_9_ReferenceNumber IsNot Nothing And WARE.nctsHCCI_PreviousDocument_9_ReferenceNumber <> "" Then dgvVorpapier.Rows.Add(WARE.nctsHCCI_PreviousDocument_9_ReferenceNumber, If(WARE.nctsHCCI_PreviousDocument_9_ComplementOfInformation, ""))
'Me.cbxEmport.Checked = If(WARE.nctsWP_BesondereVermeke_Export, False)
'Me.cbxEmportAbgaben.Checked = If(WARE.nctsWP_BesondereVermeke_ExportAbgaben, False)
'Me.cbxEmportBeschraernkung.Checked = If(WARE.nctsWP_BesondereVermeke_ExportBeschraenkung, False)
' Me.cbxExportAusEU.Checked = If(WARE.nctsWP_BesondereVermeke_ExportAusEU, False)
'If WARE.nctsWP_BesondereVermeke_ExportAusEU IsNot Nothing Then
' Me.cbxExportAusEU.Checked = If(WARE.nctsWP_BesondereVermeke_ExportAusEU, False)
'Else
' Me.cbxExportAusEU.CheckState = CheckState.Indeterminate
'End If
'If WARE.nctsWP_BesondereVermeke_ExportAusLand IsNot Nothing AndAlso WARE.nctsWP_BesondereVermeke_ExportAusLand <> "" Then
' Me.cbxEmportAusLand.Checked = True
' sbExportAusLand.SET_VALUE(WARE.nctsWP_BesondereVermeke_ExportAusLand)
'Else
' sbExportAusLand.SET_VALUE("")
' Me.cbxEmportAusLand.Checked = False
'End If
'txtKdRefNr.Text = If(WARE.nctsWP_KdRefNr, "")
'usrcntlVersedner.kdFirma.Text = WARE.nctsHCCI_Consignor_Name
'usrcntlVersedner.txtStrasse.Text = WARE.nctsHCCI_Consignor_StreetNumber
'usrcntlVersedner.txtPlz.Text = WARE.nctsHCCI_Consignor_Postcode
'usrcntlVersedner.txtOrt.Text = WARE.nctsHCCI_Consignor_City
'usrcntlVersedner.txtEORI.Text = WARE.nctsHCCI_Consignor_IdentificationNumber
'usrcntlVersedner.txtEORINL.Text = WARE.nctsHCCI_Consignor_SubsidiaryNumber
'usrcntlVersedner.sbLand.SET_VALUE(WARE.nctsHCCI_Consignor_Country)
usrcntlVersedner.kdFirma.Text = WARE.nctsHCCI_Consignor_Name
usrcntlVersedner.txtStrasse.Text = WARE.nctsHCCI_Consignor_StreetNumber
usrcntlVersedner.txtPlz.Text = WARE.nctsHCCI_Consignor_Postcode
usrcntlVersedner.txtOrt.Text = WARE.nctsHCCI_Consignor_City
usrcntlVersedner.txtEORI.Text = WARE.nctsHCCI_Consignor_IdentificationNumber
usrcntlVersedner.txtEORINL.Text = WARE.nctsHCCI_Consignor_SubsidiaryNumber
usrcntlVersedner.sbLand.SET_VALUE(WARE.nctsHCCI_Consignor_Country)
'usrcntlEmpfaenger.kdFirma.Text = WARE.nctsWP_Empfaenger_Name
'usrcntlEmpfaenger.txtStrasse.Text = WARE.nctsWP_Empfaenger_StrasseHausnummer
'usrcntlEmpfaenger.txtPlz.Text = WARE.nctsWP_Empfaenger_PLZ
'usrcntlEmpfaenger.txtOrt.Text = WARE.nctsWP_Empfaenger_Ort
'usrcntlEmpfaenger.txtEORI.Text = WARE.nctsWP_Empfaenger_EORI
'usrcntlEmpfaenger.txtEORINL.Text = WARE.nctsWP_Empfaenger_NLNR
'usrcntlEmpfaenger.sbLand.SET_VALUE(WARE.nctsWP_Empfaenger_Land)
'usrcntlSumAVersedner.kdFirma.Text = WARE.nctsWP_SumAVersender_Name
'usrcntlSumAVersedner.txtStrasse.Text = WARE.nctsWP_SumAVersender_StrasseHausnummer
'usrcntlSumAVersedner.txtPlz.Text = WARE.nctsWP_SumAVersender_PLZ
'usrcntlSumAVersedner.txtOrt.Text = WARE.nctsWP_SumAVersender_Ort
'usrcntlSumAVersedner.txtEORI.Text = WARE.nctsWP_SumAVersender_EORI
'usrcntlSumAVersedner.txtEORINL.Text = WARE.nctsWP_SumAVersender_NLNR
'usrcntlSumAVersedner.sbLand.SET_VALUE(WARE.nctsWP_SumAVersender_Land)
'usrcntlSumAEmpfaenger.kdFirma.Text = WARE.nctsWP_SumAEmpfaenger_Name
'usrcntlSumAEmpfaenger.txtStrasse.Text = WARE.nctsWP_SumAEmpfaenger_StrasseHausnummer
'usrcntlSumAEmpfaenger.txtPlz.Text = WARE.nctsWP_SumAEmpfaenger_PLZ
'usrcntlSumAEmpfaenger.txtOrt.Text = WARE.nctsWP_SumAEmpfaenger_Ort
'usrcntlSumAEmpfaenger.txtEORI.Text = WARE.nctsWP_SumAEmpfaenger_EORI
'usrcntlSumAEmpfaenger.txtEORINL.Text = WARE.nctsWP_SumAEmpfaenger_NLNR
'usrcntlSumAEmpfaenger.sbLand.SET_VALUE(WARE.nctsWP_SumAEmpfaenger_Land)
End If
End Sub
Sub setvalue_TR(WARE As VERAG_PROG_ALLGEMEIN.cNCTS_TR_Warenposition)
If WARE IsNot Nothing Then
Me.txtWarenbezeichnung.Text = If(WARE.nctsWP_Warenbezeichnung, "")
Me.txtRohmasse.Text = If(WARE.nctsWP_Rohmasse, "")
Me.txtEigenmasse.Text = If(WARE.nctsWP_Eigenmasse, "")
Me.txtWarennummer.Text = If(WARE.nctsWP_Warennummer, "")
Me.txtWarenwert._value = If(WARE.nctsWP_Warenwert, "")
Me.txtSiBetragProzent._value = If(WARE.nctsWP_WarenwertProzent, 0.25)
Me.cboVpTyp.changeItem(If(WARE.nctsWP_VorpapierTyp, ""))
Me.cboWaehrung.SET_VALUE(If(WARE.nctsWP_WarenwertWaehrung, ""))
Dim packstuecke = 0
dgvPackstuecke.Rows.Clear()
If WARE.nctsWP_PACKSTUECKE IsNot Nothing Then
For Each PK In WARE.nctsWP_PACKSTUECKE
Dim VerpackArtTxt = sbPkTyp.GET_VALUE_OnlyReturn(PK.nctsWpPk_Verpackungsart)
dgvPackstuecke.Rows.Add(PK.nctsWpPk_Verpackungsart, PK.nctsWpPk_PackstueckeAnzahl, VerpackArtTxt, PK.nctsWpPk_ZeichenNummern)
Next
End If
RaiseEvent RohmasseChanged(If(IsNumeric(txtRohmasse.Text), CDbl(txtRohmasse.Text), 0), getPackstuecke)
dgvUnterlage.Rows.Clear()
If WARE.nctsWP_UNTERLAGEN IsNot Nothing Then
For Each Ul In WARE.nctsWP_UNTERLAGEN
Dim UlTxt = sbUlArten.GET_VALUE_OnlyReturn(Ul.nctsWpUl_Typ)
dgvUnterlage.Rows.Add(Ul.nctsWpUl_Typ, UlTxt, Ul.nctsWpUl_Referenz, Ul.nctsWpUl_Zusatz)
Next
End If
dgvVorpapier.Rows.Clear()
If WARE.nctsWP_VorpapierReferenz1 IsNot Nothing And WARE.nctsWP_VorpapierReferenz1 <> "" Then dgvVorpapier.Rows.Add(WARE.nctsWP_VorpapierReferenz1, If(WARE.nctsWP_VorpapierZusatz1, ""))
If WARE.nctsWP_VorpapierReferenz2 IsNot Nothing And WARE.nctsWP_VorpapierReferenz2 <> "" Then dgvVorpapier.Rows.Add(WARE.nctsWP_VorpapierReferenz2, If(WARE.nctsWP_VorpapierZusatz2, ""))
If WARE.nctsWP_VorpapierReferenz3 IsNot Nothing And WARE.nctsWP_VorpapierReferenz3 <> "" Then dgvVorpapier.Rows.Add(WARE.nctsWP_VorpapierReferenz3, If(WARE.nctsWP_VorpapierZusatz3, ""))
If WARE.nctsWP_VorpapierReferenz4 IsNot Nothing And WARE.nctsWP_VorpapierReferenz4 <> "" Then dgvVorpapier.Rows.Add(WARE.nctsWP_VorpapierReferenz4, If(WARE.nctsWP_VorpapierZusatz4, ""))
If WARE.nctsWP_VorpapierReferenz5 IsNot Nothing And WARE.nctsWP_VorpapierReferenz5 <> "" Then dgvVorpapier.Rows.Add(WARE.nctsWP_VorpapierReferenz5, If(WARE.nctsWP_VorpapierZusatz5, ""))
If WARE.nctsWP_VorpapierReferenz6 IsNot Nothing And WARE.nctsWP_VorpapierReferenz6 <> "" Then dgvVorpapier.Rows.Add(WARE.nctsWP_VorpapierReferenz6, If(WARE.nctsWP_VorpapierZusatz6, ""))
If WARE.nctsWP_VorpapierReferenz7 IsNot Nothing And WARE.nctsWP_VorpapierReferenz7 <> "" Then dgvVorpapier.Rows.Add(WARE.nctsWP_VorpapierReferenz7, If(WARE.nctsWP_VorpapierZusatz7, ""))
If WARE.nctsWP_VorpapierReferenz8 IsNot Nothing And WARE.nctsWP_VorpapierReferenz8 <> "" Then dgvVorpapier.Rows.Add(WARE.nctsWP_VorpapierReferenz8, If(WARE.nctsWP_VorpapierZusatz8, ""))
If WARE.nctsWP_VorpapierReferenz9 IsNot Nothing And WARE.nctsWP_VorpapierReferenz9 <> "" Then dgvVorpapier.Rows.Add(WARE.nctsWP_VorpapierReferenz9, If(WARE.nctsWP_VorpapierZusatz9, ""))
Me.cbxEmport.Checked = If(WARE.nctsWP_BesondereVermeke_Export, False)
Me.cbxEmportAbgaben.Checked = If(WARE.nctsWP_BesondereVermeke_ExportAbgaben, False)
Me.cbxEmportBeschraernkung.Checked = If(WARE.nctsWP_BesondereVermeke_ExportBeschraenkung, False)
' Me.cbxExportAusEU.Checked = If(WARE.nctsWP_BesondereVermeke_ExportAusEU, False)
If WARE.nctsWP_BesondereVermeke_ExportAusEU IsNot Nothing Then
Me.cbxExportAusEU.Checked = If(WARE.nctsWP_BesondereVermeke_ExportAusEU, False)
Else
Me.cbxExportAusEU.CheckState = CheckState.Indeterminate
End If
If WARE.nctsWP_BesondereVermeke_ExportAusLand IsNot Nothing AndAlso WARE.nctsWP_BesondereVermeke_ExportAusLand <> "" Then
Me.cbxEmportAusLand.Checked = True
sbExportAusLand.SET_VALUE(WARE.nctsWP_BesondereVermeke_ExportAusLand)
Else
sbExportAusLand.SET_VALUE("")
Me.cbxEmportAusLand.Checked = False
End If
txtKdRefNr.Text = If(WARE.nctsWP_KdRefNr, "")
usrcntlVersedner.kdFirma.Text = WARE.nctsWP_Versender_Name
usrcntlVersedner.txtStrasse.Text = WARE.nctsWP_Versender_StrasseHausnummer
usrcntlVersedner.txtPlz.Text = WARE.nctsWP_Versender_PLZ
usrcntlVersedner.txtOrt.Text = WARE.nctsWP_Versender_Ort
usrcntlVersedner.txtEORI.Text = WARE.nctsWP_Versender_EORI
usrcntlVersedner.txtEORINL.Text = WARE.nctsWP_Versender_NLNR
usrcntlVersedner.sbLand.SET_VALUE(WARE.nctsWP_Versender_Land)
usrcntlEmpfaenger.kdFirma.Text = WARE.nctsWP_Empfaenger_Name
usrcntlEmpfaenger.txtStrasse.Text = WARE.nctsWP_Empfaenger_StrasseHausnummer
usrcntlEmpfaenger.txtPlz.Text = WARE.nctsWP_Empfaenger_PLZ
usrcntlEmpfaenger.txtOrt.Text = WARE.nctsWP_Empfaenger_Ort
usrcntlEmpfaenger.txtEORI.Text = WARE.nctsWP_Empfaenger_EORI
usrcntlEmpfaenger.txtEORINL.Text = WARE.nctsWP_Empfaenger_NLNR
usrcntlEmpfaenger.sbLand.SET_VALUE(WARE.nctsWP_Empfaenger_Land)
usrcntlSumAVersedner.kdFirma.Text = WARE.nctsWP_SumAVersender_Name
usrcntlSumAVersedner.txtStrasse.Text = WARE.nctsWP_SumAVersender_StrasseHausnummer
usrcntlSumAVersedner.txtPlz.Text = WARE.nctsWP_SumAVersender_PLZ
usrcntlSumAVersedner.txtOrt.Text = WARE.nctsWP_SumAVersender_Ort
usrcntlSumAVersedner.txtEORI.Text = WARE.nctsWP_SumAVersender_EORI
usrcntlSumAVersedner.txtEORINL.Text = WARE.nctsWP_SumAVersender_NLNR
usrcntlSumAVersedner.sbLand.SET_VALUE(WARE.nctsWP_SumAVersender_Land)
usrcntlSumAEmpfaenger.kdFirma.Text = WARE.nctsWP_SumAEmpfaenger_Name
usrcntlSumAEmpfaenger.txtStrasse.Text = WARE.nctsWP_SumAEmpfaenger_StrasseHausnummer
usrcntlSumAEmpfaenger.txtPlz.Text = WARE.nctsWP_SumAEmpfaenger_PLZ
usrcntlSumAEmpfaenger.txtOrt.Text = WARE.nctsWP_SumAEmpfaenger_Ort
usrcntlSumAEmpfaenger.txtEORI.Text = WARE.nctsWP_SumAEmpfaenger_EORI
usrcntlSumAEmpfaenger.txtEORINL.Text = WARE.nctsWP_SumAEmpfaenger_NLNR
usrcntlSumAEmpfaenger.sbLand.SET_VALUE(WARE.nctsWP_SumAEmpfaenger_Land)
End If
End Sub
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
addPackstuecke()
End Sub
Sub addPackstuecke()
Label23.Visible = False
Label24.Visible = False
If sbPkTyp._value = "" Then Label24.Visible = True : sbPkTyp.Focus() : Exit Sub
If txtPkAnzahl.Text = "" Then Label23.Visible = True : txtPkAnzahl.Focus() : Exit Sub
If PK_EDIT >= 0 Then
dgvPackstuecke.Rows.RemoveAt(PK_EDIT)
dgvPackstuecke.Rows.Insert(PK_EDIT, sbPkTyp._value, txtPkAnzahl.Text, sbPkTyp.Text, txtPkMarke.Text)
PK_EDIT = -1
btn.BackgroundImage = My.Resources.plus
lklBearbeitungAbbrechenPK.Visible = False
Else
dgvPackstuecke.Rows.Add(sbPkTyp._value, txtPkAnzahl.Text, sbPkTyp.Text, txtPkMarke.Text)
End If
sbPkTyp.SET_VALUE("") : txtPkAnzahl.Text = "" : txtPkMarke.Text = "ohne"
dgvPackstuecke.FirstDisplayedScrollingRowIndex = dgvPackstuecke.RowCount - 1
dgvPackstuecke.ClearSelection()
txtPkAnzahl.Focus()
RaiseEvent RohmasseChanged(If(IsNumeric(txtRohmasse.Text), CDbl(txtRohmasse.Text), 0), getPackstuecke)
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
addUnterlage()
End Sub
Sub addUnterlage()
Label22.Visible = False
If sbUlArten._value = "" Then Label22.Visible = True : sbUlArten.Focus() : Exit Sub
If UL_EDIT >= 0 Then
dgvUnterlage.Rows.RemoveAt(UL_EDIT)
dgvUnterlage.Rows.Insert(UL_EDIT, sbUlArten._value, sbUlArten.Text, txtUlReferenz.Text, txtUlZusatz.Text)
UL_EDIT = -1
Button1.BackgroundImage = My.Resources.plus
lklBearbeitungAbbrechenUl.Visible = False
Else
dgvUnterlage.Rows.Add(sbUlArten._value, sbUlArten.Text, txtUlReferenz.Text, txtUlZusatz.Text)
End If
txtUlZusatz.Text = "" : txtUlReferenz.Text = "" : sbUlArten.SET_VALUE("")
dgvUnterlage.FirstDisplayedScrollingRowIndex = dgvUnterlage.RowCount - 1
dgvUnterlage.ClearSelection()
sbUlArten.Focus()
End Sub
Private Sub PackstueckeKeyDown(sender As Object, e As KeyEventArgs) Handles sbPkTyp.KeyDown, txtPkAnzahl.KeyDown, txtPkMarke.KeyDown
If e.KeyCode = Keys.Return Then addPackstuecke() : e.Handled = True
End Sub
Private Sub UnterlageKeyDown(sender As Object, e As KeyEventArgs) Handles txtUlZusatz.KeyDown, txtUlReferenz.KeyDown, sbUlArten.KeyDown
If e.KeyCode = Keys.Return Then addUnterlage() : e.Handled = True
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
If dgvPackstuecke.SelectedRows.Count > 0 Then
If MsgBox("Möchten Sie den Eintrag in 'Packstücke' wirklich löschen?", vbYesNoCancel) = vbYes Then
dgvPackstuecke.Rows.Remove(dgvPackstuecke.SelectedRows(0))
End If
End If
dgvPackstuecke.ClearSelection()
RaiseEvent RohmasseChanged(If(IsNumeric(txtRohmasse.Text), CDbl(txtRohmasse.Text), 0), getPackstuecke)
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
If dgvUnterlage.SelectedRows.Count > 0 Then
If MsgBox("Möchten Sie den Eintrag in 'Unterlagen' wirklich löschen?", vbYesNoCancel) = vbYes Then
dgvUnterlage.Rows.Remove(dgvUnterlage.SelectedRows(0))
End If
End If
dgvUnterlage.ClearSelection()
End Sub
Private Sub MyTextBox2_TextChanged(sender As Object, e As EventArgs) Handles txtWarenwert.TextChanged, txtSiBetragProzent.TextChanged, txtWarenwert.Leave, txtSiBetragProzent.Leave, cboWaehrung.Leave
If IsNumeric(txtWarenwert._value) And IsNumeric(txtSiBetragProzent._value) Then
Label5.Text = CDbl(txtSiBetragProzent._value * txtWarenwert._value).ToString("N2") & " " & cboWaehrung._value
Else
Label5.Text = CDbl(0).ToString("N2") & " " & cboWaehrung._value
End If
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
addVorpapier()
End Sub
Sub addVorpapier()
Label38.Visible = False
If txtVpReferenz.Text = "" Then Label38.Visible = True : txtVpReferenz.Focus() : Exit Sub
If VP_EDIT >= 0 Then
dgvVorpapier.Rows.RemoveAt(VP_EDIT)
dgvVorpapier.Rows.Insert(VP_EDIT, txtVpReferenz.Text, txtVpZusatz.Text)
VP_EDIT = -1
Button5.BackgroundImage = My.Resources.plus
lklBearbeitungAbbrechenVP.Visible = False
Else
dgvVorpapier.Rows.Add(txtVpReferenz.Text, txtVpZusatz.Text)
End If
txtVpReferenz.Text = "" : txtVpZusatz.Text = ""
dgvVorpapier.FirstDisplayedScrollingRowIndex = dgvVorpapier.RowCount - 1
dgvVorpapier.ClearSelection()
txtVpReferenz.Focus()
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
If dgvVorpapier.SelectedRows.Count > 0 Then
If MsgBox("Möchten Sie den Eintrag in 'Vorpapiere' wirklich löschen?", vbYesNoCancel) = vbYes Then
dgvVorpapier.Rows.Remove(dgvVorpapier.SelectedRows(0))
End If
End If
dgvVorpapier.ClearSelection()
End Sub
Private Sub txtVpReferenz_KeyDown(sender As Object, e As KeyEventArgs) Handles txtVpReferenz.KeyDown, txtVpZusatz.KeyDown
If e.KeyCode = Keys.Return Then addVorpapier() : e.Handled = True
End Sub
Private Sub txtRohmasse_TextChanged(sender As Object, e As EventArgs) Handles txtRohmasse.TextChanged
RaiseEvent RohmasseChanged(If(IsNumeric(txtRohmasse.Text), CDbl(txtRohmasse.Text), 0), getPackstuecke)
End Sub
Private Sub dgvPackstuecke_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvPackstuecke.CellDoubleClick
If e.RowIndex < 0 Then Exit Sub
editableRowPK(e.RowIndex)
End Sub
Sub editableRowPK(index As Integer)
txtPkAnzahl.Text = dgvPackstuecke.Rows(index).Cells("Anzahl").Value
sbPkTyp.SET_VALUE(dgvPackstuecke.Rows(index).Cells("PkCode").Value)
txtPkMarke.Text = dgvPackstuecke.Rows(index).Cells("Marke").Value
PK_EDIT = index
btn.BackgroundImage = My.Resources.stift
lklBearbeitungAbbrechenPK.Visible = True
End Sub
Private Sub lklBearbeitungAbbrechenPK_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lklBearbeitungAbbrechenPK.LinkClicked
PK_EDIT = -1
txtPkAnzahl.Text = ""
sbPkTyp.SET_VALUE("")
txtPkMarke.Text = ""
btn.BackgroundImage = My.Resources.plus
lklBearbeitungAbbrechenPK.Visible = False
End Sub
Private Sub dgvUnterlage_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvUnterlage.CellDoubleClick
If e.RowIndex < 0 Then Exit Sub
editableRowUL(e.RowIndex)
End Sub
Sub editableRowUL(index As Integer)
txtUlReferenz.Text = dgvUnterlage.Rows(index).Cells("UlReferenz").Value
sbUlArten.SET_VALUE(dgvUnterlage.Rows(index).Cells("UlCode").Value)
txtUlZusatz.Text = dgvUnterlage.Rows(index).Cells("UlZusatz").Value
UL_EDIT = index
Button1.BackgroundImage = My.Resources.stift
lklBearbeitungAbbrechenUl.Visible = True
End Sub
Private Sub lklBearbeitungAbbrechenUl_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lklBearbeitungAbbrechenUl.LinkClicked
UL_EDIT = -1
txtUlReferenz.Text = ""
sbUlArten.SET_VALUE("")
txtUlZusatz.Text = ""
Button1.BackgroundImage = My.Resources.plus
lklBearbeitungAbbrechenUl.Visible = False
End Sub
Private Sub dgvVorpapier_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvVorpapier.CellDoubleClick
If e.RowIndex < 0 Then Exit Sub
editableRowVP(e.RowIndex)
End Sub
Sub editableRowVP(index As Integer)
txtVpReferenz.Text = dgvVorpapier.Rows(index).Cells("VpReferenz").Value
txtVpZusatz.Text = dgvVorpapier.Rows(index).Cells("VpZusatz").Value
VP_EDIT = index
Button5.BackgroundImage = My.Resources.stift
lklBearbeitungAbbrechenVP.Visible = True
End Sub
Private Sub lklBearbeitungAbbrechenVP_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lklBearbeitungAbbrechenVP.LinkClicked
VP_EDIT = -1
txtVpReferenz.Text = ""
txtVpZusatz.Text = ""
Button5.BackgroundImage = My.Resources.plus
lklBearbeitungAbbrechenVP.Visible = False
End Sub
Private Sub dgvPackstuecke_CellContentClick(sender As Object, e As EventArgs) Handles dgvPackstuecke.LostFocus
dgvPackstuecke.ClearSelection()
End Sub
Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles cbxEmportAusLand.CheckedChanged
sbExportAusLand.Enabled = cbxEmportAusLand.Checked
End Sub
Private Sub txtEigenmasse_TextChanged() Handles txtEigenmasse.ValueChanged, txtRohmasse.ValueChanged
Label7.Visible = False
If IsNumeric(txtRohmasse._value) And IsNumeric(txtEigenmasse._value) Then
If CDbl(txtRohmasse._value) < CDbl(txtEigenmasse._value) Then
Label7.Visible = True
End If
End If
End Sub
End Class

196
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Positionen.Designer.vb generated Normal file
View File

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

132
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Positionen.resx Normal file
View File

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

649
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Positionen.vb Normal file
View File

@@ -0,0 +1,649 @@
Public Class usrCntlATLAS_NCTS004_Positionen
Dim NCTS As DAKOSY_Worker.cDakosyNCTSOut004 = Nothing
Dim NCTS_TR As VERAG_PROG_ALLGEMEIN.cNCTS_TR = Nothing
Dim POS As New List(Of usrCntlATLAS_NCTS004_Position)
Dim sectionChangeBLOCK = False
Dim gesRohmasse = 0
Dim gesPackstuecke = 0
Event RohmasseChanged(gesRohmasse As Double, gesPackstuecke As Double)
Event PosAnzChanged(anzahlPos As Double)
Sub New(NCTS As DAKOSY_Worker.cDakosyNCTSOut004)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
Me.NCTS = NCTS
End Sub
Sub New(NCTS_TR As VERAG_PROG_ALLGEMEIN.cNCTS_TR)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
Me.NCTS_TR = NCTS_TR
End Sub
Private Sub usrCntlATLAS_NCTS_Load(sender As Object, e As EventArgs) Handles Me.Load
' addItem() 'Auskommentiert!
'setValues(NCTS.ncts_WARENPOS)
End Sub
Public Sub setValues(NCTS_POS As DAKOSY_Worker.cDakosyNCTSOut004)
If NCTS_POS Is Nothing Then Exit Sub
POS.Clear()
If NCTS_POS.ncts_HOUSE_CONSIGNMENT IsNot Nothing AndAlso NCTS_POS.ncts_HOUSE_CONSIGNMENT.Count > 0 Then
If NCTS_POS.ncts_HOUSE_CONSIGNMENT(0).nctsWP_CONSIGNMENT_ITEM IsNot Nothing Then
For Each p In NCTS_POS.ncts_HOUSE_CONSIGNMENT(0).nctsWP_CONSIGNMENT_ITEM
addItem(p) 'MyPanel2.Controls.Add()
Next
End If
End If
MyPanel2.Controls.Clear()
MyListBox1_SelectedIndexChanged(dgvPositionen, New EventArgs)
End Sub
Public Sub setValues_TR(NCTS_POS As VERAG_PROG_ALLGEMEIN.cNCTS_TR)
If NCTS_POS Is Nothing Then Exit Sub
POS.Clear()
For Each p In NCTS_POS.ncts_WARENPOS
addItem_TR(p) 'MyPanel2.Controls.Add()
Next
MyPanel2.Controls.Clear()
MyListBox1_SelectedIndexChanged(dgvPositionen, New EventArgs)
End Sub
Sub initListBox(Optional selectedIndex = -1)
If dgvPositionen.ColumnCount <= 0 Then Exit Sub
If selectedIndex >= 0 Then sectionChangeBLOCK = True
Dim cnt As Integer = 1
dgvPositionen.Rows.Clear()
For Each p In POS
p.lblPosNr.Text = cnt
dgvPositionen.Rows.Add(POS.IndexOf(p), cnt, p.txtWarenbezeichnung.Text)
cnt += 1
Next
If selectedIndex >= 0 Then
' MyListBox1.SetSelected(selectedIndex, True)
' sectionChangeBLOCK = False
End If
End Sub
Private Sub dgvPositionen_KeyDown(sender As Object, e As KeyEventArgs) Handles dgvPositionen.KeyDown
If e.KeyCode = Keys.Delete Then
removeItem(dgvPositionen.SelectedRows(0).Cells("index").Value)
End If
End Sub
Private Sub MyListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles dgvPositionen.SelectionChanged
Try
If sectionChangeBLOCK Then Exit Sub
MyPanel2.Controls.Clear()
If dgvPositionen.SelectedRows.Count > 0 Then
MyPanel2.Controls.Add(POS(dgvPositionen.SelectedRows(0).Cells("index").Value))
POS(dgvPositionen.SelectedRows(0).Cells("index").Value).txtWarenbezeichnung.Focus()
' Try : DirectCast(MyPanel2.Controls(0), usrCntlATLAS_NCTS004_Position).txtWarenbezeichnung.Focus() : Catch : End Try
' initListBox(MyListBox1.SelectedIndex())
End If
Catch ex As Exception
End Try
End Sub
Private Sub usrCntlATLAS_NCTS004_Position_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
If e.Control = True Then
If e.KeyCode = Keys.Oemplus Then addItem()
If e.KeyCode = Keys.OemMinus Then
If dgvPositionen.SelectedRows.Count > 0 Then
removeItem(dgvPositionen.SelectedRows(0).Cells("index").Value)
End If
End If
End If
End Sub
Protected Overrides Function ProcessCmdKey(ByRef msg As Message, ByVal keyData As Keys) As Boolean
Try
If keyData = (Keys.Control Or Keys.Add) Then
'RaiseEvent a() : Return True
addItem()
Return True
ElseIf keyData = (Keys.Control Or Keys.Subtract) Then
'RaiseEvent REMOVE(ID) : Return True
removeItem(dgvPositionen.SelectedRows(0).Cells("index").Value)
Return True
ElseIf keyData = Keys.PageUp Then
'RaiseEvent PREV_POS() : Return True
PREV_POS()
Return True
ElseIf keyData = Keys.PageDown Then
'RaiseEvent NEXT_POS() : Return True
NEXT_POS()
Return True
End If
Catch ex As Exception
End Try
Return False
End Function
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
addItem()
End Sub
Function duplicateItem(Optional POSTMP As DAKOSY_Worker.cDakosy_NCTSOut_Warenposition = Nothing) As usrCntlATLAS_NCTS004_Position
If dgvPositionen.SelectedRows.Count > 0 Then
'GET
'Dim d = getValues()
'??????????????????????????
MyPanel2.Controls.Add(POS(dgvPositionen.SelectedRows(0).Cells("index").Value))
Dim u As usrCntlATLAS_NCTS004_Position = POS(dgvPositionen.SelectedRows(0).Cells("index").Value) '.CreateCopy(New usrCntlATLAS_NCTS004_Position))
AddHandler u.RohmasseChanged, Sub(r, pk)
gesRohmasse = 0
gesPackstuecke = 0
For Each p As usrCntlATLAS_NCTS004_Position In POS
gesRohmasse += If(IsNumeric(p.txtRohmasse.Text), p.txtRohmasse.Text, 0)
For Each row As DataGridViewRow In p.dgvPackstuecke.Rows
gesPackstuecke += If(IsNumeric(row.Cells("Anzahl").Value), row.Cells("Anzahl").Value, 0)
Next
Next
RaiseEvent RohmasseChanged(gesRohmasse, gesPackstuecke)
End Sub
u.Dock = DockStyle.Fill
u.cboVpTyp.changeItem("OHNE")
' AddHandler u.ADD, AddressOf addItem
' AddHandler u.REMOVE, AddressOf removeItem
' AddHandler u.NEXT_POS, AddressOf NEXT_POS
' AddHandler u.PREV_POS, AddressOf PREV_POS
POS.Add(u)
initListBox()
dgvPositionen.ClearSelection()
If dgvPositionen.RowCount > 0 Then dgvPositionen.Rows(dgvPositionen.RowCount - 1).Selected = True
RaiseEvent PosAnzChanged(POS.Count)
Return u
End If
End Function
Function addItem(Optional POSTMP As DAKOSY_Worker.cDakosy_NCTSOut004_HouseConsignment_ConsignmentItem = Nothing) As usrCntlATLAS_NCTS004_Position '
Dim u = New usrCntlATLAS_NCTS004_Position(POS.Count, POSTMP)
AddHandler u.RohmasseChanged, Sub(r, pk)
gesRohmasse = 0
gesPackstuecke = 0
For Each p As usrCntlATLAS_NCTS004_Position In POS
gesRohmasse += If(IsNumeric(p.txtRohmasse.Text), p.txtRohmasse.Text, 0)
For Each row As DataGridViewRow In p.dgvPackstuecke.Rows
gesPackstuecke += If(IsNumeric(row.Cells("Anzahl").Value), row.Cells("Anzahl").Value, 0)
Next
Next
RaiseEvent RohmasseChanged(gesRohmasse, gesPackstuecke)
End Sub
u.Dock = DockStyle.Fill
u.cboVpTyp.changeItem("OHNE")
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "ATILLA"
u.cbxEmport.Checked = True
End Select
' AddHandler u.ADD, AddressOf addItem
' AddHandler u.REMOVE, AddressOf removeItem
' AddHandler u.NEXT_POS, AddressOf NEXT_POS
' AddHandler u.PREV_POS, AddressOf PREV_POS
POS.Add(u)
initListBox()
dgvPositionen.ClearSelection()
If dgvPositionen.RowCount > 0 Then dgvPositionen.Rows(dgvPositionen.RowCount - 1).Selected = True
RaiseEvent PosAnzChanged(POS.Count)
Return u
End Function
Function addItem_TR(Optional POSTMP As VERAG_PROG_ALLGEMEIN.cNCTS_TR_Warenposition = Nothing) As usrCntlATLAS_NCTS004_Position '
Dim u = New usrCntlATLAS_NCTS004_Position(POS.Count, POSTMP)
AddHandler u.RohmasseChanged, Sub(r, pk)
gesRohmasse = 0
gesPackstuecke = 0
For Each p As usrCntlATLAS_NCTS004_Position In POS
gesRohmasse += If(IsNumeric(p.txtRohmasse.Text), p.txtRohmasse.Text, 0)
For Each row As DataGridViewRow In p.dgvPackstuecke.Rows
gesPackstuecke += If(IsNumeric(row.Cells("Anzahl").Value), row.Cells("Anzahl").Value, 0)
Next
Next
RaiseEvent RohmasseChanged(gesRohmasse, gesPackstuecke)
End Sub
u.Dock = DockStyle.Fill
u.cboVpTyp.changeItem("OHNE")
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "ATILLA"
u.cbxEmport.Checked = True
End Select
' AddHandler u.ADD, AddressOf addItem
' AddHandler u.REMOVE, AddressOf removeItem
' AddHandler u.NEXT_POS, AddressOf NEXT_POS
' AddHandler u.PREV_POS, AddressOf PREV_POS
POS.Add(u)
initListBox()
dgvPositionen.ClearSelection()
If dgvPositionen.RowCount > 0 Then dgvPositionen.Rows(dgvPositionen.RowCount - 1).Selected = True
RaiseEvent PosAnzChanged(POS.Count)
Return u
End Function
Sub removeItem(index)
If index < 0 Then Exit Sub
'If index < 0 Then Exit Sub
If dgvPositionen.Rows.Count > index Then
If vbYes = MsgBox("Möchten Sie die Position wirklich löschen?", vbYesNoCancel) Then
dgvPositionen.ClearSelection()
If POS.Count > index Then POS.RemoveAt(index)
initListBox()
If dgvPositionen.Rows.Count > index Then
dgvPositionen.Rows(index).Selected = True 'SetSelected(index, True)
ElseIf dgvPositionen.Rows.Count > 0 Then
dgvPositionen.Rows(0).Selected = True
End If
End If
End If
RaiseEvent PosAnzChanged(POS.Count)
End Sub
Sub NEXT_POS()
If dgvPositionen.SelectedRows.Count > 0 Then
If dgvPositionen.RowCount > dgvPositionen.SelectedRows(0).Index + 1 Then
Dim i = dgvPositionen.SelectedRows(0).Index
dgvPositionen.ClearSelection()
dgvPositionen.Rows(i + 1).Selected = True
' POS(dgvPositionen.SelectedRows(0).Cells("index").Value).txtWarenbezeichnung.Focus()
End If
End If
End Sub
Sub PREV_POS()
If dgvPositionen.SelectedRows.Count > 0 Then
If dgvPositionen.SelectedRows(0).Index > 0 Then
Dim i = dgvPositionen.SelectedRows(0).Index
dgvPositionen.ClearSelection()
dgvPositionen.Rows(i - 1).Selected = True
' POS(dgvPositionen.SelectedRows(0).Cells("index").Value).txtWarenbezeichnung.Focus()
End If
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If dgvPositionen.SelectedRows.Count > 0 Then
removeItem(dgvPositionen.SelectedRows(0).Cells("index").Value)
End If
End Sub
Private Sub Timer_Tick(sender As Object, e As EventArgs) Handles Timer.Tick
refreshDGV()
End Sub
Public Sub refreshDGV()
With dgvPositionen
If dgvPositionen.ColumnCount = 0 Then Exit Sub
For Each r As DataGridViewRow In .Rows
Dim index = r.Cells("index").Value
'r.Cells("ID").Value = POS(index)..Text
If POS.Count > index Then
r.Cells("Ware").Value = POS(index).txtWarenbezeichnung.Text
End If
Next
End With
End Sub
Public Sub getValues(ByRef NCTS As DAKOSY_Worker.cDakosyNCTSOut004)
' Dim POSITIONEN As List(Of DAKOSY_Worker.cDakosy_NCTSOut_Warenposition)
NCTS.ncts_HOUSE_CONSIGNMENT.Clear()
Dim cnt As Integer = 1
For Each P In POS
Dim HC As New DAKOSY_Worker.cDakosy_NCTSOut004_HouseConsignment
Dim POSITION As New DAKOSY_Worker.cDakosy_NCTSOut004_HouseConsignment_ConsignmentItem
'POSITION.nctsWP_Id As Integer
' POSITION.nctsWP_NctsId = NCTS.ncts_Id
POSITION.nctsHCCI_GoodsItemNumber = cnt
POSITION.nctsHCCI_CommodityCode = cProgramFunctions.isLeerNothing(P.txtWarennummer.Text)
' POSITION.nctsWP_ArtAnmeldungPositionCode = cProgramFunctions.isLeerNothing(P.cboArtAnmeldung._value)
POSITION.nctsHCCI_DescriptionOfGoods = P.txtWarenbezeichnung.Text
POSITION.nctsHCCI_GoodsValue = cProgramFunctions.isLeerNothingDbl(P.txtWarenwert._value)
' POSITION.nctsWP_WarenwertProzent = cProgramFunctions.isLeerNothingDbl(P.txtSiBetragProzent._value)
POSITION.nctsHCCI_CurrencyOfGoodsValue = cProgramFunctions.isLeerNothing(P.cboWaehrung._value)
'POSITION.nctsWP_WarenwertWaehrung = P.XXXXXXXXXXXX.Text
'POSITION.nctsWP_SchaetzKz = P.XXXXXXXXXXXX.Text
'POSITION.nctsWP_WarenwertProzent = P.XXXXXXXXXXXX.Text
POSITION.nctsHCCI_GrossMass = cProgramFunctions.isLeerNothingDbl(P.txtRohmasse.Text)
POSITION.nctsHCCI_NetMass = cProgramFunctions.isLeerNothingDbl(P.txtEigenmasse.Text)
'
' POSITION.nctsWP_VorpapierTyp = cProgramFunctions.isLeerNothing(P.cboVpTyp._value)
'POSITION.nctsWP_BesondereVermeke_Export = P.cbxEmport.Checked
'POSITION.nctsWP_BesondereVermeke_ExportAbgaben = P.cbxEmportAbgaben.Checked
'POSITION.nctsWP_BesondereVermeke_ExportBeschraenkung = P.cbxEmportBeschraernkung.Checked
'POSITION.nctsWP_BesondereVermeke_ExportAusEU = P.cbxExportAusEU.Checked
POSITION.nctsHCCI_CountryOfDispatch = cProgramFunctions.isLeerNothing(P.sbVersendungsLand._value)
POSITION.nctsHCCI_CountryOfDestination = cProgramFunctions.isLeerNothing(P.sbBestimmungsland._value)
'If P.cbxExportAusEU.CheckState = CheckState.Checked Then
' POSITION.nctsWP_BesondereVermeke_ExportAusEU = True
'ElseIf P.cbxExportAusEU.CheckState = CheckState.Unchecked Then
' POSITION.nctsWP_BesondereVermeke_ExportAusEU = False
'Else
' POSITION.nctsWP_BesondereVermeke_ExportAusEU = Nothing
'End If
'If P.cbxEmportAusLand.Checked = CheckState.Checked Then
' POSITION.nctsWP_BesondereVermeke_ExportAusLand = cProgramFunctions.isLeerNothing(P.sbExportAusLand._value)
'Else
' POSITION.nctsWP_BesondereVermeke_ExportAusLand = Nothing
'End If
'POSITION.nctsWP_BesondereVermeke_Vermerk = P.cbxVermerk.Text
'POSITION.nctsWP_BesondereVermeke_Kz10600 = P.cbxVermerk10600.Checked
POSITION.nctsHCCI_PreviousDocument_1_ReferenceNumber = Nothing
POSITION.nctsHCCI_PreviousDocument_1_ComplementOfInformation = Nothing
POSITION.nctsHCCI_PreviousDocument_2_ReferenceNumber = Nothing
POSITION.nctsHCCI_PreviousDocument_2_ComplementOfInformation = Nothing
POSITION.nctsHCCI_PreviousDocument_3_ReferenceNumber = Nothing
POSITION.nctsHCCI_PreviousDocument_3_ComplementOfInformation = Nothing
POSITION.nctsHCCI_PreviousDocument_4_ReferenceNumber = Nothing
POSITION.nctsHCCI_PreviousDocument_4_ComplementOfInformation = Nothing
POSITION.nctsHCCI_PreviousDocument_5_ReferenceNumber = Nothing
POSITION.nctsHCCI_PreviousDocument_5_ComplementOfInformation = Nothing
POSITION.nctsHCCI_PreviousDocument_6_ReferenceNumber = Nothing
POSITION.nctsHCCI_PreviousDocument_6_ComplementOfInformation = Nothing
POSITION.nctsHCCI_PreviousDocument_7_ReferenceNumber = Nothing
POSITION.nctsHCCI_PreviousDocument_7_ComplementOfInformation = Nothing
POSITION.nctsHCCI_PreviousDocument_8_ReferenceNumber = Nothing
POSITION.nctsHCCI_PreviousDocument_8_ComplementOfInformation = Nothing
POSITION.nctsHCCI_PreviousDocument_9_ReferenceNumber = Nothing
POSITION.nctsHCCI_PreviousDocument_9_ComplementOfInformation = Nothing
If P.dgvVorpapier.Rows.Count > 0 Then
POSITION.nctsHCCI_PreviousDocument_1_ReferenceNumber = P.dgvVorpapier.Rows(0).Cells("VpReferenz").Value
POSITION.nctsHCCI_PreviousDocument_1_ComplementOfInformation = P.dgvVorpapier.Rows(0).Cells("VpZusatz").Value
End If
If P.dgvVorpapier.Rows.Count > 1 Then
POSITION.nctsHCCI_PreviousDocument_2_ReferenceNumber = P.dgvVorpapier.Rows(1).Cells("VpReferenz").Value
POSITION.nctsHCCI_PreviousDocument_2_ComplementOfInformation = P.dgvVorpapier.Rows(1).Cells("VpZusatz").Value
End If
If P.dgvVorpapier.Rows.Count > 2 Then
POSITION.nctsHCCI_PreviousDocument_3_ReferenceNumber = P.dgvVorpapier.Rows(2).Cells("VpReferenz").Value
POSITION.nctsHCCI_PreviousDocument_3_ComplementOfInformation = P.dgvVorpapier.Rows(2).Cells("VpZusatz").Value
End If
If P.dgvVorpapier.Rows.Count > 3 Then
POSITION.nctsHCCI_PreviousDocument_4_ReferenceNumber = P.dgvVorpapier.Rows(3).Cells("VpReferenz").Value
POSITION.nctsHCCI_PreviousDocument_4_ComplementOfInformation = P.dgvVorpapier.Rows(3).Cells("VpZusatz").Value
End If
If P.dgvVorpapier.Rows.Count > 4 Then
POSITION.nctsHCCI_PreviousDocument_5_ReferenceNumber = P.dgvVorpapier.Rows(4).Cells("VpReferenz").Value
POSITION.nctsHCCI_PreviousDocument_5_ComplementOfInformation = P.dgvVorpapier.Rows(4).Cells("VpZusatz").Value
End If
If P.dgvVorpapier.Rows.Count > 5 Then
POSITION.nctsHCCI_PreviousDocument_6_ReferenceNumber = P.dgvVorpapier.Rows(5).Cells("VpReferenz").Value
POSITION.nctsHCCI_PreviousDocument_6_ComplementOfInformation = P.dgvVorpapier.Rows(5).Cells("VpZusatz").Value
End If
If P.dgvVorpapier.Rows.Count > 6 Then
POSITION.nctsHCCI_PreviousDocument_7_ReferenceNumber = P.dgvVorpapier.Rows(6).Cells("VpReferenz").Value
POSITION.nctsHCCI_PreviousDocument_7_ComplementOfInformation = P.dgvVorpapier.Rows(6).Cells("VpZusatz").Value
End If
If P.dgvVorpapier.Rows.Count > 7 Then
POSITION.nctsHCCI_PreviousDocument_8_ReferenceNumber = P.dgvVorpapier.Rows(7).Cells("VpReferenz").Value
POSITION.nctsHCCI_PreviousDocument_8_ComplementOfInformation = P.dgvVorpapier.Rows(7).Cells("VpZusatz").Value
End If
If P.dgvVorpapier.Rows.Count > 8 Then
POSITION.nctsHCCI_PreviousDocument_9_ReferenceNumber = P.dgvVorpapier.Rows(8).Cells("VpReferenz").Value
POSITION.nctsHCCI_PreviousDocument_9_ComplementOfInformation = P.dgvVorpapier.Rows(8).Cells("VpZusatz").Value
End If
POSITION.nctsHCCI_PACKAGING = New List(Of DAKOSY_Worker.cDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packaging)
For Each r As DataGridViewRow In P.dgvPackstuecke.Rows
Dim Pk As New DAKOSY_Worker.cDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packaging
Pk.nctsHCCIPK_TypeOfPackages = r.Cells("PkCode").Value
Pk.nctsHCCIPK_NumberOfPackages = r.Cells("Anzahl").Value
Pk.nctsHCCIPK_GoodsItemNumber = r.Cells("Marke").Value
POSITION.nctsHCCI_PACKAGING.Add(Pk)
Next
'POSITION.nctsWP_UNTERLAGEN = New List(Of DAKOSY_Worker.cDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen)
'For Each r As DataGridViewRow In P.dgvUnterlage.Rows
' Dim Ul As New DAKOSY_Worker.cDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen
' Ul.nctsWpUl_Typ = r.Cells("UlCode").Value
' Ul.nctsWpUl_Referenz = r.Cells("UlReferenz").Value
' Ul.nctsWpUl_Zusatz = r.Cells("UlZusatz").Value
' POSITION.nctsWP_UNTERLAGEN.Add(Ul)
'Next
'POSITION.nctsWP_KdRefNr = P.txtKdRefNr.Text
'POSITION.nctsWP_Versender_Name = cProgramFunctions.isLeerNothing(P.usrcntlVersedner.kdFirma.Text)
'POSITION.nctsWP_Versender_StrasseHausnummer = cProgramFunctions.isLeerNothing(P.usrcntlVersedner.txtStrasse.Text)
'POSITION.nctsWP_Versender_PLZ = cProgramFunctions.isLeerNothing(P.usrcntlVersedner.txtPlz.Text)
'POSITION.nctsWP_Versender_Ort = cProgramFunctions.isLeerNothing(P.usrcntlVersedner.txtOrt.Text)
'POSITION.nctsWP_Versender_Land = cProgramFunctions.isLeerNothing(P.usrcntlVersedner.sbLand._value)
'POSITION.nctsWP_Versender_EORI = cProgramFunctions.isLeerNothing(P.usrcntlVersedner.txtEORI.Text)
'POSITION.nctsWP_Versender_NLNR = cProgramFunctions.isLeerNothing(P.usrcntlVersedner.txtEORINL.Text)
POSITION.nctsHCCI_Consignor_Name = cProgramFunctions.isLeerNothing(P.usrcntlEmpfaenger.kdFirma.Text)
POSITION.nctsHCCI_Consignor_StreetNumber = cProgramFunctions.isLeerNothing(P.usrcntlEmpfaenger.txtStrasse.Text)
POSITION.nctsHCCI_Consignor_Postcode = cProgramFunctions.isLeerNothing(P.usrcntlEmpfaenger.txtPlz.Text)
POSITION.nctsHCCI_Consignor_City = cProgramFunctions.isLeerNothing(P.usrcntlEmpfaenger.txtOrt.Text)
POSITION.nctsHCCI_Consignor_Country = cProgramFunctions.isLeerNothing(P.usrcntlEmpfaenger.sbLand._value)
POSITION.nctsHCCI_Consignor_IdentificationNumber = cProgramFunctions.isLeerNothing(P.usrcntlEmpfaenger.txtEORI.Text)
POSITION.nctsHCCI_Consignor_SubsidiaryNumber = cProgramFunctions.isLeerNothing(P.usrcntlEmpfaenger.txtEORINL.Text)
HC.nctsWP_CONSIGNMENT_ITEM.Add(POSITION)
NCTS.ncts_HOUSE_CONSIGNMENT.Add(HC)
cnt += 1
Next
' NCTS.ncts_WARENPOS
End Sub
Public Sub getValues_TR(ByRef NCTS As VERAG_PROG_ALLGEMEIN.cNCTS_TR)
' Dim POSITIONEN As List(Of VERAG_PROG_ALLGEMEIN.cNCTS_TR_Warenposition)
NCTS.ncts_WARENPOS.Clear()
Dim cnt As Integer = 1
For Each P In POS
Dim POSITION As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Warenposition
'POSITION.nctsWP_Id As Integer
' POSITION.nctsWP_NctsId = NCTS.ncts_Id
POSITION.nctsWP_PositionsNummer = cnt
POSITION.nctsWP_Warennummer = cProgramFunctions.isLeerNothing(P.txtWarennummer.Text)
POSITION.nctsWP_ArtAnmeldungPositionCode = cProgramFunctions.isLeerNothing(P.cboArtAnmeldung._value)
POSITION.nctsWP_Warenbezeichnung = P.txtWarenbezeichnung.Text
POSITION.nctsWP_Warenwert = cProgramFunctions.isLeerNothingDbl(P.txtWarenwert._value)
POSITION.nctsWP_WarenwertProzent = cProgramFunctions.isLeerNothingDbl(P.txtSiBetragProzent._value)
POSITION.nctsWP_WarenwertWaehrung = cProgramFunctions.isLeerNothing(P.cboWaehrung._value)
'POSITION.nctsWP_WarenwertWaehrung = P.XXXXXXXXXXXX.Text
'POSITION.nctsWP_SchaetzKz = P.XXXXXXXXXXXX.Text
'POSITION.nctsWP_WarenwertProzent = P.XXXXXXXXXXXX.Text
POSITION.nctsWP_Rohmasse = cProgramFunctions.isLeerNothingDbl(P.txtRohmasse.Text)
POSITION.nctsWP_Eigenmasse = cProgramFunctions.isLeerNothingDbl(P.txtEigenmasse.Text)
POSITION.nctsWP_VorpapierTyp = cProgramFunctions.isLeerNothing(P.cboVpTyp._value)
POSITION.nctsWP_BesondereVermeke_Export = P.cbxEmport.Checked
POSITION.nctsWP_BesondereVermeke_ExportAbgaben = P.cbxEmportAbgaben.Checked
POSITION.nctsWP_BesondereVermeke_ExportBeschraenkung = P.cbxEmportBeschraernkung.Checked
POSITION.nctsWP_BesondereVermeke_ExportAusEU = P.cbxExportAusEU.Checked
POSITION.nctsWP_VersendungslandPositionCode = cProgramFunctions.isLeerNothing(P.sbVersendungsLand._value)
POSITION.nctsWP_BestimmungslandPositionCode = cProgramFunctions.isLeerNothing(P.sbBestimmungsland._value)
If P.cbxExportAusEU.CheckState = CheckState.Checked Then
POSITION.nctsWP_BesondereVermeke_ExportAusEU = True
ElseIf P.cbxExportAusEU.CheckState = CheckState.Unchecked Then
POSITION.nctsWP_BesondereVermeke_ExportAusEU = False
Else
POSITION.nctsWP_BesondereVermeke_ExportAusEU = Nothing
End If
If P.cbxEmportAusLand.Checked = CheckState.Checked Then
POSITION.nctsWP_BesondereVermeke_ExportAusLand = cProgramFunctions.isLeerNothing(P.sbExportAusLand._value)
Else
POSITION.nctsWP_BesondereVermeke_ExportAusLand = Nothing
End If
POSITION.nctsWP_BesondereVermeke_Vermerk = P.cbxVermerk.Text
POSITION.nctsWP_BesondereVermeke_Kz10600 = P.cbxVermerk10600.Checked
POSITION.nctsWP_VorpapierReferenz1 = Nothing
POSITION.nctsWP_VorpapierZusatz1 = Nothing
POSITION.nctsWP_VorpapierReferenz2 = Nothing
POSITION.nctsWP_VorpapierZusatz2 = Nothing
POSITION.nctsWP_VorpapierReferenz3 = Nothing
POSITION.nctsWP_VorpapierZusatz3 = Nothing
POSITION.nctsWP_VorpapierReferenz4 = Nothing
POSITION.nctsWP_VorpapierZusatz4 = Nothing
POSITION.nctsWP_VorpapierReferenz5 = Nothing
POSITION.nctsWP_VorpapierZusatz5 = Nothing
POSITION.nctsWP_VorpapierReferenz6 = Nothing
POSITION.nctsWP_VorpapierZusatz6 = Nothing
POSITION.nctsWP_VorpapierReferenz7 = Nothing
POSITION.nctsWP_VorpapierZusatz7 = Nothing
POSITION.nctsWP_VorpapierReferenz8 = Nothing
POSITION.nctsWP_VorpapierZusatz8 = Nothing
POSITION.nctsWP_VorpapierReferenz9 = Nothing
POSITION.nctsWP_VorpapierZusatz9 = Nothing
If P.dgvVorpapier.Rows.Count > 0 Then
POSITION.nctsWP_VorpapierReferenz1 = P.dgvVorpapier.Rows(0).Cells("VpReferenz").Value
POSITION.nctsWP_VorpapierZusatz1 = P.dgvVorpapier.Rows(0).Cells("VpZusatz").Value
End If
If P.dgvVorpapier.Rows.Count > 1 Then
POSITION.nctsWP_VorpapierReferenz2 = P.dgvVorpapier.Rows(1).Cells("VpReferenz").Value
POSITION.nctsWP_VorpapierZusatz2 = P.dgvVorpapier.Rows(1).Cells("VpZusatz").Value
End If
If P.dgvVorpapier.Rows.Count > 2 Then
POSITION.nctsWP_VorpapierReferenz3 = P.dgvVorpapier.Rows(2).Cells("VpReferenz").Value
POSITION.nctsWP_VorpapierZusatz3 = P.dgvVorpapier.Rows(2).Cells("VpZusatz").Value
End If
If P.dgvVorpapier.Rows.Count > 3 Then
POSITION.nctsWP_VorpapierReferenz4 = P.dgvVorpapier.Rows(3).Cells("VpReferenz").Value
POSITION.nctsWP_VorpapierZusatz4 = P.dgvVorpapier.Rows(3).Cells("VpZusatz").Value
End If
If P.dgvVorpapier.Rows.Count > 4 Then
POSITION.nctsWP_VorpapierReferenz5 = P.dgvVorpapier.Rows(4).Cells("VpReferenz").Value
POSITION.nctsWP_VorpapierZusatz5 = P.dgvVorpapier.Rows(4).Cells("VpZusatz").Value
End If
If P.dgvVorpapier.Rows.Count > 5 Then
POSITION.nctsWP_VorpapierReferenz6 = P.dgvVorpapier.Rows(5).Cells("VpReferenz").Value
POSITION.nctsWP_VorpapierZusatz6 = P.dgvVorpapier.Rows(5).Cells("VpZusatz").Value
End If
If P.dgvVorpapier.Rows.Count > 6 Then
POSITION.nctsWP_VorpapierReferenz7 = P.dgvVorpapier.Rows(6).Cells("VpReferenz").Value
POSITION.nctsWP_VorpapierZusatz7 = P.dgvVorpapier.Rows(6).Cells("VpZusatz").Value
End If
If P.dgvVorpapier.Rows.Count > 7 Then
POSITION.nctsWP_VorpapierReferenz8 = P.dgvVorpapier.Rows(7).Cells("VpReferenz").Value
POSITION.nctsWP_VorpapierZusatz8 = P.dgvVorpapier.Rows(7).Cells("VpZusatz").Value
End If
If P.dgvVorpapier.Rows.Count > 8 Then
POSITION.nctsWP_VorpapierReferenz9 = P.dgvVorpapier.Rows(8).Cells("VpReferenz").Value
POSITION.nctsWP_VorpapierZusatz9 = P.dgvVorpapier.Rows(8).Cells("VpZusatz").Value
End If
POSITION.nctsWP_PACKSTUECKE = New List(Of VERAG_PROG_ALLGEMEIN.cNCTS_TR_WarenpositionPackstuecke)
For Each r As DataGridViewRow In P.dgvPackstuecke.Rows
Dim Pk As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_WarenpositionPackstuecke
Pk.nctsWpPk_Verpackungsart = r.Cells("PkCode").Value
Pk.nctsWpPk_PackstueckeAnzahl = r.Cells("Anzahl").Value
Pk.nctsWpPk_ZeichenNummern = r.Cells("Marke").Value
POSITION.nctsWP_PACKSTUECKE.Add(Pk)
Next
POSITION.nctsWP_UNTERLAGEN = New List(Of VERAG_PROG_ALLGEMEIN.cNCTS_TR_WarenpositionVorgelegteUnterlagen)
For Each r As DataGridViewRow In P.dgvUnterlage.Rows
Dim Ul As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_WarenpositionVorgelegteUnterlagen
Ul.nctsWpUl_Typ = r.Cells("UlCode").Value
Ul.nctsWpUl_Referenz = r.Cells("UlReferenz").Value
Ul.nctsWpUl_Zusatz = r.Cells("UlZusatz").Value
POSITION.nctsWP_UNTERLAGEN.Add(Ul)
Next
POSITION.nctsWP_KdRefNr = P.txtKdRefNr.Text
POSITION.nctsWP_Versender_Name = cProgramFunctions.isLeerNothing(P.usrcntlVersedner.kdFirma.Text)
POSITION.nctsWP_Versender_StrasseHausnummer = cProgramFunctions.isLeerNothing(P.usrcntlVersedner.txtStrasse.Text)
POSITION.nctsWP_Versender_PLZ = cProgramFunctions.isLeerNothing(P.usrcntlVersedner.txtPlz.Text)
POSITION.nctsWP_Versender_Ort = cProgramFunctions.isLeerNothing(P.usrcntlVersedner.txtOrt.Text)
POSITION.nctsWP_Versender_Land = cProgramFunctions.isLeerNothing(P.usrcntlVersedner.sbLand._value)
POSITION.nctsWP_Versender_EORI = cProgramFunctions.isLeerNothing(P.usrcntlVersedner.txtEORI.Text)
POSITION.nctsWP_Versender_NLNR = cProgramFunctions.isLeerNothing(P.usrcntlVersedner.txtEORINL.Text)
POSITION.nctsWP_Empfaenger_Name = cProgramFunctions.isLeerNothing(P.usrcntlEmpfaenger.kdFirma.Text)
POSITION.nctsWP_Empfaenger_StrasseHausnummer = cProgramFunctions.isLeerNothing(P.usrcntlEmpfaenger.txtStrasse.Text)
POSITION.nctsWP_Empfaenger_PLZ = cProgramFunctions.isLeerNothing(P.usrcntlEmpfaenger.txtPlz.Text)
POSITION.nctsWP_Empfaenger_Ort = cProgramFunctions.isLeerNothing(P.usrcntlEmpfaenger.txtOrt.Text)
POSITION.nctsWP_Empfaenger_Land = cProgramFunctions.isLeerNothing(P.usrcntlEmpfaenger.sbLand._value)
POSITION.nctsWP_Empfaenger_EORI = cProgramFunctions.isLeerNothing(P.usrcntlEmpfaenger.txtEORI.Text)
POSITION.nctsWP_Empfaenger_NLNR = cProgramFunctions.isLeerNothing(P.usrcntlEmpfaenger.txtEORINL.Text)
POSITION.nctsWP_SumAVersender_Name = cProgramFunctions.isLeerNothing(P.usrcntlSumAVersedner.kdFirma.Text)
POSITION.nctsWP_SumAVersender_StrasseHausnummer = cProgramFunctions.isLeerNothing(P.usrcntlSumAVersedner.txtStrasse.Text)
POSITION.nctsWP_SumAVersender_PLZ = cProgramFunctions.isLeerNothing(P.usrcntlSumAVersedner.txtPlz.Text)
POSITION.nctsWP_SumAVersender_Ort = cProgramFunctions.isLeerNothing(P.usrcntlSumAVersedner.txtOrt.Text)
POSITION.nctsWP_SumAVersender_Land = cProgramFunctions.isLeerNothing(P.usrcntlSumAVersedner.sbLand._value)
POSITION.nctsWP_SumAVersender_EORI = cProgramFunctions.isLeerNothing(P.usrcntlSumAVersedner.txtEORI.Text)
POSITION.nctsWP_SumAVersender_NLNR = cProgramFunctions.isLeerNothing(P.usrcntlSumAVersedner.txtEORINL.Text)
POSITION.nctsWP_SumAEmpfaenger_Name = cProgramFunctions.isLeerNothing(P.usrcntlSumAEmpfaenger.kdFirma.Text)
POSITION.nctsWP_SumAEmpfaenger_StrasseHausnummer = cProgramFunctions.isLeerNothing(P.usrcntlSumAEmpfaenger.txtStrasse.Text)
POSITION.nctsWP_SumAEmpfaenger_PLZ = cProgramFunctions.isLeerNothing(P.usrcntlSumAEmpfaenger.txtPlz.Text)
POSITION.nctsWP_SumAEmpfaenger_Ort = cProgramFunctions.isLeerNothing(P.usrcntlSumAEmpfaenger.txtOrt.Text)
POSITION.nctsWP_SumAEmpfaenger_Land = cProgramFunctions.isLeerNothing(P.usrcntlSumAEmpfaenger.sbLand._value)
POSITION.nctsWP_SumAEmpfaenger_EORI = cProgramFunctions.isLeerNothing(P.usrcntlSumAEmpfaenger.txtEORI.Text)
POSITION.nctsWP_SumAEmpfaenger_NLNR = cProgramFunctions.isLeerNothing(P.usrcntlSumAEmpfaenger.txtEORINL.Text)
NCTS.ncts_WARENPOS.Add(POSITION)
cnt += 1
Next
' NCTS.ncts_WARENPOS
End Sub
Private Sub MyPanel2_ControlAdded(sender As Object, e As ControlEventArgs) Handles MyPanel2.ControlAdded
Try : DirectCast(e.Control, usrCntlATLAS_NCTS004_Position).txtWarenbezeichnung.Focus() : Catch : End Try
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
duplicateItem()
End Sub
End Class

225
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Sicherheit.Designer.vb generated Normal file
View File

@@ -0,0 +1,225 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class usrCntlATLAS_NCTS004_Sicherheit
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.pnl = New System.Windows.Forms.Panel()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.Label6 = New System.Windows.Forms.Label()
Me.Button2 = New System.Windows.Forms.Button()
Me.Button1 = New System.Windows.Forms.Button()
Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.index = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.ID = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.Art = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.Abgabenbetrag = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.GRN = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.TIN_EORI = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.Bezeichnung = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.Timer = New System.Windows.Forms.Timer(Me.components)
Me.pnl.SuspendLayout()
Me.Panel2.SuspendLayout()
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'pnl
'
Me.pnl.Controls.Add(Me.Panel2)
Me.pnl.Controls.Add(Me.Panel1)
Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnl.Location = New System.Drawing.Point(0, 0)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(930, 503)
Me.pnl.TabIndex = 0
'
'Panel2
'
Me.Panel2.Controls.Add(Me.Label6)
Me.Panel2.Controls.Add(Me.Button2)
Me.Panel2.Controls.Add(Me.Button1)
Me.Panel2.Controls.Add(Me.MyDatagridview1)
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel2.Location = New System.Drawing.Point(0, 0)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(930, 253)
Me.Panel2.TabIndex = 60
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label6.Location = New System.Drawing.Point(16, 14)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(132, 13)
Me.Label6.TabIndex = 57
Me.Label6.Text = "Sicherheit auswählen:"
'
'Button2
'
Me.Button2.BackColor = System.Drawing.Color.White
Me.Button2.BackgroundImage = Global.SDL.My.Resources.del
Me.Button2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold)
Me.Button2.ForeColor = System.Drawing.Color.Black
Me.Button2.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.Button2.Location = New System.Drawing.Point(841, 5)
Me.Button2.Margin = New System.Windows.Forms.Padding(2)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(35, 26)
Me.Button2.TabIndex = 59
Me.Button2.UseVisualStyleBackColor = False
'
'Button1
'
Me.Button1.BackColor = System.Drawing.Color.White
Me.Button1.BackgroundImage = Global.SDL.My.Resources.plus
Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold)
Me.Button1.ForeColor = System.Drawing.Color.Black
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.Button1.Location = New System.Drawing.Point(874, 5)
Me.Button1.Margin = New System.Windows.Forms.Padding(2)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(35, 26)
Me.Button1.TabIndex = 44
Me.Button1.UseVisualStyleBackColor = False
'
'MyDatagridview1
'
Me.MyDatagridview1.AKTUALISIERUNGS_INTERVALL = -1
Me.MyDatagridview1.AllowUserToAddRows = False
Me.MyDatagridview1.AllowUserToDeleteRows = False
Me.MyDatagridview1.AllowUserToOrderColumns = True
Me.MyDatagridview1.AllowUserToResizeColumns = False
Me.MyDatagridview1.AllowUserToResizeRows = False
Me.MyDatagridview1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.MyDatagridview1.BackgroundColor = System.Drawing.Color.White
Me.MyDatagridview1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.MyDatagridview1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.index, Me.ID, Me.Art, Me.Abgabenbetrag, Me.GRN, Me.TIN_EORI, Me.Bezeichnung})
Me.MyDatagridview1.Location = New System.Drawing.Point(16, 30)
Me.MyDatagridview1.Name = "MyDatagridview1"
Me.MyDatagridview1.ReadOnly = True
Me.MyDatagridview1.RowHeadersVisible = False
Me.MyDatagridview1.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.MyDatagridview1.Size = New System.Drawing.Size(893, 194)
Me.MyDatagridview1.TabIndex = 47
'
'index
'
Me.index.HeaderText = "index"
Me.index.Name = "index"
Me.index.ReadOnly = True
Me.index.Visible = False
'
'ID
'
Me.ID.HeaderText = "ID"
Me.ID.Name = "ID"
Me.ID.ReadOnly = True
Me.ID.Width = 30
'
'Art
'
Me.Art.HeaderText = "Art"
Me.Art.Name = "Art"
Me.Art.ReadOnly = True
Me.Art.Width = 180
'
'Abgabenbetrag
'
Me.Abgabenbetrag.HeaderText = "Abgabenbetrag"
Me.Abgabenbetrag.Name = "Abgabenbetrag"
Me.Abgabenbetrag.ReadOnly = True
Me.Abgabenbetrag.Width = 120
'
'GRN
'
Me.GRN.HeaderText = "GRN"
Me.GRN.Name = "GRN"
Me.GRN.ReadOnly = True
Me.GRN.Width = 150
'
'TIN_EORI
'
Me.TIN_EORI.HeaderText = "TIN/EORI"
Me.TIN_EORI.Name = "TIN_EORI"
Me.TIN_EORI.ReadOnly = True
Me.TIN_EORI.Width = 150
'
'Bezeichnung
'
Me.Bezeichnung.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.Bezeichnung.HeaderText = "Bezeichnung"
Me.Bezeichnung.Name = "Bezeichnung"
Me.Bezeichnung.ReadOnly = True
'
'Panel1
'
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Panel1.Enabled = False
Me.Panel1.Location = New System.Drawing.Point(0, 253)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(930, 250)
Me.Panel1.TabIndex = 58
'
'Timer
'
Me.Timer.Enabled = True
Me.Timer.Interval = 1000
'
'usrCntlATLAS_NCTS_Sicherheit
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.Controls.Add(Me.pnl)
Me.Name = "usrCntlATLAS_NCTS_Sicherheit"
Me.Size = New System.Drawing.Size(930, 503)
Me.pnl.ResumeLayout(False)
Me.Panel2.ResumeLayout(False)
Me.Panel2.PerformLayout()
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents pnl As System.Windows.Forms.Panel
Friend WithEvents MyDatagridview1 As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents Timer As System.Windows.Forms.Timer
Friend WithEvents Panel2 As System.Windows.Forms.Panel
Friend WithEvents index As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents ID As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents Art As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents Abgabenbetrag As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents GRN As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents TIN_EORI As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents Bezeichnung As System.Windows.Forms.DataGridViewTextBoxColumn
End Class

144
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Sicherheit.resx Normal file
View File

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

199
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Sicherheit.vb Normal file
View File

@@ -0,0 +1,199 @@
Public Class usrCntlATLAS_NCTS004_Sicherheit
Public LIST As New List(Of usrCntlATLAS_NCTS004_SicherheitPos)
' Public NCTS As DAKOSY_Worker.cDakosyNCTSOut = Nothing
' Dim AKT_POS As Integer = -1
Dim NCTS As DAKOSY_Worker.cDakosyNCTSOut004 = Nothing
Dim NCTS_TR As VERAG_PROG_ALLGEMEIN.cNCTS_TR = Nothing
Dim FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Sub New(NCTS As DAKOSY_Worker.cDakosyNCTSOut004, FIRMA_DY As String) 'NCTS As DAKOSY_Worker.cDakosyNCTSOut)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.NCTS = NCTS
Me.FIRMA_DY = FIRMA_DY
' loadValues()
' ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
'If NCTS.ncts_SICHERHEITSANGABEN.Count = 0 Then
'NCTS.ncts_SICHERHEITSANGABEN.Add(New DAKOSY_Worker.cDakosy_NCTSOut004_Guarantee)
'End If
' For Each s In NCTS.ncts_SICHERHEITSANGABEN
'Dim u As New usrCntlATLAS_NCTS004_SicherheitPos
' u.loadBrg(s)
' LIST.Add(u)
' Next
End Sub
Sub New(NCTS_TR As VERAG_PROG_ALLGEMEIN.cNCTS_TR, FIRMA_DY As String) 'NCTS As DAKOSY_Worker.cDakosyNCTSOut)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.NCTS_TR = NCTS_TR
Me.FIRMA_DY = FIRMA_DY
' loadValues()
' ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
'If NCTS.ncts_SICHERHEITSANGABEN.Count = 0 Then
'NCTS.ncts_SICHERHEITSANGABEN.Add(New DAKOSY_Worker.cDakosy_NCTSOut004_Guarantee)
'End If
' For Each s In NCTS.ncts_SICHERHEITSANGABEN
'Dim u As New usrCntlATLAS_NCTS004_SicherheitPos
' u.loadBrg(s)
' LIST.Add(u)
' Next
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
' NCTS.ncts_SICHERHEITSANGABEN.Add(New DAKOSY_Worker.cDakosy_NCTSOut004_Guarantee)
addPos()
End Sub
Sub addPos(Optional sa As DAKOSY_Worker.cDakosy_NCTSOut004_Guarantee = Nothing)
Dim u As New usrCntlATLAS_NCTS004_SicherheitPos(FIRMA_DY)
LIST.Add(u)
If sa IsNot Nothing Then
u.setValues(sa)
End If
loadDGVListValues()
End Sub
Sub addPos_TR(Optional sa As VERAG_PROG_ALLGEMEIN.cNCTS_TR_Sicherheitsangaben = Nothing)
Dim u As New usrCntlATLAS_NCTS004_SicherheitPos(FIRMA_DY)
LIST.Add(u)
If sa IsNot Nothing Then
u.setValues_TR(sa)
End If
loadDGVListValues()
End Sub
Private Sub MyDatagridview1_SelectionChanged(sender As Object, e As EventArgs) Handles MyDatagridview1.SelectionChanged
initPosAnzeige()
End Sub
Sub initPosAnzeige()
' MsgBox("anz")
Panel1.Controls.Clear()
If MyDatagridview1.SelectedRows.Count > 0 Then
Panel1.Enabled = True
' loadBrg(NCTS.ncts_SICHERHEITSANGABEN(MyDatagridview1.SelectedRows(0).Cells("index").Value))
Panel1.Controls.Add(LIST(MyDatagridview1.SelectedRows(0).Cells("index").Value))
Else
Panel1.Enabled = False
Panel1.Controls.Add(New usrCntlATLAS_NCTS004_SicherheitPos(FIRMA_DY)) ' Pseudo-Object, damit Platz besetzt
End If
End Sub
Public Sub loadDGVListValues()
With MyDatagridview1
If .Columns.Count <= 0 Then Exit Sub
' Dim selIndex = -1
' If .SelectedRows.Count > 0 Then selIndex()
.Rows.Clear()
Dim cnt = 1
For Each SA As usrCntlATLAS_NCTS004_SicherheitPos In LIST
Dim art = ""
'For Each l In (New cDakosy_Sicherheitsarten).LIST
' If SA.cboArtSicherheit = l.Value Then art = l.Text
'Next
'LIST.IndexOf(SA)
.Rows.Add(LIST.IndexOf(SA), cnt, SA.cboArtSicherheit.Text, SA.txtAbgabenbetrag.Text, SA.txtGRN.Text, SA.txtEORI_TIN.Text, SA.txtBezeichnung.Text)
' index += 1
cnt += 1
'.loadBrg()
' LIST.Add(SA)
Next
End With
End Sub
Public Sub refreshDGV()
With MyDatagridview1
For Each r As DataGridViewRow In .Rows
Dim index = r.Cells("index").Value
r.Cells("Art").Value = LIST(index).cboArtSicherheit.Text
r.Cells("Abgabenbetrag").Value = LIST(index).txtAbgabenbetrag.Text
r.Cells("GRN").Value = LIST(index).txtGRN.Text
r.Cells("TIN_EORI").Value = LIST(index).txtEORI_TIN.Text
r.Cells("Bezeichnung").Value = LIST(index).txtBezeichnung.Text
Next
End With
End Sub
Private Sub Panel1_Paint(sender As Object, e As PaintEventArgs) Handles Panel1.Paint
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
LIST.RemoveAt(MyDatagridview1.SelectedRows(0).Cells("index").Value)
loadDGVListValues()
End Sub
Private Sub Timer_Tick(sender As Object, e As EventArgs) Handles Timer.Tick
'alle 1 Sekunden wird die Ansicht aktualisiert
refreshDGV()
End Sub
Private Sub usrCntlATLAS_NCTS_Sicherheit_Load(sender As Object, e As EventArgs) Handles Me.Load
' setValues(NCTS.ncts_SICHERHEITSANGABEN)
loadDGVListValues()
End Sub
Public Function getValues() As List(Of DAKOSY_Worker.cDakosy_NCTSOut004_Guarantee)
Dim SA As New List(Of DAKOSY_Worker.cDakosy_NCTSOut004_Guarantee)
For Each s As usrCntlATLAS_NCTS004_SicherheitPos In LIST
SA.Add(s.getValues)
Next
Return SA
End Function
Public Sub setValues(ByRef SA As List(Of DAKOSY_Worker.cDakosy_NCTSOut004_Guarantee))
Panel1.Controls.Clear()
If SA Is Nothing Then Exit Sub
LIST.Clear()
For Each s In SA
addPos(s)
Next
If LIST.Count = 0 Then addPos() 'leere Laden
loadDGVListValues()
initPosAnzeige()
End Sub
Public Function getValues_TR() As List(Of VERAG_PROG_ALLGEMEIN.cNCTS_TR_Sicherheitsangaben)
Dim SA As New List(Of VERAG_PROG_ALLGEMEIN.cNCTS_TR_Sicherheitsangaben)
For Each s As usrCntlATLAS_NCTS004_SicherheitPos In LIST
SA.Add(s.getValues_TR)
Next
Return SA
End Function
Public Sub setValues_TR(ByRef SA As List(Of VERAG_PROG_ALLGEMEIN.cNCTS_TR_Sicherheitsangaben))
Panel1.Controls.Clear()
If SA Is Nothing Then Exit Sub
LIST.Clear()
For Each s In SA
addPos_TR(s)
Next
If LIST.Count = 0 Then addPos() 'leere Laden
loadDGVListValues()
initPosAnzeige()
End Sub
End Class

498
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_SicherheitPos.Designer.vb generated Normal file
View File

@@ -0,0 +1,498 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class usrCntlATLAS_NCTS004_SicherheitPos
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.Label8 = New System.Windows.Forms.Label()
Me.txtAbgabenbetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.btnBrgVERAG_AT = New System.Windows.Forms.Button()
Me.txtBezeichnung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.btnBrgVERAG_DE = New System.Windows.Forms.Button()
Me.txtZugriffscode = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.btnBrgTOBB = New System.Windows.Forms.Button()
Me.txtGRN = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.btnBrgSGS = New System.Windows.Forms.Button()
Me.txtEORI_TIN = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.btnBrgSonstige = New System.Windows.Forms.Button()
Me.Label5 = New System.Windows.Forms.Label()
Me.Label13 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.txtArtDetail = New System.Windows.Forms.TextBox()
Me.Label9 = New System.Windows.Forms.Label()
Me.cboArtSicherheit = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.btnMars = New System.Windows.Forms.Button()
Me.btnEKOL = New System.Windows.Forms.Button()
Me.FlowLayoutPanel = New System.Windows.Forms.FlowLayoutPanel()
Me.btnBrgUNISPED_AT = New System.Windows.Forms.Button()
Me.btnBrgUNISPED_DE = New System.Windows.Forms.Button()
Me.btnBRG_IMEX_AT = New System.Windows.Forms.Button()
Me.FlowLayoutPanel.SuspendLayout()
Me.SuspendLayout()
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label8.Location = New System.Drawing.Point(5, 10)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(132, 13)
Me.Label8.TabIndex = 57
Me.Label8.Text = "Sicherheit auswählen:"
'
'txtAbgabenbetrag
'
Me.txtAbgabenbetrag._DateTimeOnly = False
Me.txtAbgabenbetrag._numbersOnly = False
Me.txtAbgabenbetrag._numbersOnlyKommastellen = ""
Me.txtAbgabenbetrag._numbersOnlyTrennzeichen = True
Me.txtAbgabenbetrag._Prozent = False
Me.txtAbgabenbetrag._ShortDateNew = False
Me.txtAbgabenbetrag._ShortDateOnly = False
Me.txtAbgabenbetrag._TimeOnly = False
Me.txtAbgabenbetrag._TimeOnly_Seconds = False
Me.txtAbgabenbetrag._value = Nothing
Me.txtAbgabenbetrag._Waehrung = True
Me.txtAbgabenbetrag._WaehrungZeichen = True
Me.txtAbgabenbetrag.ForeColor = System.Drawing.Color.Black
Me.txtAbgabenbetrag.Location = New System.Drawing.Point(124, 175)
Me.txtAbgabenbetrag.MaxLineLength = -1
Me.txtAbgabenbetrag.MaxLines_Warning = ""
Me.txtAbgabenbetrag.MaxLines_Warning_Label = Nothing
Me.txtAbgabenbetrag.Name = "txtAbgabenbetrag"
Me.txtAbgabenbetrag.Size = New System.Drawing.Size(307, 20)
Me.txtAbgabenbetrag.TabIndex = 76
'
'Label3
'
Me.Label3.Location = New System.Drawing.Point(15, 178)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(105, 13)
Me.Label3.TabIndex = 75
Me.Label3.Text = "Abgabenbetrag:"
Me.Label3.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'btnBrgVERAG_AT
'
Me.btnBrgVERAG_AT.BackColor = System.Drawing.Color.White
Me.btnBrgVERAG_AT.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.btnBrgVERAG_AT.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnBrgVERAG_AT.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold)
Me.btnBrgVERAG_AT.ForeColor = System.Drawing.Color.Black
Me.btnBrgVERAG_AT.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnBrgVERAG_AT.Location = New System.Drawing.Point(170, 2)
Me.btnBrgVERAG_AT.Margin = New System.Windows.Forms.Padding(2)
Me.btnBrgVERAG_AT.Name = "btnBrgVERAG_AT"
Me.btnBrgVERAG_AT.Size = New System.Drawing.Size(80, 38)
Me.btnBrgVERAG_AT.TabIndex = 62
Me.btnBrgVERAG_AT.Text = "VERAG (AT)"
Me.btnBrgVERAG_AT.UseVisualStyleBackColor = False
'
'txtBezeichnung
'
Me.txtBezeichnung._DateTimeOnly = False
Me.txtBezeichnung._numbersOnly = False
Me.txtBezeichnung._numbersOnlyKommastellen = ""
Me.txtBezeichnung._numbersOnlyTrennzeichen = True
Me.txtBezeichnung._Prozent = False
Me.txtBezeichnung._ShortDateNew = False
Me.txtBezeichnung._ShortDateOnly = False
Me.txtBezeichnung._TimeOnly = False
Me.txtBezeichnung._TimeOnly_Seconds = False
Me.txtBezeichnung._value = Nothing
Me.txtBezeichnung._Waehrung = False
Me.txtBezeichnung._WaehrungZeichen = True
Me.txtBezeichnung.ForeColor = System.Drawing.Color.Black
Me.txtBezeichnung.Location = New System.Drawing.Point(545, 77)
Me.txtBezeichnung.MaxLineLength = -1
Me.txtBezeichnung.MaxLines_Warning = ""
Me.txtBezeichnung.MaxLines_Warning_Label = Nothing
Me.txtBezeichnung.Name = "txtBezeichnung"
Me.txtBezeichnung.Size = New System.Drawing.Size(363, 20)
Me.txtBezeichnung.TabIndex = 74
'
'btnBrgVERAG_DE
'
Me.btnBrgVERAG_DE.BackColor = System.Drawing.Color.White
Me.btnBrgVERAG_DE.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.btnBrgVERAG_DE.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnBrgVERAG_DE.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold)
Me.btnBrgVERAG_DE.ForeColor = System.Drawing.Color.Black
Me.btnBrgVERAG_DE.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnBrgVERAG_DE.Location = New System.Drawing.Point(254, 2)
Me.btnBrgVERAG_DE.Margin = New System.Windows.Forms.Padding(2)
Me.btnBrgVERAG_DE.Name = "btnBrgVERAG_DE"
Me.btnBrgVERAG_DE.Size = New System.Drawing.Size(80, 38)
Me.btnBrgVERAG_DE.TabIndex = 60
Me.btnBrgVERAG_DE.Text = "VERAG (DE)"
Me.btnBrgVERAG_DE.UseVisualStyleBackColor = False
'
'txtZugriffscode
'
Me.txtZugriffscode._DateTimeOnly = False
Me.txtZugriffscode._numbersOnly = False
Me.txtZugriffscode._numbersOnlyKommastellen = ""
Me.txtZugriffscode._numbersOnlyTrennzeichen = False
Me.txtZugriffscode._Prozent = False
Me.txtZugriffscode._ShortDateNew = False
Me.txtZugriffscode._ShortDateOnly = False
Me.txtZugriffscode._TimeOnly = False
Me.txtZugriffscode._TimeOnly_Seconds = False
Me.txtZugriffscode._value = Nothing
Me.txtZugriffscode._Waehrung = False
Me.txtZugriffscode._WaehrungZeichen = False
Me.txtZugriffscode.ForeColor = System.Drawing.Color.Black
Me.txtZugriffscode.Location = New System.Drawing.Point(545, 104)
Me.txtZugriffscode.MaxLineLength = -1
Me.txtZugriffscode.MaxLines_Warning = ""
Me.txtZugriffscode.MaxLines_Warning_Label = Nothing
Me.txtZugriffscode.Name = "txtZugriffscode"
Me.txtZugriffscode.Size = New System.Drawing.Size(363, 20)
Me.txtZugriffscode.TabIndex = 73
'
'btnBrgTOBB
'
Me.btnBrgTOBB.BackColor = System.Drawing.Color.White
Me.btnBrgTOBB.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.btnBrgTOBB.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnBrgTOBB.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold)
Me.btnBrgTOBB.ForeColor = System.Drawing.Color.Black
Me.btnBrgTOBB.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnBrgTOBB.Location = New System.Drawing.Point(338, 2)
Me.btnBrgTOBB.Margin = New System.Windows.Forms.Padding(2)
Me.btnBrgTOBB.Name = "btnBrgTOBB"
Me.btnBrgTOBB.Size = New System.Drawing.Size(60, 38)
Me.btnBrgTOBB.TabIndex = 59
Me.btnBrgTOBB.Text = "TOBB"
Me.btnBrgTOBB.UseVisualStyleBackColor = False
'
'txtGRN
'
Me.txtGRN._DateTimeOnly = False
Me.txtGRN._numbersOnly = False
Me.txtGRN._numbersOnlyKommastellen = ""
Me.txtGRN._numbersOnlyTrennzeichen = True
Me.txtGRN._Prozent = False
Me.txtGRN._ShortDateNew = False
Me.txtGRN._ShortDateOnly = False
Me.txtGRN._TimeOnly = False
Me.txtGRN._TimeOnly_Seconds = False
Me.txtGRN._value = Nothing
Me.txtGRN._Waehrung = False
Me.txtGRN._WaehrungZeichen = True
Me.txtGRN.ForeColor = System.Drawing.Color.Black
Me.txtGRN.Location = New System.Drawing.Point(124, 104)
Me.txtGRN.MaxLineLength = -1
Me.txtGRN.MaxLines_Warning = ""
Me.txtGRN.MaxLines_Warning_Label = Nothing
Me.txtGRN.Name = "txtGRN"
Me.txtGRN.Size = New System.Drawing.Size(307, 20)
Me.txtGRN.TabIndex = 72
'
'btnBrgSGS
'
Me.btnBrgSGS.BackColor = System.Drawing.Color.White
Me.btnBrgSGS.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.btnBrgSGS.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnBrgSGS.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold)
Me.btnBrgSGS.ForeColor = System.Drawing.Color.Black
Me.btnBrgSGS.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnBrgSGS.Location = New System.Drawing.Point(466, 2)
Me.btnBrgSGS.Margin = New System.Windows.Forms.Padding(2)
Me.btnBrgSGS.Name = "btnBrgSGS"
Me.btnBrgSGS.Size = New System.Drawing.Size(60, 38)
Me.btnBrgSGS.TabIndex = 61
Me.btnBrgSGS.Text = "SGS"
Me.btnBrgSGS.UseVisualStyleBackColor = False
'
'txtEORI_TIN
'
Me.txtEORI_TIN._DateTimeOnly = False
Me.txtEORI_TIN._numbersOnly = False
Me.txtEORI_TIN._numbersOnlyKommastellen = ""
Me.txtEORI_TIN._numbersOnlyTrennzeichen = True
Me.txtEORI_TIN._Prozent = False
Me.txtEORI_TIN._ShortDateNew = False
Me.txtEORI_TIN._ShortDateOnly = False
Me.txtEORI_TIN._TimeOnly = False
Me.txtEORI_TIN._TimeOnly_Seconds = False
Me.txtEORI_TIN._value = Nothing
Me.txtEORI_TIN._Waehrung = False
Me.txtEORI_TIN._WaehrungZeichen = True
Me.txtEORI_TIN.ForeColor = System.Drawing.Color.Black
Me.txtEORI_TIN.Location = New System.Drawing.Point(124, 130)
Me.txtEORI_TIN.MaxLineLength = -1
Me.txtEORI_TIN.MaxLines_Warning = ""
Me.txtEORI_TIN.MaxLines_Warning_Label = Nothing
Me.txtEORI_TIN.Name = "txtEORI_TIN"
Me.txtEORI_TIN.Size = New System.Drawing.Size(307, 20)
Me.txtEORI_TIN.TabIndex = 71
'
'btnBrgSonstige
'
Me.btnBrgSonstige.BackColor = System.Drawing.Color.White
Me.btnBrgSonstige.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.btnBrgSonstige.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnBrgSonstige.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold)
Me.btnBrgSonstige.ForeColor = System.Drawing.Color.Black
Me.btnBrgSonstige.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnBrgSonstige.Location = New System.Drawing.Point(66, 44)
Me.btnBrgSonstige.Margin = New System.Windows.Forms.Padding(2)
Me.btnBrgSonstige.Name = "btnBrgSonstige"
Me.btnBrgSonstige.Size = New System.Drawing.Size(80, 38)
Me.btnBrgSonstige.TabIndex = 58
Me.btnBrgSonstige.Text = "Sonstige"
Me.btnBrgSonstige.UseVisualStyleBackColor = False
'
'Label5
'
Me.Label5.Location = New System.Drawing.Point(15, 133)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(105, 13)
Me.Label5.TabIndex = 67
Me.Label5.Text = "EORI/TIN:"
Me.Label5.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'Label13
'
Me.Label13.AutoSize = True
Me.Label13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label13.Location = New System.Drawing.Point(542, 10)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(50, 13)
Me.Label13.TabIndex = 63
Me.Label13.Text = "Details:"
'
'Label2
'
Me.Label2.Location = New System.Drawing.Point(15, 107)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(105, 13)
Me.Label2.TabIndex = 68
Me.Label2.Text = "GRN:"
Me.Label2.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'txtArtDetail
'
Me.txtArtDetail.BackColor = System.Drawing.Color.WhiteSmoke
Me.txtArtDetail.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.txtArtDetail.Location = New System.Drawing.Point(545, 26)
Me.txtArtDetail.Multiline = True
Me.txtArtDetail.Name = "txtArtDetail"
Me.txtArtDetail.Size = New System.Drawing.Size(363, 38)
Me.txtArtDetail.TabIndex = 64
'
'Label9
'
Me.Label9.Location = New System.Drawing.Point(15, 80)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(105, 13)
Me.Label9.TabIndex = 69
Me.Label9.Text = "Art der Sicherheit:"
Me.Label9.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'cboArtSicherheit
'
Me.cboArtSicherheit._allowedValuesFreiText = Nothing
Me.cboArtSicherheit._allowFreiText = False
Me.cboArtSicherheit._value = ""
Me.cboArtSicherheit.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboArtSicherheit.FormattingEnabled = True
Me.cboArtSicherheit.Location = New System.Drawing.Point(124, 77)
Me.cboArtSicherheit.Name = "cboArtSicherheit"
Me.cboArtSicherheit.Size = New System.Drawing.Size(307, 21)
Me.cboArtSicherheit.TabIndex = 65
'
'Label1
'
Me.Label1.Location = New System.Drawing.Point(437, 80)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(102, 13)
Me.Label1.TabIndex = 66
Me.Label1.Text = "Bezeichnung:"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'Label4
'
Me.Label4.Location = New System.Drawing.Point(433, 107)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(106, 13)
Me.Label4.TabIndex = 70
Me.Label4.Text = "Zugriffscode:"
Me.Label4.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'btnMars
'
Me.btnMars.BackColor = System.Drawing.Color.White
Me.btnMars.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.btnMars.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnMars.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold)
Me.btnMars.ForeColor = System.Drawing.Color.Black
Me.btnMars.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnMars.Location = New System.Drawing.Point(402, 2)
Me.btnMars.Margin = New System.Windows.Forms.Padding(2)
Me.btnMars.Name = "btnMars"
Me.btnMars.Size = New System.Drawing.Size(60, 38)
Me.btnMars.TabIndex = 77
Me.btnMars.Text = "MARS"
Me.btnMars.UseVisualStyleBackColor = False
'
'btnEKOL
'
Me.btnEKOL.BackColor = System.Drawing.Color.White
Me.btnEKOL.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.btnEKOL.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnEKOL.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold)
Me.btnEKOL.ForeColor = System.Drawing.Color.Black
Me.btnEKOL.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnEKOL.Location = New System.Drawing.Point(2, 44)
Me.btnEKOL.Margin = New System.Windows.Forms.Padding(2)
Me.btnEKOL.Name = "btnEKOL"
Me.btnEKOL.Size = New System.Drawing.Size(60, 38)
Me.btnEKOL.TabIndex = 78
Me.btnEKOL.Text = "EKOL"
Me.btnEKOL.UseVisualStyleBackColor = False
'
'FlowLayoutPanel
'
Me.FlowLayoutPanel.Controls.Add(Me.btnBrgUNISPED_AT)
Me.FlowLayoutPanel.Controls.Add(Me.btnBrgUNISPED_DE)
Me.FlowLayoutPanel.Controls.Add(Me.btnBrgVERAG_AT)
Me.FlowLayoutPanel.Controls.Add(Me.btnBrgVERAG_DE)
Me.FlowLayoutPanel.Controls.Add(Me.btnBrgTOBB)
Me.FlowLayoutPanel.Controls.Add(Me.btnMars)
Me.FlowLayoutPanel.Controls.Add(Me.btnBrgSGS)
Me.FlowLayoutPanel.Controls.Add(Me.btnEKOL)
Me.FlowLayoutPanel.Controls.Add(Me.btnBrgSonstige)
Me.FlowLayoutPanel.Controls.Add(Me.btnBRG_IMEX_AT)
Me.FlowLayoutPanel.Location = New System.Drawing.Point(6, 24)
Me.FlowLayoutPanel.Name = "FlowLayoutPanel"
Me.FlowLayoutPanel.Size = New System.Drawing.Size(538, 53)
Me.FlowLayoutPanel.TabIndex = 79
'
'btnBrgUNISPED_AT
'
Me.btnBrgUNISPED_AT.BackColor = System.Drawing.Color.White
Me.btnBrgUNISPED_AT.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.btnBrgUNISPED_AT.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnBrgUNISPED_AT.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold)
Me.btnBrgUNISPED_AT.ForeColor = System.Drawing.Color.Black
Me.btnBrgUNISPED_AT.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnBrgUNISPED_AT.Location = New System.Drawing.Point(2, 2)
Me.btnBrgUNISPED_AT.Margin = New System.Windows.Forms.Padding(2)
Me.btnBrgUNISPED_AT.Name = "btnBrgUNISPED_AT"
Me.btnBrgUNISPED_AT.Size = New System.Drawing.Size(80, 38)
Me.btnBrgUNISPED_AT.TabIndex = 79
Me.btnBrgUNISPED_AT.Text = "UNISPED (AT)"
Me.btnBrgUNISPED_AT.UseVisualStyleBackColor = False
Me.btnBrgUNISPED_AT.Visible = False
'
'btnBrgUNISPED_DE
'
Me.btnBrgUNISPED_DE.BackColor = System.Drawing.Color.White
Me.btnBrgUNISPED_DE.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.btnBrgUNISPED_DE.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnBrgUNISPED_DE.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold)
Me.btnBrgUNISPED_DE.ForeColor = System.Drawing.Color.Black
Me.btnBrgUNISPED_DE.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnBrgUNISPED_DE.Location = New System.Drawing.Point(86, 2)
Me.btnBrgUNISPED_DE.Margin = New System.Windows.Forms.Padding(2)
Me.btnBrgUNISPED_DE.Name = "btnBrgUNISPED_DE"
Me.btnBrgUNISPED_DE.Size = New System.Drawing.Size(80, 38)
Me.btnBrgUNISPED_DE.TabIndex = 80
Me.btnBrgUNISPED_DE.Text = "UNISPED (DE)"
Me.btnBrgUNISPED_DE.UseVisualStyleBackColor = False
Me.btnBrgUNISPED_DE.Visible = False
'
'btnBRG_IMEX_AT
'
Me.btnBRG_IMEX_AT.BackColor = System.Drawing.Color.White
Me.btnBRG_IMEX_AT.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.btnBRG_IMEX_AT.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnBRG_IMEX_AT.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold)
Me.btnBRG_IMEX_AT.ForeColor = System.Drawing.Color.Black
Me.btnBRG_IMEX_AT.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnBRG_IMEX_AT.Location = New System.Drawing.Point(150, 44)
Me.btnBRG_IMEX_AT.Margin = New System.Windows.Forms.Padding(2)
Me.btnBRG_IMEX_AT.Name = "btnBRG_IMEX_AT"
Me.btnBRG_IMEX_AT.Size = New System.Drawing.Size(80, 38)
Me.btnBRG_IMEX_AT.TabIndex = 81
Me.btnBRG_IMEX_AT.Text = "IMEX (AT)"
Me.btnBRG_IMEX_AT.UseVisualStyleBackColor = False
'
'usrCntlATLAS_ncts_SicherheitPos
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.Controls.Add(Me.Label8)
Me.Controls.Add(Me.txtAbgabenbetrag)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.txtBezeichnung)
Me.Controls.Add(Me.txtZugriffscode)
Me.Controls.Add(Me.txtGRN)
Me.Controls.Add(Me.txtEORI_TIN)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.Label13)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.txtArtDetail)
Me.Controls.Add(Me.Label9)
Me.Controls.Add(Me.cboArtSicherheit)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.FlowLayoutPanel)
Me.Name = "usrCntlATLAS_ncts_SicherheitPos"
Me.Size = New System.Drawing.Size(920, 250)
Me.FlowLayoutPanel.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents txtAbgabenbetrag As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents btnBrgVERAG_AT As System.Windows.Forms.Button
Friend WithEvents txtBezeichnung As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents btnBrgVERAG_DE As System.Windows.Forms.Button
Friend WithEvents txtZugriffscode As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents btnBrgTOBB As System.Windows.Forms.Button
Friend WithEvents txtGRN As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents btnBrgSGS As System.Windows.Forms.Button
Friend WithEvents txtEORI_TIN As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents btnBrgSonstige As System.Windows.Forms.Button
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents Label13 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents txtArtDetail As System.Windows.Forms.TextBox
Friend WithEvents Label9 As System.Windows.Forms.Label
Friend WithEvents cboArtSicherheit As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents btnMars As System.Windows.Forms.Button
Friend WithEvents btnEKOL As System.Windows.Forms.Button
Friend WithEvents FlowLayoutPanel As FlowLayoutPanel
Friend WithEvents btnBrgUNISPED_AT As Button
Friend WithEvents btnBrgUNISPED_DE As Button
Friend WithEvents btnBRG_IMEX_AT As Button
End Class

120
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_SicherheitPos.resx Normal file
View File

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

292
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_SicherheitPos.vb Normal file
View File

@@ -0,0 +1,292 @@
Public Class usrCntlATLAS_NCTS004_SicherheitPos
Property ncts_ART = "" '"T-"
Public Event CHANGED()
Dim FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Sub New(FIRMA_DY)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
cboArtSicherheit.Items.Clear()
For Each l In (New cDakosy_Sicherheitsarten).LIST
cboArtSicherheit.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(l.Text, l.Value))
Next
Me.FIRMA_DY = FIRMA_DY
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub usrCntlATLAS_ncts_Load(sender As Object, e As EventArgs) Handles Me.Load
'MySearchBox1.initSearchBox(Me.FindForm, "AdressenNr, [Name 1] FROM Adressen", {"[Name 1]", "Ort", "PLZ"}, "", "[Name 1]", "AdressenNr", "AdressenNr")
' btnAllgemein_Click(btnBrgSonstige, New EventArgs)
' initbuttons("")
' cboArtSicherheit.Items.Clear()
' For Each l In (New cDakosy_Sicherheitsarten).LIST
'cboArtSicherheit.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(l.Text, l.Value))
' Next
Select Case FIRMA_DY
Case "UNISPED"
btnBrgUNISPED_AT.Visible = True
btnBrgUNISPED_DE.Visible = True
btnBrgVERAG_AT.Visible = False
btnBrgVERAG_DE.Visible = False
btnBRG_IMEX_AT.Visible = False
End Select
End Sub
Public Sub loadBrg(SA As DAKOSY_Worker.cDakosy_NCTSOut004_Guarantee)
Exit Sub
' ncts_ART = "TOBB" : txtArtDetail.Text = "Sicherheit der Firma TOBB"
setBtn(btnBrgVERAG_AT, False)
setBtn(btnBrgVERAG_DE, False)
setBtn(btnBrgUNISPED_DE, False)
setBtn(btnBrgUNISPED_DE, False)
setBtn(btnBrgTOBB, False)
setBtn(btnBrgSGS, False)
setBtn(btnMars, False)
setBtn(btnEKOL, False)
setBtn(btnBrgSonstige, False)
Select Case If(SA.nctsGRT_GRN, "")
Case "05AT510000G000FP7" : setBtn(btnBrgVERAG_AT, True)
Case "17DE0000000071678" : setBtn(btnBrgVERAG_DE, True)
Case "05AT500000G000EU9" : setBtn(btnBrgUNISPED_AT, True)
Case "17DE0000000071270" : setBtn(btnBrgUNISPED_DE, True)
Case "16AT520000G000VA6" : setBtn(btnBRG_IMEX_AT, True)
Case Else : setBtn(btnBrgSonstige, True)
End Select
cboArtSicherheit.changeItem(If(SA.nctsGRT_Type, "")) 'Gesamtbürgschaft
txtGRN.Text = If(SA.nctsGRT_AccessCode, "")
' txtEORI_TIN.Text = If(SA.nctsSA_TIN, "")
txtZugriffscode.Text = If(SA.nctsGRT_AccessCode, "")
txtAbgabenbetrag._value = If(SA.nctsGRT_AmountToBeCovered, "")
txtBezeichnung._value = If(SA.nctsGRT_AccountName, "")
'txtEORI_TIN.Text = If(SA.nctsSA_TIN, "")
End Sub
Private Sub btnAllgemein_Click(sender As Object, e As EventArgs) Handles btnBrgVERAG_AT.Click, btnBrgVERAG_DE.Click, btnBrgTOBB.Click, btnBrgSGS.Click, btnMars.Click, btnEKOL.Click, btnBrgSonstige.Click, btnBrgUNISPED_AT.Click, btnBrgUNISPED_DE.Click
initbuttons(sender)
End Sub
Sub initbuttons(sender) ', Optional resetControls = False)
setBtn(btnBrgVERAG_AT, False)
setBtn(btnBrgVERAG_DE, False)
setBtn(btnBrgTOBB, False)
setBtn(btnBrgSGS, False)
setBtn(btnMars, False)
setBtn(btnEKOL, False)
setBtn(btnBrgSonstige, False)
setBtn(btnBrgUNISPED_AT, False)
setBtn(btnBrgUNISPED_DE, False)
'If resetControls Then
cboArtSicherheit.changeItem("")
txtGRN.Text = ""
txtEORI_TIN.Text = ""
txtZugriffscode.Text = ""
txtAbgabenbetrag._value = ""
txtEORI_TIN.Text = ""
' End If
If sender Is btnBrgVERAG_AT Then
txtGRN.Text = "05AT510000G000FP7"
txtEORI_TIN.Text = "ATEOS1000000199"
txtZugriffscode.Text = "" '"0000"
txtZugriffscode.Text = VERAG_PROG_ALLGEMEIN.cMitarbeiter.getAccessCodeFrom_GRN(txtGRN.Text)
ncts_ART = "VERAG_AT" : txtArtDetail.Text = "Bürgschaft VERAG Spedition AG (Österreich)" & vbNewLine & "05AT510000G000FP7"
cboArtSicherheit.changeItem("0") 'Befreigung
setBtn(btnBrgVERAG_AT, True)
ElseIf sender Is btnBrgVERAG_DE Then
txtGRN.Text = "17DE0000000071678"
txtEORI_TIN.Text = "DE4824105"
txtZugriffscode.Text = "NCLJ"
ncts_ART = "VERAG_DE" : txtArtDetail.Text = "Bürgschaft VERAG Spedition GmbH (Deutschland)" & vbNewLine & "17DE0000000071678"
cboArtSicherheit.changeItem("0") 'Befreiung
setBtn(btnBrgVERAG_DE, True)
ElseIf sender Is btnBrgTOBB Then
txtGRN.Text = "21TR0004000079552" '"12TR0004000004665" '"15TR0004000020917"
txtEORI_TIN.Text = "ITTR0000000000152"
txtZugriffscode.Text = "2023"
ncts_ART = "TOBB" : txtArtDetail.Text = "Sicherheit der Firma TOBB"
cboArtSicherheit.changeItem("1") 'Gesamtbürgschaft
setBtn(btnBrgTOBB, True)
ElseIf sender Is btnBRG_IMEX_AT Then
txtGRN.Text = "16AT520000G000VA6"
txtEORI_TIN.Text = "ATEOS1000059735"
txtZugriffscode.Text = ""
txtZugriffscode.Text = VERAG_PROG_ALLGEMEIN.cMitarbeiter.getAccessCodeFrom_GRN(txtGRN.Text)
ncts_ART = "IMEX_AT" : txtArtDetail.Text = "Bürgschaft IMEX Customs Service GmbH (Österreich)" & vbNewLine & "16AT520000G000VA6"
cboArtSicherheit.changeItem("1") 'Gesamtbürgschaft
setBtn(btnBRG_IMEX_AT, True)
ElseIf sender Is btnBrgSGS Then
txtGRN.Text = "16DE0000000068410"
txtEORI_TIN.Text = "DE3331326"
txtZugriffscode.Text = "UEJZ"
ncts_ART = "SGS" : txtArtDetail.Text = "Sicherheit der Firma SGS"
cboArtSicherheit.changeItem("1") 'Gesamtbürgschaft
setBtn(btnBrgSGS, True)
ElseIf sender Is btnMars Then
txtGRN.Text = "TR0004000020908"
txtEORI_TIN.Text = "BGKTR6120538808Z8"
txtZugriffscode.Text = "UEJZ"
ncts_ART = "MARS" : txtArtDetail.Text = "Sicherheit der Firma MARS"
cboArtSicherheit.changeItem("1") 'Gesamtbürgschaft
setBtn(btnMars, True)
ElseIf sender Is btnEKOL Then
txtGRN.Text = "13TR0004000005094"
txtEORI_TIN.Text = "BGKTR3300012602Z8"
txtZugriffscode.Text = "2015"
ncts_ART = "EKOL" : txtArtDetail.Text = "Sicherheit der Firma EKOL"
cboArtSicherheit.changeItem("1") 'Gesamtbürgschaft
setBtn(btnEKOL, True)
' ElseIf sender Is btnKOEKNAR Then
' txtGRN.Text = "15TR0004000017715"
' txtEORI_TIN.Text = "ATEOS1000066891"
' txtZugriffscode.Text = "4747"
' ncts_ART = "KOEKNAR" : txtArtDetail.Text = "Sicherheit der Firma KÖKNAR"
' cboArtSicherheit.changeItem("1") 'Gesamtbürgschaft
' setBtn(btnEKOL, True)
ElseIf sender Is btnBrgUNISPED_AT Then
txtGRN.Text = "05AT500000G000EU9"
txtEORI_TIN.Text = "ATEOS1000000088"
txtZugriffscode.Text = ""
ncts_ART = "UNISPED_AT" : txtArtDetail.Text = "Bürgschaft Unisped Speditions GmbH (Österreich)" & vbNewLine & "05AT500000G000EU9"
cboArtSicherheit.changeItem("1") 'Gesamtbürgschaft
setBtn(btnEKOL, True)
ElseIf sender Is btnBrgUNISPED_DE Then
txtGRN.Text = "17DE0000000071270"
txtEORI_TIN.Text = "DE7467540"
txtZugriffscode.Text = "HOWE"
ncts_ART = "UNISPED_DE" : txtArtDetail.Text = "Bürgschaft Unisped Speditions GmbH (Deutschland)" & vbNewLine & "17DE0000000071270"
cboArtSicherheit.changeItem("0") 'Gesamtbürgschaft
setBtn(btnEKOL, True)
Else
ncts_ART = "Sonstige" : txtArtDetail.Text = "Sonstige Sicherheit"
cboArtSicherheit.changeItem("") 'Gesamtbürgschaft
setBtn(btnBrgSonstige, True)
End If
End Sub
Sub setBtn(btn As Button, value As Boolean)
If value Then
btn.BackColor = Color.OrangeRed
btn.ForeColor = Color.White
Else
btn.BackColor = Color.White
btn.ForeColor = Color.Black
End If
End Sub
Private Sub cboArtSicherheit_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboArtSicherheit.SelectedIndexChanged
RaiseEvent CHANGED()
End Sub
Public Function getValues() As DAKOSY_Worker.cDakosy_NCTSOut004_Guarantee
Dim SA = New DAKOSY_Worker.cDakosy_NCTSOut004_Guarantee
SA.nctsGRT_AmountToBeCovered = cProgramFunctions.isLeerNothing(txtAbgabenbetrag._value)
SA.nctsGRT_AccountName = cProgramFunctions.isLeerNothing(txtBezeichnung._value)
SA.nctsGRT_Type = cProgramFunctions.isLeerNothing(cboArtSicherheit._value)
SA.nctsGRT_GRN = cProgramFunctions.isLeerNothing(txtGRN._value)
SA.nctsGRT_AccessCode = cProgramFunctions.isLeerNothing(txtZugriffscode._value)
'Falls Zugriffscode leer --> von Mitarbeiterdaten (AT BRG)
If If(SA.nctsGRT_AccessCode, "") = "" Then
SA.nctsGRT_AccessCode = VERAG_PROG_ALLGEMEIN.cMitarbeiter.getAccessCodeFrom_GRN(SA.nctsGRT_GRN)
End If
'SA.nctsSA_TIN = cProgramFunctions.isLeerNothing(txtEORI_TIN._value)
If SA.nctsGRT_AmountToBeCovered Is Nothing Then SA.nctsGRT_AmountToBeCovered = 0
Return SA
End Function
Public Sub setValues(SA As DAKOSY_Worker.cDakosy_NCTSOut004_Guarantee)
setBtn(btnBrgVERAG_AT, False)
setBtn(btnBrgVERAG_DE, False)
setBtn(btnBrgTOBB, False)
setBtn(btnBrgSGS, False)
setBtn(btnMars, False)
setBtn(btnEKOL, False)
setBtn(btnBrgSonstige, False)
Select Case If(SA.nctsGRT_GRN, "")
Case "05AT510000G000FP7" : setBtn(btnBrgVERAG_AT, True)
Case "17DE0000000071678" : setBtn(btnBrgVERAG_DE, True)
Case "16AT520000G000VA6" : setBtn(btnBRG_IMEX_AT, True)
Case Else : setBtn(btnBrgSonstige, True)
End Select
cboArtSicherheit.changeItem(If(SA.nctsGRT_Type, "")) 'Gesamtbürgschaft
txtGRN.Text = If(SA.nctsGRT_GRN, "")
'txtEORI_TIN.Text = If(SA., "")
txtZugriffscode.Text = If(SA.nctsGRT_AccessCode, "")
txtAbgabenbetrag._value = If(SA.nctsGRT_AmountToBeCovered, "")
'txtEORI_TIN.Text = If(SA.nctsSA_TIN, "")
End Sub
Public Function getValues_TR() As VERAG_PROG_ALLGEMEIN.cNCTS_TR_Sicherheitsangaben
Dim SA = New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Sicherheitsangaben
SA.nctsSA_AbgabenBetrag = cProgramFunctions.isLeerNothing(txtAbgabenbetrag._value)
SA.nctsSA_BezeichnungBescheinigun = cProgramFunctions.isLeerNothing(txtBezeichnung._value)
SA.nctsSA_ArtCode = cProgramFunctions.isLeerNothing(cboArtSicherheit._value)
SA.nctsSA_GRN = cProgramFunctions.isLeerNothing(txtGRN._value)
SA.nctsSA_Zugriffcode = cProgramFunctions.isLeerNothing(txtZugriffscode._value)
SA.nctsSA_TIN = cProgramFunctions.isLeerNothing(txtEORI_TIN._value)
If SA.nctsSA_AbgabenBetrag Is Nothing Then SA.nctsSA_AbgabenBetrag = 0
Return SA
End Function
Public Sub setValues_TR(SA As VERAG_PROG_ALLGEMEIN.cNCTS_TR_Sicherheitsangaben)
setBtn(btnBrgVERAG_AT, False)
setBtn(btnBrgVERAG_DE, False)
setBtn(btnBrgTOBB, False)
setBtn(btnBrgSGS, False)
setBtn(btnMars, False)
setBtn(btnEKOL, False)
setBtn(btnBrgSonstige, False)
Select Case If(SA.nctsSA_GRN, "")
Case "05AT510000G000FP7" : setBtn(btnBrgVERAG_AT, True)
Case "17DE0000000071678" : setBtn(btnBrgVERAG_DE, True)
Case Else : setBtn(btnBrgSonstige, True)
End Select
cboArtSicherheit.changeItem(If(SA.nctsSA_ArtCode, "")) 'Gesamtbürgschaft
txtGRN.Text = If(SA.nctsSA_GRN, "")
txtEORI_TIN.Text = If(SA.nctsSA_TIN, "")
txtZugriffscode.Text = If(SA.nctsSA_Zugriffcode, "")
txtAbgabenbetrag._value = If(SA.nctsSA_AbgabenBetrag, "")
'txtEORI_TIN.Text = If(SA.nctsSA_TIN, "")
End Sub
End Class

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

File diff suppressed because it is too large Load Diff

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

@@ -189,18 +189,22 @@
End If
If Me.DY Is Nothing Then
Dim usrcntl As New usrCntlATLAS_NCTS(ART, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF, FIRMA_DY)
Dim usrcntl As New usrCntlATLAS_NCTS004(ART, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF, FIRMA_DY)
usrcntl.Dock = DockStyle.Fill
Me.pnl.Controls.Add(usrcntl)
Else
If Me.DY.dy_Erstellung >= "24.09.2023" Then
Dim usrcntl As New usrCntlATLAS_NCTS004(DY, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF)
usrcntl.Dock = DockStyle.Fill
Me.pnl.Controls.Add(usrcntl)
Else
Dim usrcntl As New usrCntlATLAS_NCTS(DY, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF)
usrcntl.Dock = DockStyle.Fill
Me.pnl.Controls.Add(usrcntl)
End If
End If
Case "AES", "EX", "EU", "CO"

7
SDL/buchhaltung/frmBH_SollHaben.vb
View File

@@ -6,7 +6,14 @@ Imports Microsoft.Office.Interop
Public Class frmBH_SollHaben
Public Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Function loadExcel() As Boolean
' Call ShowDialog.

4
SDL/buchhaltung/frmMDM_BH_SollHaben.vb
View File

@@ -187,7 +187,7 @@ Public Class frmMDM_BH_SollHaben
lblFehler.Visible = True
Button1.Visible = True
Me.Cursor = Cursors.Default
MsgBox("ER02: " & ex.Message & vbNewLine & " i_haben: " & i_haben & vbNewLine & " i_haben2: " & i_haben2)
MsgBox("ER02: " & ex.Message & vbNewLine & " i_haben: " & i_haben & vbNewLine & " i_haben2: " & i_haben2 & vbNewLine & ex.StackTrace)
Return False
End Try
lblHaben.Text = "HABEN Auszifferung OK"
@@ -294,7 +294,7 @@ Public Class frmMDM_BH_SollHaben
lblFehler.Visible = True
Button1.Visible = True
Me.Cursor = Cursors.Default
MsgBox("ER03: " & ex.Message & vbNewLine & "Zähler1: " & i_s_tmp & vbNewLine & "Zähler2: " & i_h_tmp)
MsgBox("ER03: " & ex.Message & vbNewLine & "Zähler1: " & i_s_tmp & vbNewLine & "Zähler2: " & i_h_tmp & vbNewLine & ex.StackTrace)
Return False
End Try

4
VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb
View File

@@ -342,7 +342,7 @@ Public Class KdSearchBox
SQLstr &= " INNER JOIN Filialen on Filialen.FilialenNr=isnull(Kunden.FilialenNr,4803) "
SQLstr &= " WHERE 1=1 "
SQLstr &= " AND ( "
SQLstr &= " Ordnungsbegriff LIKE '" & srch & "%' "
SQLstr &= " Ordnungsbegriff COLLATE Latin1_General_CI_AI LIKE '" & srch & "%' COLLATE Latin1_General_CI_AI "
If IsNumeric(srch) Then SQLstr &= " OR AdressenNr LIKE '" & srch & "%' "
If _searchName1 Then SQLstr &= " OR Adressen.[Name 1] LIKE '" & srch & "%' "
SQLstr &= " ) "
@@ -426,7 +426,7 @@ Public Class KdSearchBox
SQLstr &= " INNER JOIN Filialen on Filialen.FilialenNr=isnull(Kunden.FilialenNr,4803) "
SQLstr &= " WHERE 1=1 "
SQLstr &= " AND ( "
SQLstr &= " Ordnungsbegriff LIKE '" & srch & "%' "
SQLstr &= " Ordnungsbegriff COLLATE Latin1_General_CI_AI LIKE '" & srch & "%' COLLATE Latin1_General_CI_AI "
If IsNumeric(srch) Then SQLstr &= " OR AdressenNr LIKE '" & srch & "%' "
If _searchName1 Then SQLstr &= " OR Adressen.[Name 1] LIKE '" & srch & "%' "
SQLstr &= " ) "

2
VERAG_PROG_ALLGEMEIN/Classes/cAvisoBenachrichtigungen.vb
View File

@@ -247,6 +247,6 @@ Public Class cAvisoBenachrichtigungenCodes
Public Shared ZOLL_Dokumentenbeschau As Integer = 7
Public Shared ZOLL_Rueckweisung As Integer = 8
Public Shared ZOLL_Mitteilung As Integer = 9
Public Shared AAE_Benachrichtigung As Integer = 10
End Class

6
VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb
View File

@@ -77,6 +77,8 @@ Public Class cMitarbeiter
Property mit_MAVerzeichnis_Spitzname As Object = Nothing
Property mit_foto_DocId As Object = Nothing
Property mit_fotoHover1_DocId As Object = Nothing
Property mit_fotoHover2_DocId As Object = Nothing
Property mit_sprache As String = "DE"
Property mit_fakturierungsgruppe As String = ""
Property mit_CSuser As Object = Nothing
@@ -183,6 +185,8 @@ Public Class cMitarbeiter
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_MAVerzeichnis_Motto", mit_MAVerzeichnis_Motto))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_MAVerzeichnis_Spitzname", mit_MAVerzeichnis_Spitzname))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_foto_DocId", mit_foto_DocId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_fotoHover1_DocId", mit_fotoHover1_DocId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_fotoHover2_DocId", mit_fotoHover2_DocId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_sprache", mit_sprache))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_fakturierungsgruppe", mit_fakturierungsgruppe))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_CSuser", mit_CSuser))
@@ -375,6 +379,8 @@ Public Class cMitarbeiter
Me.mit_MAVerzeichnis_allowFoto = dr.Item("mit_MAVerzeichnis_allowFoto")
If Not dr.Item("mit_foto_DocId") Is DBNull.Value Then Me.mit_foto_DocId = dr.Item("mit_foto_DocId")
If Not dr.Item("mit_fotoHover1_DocId") Is DBNull.Value Then Me.mit_fotoHover1_DocId = dr.Item("mit_fotoHover1_DocId")
If Not dr.Item("mit_fotoHover2_DocId") Is DBNull.Value Then Me.mit_fotoHover2_DocId = dr.Item("mit_fotoHover2_DocId")
If Not dr.Item("mit_MAVerzeichnis_Spitzname") Is DBNull.Value Then Me.mit_MAVerzeichnis_Spitzname = dr.Item("mit_MAVerzeichnis_Spitzname")
If Not dr.Item("mit_MAVerzeichnis_Motto") Is DBNull.Value Then Me.mit_MAVerzeichnis_Motto = dr.Item("mit_MAVerzeichnis_Motto")
If Not dr.Item("mit_sprache") Is DBNull.Value Then Me.mit_sprache = dr.Item("mit_sprache")

68
VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb
View File

@@ -1,6 +1,7 @@
Imports System.ComponentModel
Imports System.Drawing
Imports System.Net
Imports System.Windows.Forms
Imports VERAG_PROG_ALLGEMEIN.cCreditSafeAPI
Public Class frmMitarbeitersuche
@@ -8,6 +9,8 @@ Public Class frmMitarbeitersuche
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim timas As New cTimasAPI
Dim requestDone As Boolean = False
Dim MA As cMitarbeiter = Nothing
Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
@@ -65,9 +68,11 @@ Public Class frmMitarbeitersuche
lblTimasSaldo.Visible = False
Panel1.Visible = False
btnSettings.Visible = False
Dim MA As cMitarbeiter = Nothing
' Dim MA As cMitarbeiter = Nothing
If sbMitarbeiter._value <> "" Then
MA = New cMitarbeiter(sbMitarbeiter._value)
Else
MA = Nothing
End If
If MA Is Nothing Then
@@ -152,6 +157,7 @@ Public Class frmMitarbeitersuche
Case Else
PictureBox3.BackgroundImage = Nothing
End Select
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMINFUNCTIONS", "SDL") Then
btn.Visible = True
btnSettings.Visible = True
@@ -387,4 +393,64 @@ Public Class frmMitarbeitersuche
Dim webAddress As String = "https://zeit.verag.ag/webterminal/"
Process.Start(webAddress)
End Sub
Sub setBGPic(art, MA)
HOVER_ART = art
If art = "" Or MA Is Nothing Then
pic.BackgroundImage = My.Resources.personGray_m
picGeschlecht.Visible = True
If MA.mit_geschlecht = "w" Then
pic.BackgroundImage = My.Resources.personGray_w
picGeschlecht.BackgroundImage = My.Resources.weiblich
Else
pic.BackgroundImage = My.Resources.personGray_m
picGeschlecht.BackgroundImage = My.Resources.männlich
End If
If MA Is Nothing Then Exit Sub
End If
If MA.mit_MAVerzeichnis_allowFoto Then
Try
Select Case art
Case "HOVER1" : If MA.mit_fotoHover1_DocId IsNot Nothing Then pic.BackgroundImage = Image.FromFile(cDATENSERVER.GET_PDFPath_BY_DocID(MA.mit_fotoHover1_DocId))
Case "HOVER2" : If MA.mit_fotoHover2_DocId IsNot Nothing Then pic.BackgroundImage = Image.FromFile(cDATENSERVER.GET_PDFPath_BY_DocID(MA.mit_fotoHover2_DocId))
Case Else : If MA.mit_foto_DocId IsNot Nothing Then pic.BackgroundImage = Image.FromFile(cDATENSERVER.GET_PDFPath_BY_DocID(MA.mit_foto_DocId))
End Select
Catch ex As Exception
pic.BackgroundImage = My.Resources.personGray_m
End Try
End If
End Sub
Private Sub pic_MouseHover(sender As Object, e As EventArgs) Handles pic.MouseHover
Dim point
pic.PointToClient(point)
End Sub
Dim HOVER_ART = ""
Private Sub pic_MouseMove(sender As Object, e As MouseEventArgs) Handles pic.MouseMove
Dim art = ""
If e.X < pic.Size.Width / 2 Then
art = "HOVER1"
Else
art = "HOVER2"
End If
If art <> HOVER_ART Then
setBGPic(art, MA)
End If
End Sub
Private Sub pic_MouseLeave(sender As Object, e As EventArgs) Handles pic.MouseLeave
If HOVER_ART <> "" Then
setBGPic("", MA)
End If
End Sub
End Class

79
VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersucheBearbeiten.Designer.vb generated
View File

@@ -26,6 +26,10 @@ Partial Class frmMitarbeitersucheBearbeiten
Me.pnlSrch = New System.Windows.Forms.Panel()
Me.btnClose = New System.Windows.Forms.Button()
Me.pnlMain = New System.Windows.Forms.Panel()
Me.Label1 = New System.Windows.Forms.Label()
Me.PictureBox2 = New System.Windows.Forms.PictureBox()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.cbxAllowFoto = New System.Windows.Forms.CheckBox()
Me.btn = New System.Windows.Forms.Button()
Me.txtMotto = New System.Windows.Forms.TextBox()
Me.cbxMotto = New System.Windows.Forms.CheckBox()
@@ -40,10 +44,13 @@ Partial Class frmMitarbeitersucheBearbeiten
Me.lblWohnadresse = New System.Windows.Forms.Label()
Me.lblName = New System.Windows.Forms.Label()
Me.pic = New System.Windows.Forms.PictureBox()
Me.cbxAllowFoto = New System.Windows.Forms.CheckBox()
Me.pnlHoverPic = New System.Windows.Forms.Panel()
Me.pnlSrch.SuspendLayout()
Me.pnlMain.SuspendLayout()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnlHoverPic.SuspendLayout()
Me.SuspendLayout()
'
'pnlSrch
@@ -92,12 +99,56 @@ Partial Class frmMitarbeitersucheBearbeiten
Me.pnlMain.Controls.Add(Me.lblWohnadresse)
Me.pnlMain.Controls.Add(Me.lblName)
Me.pnlMain.Controls.Add(Me.pic)
Me.pnlMain.Controls.Add(Me.pnlHoverPic)
Me.pnlMain.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnlMain.Location = New System.Drawing.Point(0, 29)
Me.pnlMain.Name = "pnlMain"
Me.pnlMain.Size = New System.Drawing.Size(703, 335)
Me.pnlMain.TabIndex = 1
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
Me.Label1.Location = New System.Drawing.Point(4, 1)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(98, 24)
Me.Label1.TabIndex = 36
Me.Label1.Text = "Hover-Pic:"
'
'PictureBox2
'
Me.PictureBox2.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.personGray_m
Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox2.Cursor = System.Windows.Forms.Cursors.Hand
Me.PictureBox2.Location = New System.Drawing.Point(77, 29)
Me.PictureBox2.Name = "PictureBox2"
Me.PictureBox2.Size = New System.Drawing.Size(63, 59)
Me.PictureBox2.TabIndex = 35
Me.PictureBox2.TabStop = False
'
'PictureBox1
'
Me.PictureBox1.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.personGray_m
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox1.Cursor = System.Windows.Forms.Cursors.Hand
Me.PictureBox1.Location = New System.Drawing.Point(8, 29)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(63, 59)
Me.PictureBox1.TabIndex = 34
Me.PictureBox1.TabStop = False
'
'cbxAllowFoto
'
Me.cbxAllowFoto.AutoSize = True
Me.cbxAllowFoto.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
Me.cbxAllowFoto.Location = New System.Drawing.Point(7, 187)
Me.cbxAllowFoto.Name = "cbxAllowFoto"
Me.cbxAllowFoto.Size = New System.Drawing.Size(150, 28)
Me.cbxAllowFoto.TabIndex = 33
Me.cbxAllowFoto.Text = "Foto anzeigen"
Me.cbxAllowFoto.UseVisualStyleBackColor = True
'
'btn
'
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -241,16 +292,16 @@ Partial Class frmMitarbeitersucheBearbeiten
Me.pic.TabIndex = 0
Me.pic.TabStop = False
'
'cbxAllowFoto
'pnlHoverPic
'
Me.cbxAllowFoto.AutoSize = True
Me.cbxAllowFoto.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
Me.cbxAllowFoto.Location = New System.Drawing.Point(7, 187)
Me.cbxAllowFoto.Name = "cbxAllowFoto"
Me.cbxAllowFoto.Size = New System.Drawing.Size(150, 28)
Me.cbxAllowFoto.TabIndex = 33
Me.cbxAllowFoto.Text = "Foto anzeigen"
Me.cbxAllowFoto.UseVisualStyleBackColor = True
Me.pnlHoverPic.Controls.Add(Me.Label1)
Me.pnlHoverPic.Controls.Add(Me.PictureBox2)
Me.pnlHoverPic.Controls.Add(Me.PictureBox1)
Me.pnlHoverPic.Location = New System.Drawing.Point(-1, 232)
Me.pnlHoverPic.Name = "pnlHoverPic"
Me.pnlHoverPic.Size = New System.Drawing.Size(181, 100)
Me.pnlHoverPic.TabIndex = 37
Me.pnlHoverPic.Visible = False
'
'frmMitarbeitersucheBearbeiten
'
@@ -268,7 +319,11 @@ Partial Class frmMitarbeitersucheBearbeiten
Me.pnlSrch.ResumeLayout(False)
Me.pnlMain.ResumeLayout(False)
Me.pnlMain.PerformLayout()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
Me.pnlHoverPic.ResumeLayout(False)
Me.pnlHoverPic.PerformLayout()
Me.ResumeLayout(False)
End Sub
@@ -291,4 +346,8 @@ Partial Class frmMitarbeitersucheBearbeiten
Friend WithEvents cbxGeburtsdatum As Windows.Forms.CheckBox
Friend WithEvents cbxWohnort As Windows.Forms.CheckBox
Friend WithEvents cbxAllowFoto As Windows.Forms.CheckBox
Friend WithEvents Label1 As Windows.Forms.Label
Friend WithEvents PictureBox2 As Windows.Forms.PictureBox
Friend WithEvents PictureBox1 As Windows.Forms.PictureBox
Friend WithEvents pnlHoverPic As Windows.Forms.Panel
End Class

83
VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersucheBearbeiten.vb
View File

@@ -19,6 +19,11 @@ Public Class frmMitarbeitersucheBearbeiten
Private Sub frmMitarbeitersuche_Load(sender As Object, e As EventArgs) Handles Me.Load
If MA Is Nothing Then Me.Close()
initMA()
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", "SDL") Then
pnlHoverPic.Visible = True
End If
End Sub
@@ -59,6 +64,29 @@ Public Class frmMitarbeitersucheBearbeiten
pic.BackgroundImage = My.Resources.personGray_m
End If
If MA.mit_fotoHover1_DocId IsNot Nothing Then
Try
PictureBox1.BackgroundImage = Image.FromFile(cDATENSERVER.GET_PDFPath_BY_DocID(MA.mit_fotoHover1_DocId))
Catch ex As Exception
PictureBox1.BackgroundImage = My.Resources.personGray_m
End Try
ElseIf MA.mit_geschlecht = "w" Then
PictureBox1.BackgroundImage = My.Resources.personGray_w
Else
PictureBox1.BackgroundImage = My.Resources.personGray_m
End If
If MA.mit_fotoHover2_DocId IsNot Nothing Then
Try
PictureBox2.BackgroundImage = Image.FromFile(cDATENSERVER.GET_PDFPath_BY_DocID(MA.mit_fotoHover2_DocId))
Catch ex As Exception
PictureBox2.BackgroundImage = My.Resources.personGray_m
End Try
ElseIf MA.mit_geschlecht = "w" Then
PictureBox2.BackgroundImage = My.Resources.personGray_w
Else
PictureBox2.BackgroundImage = My.Resources.personGray_m
End If
End Sub
Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click
@@ -129,7 +157,7 @@ Public Class frmMitarbeitersucheBearbeiten
Dim Extension = New IO.FileInfo(fd.FileName).Extension
Dim docId = -1
If saveToDS(Extension, fd.FileName, docId) Then
If saveToDS(Extension, fd.FileName, "FRONT", docId) Then
MA.mit_foto_DocId = docId
Try
@@ -141,13 +169,13 @@ Public Class frmMitarbeitersucheBearbeiten
End If
End Sub
Public Function saveToDS(Extension, sourcePath, Optional ByRef da_id = -1) As Boolean
Public Function saveToDS(Extension, sourcePath, art, Optional ByRef da_id = -1) As Boolean
Dim DS As VERAG_PROG_ALLGEMEIN.cDATENSERVER = Nothing
If da_id > 0 Then
DS = New cDATENSERVER(da_id)
Else
DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "MITARBEITER", "PERSONAL_FOTOS", "", "", MA.mit_nname & "_" & MA.mit_id & Extension, -1, False)
DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "MITARBEITER", "PERSONAL_FOTOS", "", "", MA.mit_nname & "_" & MA.mit_id & "_" & art & Extension, -1, False)
End If
' Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "MITARBEITER", "PERSONAL_FOTOS", "", "", MA.mit_nname & "_" & MA.mit_id, -1, False)
@@ -159,4 +187,53 @@ Public Class frmMitarbeitersucheBearbeiten
Return True
End Function
Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
Dim fd As Windows.Forms.OpenFileDialog = New Windows.Forms.OpenFileDialog()
fd.Title = "Bild auswählen"
' fd.InitialDirectory = "F:\PROGRAMME\ADMIN_DATA\Fotos_Mitarbeiter\"
fd.Filter = "Image Files(*.BMP;*.JPG;*.GIF;*.PNG)|*.BMP;*.JPG;*.GIF;*.PNG"
fd.FilterIndex = 2
fd.RestoreDirectory = True
If fd.ShowDialog() = DialogResult.OK AndAlso fd.FileName <> "" Then
Dim Extension = New IO.FileInfo(fd.FileName).Extension
Dim docId = -1
If saveToDS(Extension, fd.FileName, "HOVER1", docId) Then
MA.mit_fotoHover1_DocId = docId
Try
PictureBox1.BackgroundImage = Image.FromFile(cDATENSERVER.GET_PDFPath_BY_DocID(MA.mit_fotoHover1_DocId))
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
End If
End If
End Sub
Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click
Dim fd As Windows.Forms.OpenFileDialog = New Windows.Forms.OpenFileDialog()
fd.Title = "Bild auswählen"
' fd.InitialDirectory = "F:\PROGRAMME\ADMIN_DATA\Fotos_Mitarbeiter\"
fd.Filter = "Image Files(*.BMP;*.JPG;*.GIF;*.PNG)|*.BMP;*.JPG;*.GIF;*.PNG"
fd.FilterIndex = 2
fd.RestoreDirectory = True
If fd.ShowDialog() = DialogResult.OK AndAlso fd.FileName <> "" Then
Dim Extension = New IO.FileInfo(fd.FileName).Extension
Dim docId = -1
If saveToDS(Extension, fd.FileName, "HOVER2", docId) Then
MA.mit_fotoHover2_DocId = docId
Try
PictureBox2.BackgroundImage = Image.FromFile(cDATENSERVER.GET_PDFPath_BY_DocID(MA.mit_fotoHover2_DocId))
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
End If
End If
End Sub
End Class