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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-11-05 07:59:16 +01:00
parent 4f81004835
commit 24dd462073
20 changed files with 1240 additions and 564 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Aviso/Aviso.vbproj
View File

@@ -769,6 +769,12 @@
<Compile Include="usrCntlSND_NCTSFiskalEndempf.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="usrCntlSND_ATBGestellung.Designer.vb">
<DependentUpon>usrCntlSND_ATBGestellung.vb</DependentUpon>
</Compile>
<Compile Include="usrCntlSND_ATBGestellung.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="usrCntlSND_NCTSGestellungsadresse.Designer.vb">
<DependentUpon>usrCntlSND_NCTSGestellungsadresse.vb</DependentUpon>
</Compile>
@@ -1020,6 +1026,9 @@
<EmbeddedResource Include="usrCntlSND_NCTSFiskalEndempf.resx">
<DependentUpon>usrCntlSND_NCTSFiskalEndempf.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="usrCntlSND_ATBGestellung.resx">
<DependentUpon>usrCntlSND_ATBGestellung.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="usrCntlSND_NCTSGestellungsadresse.resx">
<DependentUpon>usrCntlSND_NCTSGestellungsadresse.vb</DependentUpon>
</EmbeddedResource>

4
Aviso/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("3.5.5.5")>
<Assembly: AssemblyFileVersion("3.5.5.5")>
<Assembly: AssemblyVersion("3.5.6.4")>
<Assembly: AssemblyFileVersion("3.5.6.4")>

2
Aviso/My Project/Resources.Designer.vb generated
View File

@@ -1429,7 +1429,7 @@ Namespace My.Resources
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die 3.5.5.5 ähnelt.
''' Sucht eine lokalisierte Zeichenfolge, die 3.5.6.4 ähnelt.
'''</summary>
Friend ReadOnly Property Version() As String
Get

2
Aviso/My Project/Resources.resx
View File

@@ -536,7 +536,7 @@
<value>..\Resources\plus.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Version" xml:space="preserve">
<value>3.5.5.5</value>
<value>3.5.6.4</value>
</data>
<data name="statusBtn_vorgeschrieben_Aktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\statusBtn_vorgeschrieben_Aktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>

263
Aviso/frmAddAktenvermerkShort.Designer.vb generated
View File

@@ -24,6 +24,14 @@ Partial Class frmAddAktenvermerkShort
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAddAktenvermerkShort))
Me.pnlAktenVermerk = New System.Windows.Forms.Panel()
Me.btnDEZollDIGITAL = New System.Windows.Forms.Button()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.Label24 = New System.Windows.Forms.Label()
Me.btnSBG = New System.Windows.Forms.Button()
Me.btnWAI = New System.Windows.Forms.Button()
Me.btnNKD = New System.Windows.Forms.Button()
Me.btnSFD = New System.Windows.Forms.Button()
Me.btnQS = New System.Windows.Forms.Button()
Me.txtFreigabeInfo = New System.Windows.Forms.TextBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.btnDispoangefordert = New System.Windows.Forms.Button()
@@ -45,21 +53,16 @@ Partial Class frmAddAktenvermerkShort
Me.btnVorgeschrieben = New System.Windows.Forms.Button()
Me.btnSpaetAvisiert = New System.Windows.Forms.Button()
Me.btnNichtAvisiert = New System.Windows.Forms.Button()
Me.btnQS = New System.Windows.Forms.Button()
Me.btnSFD = New System.Windows.Forms.Button()
Me.btnNKD = New System.Windows.Forms.Button()
Me.btnWAI = New System.Windows.Forms.Button()
Me.btnSBG = New System.Windows.Forms.Button()
Me.btnLKWStandzeitFeierteage = New System.Windows.Forms.Button()
Me.btnLKWStandzeitWE = New System.Windows.Forms.Button()
Me.btnZollDEEingereicht = New System.Windows.Forms.Button()
Me.btnZollATEingereicht = New System.Windows.Forms.Button()
Me.optKeineAuswahl = New System.Windows.Forms.RadioButton()
Me.Label15 = New System.Windows.Forms.Label()
Me.Label24 = New System.Windows.Forms.Label()
Me.Label16 = New System.Windows.Forms.Label()
Me.Label14 = New System.Windows.Forms.Label()
Me.pnlAktenVermerk.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.pnl.SuspendLayout()
Me.SuspendLayout()
'
@@ -67,8 +70,11 @@ Partial Class frmAddAktenvermerkShort
'
Me.pnlAktenVermerk.BackColor = System.Drawing.Color.White
Me.pnlAktenVermerk.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnlAktenVermerk.Controls.Add(Me.btnDEZollDIGITAL)
Me.pnlAktenVermerk.Controls.Add(Me.Panel1)
Me.pnlAktenVermerk.Controls.Add(Me.txtFreigabeInfo)
Me.pnlAktenVermerk.Controls.Add(Me.Label4)
Me.pnlAktenVermerk.Controls.Add(Me.btnSFD)
Me.pnlAktenVermerk.Controls.Add(Me.btnDispoangefordert)
Me.pnlAktenVermerk.Controls.Add(Me.Button3)
Me.pnlAktenVermerk.Controls.Add(Me.Label3)
@@ -80,31 +86,129 @@ Partial Class frmAddAktenvermerkShort
Me.pnlAktenVermerk.Controls.Add(Me.Button1)
Me.pnlAktenVermerk.Controls.Add(Me.pnl)
Me.pnlAktenVermerk.Controls.Add(Me.btnSpaetAvisiert)
Me.pnlAktenVermerk.Controls.Add(Me.btnNichtAvisiert)
Me.pnlAktenVermerk.Controls.Add(Me.btnQS)
Me.pnlAktenVermerk.Controls.Add(Me.btnSFD)
Me.pnlAktenVermerk.Controls.Add(Me.btnNKD)
Me.pnlAktenVermerk.Controls.Add(Me.btnWAI)
Me.pnlAktenVermerk.Controls.Add(Me.btnSBG)
Me.pnlAktenVermerk.Controls.Add(Me.btnLKWStandzeitFeierteage)
Me.pnlAktenVermerk.Controls.Add(Me.btnLKWStandzeitWE)
Me.pnlAktenVermerk.Controls.Add(Me.btnZollDEEingereicht)
Me.pnlAktenVermerk.Controls.Add(Me.btnZollATEingereicht)
Me.pnlAktenVermerk.Controls.Add(Me.optKeineAuswahl)
Me.pnlAktenVermerk.Controls.Add(Me.Label15)
Me.pnlAktenVermerk.Controls.Add(Me.Label24)
Me.pnlAktenVermerk.Controls.Add(Me.Label16)
Me.pnlAktenVermerk.Controls.Add(Me.Label14)
Me.pnlAktenVermerk.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnlAktenVermerk.Location = New System.Drawing.Point(0, 0)
Me.pnlAktenVermerk.Name = "pnlAktenVermerk"
Me.pnlAktenVermerk.Size = New System.Drawing.Size(414, 534)
Me.pnlAktenVermerk.Size = New System.Drawing.Size(401, 482)
Me.pnlAktenVermerk.TabIndex = 0
'
'btnDEZollDIGITAL
'
Me.btnDEZollDIGITAL.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnDEZollDIGITAL.Image = Global.AVISO.My.Resources.Resources.digitalerAkt_small
Me.btnDEZollDIGITAL.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnDEZollDIGITAL.Location = New System.Drawing.Point(205, 145)
Me.btnDEZollDIGITAL.Margin = New System.Windows.Forms.Padding(0)
Me.btnDEZollDIGITAL.Name = "btnDEZollDIGITAL"
Me.btnDEZollDIGITAL.Size = New System.Drawing.Size(89, 83)
Me.btnDEZollDIGITAL.TabIndex = 107
Me.btnDEZollDIGITAL.Text = "Zoll DE DIGITAL eingereicht"
Me.btnDEZollDIGITAL.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.btnDEZollDIGITAL.UseVisualStyleBackColor = True
'
'Panel1
'
Me.Panel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.Panel1.Controls.Add(Me.Label24)
Me.Panel1.Controls.Add(Me.btnSBG)
Me.Panel1.Controls.Add(Me.btnWAI)
Me.Panel1.Controls.Add(Me.btnNKD)
Me.Panel1.Controls.Add(Me.btnQS)
Me.Panel1.Controls.Add(Me.Label14)
Me.Panel1.Controls.Add(Me.btnNichtAvisiert)
Me.Panel1.Location = New System.Drawing.Point(308, 228)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(70, 25)
Me.Panel1.TabIndex = 106
Me.Panel1.Visible = False
'
'Label24
'
Me.Label24.AutoSize = True
Me.Label24.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label24.Location = New System.Drawing.Point(3, 0)
Me.Label24.Name = "Label24"
Me.Label24.Size = New System.Drawing.Size(151, 13)
Me.Label24.TabIndex = 8
Me.Label24.Text = "Akt / Aviso weitergeleitet"
'
'btnSBG
'
Me.btnSBG.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSBG.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnSBG.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnSBG.Location = New System.Drawing.Point(3, 16)
Me.btnSBG.Name = "btnSBG"
Me.btnSBG.Size = New System.Drawing.Size(182, 27)
Me.btnSBG.TabIndex = 88
Me.btnSBG.Text = "nach Salzburg"
Me.btnSBG.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnSBG.UseVisualStyleBackColor = True
'
'btnWAI
'
Me.btnWAI.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnWAI.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnWAI.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnWAI.Location = New System.Drawing.Point(3, 74)
Me.btnWAI.Name = "btnWAI"
Me.btnWAI.Size = New System.Drawing.Size(182, 27)
Me.btnWAI.TabIndex = 88
Me.btnWAI.Text = "nach Waidhaus"
Me.btnWAI.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnWAI.UseVisualStyleBackColor = True
'
'btnNKD
'
Me.btnNKD.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnNKD.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnNKD.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnNKD.Location = New System.Drawing.Point(3, 45)
Me.btnNKD.Name = "btnNKD"
Me.btnNKD.Size = New System.Drawing.Size(182, 27)
Me.btnNKD.TabIndex = 89
Me.btnNKD.Text = "nach Nickelsdorf"
Me.btnNKD.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnNKD.UseVisualStyleBackColor = True
'
'btnSFD
'
Me.btnSFD.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSFD.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnSFD.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnSFD.Location = New System.Drawing.Point(11, 256)
Me.btnSFD.Name = "btnSFD"
Me.btnSFD.Size = New System.Drawing.Size(182, 27)
Me.btnSFD.TabIndex = 89
Me.btnSFD.Text = "nach Spielfeld (Lex)"
Me.btnSFD.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnSFD.UseVisualStyleBackColor = True
'
'btnQS
'
Me.btnQS.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnQS.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnQS.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnQS.Location = New System.Drawing.Point(3, 132)
Me.btnQS.Name = "btnQS"
Me.btnQS.Size = New System.Drawing.Size(182, 27)
Me.btnQS.TabIndex = 89
Me.btnQS.Text = "in die QS - Abteilung gegeben" & Global.Microsoft.VisualBasic.ChrW(10)
Me.btnQS.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnQS.UseVisualStyleBackColor = True
'
'txtFreigabeInfo
'
Me.txtFreigabeInfo.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.txtFreigabeInfo.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtFreigabeInfo.Location = New System.Drawing.Point(11, 489)
Me.txtFreigabeInfo.Location = New System.Drawing.Point(11, 437)
Me.txtFreigabeInfo.Multiline = True
Me.txtFreigabeInfo.Name = "txtFreigabeInfo"
Me.txtFreigabeInfo.Size = New System.Drawing.Size(182, 40)
@@ -112,9 +216,10 @@ Partial Class frmAddAktenvermerkShort
'
'Label4
'
Me.Label4.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.Label4.AutoSize = True
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.Location = New System.Drawing.Point(11, 473)
Me.Label4.Location = New System.Drawing.Point(11, 421)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(86, 13)
Me.Label4.TabIndex = 104
@@ -122,10 +227,11 @@ Partial Class frmAddAktenvermerkShort
'
'btnDispoangefordert
'
Me.btnDispoangefordert.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.btnDispoangefordert.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnDispoangefordert.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnDispoangefordert.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnDispoangefordert.Location = New System.Drawing.Point(216, 285)
Me.btnDispoangefordert.Location = New System.Drawing.Point(11, 318)
Me.btnDispoangefordert.Name = "btnDispoangefordert"
Me.btnDispoangefordert.Size = New System.Drawing.Size(182, 27)
Me.btnDispoangefordert.TabIndex = 103
@@ -135,10 +241,11 @@ Partial Class frmAddAktenvermerkShort
'
'Button3
'
Me.Button3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button3.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.Button3.Location = New System.Drawing.Point(216, 256)
Me.Button3.Location = New System.Drawing.Point(11, 289)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(182, 27)
Me.Button3.TabIndex = 102
@@ -148,9 +255,10 @@ Partial Class frmAddAktenvermerkShort
'
'Label3
'
Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.Label3.AutoSize = True
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.Location = New System.Drawing.Point(11, 404)
Me.Label3.Location = New System.Drawing.Point(11, 352)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(66, 13)
Me.Label3.TabIndex = 101
@@ -158,8 +266,9 @@ Partial Class frmAddAktenvermerkShort
'
'txtSonstiges
'
Me.txtSonstiges.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.txtSonstiges.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtSonstiges.Location = New System.Drawing.Point(11, 420)
Me.txtSonstiges.Location = New System.Drawing.Point(11, 368)
Me.txtSonstiges.Multiline = True
Me.txtSonstiges.Name = "txtSonstiges"
Me.txtSonstiges.Size = New System.Drawing.Size(137, 46)
@@ -167,10 +276,11 @@ Partial Class frmAddAktenvermerkShort
'
'btnSonstiges
'
Me.btnSonstiges.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.btnSonstiges.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSonstiges.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnSonstiges.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnSonstiges.Location = New System.Drawing.Point(154, 420)
Me.btnSonstiges.Location = New System.Drawing.Point(154, 368)
Me.btnSonstiges.Name = "btnSonstiges"
Me.btnSonstiges.Size = New System.Drawing.Size(39, 46)
Me.btnSonstiges.TabIndex = 99
@@ -228,7 +338,7 @@ Partial Class frmAddAktenvermerkShort
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.ForeColor = System.Drawing.Color.White
Me.Button1.Location = New System.Drawing.Point(358, 0)
Me.Button1.Location = New System.Drawing.Point(346, 0)
Me.Button1.Name = "Button1"
Me.Button1.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.Button1.Size = New System.Drawing.Size(54, 20)
@@ -247,9 +357,9 @@ Partial Class frmAddAktenvermerkShort
Me.pnl.Controls.Add(Me.btnErfasst)
Me.pnl.Controls.Add(Me.btnVorbereitet)
Me.pnl.Controls.Add(Me.btnVorgeschrieben)
Me.pnl.Location = New System.Drawing.Point(216, 343)
Me.pnl.Location = New System.Drawing.Point(212, 256)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(197, 190)
Me.pnl.Size = New System.Drawing.Size(197, 225)
Me.pnl.TabIndex = 93
'
'btnNichtEingetroffen
@@ -358,7 +468,7 @@ Partial Class frmAddAktenvermerkShort
Me.btnSpaetAvisiert.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSpaetAvisiert.Image = Global.AVISO.My.Resources.Resources.LateAviso_s
Me.btnSpaetAvisiert.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnSpaetAvisiert.Location = New System.Drawing.Point(309, 33)
Me.btnSpaetAvisiert.Location = New System.Drawing.Point(282, 495)
Me.btnSpaetAvisiert.Margin = New System.Windows.Forms.Padding(0)
Me.btnSpaetAvisiert.Name = "btnSpaetAvisiert"
Me.btnSpaetAvisiert.Size = New System.Drawing.Size(89, 83)
@@ -369,10 +479,11 @@ Partial Class frmAddAktenvermerkShort
'
'btnNichtAvisiert
'
Me.btnNichtAvisiert.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.btnNichtAvisiert.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnNichtAvisiert.Image = Global.AVISO.My.Resources.Resources.noAviso_s1
Me.btnNichtAvisiert.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnNichtAvisiert.Location = New System.Drawing.Point(216, 33)
Me.btnNichtAvisiert.Location = New System.Drawing.Point(32, 16)
Me.btnNichtAvisiert.Margin = New System.Windows.Forms.Padding(0)
Me.btnNichtAvisiert.Name = "btnNichtAvisiert"
Me.btnNichtAvisiert.Size = New System.Drawing.Size(89, 83)
@@ -381,77 +492,12 @@ Partial Class frmAddAktenvermerkShort
Me.btnNichtAvisiert.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.btnNichtAvisiert.UseVisualStyleBackColor = True
'
'btnQS
'
Me.btnQS.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnQS.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnQS.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnQS.Location = New System.Drawing.Point(11, 372)
Me.btnQS.Name = "btnQS"
Me.btnQS.Size = New System.Drawing.Size(182, 27)
Me.btnQS.TabIndex = 89
Me.btnQS.Text = "in die QS - Abteilung gegeben" & Global.Microsoft.VisualBasic.ChrW(10)
Me.btnQS.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnQS.UseVisualStyleBackColor = True
'
'btnSFD
'
Me.btnSFD.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSFD.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnSFD.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnSFD.Location = New System.Drawing.Point(11, 343)
Me.btnSFD.Name = "btnSFD"
Me.btnSFD.Size = New System.Drawing.Size(182, 27)
Me.btnSFD.TabIndex = 89
Me.btnSFD.Text = "nach Spielfeld (Lex)"
Me.btnSFD.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnSFD.UseVisualStyleBackColor = True
'
'btnNKD
'
Me.btnNKD.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnNKD.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnNKD.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnNKD.Location = New System.Drawing.Point(11, 285)
Me.btnNKD.Name = "btnNKD"
Me.btnNKD.Size = New System.Drawing.Size(182, 27)
Me.btnNKD.TabIndex = 89
Me.btnNKD.Text = "nach Nickelsdorf"
Me.btnNKD.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnNKD.UseVisualStyleBackColor = True
'
'btnWAI
'
Me.btnWAI.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnWAI.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnWAI.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnWAI.Location = New System.Drawing.Point(11, 314)
Me.btnWAI.Name = "btnWAI"
Me.btnWAI.Size = New System.Drawing.Size(182, 27)
Me.btnWAI.TabIndex = 88
Me.btnWAI.Text = "nach Waidhaus"
Me.btnWAI.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnWAI.UseVisualStyleBackColor = True
'
'btnSBG
'
Me.btnSBG.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSBG.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnSBG.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnSBG.Location = New System.Drawing.Point(11, 256)
Me.btnSBG.Name = "btnSBG"
Me.btnSBG.Size = New System.Drawing.Size(182, 27)
Me.btnSBG.TabIndex = 88
Me.btnSBG.Text = "nach Salzburg"
Me.btnSBG.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnSBG.UseVisualStyleBackColor = True
'
'btnLKWStandzeitFeierteage
'
Me.btnLKWStandzeitFeierteage.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnLKWStandzeitFeierteage.Image = CType(resources.GetObject("btnLKWStandzeitFeierteage.Image"), System.Drawing.Image)
Me.btnLKWStandzeitFeierteage.Image = Global.AVISO.My.Resources.Resources.android_clock_s
Me.btnLKWStandzeitFeierteage.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnLKWStandzeitFeierteage.Location = New System.Drawing.Point(104, 145)
Me.btnLKWStandzeitFeierteage.Location = New System.Drawing.Point(298, 33)
Me.btnLKWStandzeitFeierteage.Margin = New System.Windows.Forms.Padding(0)
Me.btnLKWStandzeitFeierteage.Name = "btnLKWStandzeitFeierteage"
Me.btnLKWStandzeitFeierteage.Size = New System.Drawing.Size(89, 83)
@@ -465,7 +511,7 @@ Partial Class frmAddAktenvermerkShort
Me.btnLKWStandzeitWE.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnLKWStandzeitWE.Image = CType(resources.GetObject("btnLKWStandzeitWE.Image"), System.Drawing.Image)
Me.btnLKWStandzeitWE.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnLKWStandzeitWE.Location = New System.Drawing.Point(11, 145)
Me.btnLKWStandzeitWE.Location = New System.Drawing.Point(205, 33)
Me.btnLKWStandzeitWE.Margin = New System.Windows.Forms.Padding(0)
Me.btnLKWStandzeitWE.Name = "btnLKWStandzeitWE"
Me.btnLKWStandzeitWE.Size = New System.Drawing.Size(89, 83)
@@ -479,7 +525,7 @@ Partial Class frmAddAktenvermerkShort
Me.btnZollDEEingereicht.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnZollDEEingereicht.Image = CType(resources.GetObject("btnZollDEEingereicht.Image"), System.Drawing.Image)
Me.btnZollDEEingereicht.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnZollDEEingereicht.Location = New System.Drawing.Point(309, 145)
Me.btnZollDEEingereicht.Location = New System.Drawing.Point(104, 145)
Me.btnZollDEEingereicht.Margin = New System.Windows.Forms.Padding(0)
Me.btnZollDEEingereicht.Name = "btnZollDEEingereicht"
Me.btnZollDEEingereicht.Size = New System.Drawing.Size(89, 83)
@@ -493,7 +539,7 @@ Partial Class frmAddAktenvermerkShort
Me.btnZollATEingereicht.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnZollATEingereicht.Image = CType(resources.GetObject("btnZollATEingereicht.Image"), System.Drawing.Image)
Me.btnZollATEingereicht.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnZollATEingereicht.Location = New System.Drawing.Point(216, 145)
Me.btnZollATEingereicht.Location = New System.Drawing.Point(11, 145)
Me.btnZollATEingereicht.Margin = New System.Windows.Forms.Padding(0)
Me.btnZollATEingereicht.Name = "btnZollATEingereicht"
Me.btnZollATEingereicht.Size = New System.Drawing.Size(89, 83)
@@ -519,28 +565,18 @@ Partial Class frmAddAktenvermerkShort
Me.Label15.AutoSize = True
Me.Label15.BackColor = System.Drawing.Color.Transparent
Me.Label15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label15.Location = New System.Drawing.Point(213, 129)
Me.Label15.Location = New System.Drawing.Point(8, 129)
Me.Label15.Name = "Label15"
Me.Label15.Size = New System.Drawing.Size(28, 13)
Me.Label15.TabIndex = 3
Me.Label15.Text = "Zoll"
'
'Label24
'
Me.Label24.AutoSize = True
Me.Label24.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label24.Location = New System.Drawing.Point(11, 240)
Me.Label24.Name = "Label24"
Me.Label24.Size = New System.Drawing.Size(151, 13)
Me.Label24.TabIndex = 8
Me.Label24.Text = "Akt / Aviso weitergeleitet"
'
'Label16
'
Me.Label16.AutoSize = True
Me.Label16.BackColor = System.Drawing.Color.Transparent
Me.Label16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label16.Location = New System.Drawing.Point(8, 129)
Me.Label16.Location = New System.Drawing.Point(202, 20)
Me.Label16.Name = "Label16"
Me.Label16.Size = New System.Drawing.Size(60, 13)
Me.Label16.TabIndex = 9
@@ -548,10 +584,11 @@ Partial Class frmAddAktenvermerkShort
'
'Label14
'
Me.Label14.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.Label14.AutoSize = True
Me.Label14.BackColor = System.Drawing.Color.Transparent
Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label14.Location = New System.Drawing.Point(213, 17)
Me.Label14.Location = New System.Drawing.Point(29, 0)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(38, 13)
Me.Label14.TabIndex = 2
@@ -561,7 +598,7 @@ Partial Class frmAddAktenvermerkShort
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(414, 534)
Me.ClientSize = New System.Drawing.Size(401, 482)
Me.Controls.Add(Me.pnlAktenVermerk)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
@@ -571,6 +608,8 @@ Partial Class frmAddAktenvermerkShort
Me.Text = "Aktenvermerk"
Me.pnlAktenVermerk.ResumeLayout(False)
Me.pnlAktenVermerk.PerformLayout()
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
Me.pnl.ResumeLayout(False)
Me.pnl.PerformLayout()
Me.ResumeLayout(False)
@@ -612,4 +651,6 @@ Partial Class frmAddAktenvermerkShort
Friend WithEvents btnDispoangefordert As Button
Friend WithEvents txtFreigabeInfo As TextBox
Friend WithEvents Label4 As Label
Friend WithEvents btnDEZollDIGITAL As Button
Friend WithEvents Panel1 As Panel
End Class

32
Aviso/frmAddAktenvermerkShort.resx
View File

@@ -118,38 +118,6 @@
<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="btnLKWStandzeitFeierteage.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
/9j/4AAQSkZJRgABAQEAAAAAAAD/7gAOQWRvYmUAZAAAAAAB/9sAQwABAQEBAQEBAQEBAQEBAQEBAQEB
AQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAgICAgICAgICAgIDAwMDAwMDAwMD/9sAQwEBAQEBAQECAQEC
AgIBAgIDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD/8AAEQgA
KAAoAwERAAIRAQMRAf/EABkAAQEBAQEBAAAAAAAAAAAAAAoJBgcECP/EAC8QAAAGAgEBBwMDBQAAAAAA
AAECAwQFBgcICREAEhMUFRcKITEWQSIyQiMzNRj/xAAUAQEAAAAAAAAAAAAAAAAAAAAA/8QAFBEBAAAA
AAAAAAAAAAAAAAAAAP/aAAwDAQACEQMRAD8Afi6dNmTZw9euEGjNogq6du3Sqbds1bN0zKruHC6piJIo
IpEExzmEClKAiIgAdgM5mDnuy1sRl63618I+nsxyB3ekP04S+bOzssNL07x/LqCqmomnenbqBZXpNEyZ
jJKhMQraTSSOrEqSaPdOYOSptflmuJ1yulnriXG5s4pvaXeuiZp9SxNIB0uo3bLuUi0FSRQjXD5MzYjk
1iBudQogDkTAI9g6riTnszHrblmn6483unExoJbrxJHgaJtJWJUbvp5fZggpFTTcXNm8sLWipKgoU6yv
rM0jGJKkWlRi0AOoQEzMnrOSZtJGOdtn8e/bIPWL5kuk6ZvWbpIi7Z20coHOi4bOETlOmoQwlOUQEBEB
7AZ3ntzDl3YvLmnfCDrTc3tFvXINLy0/tDfoQQNNY70zpQvXd8ImQVGveSv7CvTnfQ802JLN6+tCrGFC
XUAQvDqnqngnSnBNE1y1xocVj/F+P4pBhHRrBBAJKbkgboJStut0qkgg4st0srhDzElJOe84drmETCBQ
KUoQJ17ya1nvli75UZRVEzipcZWLa036gUypDM7VrvflmxDfyIBk8oeKYv2HoAj9g7BfzabVnBe5+DL5
rpsbQojImLMhRK8dLw8mgkL2LeiiqSMtNWlDJqO61ca25VBzGSbUSOmTkhTkN9wEIIcDWW8taw5x3E4N
dk7tI3y3aIyMddtSr/YFgUm8haY3U8c6p7JQQBUgEx40s0H3W5XLskSE6aFQMRrCpEAMbSPDN8vLMX5t
18RPixifZ/zvTugA3LGHq3pPifu7/wC+zdfD+nTzHX9ewKl7ADG+5on+Kj5TuYNtt4qPZsZavbv051h3
FewB1W7/ABsnBrVTBkJFWqXm2hXCDZjVJ/F7RhYo9czWQgmz9KSVTMwBBV0DyUF0HSCLpqsk5bOUk127
hBQiyC6CxAUSWRVTEyaqSqZgMUxREDAPUPp2AtuTvTi/Ll1z/D+oSB+K+ye6/lP8YlC85l9E9T8P6iv4
ZIT+f07gN+n6dg1PPXiTLWteZtNucLW+lSF9uGgUxLVXamgwBQ9cyDppeRfM7q4SMYrkhEsfs7HOAdcW
rskSnYDTSxSt4dUxQvVqztNgvc/BdD2M1zvkTkPFmQ4lCSiJeNXRF7FvRRSNJ1a0xhVVHVbuNbdKC1k4
x0BHLJyQxDl+wiHh201H1+3hwZcNdNmMeROSMXXNAguox+B20pBTTUiwRFtqE62EknV7fAqLnOzkGiia
yffOmYToqqpnCe+sFbNwjaEZLi94tzIvJ2s+t9hsBdesg3OENE5Nq+vhGbM+NsI2N16it7nZIjZIXERA
s4tsmZdv5RkyRTQK3Zsw+IeBvFWWNqM9bj85mx9Ik6FZd5JCOx9qHQLE3BCboOmtHPGtavJqEA4JiTIi
FYgwK5I3aElDQS0ygU7SaQOYE3vWTOSZu46RaNn8e/bLsnzF6gk6ZvWbpI6Dlo7bLkOi4bOETmIomcol
OURAQEB7AZbLXA1m7WLLFy2R4O9wZHRS13iSPYL7qdc409005v8AMmBQ6p2NRdMbC2oBVu8ZJBP0aYTj
EljJRRopuUiRQzHuR8uYsb+G/wDPvFgeQ6+V92/yK7gHh9AT9Q9E93So+MI/3P8ARdz9PA/p7Bo8V8Dm
d9p8qUvYrnH3Fkt4rHRZVKyULUegxx6Rp5Q5tMqQpKSVYaMK4jfykKUqThMIaHCSTRKlKKyrY6iJgTXH
x7CJYMoqKZNIyMjGjaPjo6PbIs2EewZokbM2TJm2Im3aNGjdMqaaaZSkTIUClAAAA7B//9k=
</value>
</data>
<data name="btnLKWStandzeitWE.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
/9j/4AAQSkZJRgABAQEAAAAAAAD/7gAOQWRvYmUAZAAAAAAB/9sAQwABAQEBAQEBAQEBAQEBAQEBAQEB

23
Aviso/frmAddAktenvermerkShort.vb
View File

@@ -68,6 +68,8 @@ Public Class frmAddAktenvermerkShort
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim de = SQL.getValueTxtBySql("SELECT COUNT(*) FROM [Vermerke] where avisoid=" & AvisoID & " and VermerkeCode=17", "AVISO") -
SQL.getValueTxtBySql("SELECT COUNT(*) FROM [Vermerke] where avisoid=" & AvisoID & " and VermerkeCode=18", "AVISO")
Dim dedigital = SQL.getValueTxtBySql("SELECT COUNT(*) FROM [Vermerke] where avisoid=" & AvisoID & " and VermerkeCode=82", "AVISO") -
SQL.getValueTxtBySql("SELECT COUNT(*) FROM [Vermerke] where avisoid=" & AvisoID & " and VermerkeCode=83", "AVISO")
Dim at = SQL.getValueTxtBySql("SELECT COUNT(*) FROM [Vermerke] where avisoid=" & AvisoID & " and VermerkeCode=19", "AVISO") -
SQL.getValueTxtBySql("SELECT COUNT(*) FROM [Vermerke] where avisoid=" & AvisoID & " and VermerkeCode=20", "AVISO")
@@ -85,6 +87,13 @@ Public Class frmAddAktenvermerkShort
btnZollDEEingereicht.FlatAppearance.BorderColor = Color.Black
btnZollDEEingereicht.Text = "Zoll DE " & vbNewLine & "fertig"
End If
If dedigital > 0 Then
btnDEZollDIGITAL.BackColor = Color.Green
btnDEZollDIGITAL.ForeColor = Color.White
btnDEZollDIGITAL.Tag = "SWITCH"
btnDEZollDIGITAL.FlatAppearance.BorderColor = Color.Black
btnDEZollDIGITAL.Text = "Zoll DE " & vbNewLine & "fertig"
End If
btnLKWFertig.Text = If(myAviso.LKW_fertig, "LKW nicht fertig", "LKW fertig")
txtFreigabeInfo.Text = If(myAviso.Freigabe_Info, "")
@@ -95,8 +104,7 @@ Public Class frmAddAktenvermerkShort
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btnSpaetAvisiert.Click, btnLKWStandzeitWE.Click, btnLKWStandzeitFeierteage.Click, btnZollATEingereicht.Click,
btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Click, btnQS.Click, btnErfasst.Click, btnVorbereitet.Click, btnVorgeschrieben.Click, btnAnkunft.Click,
btnFreigabe.Click, btnNichtEingetroffen.Click, btnNichtAvisiert.Click, btnAktUebernehmen.Click, btnLKWFertig.Click, btnSonstiges.Click, btnDispoangefordert.Click
btnFreigabe.Click, btnNichtEingetroffen.Click, btnNichtAvisiert.Click, btnAktUebernehmen.Click, btnLKWFertig.Click, btnSonstiges.Click, btnDispoangefordert.Click, btnDEZollDIGITAL.Click
If sender Is Nothing Then
MsgBox("Es wurde kein Vermerk ausgewählt. Der Datensatz kann nicht gespeichert werden.", vbInformation)
@@ -119,6 +127,17 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
Else
insertVermerk("DE Zoll eingereicht", 17)
End If
ElseIf sender Is btnDEZollDIGITAL Then
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
If sender.tag = "SWITCH" Then
insertVermerk("DE Zoll (DIGITAL) fertig", 83)
If myAviso.LKW_fertig Then VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.LKWFertig(myAviso.AvisoID) : frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
SQL.doSQL("UPDATE AVISO SET ZOLLDigitalEingereicht=0, LKW_fertig=1 where avisoid=" & AvisoID, "AVISO")
Else
insertVermerk("DE Zoll DIGITAL eingereicht", 82)
SQL.doSQL("UPDATE AVISO SET ZOLLDigitalEingereicht=1 where avisoid=" & AvisoID, "AVISO")
End If
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
ElseIf sender Is btnZollATEingereicht Then
If sender.tag = "SWITCH" Then
insertVermerk("AT Zoll fertig", 20)

14
Aviso/frmAddSendungsvermerkShort.Designer.vb generated
View File

@@ -72,6 +72,7 @@ Partial Class frmAddSendungsvermerkShort
Me.PictureBox4 = New System.Windows.Forms.PictureBox()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.Panel4 = New System.Windows.Forms.Panel()
Me.cbxPackliste = New System.Windows.Forms.CheckBox()
Me.pnlMain.SuspendLayout()
Me.pnlSendungsVermker.SuspendLayout()
CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -97,6 +98,7 @@ Partial Class frmAddSendungsvermerkShort
'
Me.pnlSendungsVermker.BackColor = System.Drawing.Color.White
Me.pnlSendungsVermker.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnlSendungsVermker.Controls.Add(Me.cbxPackliste)
Me.pnlSendungsVermker.Controls.Add(Me.Label4)
Me.pnlSendungsVermker.Controls.Add(Me.optFremd_ATB)
Me.pnlSendungsVermker.Controls.Add(Me.optFremd_SendungAvisiert)
@@ -636,6 +638,17 @@ Partial Class frmAddSendungsvermerkShort
Me.Panel4.Size = New System.Drawing.Size(453, 0)
Me.Panel4.TabIndex = 1
'
'cbxPackliste
'
Me.cbxPackliste.AutoSize = True
Me.cbxPackliste.BackColor = System.Drawing.Color.WhiteSmoke
Me.cbxPackliste.Location = New System.Drawing.Point(308, 75)
Me.cbxPackliste.Name = "cbxPackliste"
Me.cbxPackliste.Size = New System.Drawing.Size(69, 17)
Me.cbxPackliste.TabIndex = 97
Me.cbxPackliste.Text = "Packliste"
Me.cbxPackliste.UseVisualStyleBackColor = False
'
'frmAddSendungsvermerkShort
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -705,4 +718,5 @@ Partial Class frmAddSendungsvermerkShort
Friend WithEvents optFrachtkostenAngefordert As CheckBox
Friend WithEvents optKundeNichtErreichbar As CheckBox
Friend WithEvents optAbsenderbestätigung As CheckBox
Friend WithEvents cbxPackliste As CheckBox
End Class

3
Aviso/frmAddSendungsvermerkShort.vb
View File

@@ -147,6 +147,7 @@ Public Class frmAddSendungsvermerkShort
If cbxATR.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "ATR für Sendung '" & txtSendung.Text.Trim & "' fehlt - angefordert", 7)
If cbxVollmacht.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "Vollmacht für Sendung '" & txtSendung.Text.Trim & "' fehlt - angefordert", 9)
If cbxCMR.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "CMR bei Sendung '" & txtSendung.Text.Trim & "' - angefordert", 11)
If cbxPackliste.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "Packliste bei Sendung '" & txtSendung.Text.Trim & "' - angefordert", 90)
If cbxRgBest.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "Rechnungsbestätigung bei Sendung '" & txtSendung.Text.Trim & "' - angefordert", 55)
If optFrachtkostenAngefordert.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "Frachtkosten bei Sendung '" & txtSendung.Text.Trim & "' - angefordert", 74)
@@ -279,7 +280,7 @@ Public Class frmAddSendungsvermerkShort
'End Sub
Private Sub cbxAuftrag_CheckedChanged(sender As Object, e As EventArgs) Handles cbxAuftrag.CheckedChanged, cbxRechnung.CheckedChanged, cbxLS.CheckedChanged,
cbxCMR.CheckedChanged, cbxATR.CheckedChanged, cbxVollmacht.CheckedChanged, cbxSonstDok.CheckedChanged, cbxNichtLeserlich.CheckedChanged
cbxCMR.CheckedChanged, cbxATR.CheckedChanged, cbxVollmacht.CheckedChanged, cbxSonstDok.CheckedChanged, cbxNichtLeserlich.CheckedChanged, cbxPackliste.CheckedChanged
' optDokumente.Checked = True
End Sub
Private Sub SonstChanged(sender As Object, e As EventArgs) Handles txtSonstigesDokumentFehlt.TextChanged

188
Aviso/frmEintragAviso.designer.vb generated
View File

@@ -92,7 +92,6 @@ Partial Class frmEintragAviso
Me.Label16 = New System.Windows.Forms.Label()
Me.cbxFrächterUnbekannt = New System.Windows.Forms.CheckBox()
Me.btnAuftraggeber = New System.Windows.Forms.Button()
Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem()
Me.btnAvisiererKd = New System.Windows.Forms.Button()
Me.btnFraechterKd = New System.Windows.Forms.Button()
Me.lblErrImex = New System.Windows.Forms.Label()
@@ -103,7 +102,6 @@ Partial Class frmEintragAviso
Me.lblErr_Frächter = New System.Windows.Forms.Label()
Me.lblErr_LKW = New System.Windows.Forms.Label()
Me.lblErr_Grenzstelle = New System.Windows.Forms.Label()
Me.lblErrFmZollKdNr = New System.Windows.Forms.Label()
Me.Button1 = New System.Windows.Forms.Button()
Me.btnAbsSrch = New System.Windows.Forms.Button()
Me.lblAtrAvis = New System.Windows.Forms.Label()
@@ -117,6 +115,8 @@ Partial Class frmEintragAviso
Me.cbxWarenort = New System.Windows.Forms.CheckBox()
Me.txtBestimmungszollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.lblZA = New System.Windows.Forms.Label()
Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem()
Me.lblErrFmZollKdNr = New System.Windows.Forms.Label()
Me.grp = New System.Windows.Forms.GroupBox()
Me.txtDyRef = New System.Windows.Forms.TextBox()
Me.picDy = New System.Windows.Forms.PictureBox()
@@ -145,6 +145,11 @@ Partial Class frmEintragAviso
Me.columnName = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.clmnPfad = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.UsrCntlEintragAvisoAtilla = New AVISO.usrCntlEintragAvisoAtilla()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.dgvVorpapier = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.clmnArt = New System.Windows.Forms.DataGridViewComboBoxColumn()
Me.clmnMRN = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.panAdmin.SuspendLayout()
Me.grpAviso.SuspendLayout()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -154,6 +159,9 @@ Partial Class frmEintragAviso
Me.grpAktVerzollung.SuspendLayout()
Me.pnlSBG.SuspendLayout()
CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox1.SuspendLayout()
CType(Me.dgvVorpapier, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'btnOK
@@ -161,7 +169,7 @@ Partial Class frmEintragAviso
Me.btnOK.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnOK.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnOK.Location = New System.Drawing.Point(12, 601)
Me.btnOK.Location = New System.Drawing.Point(12, 650)
Me.btnOK.Name = "btnOK"
Me.btnOK.Size = New System.Drawing.Size(306, 45)
Me.btnOK.TabIndex = 18
@@ -182,7 +190,7 @@ Partial Class frmEintragAviso
Me.btnAbbruch.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.btnAbbruch.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAbbruch.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnAbbruch.Location = New System.Drawing.Point(324, 601)
Me.btnAbbruch.Location = New System.Drawing.Point(324, 650)
Me.btnAbbruch.Name = "btnAbbruch"
Me.btnAbbruch.Size = New System.Drawing.Size(91, 45)
Me.btnAbbruch.TabIndex = 19
@@ -193,19 +201,19 @@ Partial Class frmEintragAviso
'
Me.txtInfo.AcceptsReturn = True
Me.txtInfo.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.txtInfo.Location = New System.Drawing.Point(9, 415)
Me.txtInfo.Location = New System.Drawing.Point(424, 620)
Me.txtInfo.MaxLength = 240
Me.txtInfo.Multiline = True
Me.txtInfo.Name = "txtInfo"
Me.txtInfo.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
Me.txtInfo.Size = New System.Drawing.Size(388, 75)
Me.txtInfo.Size = New System.Drawing.Size(360, 75)
Me.txtInfo.TabIndex = 49
'
'Label3
'
Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(6, 399)
Me.Label3.Location = New System.Drawing.Point(421, 604)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(25, 13)
Me.Label3.TabIndex = 48
@@ -232,7 +240,7 @@ Partial Class frmEintragAviso
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(6, 125)
Me.Label6.Location = New System.Drawing.Point(25, 125)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(48, 13)
Me.Label6.TabIndex = 13
@@ -251,7 +259,7 @@ Partial Class frmEintragAviso
Me.txtÄnderungen.Name = "txtÄnderungen"
Me.txtÄnderungen.ReadOnly = True
Me.txtÄnderungen.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
Me.txtÄnderungen.Size = New System.Drawing.Size(360, 400)
Me.txtÄnderungen.Size = New System.Drawing.Size(360, 352)
Me.txtÄnderungen.TabIndex = 13
Me.txtÄnderungen.TabStop = False
'
@@ -276,10 +284,10 @@ Partial Class frmEintragAviso
'txtLKW_Nr
'
Me.txtLKW_Nr.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtLKW_Nr.Location = New System.Drawing.Point(9, 141)
Me.txtLKW_Nr.Location = New System.Drawing.Point(28, 141)
Me.txtLKW_Nr.MaxLength = 30
Me.txtLKW_Nr.Name = "txtLKW_Nr"
Me.txtLKW_Nr.Size = New System.Drawing.Size(170, 26)
Me.txtLKW_Nr.Size = New System.Drawing.Size(162, 26)
Me.txtLKW_Nr.TabIndex = 18
'
'lblStatus
@@ -330,7 +338,7 @@ Partial Class frmEintragAviso
Me.panAdmin.Controls.Add(Me.Label8)
Me.panAdmin.Controls.Add(Me.lblFreigabe)
Me.panAdmin.Controls.Add(Me.lblAnkunft)
Me.panAdmin.Location = New System.Drawing.Point(543, 461)
Me.panAdmin.Location = New System.Drawing.Point(543, 413)
Me.panAdmin.Name = "panAdmin"
Me.panAdmin.Size = New System.Drawing.Size(253, 187)
Me.panAdmin.TabIndex = 20
@@ -577,7 +585,7 @@ Partial Class frmEintragAviso
'
Me.Label11.AutoSize = True
Me.Label11.ForeColor = System.Drawing.Color.Black
Me.Label11.Location = New System.Drawing.Point(229, 125)
Me.Label11.Location = New System.Drawing.Point(240, 125)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(59, 13)
Me.Label11.TabIndex = 16
@@ -671,7 +679,7 @@ Partial Class frmEintragAviso
'
Me.Label12.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.Label12.BackColor = System.Drawing.Color.Transparent
Me.Label12.Location = New System.Drawing.Point(6, 491)
Me.Label12.Location = New System.Drawing.Point(421, 696)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(372, 32)
Me.Label12.TabIndex = 52
@@ -698,7 +706,7 @@ Partial Class frmEintragAviso
Me.cboGrenzstelle.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboGrenzstelle.FormattingEnabled = True
Me.cboGrenzstelle.Items.AddRange(New Object() {"", "SUB", "SBG", "WAI", "NKD", "SFD", "NEU", "AMB", "???"})
Me.cboGrenzstelle.Location = New System.Drawing.Point(232, 139)
Me.cboGrenzstelle.Location = New System.Drawing.Point(243, 139)
Me.cboGrenzstelle.Name = "cboGrenzstelle"
Me.cboGrenzstelle.Size = New System.Drawing.Size(74, 28)
Me.cboGrenzstelle.TabIndex = 20
@@ -715,6 +723,7 @@ Partial Class frmEintragAviso
'
'grpAviso
'
Me.grpAviso.Controls.Add(Me.PictureBox1)
Me.grpAviso.Controls.Add(Me.lblErr_KdNr)
Me.grpAviso.Controls.Add(Me.Button5)
Me.grpAviso.Controls.Add(Me.lblErrVorraussuchtlEintreffen)
@@ -733,7 +742,6 @@ Partial Class frmEintragAviso
Me.grpAviso.Controls.Add(Me.Label16)
Me.grpAviso.Controls.Add(Me.cbxFrächterUnbekannt)
Me.grpAviso.Controls.Add(Me.btnAuftraggeber)
Me.grpAviso.Controls.Add(Me.UsrCntlTestsystem1)
Me.grpAviso.Controls.Add(Me.btnAvisiererKd)
Me.grpAviso.Controls.Add(Me.btnFraechterKd)
Me.grpAviso.Controls.Add(Me.lblErrImex)
@@ -744,24 +752,19 @@ Partial Class frmEintragAviso
Me.grpAviso.Controls.Add(Me.lblErr_Frächter)
Me.grpAviso.Controls.Add(Me.lblErr_LKW)
Me.grpAviso.Controls.Add(Me.lblErr_Grenzstelle)
Me.grpAviso.Controls.Add(Me.lblErrFmZollKdNr)
Me.grpAviso.Controls.Add(Me.Button1)
Me.grpAviso.Controls.Add(Me.btnAbsSrch)
Me.grpAviso.Controls.Add(Me.cbxHandling)
Me.grpAviso.Controls.Add(Me.cboGrenzstelle)
Me.grpAviso.Controls.Add(Me.Label10)
Me.grpAviso.Controls.Add(Me.dtpAvisoEingangDatum)
Me.grpAviso.Controls.Add(Me.optOhneAviso)
Me.grpAviso.Controls.Add(Me.Label12)
Me.grpAviso.Controls.Add(Me.optAvisoEingang)
Me.grpAviso.Controls.Add(Me.dtpAvisoEingangZeit)
Me.grpAviso.Controls.Add(Me.Label11)
Me.grpAviso.Controls.Add(Me.Label4)
Me.grpAviso.Controls.Add(Me.txtInfo)
Me.grpAviso.Controls.Add(Me.lblAtrAvis)
Me.grpAviso.Controls.Add(Me.lblAtr)
Me.grpAviso.Controls.Add(Me.Label17)
Me.grpAviso.Controls.Add(Me.Label3)
Me.grpAviso.Controls.Add(Me.Label5)
Me.grpAviso.Controls.Add(Me.cbxAuftraggeberfurAlleSendungen)
Me.grpAviso.Controls.Add(Me.Label6)
@@ -771,7 +774,7 @@ Partial Class frmEintragAviso
Me.grpAviso.Controls.Add(Me.pnl)
Me.grpAviso.Location = New System.Drawing.Point(12, 45)
Me.grpAviso.Name = "grpAviso"
Me.grpAviso.Size = New System.Drawing.Size(403, 520)
Me.grpAviso.Size = New System.Drawing.Size(403, 406)
Me.grpAviso.TabIndex = 5
Me.grpAviso.TabStop = False
Me.grpAviso.Text = "Aviso"
@@ -942,7 +945,7 @@ Partial Class frmEintragAviso
Me.sbLkwNationalitaet.INVISIBLE_COLUMNS = Nothing
Me.sbLkwNationalitaet.key_visible = False
Me.sbLkwNationalitaet.KEYPARAM = Nothing
Me.sbLkwNationalitaet.Location = New System.Drawing.Point(178, 141)
Me.sbLkwNationalitaet.Location = New System.Drawing.Point(189, 141)
Me.sbLkwNationalitaet.MaxLength = 5
Me.sbLkwNationalitaet.Name = "sbLkwNationalitaet"
Me.sbLkwNationalitaet.searchActive = True
@@ -957,7 +960,7 @@ Partial Class frmEintragAviso
'Label18
'
Me.Label18.AutoSize = True
Me.Label18.Location = New System.Drawing.Point(176, 125)
Me.Label18.Location = New System.Drawing.Point(187, 125)
Me.Label18.Name = "Label18"
Me.Label18.Size = New System.Drawing.Size(27, 13)
Me.Label18.TabIndex = 15
@@ -1036,18 +1039,6 @@ Partial Class frmEintragAviso
Me.btnAuftraggeber.UseVisualStyleBackColor = True
Me.btnAuftraggeber.Visible = False
'
'UsrCntlTestsystem1
'
Me.UsrCntlTestsystem1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.UsrCntlTestsystem1.BackColor = System.Drawing.Color.Transparent
Me.UsrCntlTestsystem1.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.UsrCntlTestsystem1.ForeColor = System.Drawing.Color.Red
Me.UsrCntlTestsystem1.Location = New System.Drawing.Point(49, 453)
Me.UsrCntlTestsystem1.Margin = New System.Windows.Forms.Padding(5, 6, 5, 6)
Me.UsrCntlTestsystem1.Name = "UsrCntlTestsystem1"
Me.UsrCntlTestsystem1.Size = New System.Drawing.Size(152, 28)
Me.UsrCntlTestsystem1.TabIndex = 51
'
'btnAvisiererKd
'
Me.btnAvisiererKd.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
@@ -1101,7 +1092,7 @@ Partial Class frmEintragAviso
Me.cboImEx.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboImEx.FormattingEnabled = True
Me.cboImEx.Items.AddRange(New Object() {"", "IMPORT", "EXPORT"})
Me.cboImEx.Location = New System.Drawing.Point(312, 139)
Me.cboImEx.Location = New System.Drawing.Point(323, 139)
Me.cboImEx.Name = "cboImEx"
Me.cboImEx.Size = New System.Drawing.Size(79, 28)
Me.cboImEx.TabIndex = 21
@@ -1111,7 +1102,7 @@ Partial Class frmEintragAviso
'
Me.Label1.AutoSize = True
Me.Label1.ForeColor = System.Drawing.Color.Black
Me.Label1.Location = New System.Drawing.Point(309, 125)
Me.Label1.Location = New System.Drawing.Point(320, 125)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(35, 13)
Me.Label1.TabIndex = 17
@@ -1173,18 +1164,6 @@ Partial Class frmEintragAviso
Me.lblErr_Grenzstelle.Text = "Grenzstelle eingeben!"
Me.lblErr_Grenzstelle.Visible = False
'
'lblErrFmZollKdNr
'
Me.lblErrFmZollKdNr.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.lblErrFmZollKdNr.AutoSize = True
Me.lblErrFmZollKdNr.ForeColor = System.Drawing.Color.Red
Me.lblErrFmZollKdNr.Location = New System.Drawing.Point(176, 431)
Me.lblErrFmZollKdNr.Name = "lblErrFmZollKdNr"
Me.lblErrFmZollKdNr.Size = New System.Drawing.Size(156, 26)
Me.lblErrFmZollKdNr.TabIndex = 50
Me.lblErrFmZollKdNr.Text = "Wenn möglich bitte die FM-Zoll " & Global.Microsoft.VisualBasic.ChrW(10) & "Zuordnung mit KdNr eintragen!"
Me.lblErrFmZollKdNr.Visible = False
'
'Button1
'
Me.Button1.FlatAppearance.BorderSize = 0
@@ -1202,7 +1181,7 @@ Partial Class frmEintragAviso
Me.btnAbsSrch.FlatAppearance.BorderSize = 0
Me.btnAbsSrch.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAbsSrch.Image = CType(resources.GetObject("btnAbsSrch.Image"), System.Drawing.Image)
Me.btnAbsSrch.Location = New System.Drawing.Point(360, 112)
Me.btnAbsSrch.Location = New System.Drawing.Point(447, 411)
Me.btnAbsSrch.Name = "btnAbsSrch"
Me.btnAbsSrch.Size = New System.Drawing.Size(37, 20)
Me.btnAbsSrch.TabIndex = 12
@@ -1303,7 +1282,7 @@ Partial Class frmEintragAviso
'
Me.cbxWarenort.AutoSize = True
Me.cbxWarenort.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.cbxWarenort.Location = New System.Drawing.Point(300, 4)
Me.cbxWarenort.Location = New System.Drawing.Point(321, 4)
Me.cbxWarenort.Name = "cbxWarenort"
Me.cbxWarenort.Size = New System.Drawing.Size(70, 17)
Me.cbxWarenort.TabIndex = 2
@@ -1328,7 +1307,7 @@ Partial Class frmEintragAviso
Me.txtBestimmungszollstelle.MaxLength = 50
Me.txtBestimmungszollstelle.Name = "txtBestimmungszollstelle"
Me.txtBestimmungszollstelle.searchActive = True
Me.txtBestimmungszollstelle.Size = New System.Drawing.Size(239, 20)
Me.txtBestimmungszollstelle.Size = New System.Drawing.Size(265, 20)
Me.txtBestimmungszollstelle.SQL_ORDER_BY = Nothing
Me.txtBestimmungszollstelle.SQL_SELECT = Nothing
Me.txtBestimmungszollstelle.SQL_WHERE = Nothing
@@ -1345,6 +1324,30 @@ Partial Class frmEintragAviso
Me.lblZA.TabIndex = 0
Me.lblZA.Text = "Zollamt:"
'
'UsrCntlTestsystem1
'
Me.UsrCntlTestsystem1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.UsrCntlTestsystem1.BackColor = System.Drawing.Color.Transparent
Me.UsrCntlTestsystem1.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.UsrCntlTestsystem1.ForeColor = System.Drawing.Color.Red
Me.UsrCntlTestsystem1.Location = New System.Drawing.Point(464, 658)
Me.UsrCntlTestsystem1.Margin = New System.Windows.Forms.Padding(5, 6, 5, 6)
Me.UsrCntlTestsystem1.Name = "UsrCntlTestsystem1"
Me.UsrCntlTestsystem1.Size = New System.Drawing.Size(152, 28)
Me.UsrCntlTestsystem1.TabIndex = 51
'
'lblErrFmZollKdNr
'
Me.lblErrFmZollKdNr.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.lblErrFmZollKdNr.AutoSize = True
Me.lblErrFmZollKdNr.ForeColor = System.Drawing.Color.Red
Me.lblErrFmZollKdNr.Location = New System.Drawing.Point(591, 636)
Me.lblErrFmZollKdNr.Name = "lblErrFmZollKdNr"
Me.lblErrFmZollKdNr.Size = New System.Drawing.Size(156, 26)
Me.lblErrFmZollKdNr.TabIndex = 50
Me.lblErrFmZollKdNr.Text = "Wenn möglich bitte die FM-Zoll " & Global.Microsoft.VisualBasic.ChrW(10) & "Zuordnung mit KdNr eintragen!"
Me.lblErrFmZollKdNr.Visible = False
'
'grp
'
Me.grp.Controls.Add(Me.optUnbekannt)
@@ -1647,7 +1650,7 @@ Partial Class frmEintragAviso
Me.cbxAktenzettelDrucken.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.cbxAktenzettelDrucken.BackColor = System.Drawing.Color.WhiteSmoke
Me.cbxAktenzettelDrucken.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxAktenzettelDrucken.Location = New System.Drawing.Point(12, 571)
Me.cbxAktenzettelDrucken.Location = New System.Drawing.Point(12, 620)
Me.cbxAktenzettelDrucken.Name = "cbxAktenzettelDrucken"
Me.cbxAktenzettelDrucken.Size = New System.Drawing.Size(403, 33)
Me.cbxAktenzettelDrucken.TabIndex = 11
@@ -1663,7 +1666,7 @@ Partial Class frmEintragAviso
Me.cboPrinter.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.cboPrinter.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboPrinter.FormattingEnabled = True
Me.cboPrinter.Location = New System.Drawing.Point(209, 576)
Me.cboPrinter.Location = New System.Drawing.Point(209, 625)
Me.cboPrinter.Name = "cboPrinter"
Me.cboPrinter.Size = New System.Drawing.Size(206, 21)
Me.cboPrinter.TabIndex = 12
@@ -1682,12 +1685,12 @@ Partial Class frmEintragAviso
Me.dgvAnhaenge.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvAnhaenge.ColumnHeadersVisible = False
Me.dgvAnhaenge.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.columnName, Me.clmnPfad})
Me.dgvAnhaenge.Location = New System.Drawing.Point(424, 321)
Me.dgvAnhaenge.Location = New System.Drawing.Point(424, 395)
Me.dgvAnhaenge.Name = "dgvAnhaenge"
Me.dgvAnhaenge.ReadOnly = True
Me.dgvAnhaenge.RowHeadersVisible = False
Me.dgvAnhaenge.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvAnhaenge.Size = New System.Drawing.Size(360, 327)
Me.dgvAnhaenge.Size = New System.Drawing.Size(360, 205)
Me.dgvAnhaenge.TabIndex = 14
Me.dgvAnhaenge.Visible = False
'
@@ -1714,13 +1717,68 @@ Partial Class frmEintragAviso
Me.UsrCntlEintragAvisoAtilla.TabIndex = 6
Me.UsrCntlEintragAvisoAtilla.Visible = False
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.dgvVorpapier)
Me.GroupBox1.Location = New System.Drawing.Point(12, 455)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(403, 150)
Me.GroupBox1.TabIndex = 56
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Vorpapiere"
'
'dgvVorpapier
'
Me.dgvVorpapier.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvVorpapier.AllowUserToResizeColumns = False
Me.dgvVorpapier.AllowUserToResizeRows = False
Me.dgvVorpapier.BackgroundColor = System.Drawing.Color.White
Me.dgvVorpapier.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvVorpapier.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnArt, Me.clmnMRN})
Me.dgvVorpapier.Location = New System.Drawing.Point(9, 19)
Me.dgvVorpapier.Name = "dgvVorpapier"
Me.dgvVorpapier.RowHeadersWidth = 25
Me.dgvVorpapier.Size = New System.Drawing.Size(388, 126)
Me.dgvVorpapier.TabIndex = 36
'
'clmnArt
'
Me.clmnArt.DisplayStyle = System.Windows.Forms.DataGridViewComboBoxDisplayStyle.ComboBox
Me.clmnArt.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.clmnArt.HeaderText = "Art"
Me.clmnArt.Items.AddRange(New Object() {"ATA", "MRN", "CRN"})
Me.clmnArt.Name = "clmnArt"
Me.clmnArt.Resizable = System.Windows.Forms.DataGridViewTriState.[True]
Me.clmnArt.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Automatic
Me.clmnArt.Visible = False
Me.clmnArt.Width = 60
'
'clmnMRN
'
Me.clmnMRN.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.clmnMRN.HeaderText = "T1 MRN"
Me.clmnMRN.Name = "clmnMRN"
'
'PictureBox1
'
Me.PictureBox1.BackgroundImage = Global.AVISO.My.Resources.Resources.lorry
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox1.Location = New System.Drawing.Point(3, 143)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(22, 24)
Me.PictureBox1.TabIndex = 48
Me.PictureBox1.TabStop = False
'
'frmEintragAviso
'
Me.AcceptButton = Me.btnOK
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(792, 654)
Me.ClientSize = New System.Drawing.Size(792, 728)
Me.Controls.Add(Me.btnAbsSrch)
Me.Controls.Add(Me.panAdmin)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.grp)
Me.Controls.Add(Me.txtDyRef)
Me.Controls.Add(Me.picDy)
@@ -1729,7 +1787,6 @@ Partial Class frmEintragAviso
Me.Controls.Add(Me.cboPrinter)
Me.Controls.Add(Me.cbxSendungsvorlagen)
Me.Controls.Add(Me.Button3)
Me.Controls.Add(Me.panAdmin)
Me.Controls.Add(Me.grpAktVerzollung)
Me.Controls.Add(Me.grpAviso)
Me.Controls.Add(Me.Label15)
@@ -1739,10 +1796,15 @@ Partial Class frmEintragAviso
Me.Controls.Add(Me.txtÄnderungen)
Me.Controls.Add(Me.dtpDatum)
Me.Controls.Add(Me.btnAbbruch)
Me.Controls.Add(Me.UsrCntlTestsystem1)
Me.Controls.Add(Me.Label9)
Me.Controls.Add(Me.btnOK)
Me.Controls.Add(Me.cbxAktenzettelDrucken)
Me.Controls.Add(Me.UsrCntlEintragAvisoAtilla)
Me.Controls.Add(Me.txtInfo)
Me.Controls.Add(Me.lblErrFmZollKdNr)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label12)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.KeyPreview = True
@@ -1766,6 +1828,9 @@ Partial Class frmEintragAviso
Me.pnlSBG.ResumeLayout(False)
Me.pnlSBG.PerformLayout()
CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox1.ResumeLayout(False)
CType(Me.dgvVorpapier, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
@@ -1892,4 +1957,9 @@ Partial Class frmEintragAviso
Friend WithEvents lblErr_KdNr As Label
Friend WithEvents cbxWarenort As CheckBox
Friend WithEvents pnl As Panel
Friend WithEvents GroupBox1 As GroupBox
Friend WithEvents dgvVorpapier As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents clmnArt As DataGridViewComboBoxColumn
Friend WithEvents clmnMRN As DataGridViewTextBoxColumn
Friend WithEvents PictureBox1 As PictureBox
End Class

18
Aviso/frmEintragAviso.resx
View File

@@ -216,6 +216,24 @@
<metadata name="clmnPfad.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="columnName.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnPfad.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnArt.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnMRN.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnArt.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnMRN.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAgIAAAAEAIAAoCAEAFgAAACgAAACAAAAAAAEAAAEAIAAAAAAAAAgBABMLAAATCwAAAAAAAAAA

28
Aviso/frmEintragAviso.vb
View File

@@ -395,7 +395,12 @@ Public Class frmEintragAviso
panAdmin.Visible = bearb 'Administrator bekommt mehr Edit-Möglichkeiten
End If
'Vorpapier laden
dgvVorpapier.Rows.Clear()
myAviso.LOAD_Vorpapiere()
For Each VP In myAviso.VORPAPIERE
dgvVorpapier.Rows.Add({VP.vp_Art, VP.vp_Nr})
Next
' If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then
@@ -916,10 +921,27 @@ Public Class frmEintragAviso
myAviso.TransportTemperatur = SDL.cProgramFunctions.isLeerNothing(UsrCntlEintragAvisoAtilla.txtTransporttemp.Text)
myAviso.Zugmaschine = SDL.cProgramFunctions.isLeerNothing(UsrCntlEintragAvisoAtilla.txtZugmaschine.Text)
End If
Dim tmpId = AvisoDAL.SpeichernAviso(myAviso)
myAviso.AvisoID = tmpId
AvisoDAL.addAenderung(tmpId, aendart, aendText)
'VORPAPIERE
myAviso.VORPAPIERE.Clear()
For Each r As DataGridViewRow In dgvVorpapier.Rows
If r.Cells("clmnMRN").Value IsNot Nothing AndAlso r.Cells("clmnMRN").Value <> "" Then
Dim VP As New cAvisoVorpapier
VP.vp_AvisoId = tmpId
VP.vp_Nr = r.Cells("clmnMRN").Value
VP.vp_Art = "T1" 'r.Cells("clmnMRN").Value
myAviso.VORPAPIERE.Add(VP)
End If
Next
AvisoDAL.SpeichernAvisoVorpapiere(tmpId, myAviso.VORPAPIERE)
'Infotext als Vermerk:
If txtInfo.Text.Trim <> "" Then
If txtInfo.Text.Length <= 80 Then
@@ -1697,4 +1719,8 @@ Public Class frmEintragAviso
MsgBox(ex.Message & ex.StackTrace)
End Try
End Sub
Private Sub Button5_Click_1(sender As Object, e As EventArgs) Handles Button5.Click
End Sub
End Class

10
Aviso/frmHauptfenster.vb
View File

@@ -627,7 +627,12 @@ Public Class frmHauptfenster
'Else
'r.Cells("LKW_fertig").Style.BackColor = Color.White
End If
If r.Cells("LKW_fertig").Value = "DE" Then
r.Cells("LKW_fertig").Style.ForeColor = Color.White
r.Cells("LKW_fertig").Style.BackColor = Color.Green
'Else
'r.Cells("LKW_fertig").Style.BackColor = Color.White
End If
Next
End With
@@ -742,7 +747,7 @@ Public Class frmHauptfenster
Dim hSQL As String = "SELECT " & top & " AvisoID, Status, LKW_Nr, Auftraggeber, Frächter,VoraussichtlichesEintreffen, AvisoEingang, Ankunft, Dauer, Grenzstelle,letzterMitarbeiter, CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig], Datum, Vorbereitet, Vorgeschrieben, Freigabe, "
Dim hSQL As String = "SELECT " & top & " AvisoID, Status, LKW_Nr, Auftraggeber, Frächter,VoraussichtlichesEintreffen, AvisoEingang, Ankunft, Dauer, Grenzstelle,letzterMitarbeiter,CASE WHEN [ZOLLDigitalEingereicht] = 1 THEN 'DE' ELSE CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END END AS [LKW_fertig], Datum, Vorbereitet, Vorgeschrieben, Freigabe, "
hSQL &= " Telefonisch, Info,Handling,AvisoTVHinweis,DATEDIFF(DAY,getdate(),[VoraussichtlichesEintreffen]) TageBisEintreffen "
hSQL &= " FROM Aviso "
hSQL &= " WHERE 1=1 "
@@ -1245,6 +1250,7 @@ Public Class frmHauptfenster
If r.Cells("LKW_fertig").Value = "OK" Then r.Cells("LKW_fertig").Style.BackColor = Color.FromArgb(0, 54, 128)
If r.Cells("LKW_fertig").Value = "DE" Then r.Cells("LKW_fertig").Style.BackColor = Color.Green
If r.Cells("Dauer").Value > 120 Then r.Cells("DauerText").Style.ForeColor = Color.Red
' MsgBox(r.Cells("Dauer").Value)

82
Aviso/frmSendungsdetailsNEU.Designer.vb generated
View File

@@ -339,6 +339,10 @@ Partial Class frmSendungsdetailsNEU
Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ToolStripMenuItem14 = New System.Windows.Forms.ToolStripMenuItem()
Me.NurÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.cboVorpapier = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label47 = New System.Windows.Forms.Label()
Me.txtVorpapierPos = New System.Windows.Forms.RichTextBox()
Me.Label48 = New System.Windows.Forms.Label()
Me.pnl.SuspendLayout()
Me.Panel4.SuspendLayout()
Me.TabControl1.SuspendLayout()
@@ -417,7 +421,7 @@ Partial Class frmSendungsdetailsNEU
Me.Panel4.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel4.Location = New System.Drawing.Point(0, 419)
Me.Panel4.Name = "Panel4"
Me.Panel4.Size = New System.Drawing.Size(1214, 380)
Me.Panel4.Size = New System.Drawing.Size(1214, 357)
Me.Panel4.TabIndex = 2
'
'TabControl1
@@ -432,7 +436,7 @@ Partial Class frmSendungsdetailsNEU
Me.TabControl1.Location = New System.Drawing.Point(0, 5)
Me.TabControl1.Name = "TabControl1"
Me.TabControl1.SelectedIndex = 0
Me.TabControl1.Size = New System.Drawing.Size(1214, 375)
Me.TabControl1.Size = New System.Drawing.Size(1214, 352)
Me.TabControl1.TabIndex = 1
'
'tbAnhang
@@ -441,7 +445,7 @@ Partial Class frmSendungsdetailsNEU
Me.tbAnhang.Controls.Add(Me.Panel19)
Me.tbAnhang.Location = New System.Drawing.Point(4, 22)
Me.tbAnhang.Name = "tbAnhang"
Me.tbAnhang.Size = New System.Drawing.Size(1206, 349)
Me.tbAnhang.Size = New System.Drawing.Size(1206, 326)
Me.tbAnhang.TabIndex = 4
Me.tbAnhang.Text = "Anhang"
Me.tbAnhang.UseVisualStyleBackColor = True
@@ -470,7 +474,7 @@ Partial Class frmSendungsdetailsNEU
Me.dgvAnhang.RowHeadersVisible = False
Me.dgvAnhang.RowTemplate.Height = 40
Me.dgvAnhang.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvAnhang.Size = New System.Drawing.Size(1206, 304)
Me.dgvAnhang.Size = New System.Drawing.Size(1206, 281)
Me.dgvAnhang.TabIndex = 1
'
'cntxtAnh
@@ -3863,6 +3867,10 @@ Partial Class frmSendungsdetailsNEU
'
'Panel7
'
Me.Panel7.Controls.Add(Me.Label48)
Me.Panel7.Controls.Add(Me.txtVorpapierPos)
Me.Panel7.Controls.Add(Me.Label47)
Me.Panel7.Controls.Add(Me.cboVorpapier)
Me.Panel7.Controls.Add(Me.lblgesGewicht)
Me.Panel7.Controls.Add(Me.lblGesColli)
Me.Panel7.Controls.Add(Me.Label44)
@@ -3874,17 +3882,17 @@ Partial Class frmSendungsdetailsNEU
Me.Panel7.Controls.Add(Me.btn)
Me.Panel7.Controls.Add(Me.cbxSpedBuch)
Me.Panel7.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Panel7.Location = New System.Drawing.Point(0, 799)
Me.Panel7.Location = New System.Drawing.Point(0, 776)
Me.Panel7.MinimumSize = New System.Drawing.Size(0, 51)
Me.Panel7.Name = "Panel7"
Me.Panel7.Size = New System.Drawing.Size(1214, 64)
Me.Panel7.Size = New System.Drawing.Size(1214, 87)
Me.Panel7.TabIndex = 3
'
'lblgesGewicht
'
Me.lblgesGewicht.AutoSize = True
Me.lblgesGewicht.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblgesGewicht.Location = New System.Drawing.Point(383, 33)
Me.lblgesGewicht.Location = New System.Drawing.Point(480, 59)
Me.lblgesGewicht.Name = "lblgesGewicht"
Me.lblgesGewicht.Size = New System.Drawing.Size(64, 13)
Me.lblgesGewicht.TabIndex = 9
@@ -3894,7 +3902,7 @@ Partial Class frmSendungsdetailsNEU
'
Me.lblGesColli.AutoSize = True
Me.lblGesColli.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblGesColli.Location = New System.Drawing.Point(383, 18)
Me.lblGesColli.Location = New System.Drawing.Point(480, 44)
Me.lblGesColli.Name = "lblGesColli"
Me.lblGesColli.Size = New System.Drawing.Size(37, 13)
Me.lblGesColli.TabIndex = 8
@@ -3903,7 +3911,7 @@ Partial Class frmSendungsdetailsNEU
'Label44
'
Me.Label44.AutoSize = True
Me.Label44.Location = New System.Drawing.Point(383, 3)
Me.Label44.Location = New System.Drawing.Point(428, 44)
Me.Label44.Name = "Label44"
Me.Label44.Size = New System.Drawing.Size(46, 13)
Me.Label44.TabIndex = 7
@@ -3912,16 +3920,16 @@ Partial Class frmSendungsdetailsNEU
'lblGrenze
'
Me.lblGrenze.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
Me.lblGrenze.Location = New System.Drawing.Point(137, 15)
Me.lblGrenze.Location = New System.Drawing.Point(204, 39)
Me.lblGrenze.Name = "lblGrenze"
Me.lblGrenze.Size = New System.Drawing.Size(236, 44)
Me.lblGrenze.Size = New System.Drawing.Size(227, 44)
Me.lblGrenze.TabIndex = 6
Me.lblGrenze.Text = "SUB"
'
'Label15
'
Me.Label15.AutoSize = True
Me.Label15.Location = New System.Drawing.Point(137, 0)
Me.Label15.Location = New System.Drawing.Point(138, 44)
Me.Label15.Name = "Label15"
Me.Label15.Size = New System.Drawing.Size(44, 13)
Me.Label15.TabIndex = 4
@@ -3934,7 +3942,7 @@ Partial Class frmSendungsdetailsNEU
Me.Button17.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.Button17.Image = Global.AVISO.My.Resources.Resources.vermerk
Me.Button17.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button17.Location = New System.Drawing.Point(485, 6)
Me.Button17.Location = New System.Drawing.Point(590, 6)
Me.Button17.Name = "Button17"
Me.Button17.Padding = New System.Windows.Forms.Padding(0, 0, 10, 0)
Me.Button17.Size = New System.Drawing.Size(98, 40)
@@ -3952,7 +3960,7 @@ Partial Class frmSendungsdetailsNEU
Me.Panel3.Dock = System.Windows.Forms.DockStyle.Right
Me.Panel3.Location = New System.Drawing.Point(691, 0)
Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(228, 64)
Me.Panel3.Size = New System.Drawing.Size(228, 87)
Me.Panel3.TabIndex = 2
'
'btnDelQS
@@ -4013,7 +4021,7 @@ Partial Class frmSendungsdetailsNEU
Me.Panel9.Dock = System.Windows.Forms.DockStyle.Right
Me.Panel9.Location = New System.Drawing.Point(919, 0)
Me.Panel9.Name = "Panel9"
Me.Panel9.Size = New System.Drawing.Size(295, 64)
Me.Panel9.Size = New System.Drawing.Size(295, 87)
Me.Panel9.TabIndex = 3
'
'Button10
@@ -4360,6 +4368,46 @@ Partial Class frmSendungsdetailsNEU
Me.NurÖffnenToolStripMenuItem.Size = New System.Drawing.Size(247, 22)
Me.NurÖffnenToolStripMenuItem.Text = "nur öffnen"
'
'cboVorpapier
'
Me.cboVorpapier._allowedValuesFreiText = Nothing
Me.cboVorpapier._allowFreiText = True
Me.cboVorpapier._value = ""
Me.cboVorpapier.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.cboVorpapier.FormattingEnabled = True
Me.cboVorpapier.Location = New System.Drawing.Point(208, 9)
Me.cboVorpapier.Name = "cboVorpapier"
Me.cboVorpapier.Size = New System.Drawing.Size(239, 24)
Me.cboVorpapier.TabIndex = 10
'
'Label47
'
Me.Label47.AutoSize = True
Me.Label47.Location = New System.Drawing.Point(138, 9)
Me.Label47.Name = "Label47"
Me.Label47.Size = New System.Drawing.Size(59, 26)
Me.Label47.TabIndex = 11
Me.Label47.Text = "Zuweisung" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Vorpapier:"
'
'txtVorpapierPos
'
Me.txtVorpapierPos.Cursor = System.Windows.Forms.Cursors.IBeam
Me.txtVorpapierPos.Location = New System.Drawing.Point(483, 6)
Me.txtVorpapierPos.MaxLength = 500
Me.txtVorpapierPos.Name = "txtVorpapierPos"
Me.txtVorpapierPos.Size = New System.Drawing.Size(100, 29)
Me.txtVorpapierPos.TabIndex = 12
Me.txtVorpapierPos.Text = ""
'
'Label48
'
Me.Label48.AutoSize = True
Me.Label48.Location = New System.Drawing.Point(453, 14)
Me.Label48.Name = "Label48"
Me.Label48.Size = New System.Drawing.Size(28, 13)
Me.Label48.TabIndex = 13
Me.Label48.Text = "Pos:"
'
'frmSendungsdetailsNEU
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
@@ -4760,4 +4808,8 @@ Partial Class frmSendungsdetailsNEU
Friend WithEvents btnUIDPruef As Button
Friend WithEvents Panel21 As Panel
Friend WithEvents Label53 As Label
Friend WithEvents Label48 As Label
Friend WithEvents txtVorpapierPos As RichTextBox
Friend WithEvents Label47 As Label
Friend WithEvents cboVorpapier As VERAG_PROG_ALLGEMEIN.MyComboBox
End Class

36
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -29,6 +29,7 @@ Public Class frmSendungsdetailsNEU
Dim usrcntl_NCTS As usrCntlSND_NCTSGestellungsadresse
Dim usrcntl_FISKAL As usrCntlSND_NCTSFiskalEndempf
Dim usrcntl_ATA As usrCntlSND_Handling
Dim usrcntl_ATB As usrCntlSND_ATBGestellung
Sub New()
@@ -240,6 +241,12 @@ Public Class frmSendungsdetailsNEU
End If
cboVorpapier.Items.Clear()
AVISO.LOAD_Vorpapiere()
For Each VP In AVISO.VORPAPIERE
cboVorpapier.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(VP.vp_Nr, VP.vp_Nr))
Next
If AVISO.Abgeschlossen Then
Label8.Visible = True
End If
@@ -1129,6 +1136,11 @@ Public Class frmSendungsdetailsNEU
txtFrachtfuehrer.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Frachtfuehrer 'IIf(SENDUNG_LIST(CURRENT_INDEX).tblSnd_frachtfuehrer Is Nothing, "", SENDUNG_LIST(CURRENT_INDEX).tblSnd_frachtfuehrer)
End If
cboVorpapier.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Vorpapier
txtVorpapierPos.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Vorpapier_Pos
initFraechterAvisererFromAkt()
''Übergangsphase Aviso/Sendung
'If txtAvisierer.Text = "" And txtAvisierer.Enabled And (VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(cboFiliale._value) = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX") Then
@@ -1161,12 +1173,18 @@ Public Class frmSendungsdetailsNEU
usrcntl_NCTS.reset()
usrcntl_FISKAL.reset()
usrcntl_ATA = New usrCntlSND_Handling(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID)
usrcntl_ATB = New usrCntlSND_ATBGestellung(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID)
AddHandler usrcntl_ATA.HandlingWerte, Sub(colli, gewicht)
txtColli.Text = colli
txtGewicht.Text = gewicht
End Sub
'AddHandler usrcntl_ATB.HandlingWerte, Sub(colli, gewicht)
' txtColli.Text = colli
' txtGewicht.Text = gewicht
' End Sub
' txtT1Verzollungsadresse.Text = ""
Select Case SENDUNG_LIST(CURRENT_INDEX).tblSnd_Abfertigungsart_ID
Case 5, 6
@@ -1195,6 +1213,11 @@ Public Class frmSendungsdetailsNEU
usrcntl_ATA.txtATAold.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATANr, "")
usrcntl_ATA.txtATCMRNFremd.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATCMRN_Fremd, "")
pnlT1.Controls.Add(usrcntl_ATA)
Case 44
usrcntl_ATB.txtATBT1.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATB_T1, "")
usrcntl_ATB.txtATbNr.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATB_Nr, "")
pnlT1.Controls.Add(usrcntl_ATB)
End Select
cboAbfertigungsart_SelectedIndexChanged(cboAbfertigungsart, New EventArgs)
@@ -1503,6 +1526,11 @@ Public Class frmSendungsdetailsNEU
SENDUNG_LIST(CURRENT_INDEX).HANDLING = usrcntl_ATA.GET_HANDLING() 'derzeit ohne Funktion
SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATANr = usrcntl_ATA.GET_HANDLING_STRING() 'derzeit ohne Funktion
End If
Case 44
If pnlT1.Controls.Count > 0 AndAlso pnlT1.Controls(0).GetType Is GetType(usrCntlSND_ATBGestellung) Then
SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATB_T1 = usrcntl_ATB.txtATBT1.Text
SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATB_Nr = usrcntl_ATB.txtATBNr.Text
End If
End Select
@@ -1524,6 +1552,12 @@ Public Class frmSendungsdetailsNEU
SENDUNG_LIST(CURRENT_INDEX).tblSnd_KdAuftragsNrAvisierer = txtKdAuftragsNrAvisierer.Text
SENDUNG_LIST(CURRENT_INDEX).tblSnd_KdAuftragsNrEmpfaenger = txtKdAuftragsNrEmpfaenger.Text
SENDUNG_LIST(CURRENT_INDEX).tblSnd_KdAuftragsNrFrachtfuehrer = txtKdAuftragsNrFrachtfuehrer.Text
SENDUNG_LIST(CURRENT_INDEX).tblSnd_Vorpapier = cboVorpapier.Text
SENDUNG_LIST(CURRENT_INDEX).tblSnd_Vorpapier_Pos = txtVorpapierPos.Text
End Sub
Function getint(o) As Integer
Try
@@ -1921,6 +1955,8 @@ Public Class frmSendungsdetailsNEU
pnlT1.Controls.Add(usrcntl_FISKAL)
Case "23"
pnlT1.Controls.Add(usrcntl_ATA)
Case "44"
pnlT1.Controls.Add(usrcntl_ATB)
End Select

164
Aviso/usrCntlSND_ATBGestellung.Designer.vb generated Normal file
View File

@@ -0,0 +1,164 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class usrCntlSND_ATBGestellung
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.pnlT1 = New System.Windows.Forms.Panel()
Me.txtATBT1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.txtT1VerzollungsadresseBestimmungszollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.Label33 = New System.Windows.Forms.Label()
Me.txtATBNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.pnlT1.SuspendLayout()
Me.SuspendLayout()
'
'pnlT1
'
Me.pnlT1.Controls.Add(Me.txtATBNr)
Me.pnlT1.Controls.Add(Me.txtATBT1)
Me.pnlT1.Controls.Add(Me.Label4)
Me.pnlT1.Controls.Add(Me.Label3)
Me.pnlT1.Controls.Add(Me.txtT1VerzollungsadresseBestimmungszollstelle)
Me.pnlT1.Controls.Add(Me.Label33)
Me.pnlT1.Location = New System.Drawing.Point(0, 0)
Me.pnlT1.Name = "pnlT1"
Me.pnlT1.Size = New System.Drawing.Size(549, 101)
Me.pnlT1.TabIndex = 0
'
'txtATBT1
'
Me.txtATBT1._DateTimeOnly = False
Me.txtATBT1._numbersOnly = False
Me.txtATBT1._numbersOnlyKommastellen = ""
Me.txtATBT1._Prozent = False
Me.txtATBT1._ShortDateNew = False
Me.txtATBT1._ShortDateOnly = False
Me.txtATBT1._TimeOnly = False
Me.txtATBT1._value = ""
Me.txtATBT1._Waehrung = False
Me.txtATBT1._WaehrungZeichen = True
Me.txtATBT1.ForeColor = System.Drawing.Color.Black
Me.txtATBT1.Location = New System.Drawing.Point(121, 11)
Me.txtATBT1.MaxLineLength = -1
Me.txtATBT1.MaxLines_Warning = ""
Me.txtATBT1.MaxLines_Warning_Label = Nothing
Me.txtATBT1.Name = "txtATBT1"
Me.txtATBT1.Size = New System.Drawing.Size(269, 20)
Me.txtATBT1.TabIndex = 22
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.Location = New System.Drawing.Point(23, 33)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(92, 13)
Me.Label4.TabIndex = 20
Me.Label4.Text = "ATB / Gestellung:"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(23, 75)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(51, 13)
Me.Label3.TabIndex = 15
Me.Label3.Text = "Zollstelle:"
'
'txtT1VerzollungsadresseBestimmungszollstelle
'
Me.txtT1VerzollungsadresseBestimmungszollstelle._allowFreitext = False
Me.txtT1VerzollungsadresseBestimmungszollstelle._AllowSetValue = False
Me.txtT1VerzollungsadresseBestimmungszollstelle._allowSpaceAsSplitter = False
Me.txtT1VerzollungsadresseBestimmungszollstelle._autoSizeGross = False
Me.txtT1VerzollungsadresseBestimmungszollstelle._hideIfListEmpty = True
Me.txtT1VerzollungsadresseBestimmungszollstelle._value = Nothing
Me.txtT1VerzollungsadresseBestimmungszollstelle.conn_art = "FMZOLL"
Me.txtT1VerzollungsadresseBestimmungszollstelle.dgvpos = "LEFT"
Me.txtT1VerzollungsadresseBestimmungszollstelle.DISPLAY_PARAM = Nothing
Me.txtT1VerzollungsadresseBestimmungszollstelle.INVISIBLE_COLUMNS = Nothing
Me.txtT1VerzollungsadresseBestimmungszollstelle.key_visible = False
Me.txtT1VerzollungsadresseBestimmungszollstelle.KEYPARAM = Nothing
Me.txtT1VerzollungsadresseBestimmungszollstelle.Location = New System.Drawing.Point(121, 72)
Me.txtT1VerzollungsadresseBestimmungszollstelle.MaxLength = 8
Me.txtT1VerzollungsadresseBestimmungszollstelle.Name = "txtT1VerzollungsadresseBestimmungszollstelle"
Me.txtT1VerzollungsadresseBestimmungszollstelle.searchActive = True
Me.txtT1VerzollungsadresseBestimmungszollstelle.Size = New System.Drawing.Size(269, 20)
Me.txtT1VerzollungsadresseBestimmungszollstelle.SQL_ORDER_BY = Nothing
Me.txtT1VerzollungsadresseBestimmungszollstelle.SQL_SELECT = Nothing
Me.txtT1VerzollungsadresseBestimmungszollstelle.SQL_WHERE = Nothing
Me.txtT1VerzollungsadresseBestimmungszollstelle.SQL_WhereParamList = Nothing
Me.txtT1VerzollungsadresseBestimmungszollstelle.TabIndex = 16
Me.txtT1VerzollungsadresseBestimmungszollstelle.usrcntl = Nothing
'
'Label33
'
Me.Label33.AutoSize = True
Me.Label33.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label33.Location = New System.Drawing.Point(23, 14)
Me.Label33.Name = "Label33"
Me.Label33.Size = New System.Drawing.Size(79, 13)
Me.Label33.TabIndex = 3
Me.Label33.Text = "Vorpapier / T1:"
'
'txtATBNr
'
Me.txtATBNr._DateTimeOnly = False
Me.txtATBNr._numbersOnly = False
Me.txtATBNr._numbersOnlyKommastellen = ""
Me.txtATBNr._Prozent = False
Me.txtATBNr._ShortDateNew = False
Me.txtATBNr._ShortDateOnly = False
Me.txtATBNr._TimeOnly = False
Me.txtATBNr._value = ""
Me.txtATBNr._Waehrung = False
Me.txtATBNr._WaehrungZeichen = True
Me.txtATBNr.ForeColor = System.Drawing.Color.Black
Me.txtATBNr.Location = New System.Drawing.Point(121, 30)
Me.txtATBNr.MaxLineLength = -1
Me.txtATBNr.MaxLines_Warning = ""
Me.txtATBNr.MaxLines_Warning_Label = Nothing
Me.txtATBNr.Name = "txtATBNr"
Me.txtATBNr.Size = New System.Drawing.Size(269, 20)
Me.txtATBNr.TabIndex = 23
'
'usrCntlSND_ATBGestellung
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.pnlT1)
Me.Name = "usrCntlSND_ATBGestellung"
Me.Size = New System.Drawing.Size(549, 94)
Me.pnlT1.ResumeLayout(False)
Me.pnlT1.PerformLayout()
Me.ResumeLayout(False)
End Sub
Friend WithEvents pnlT1 As System.Windows.Forms.Panel
Friend WithEvents Label33 As System.Windows.Forms.Label
Friend WithEvents txtT1VerzollungsadresseBestimmungszollstelle As VERAG_PROG_ALLGEMEIN.MySearchBox
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents txtATBT1 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label4 As Label
Friend WithEvents txtATBNr As VERAG_PROG_ALLGEMEIN.MyTextBox
End Class

120
Aviso/usrCntlSND_ATBGestellung.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>

49
Aviso/usrCntlSND_ATBGestellung.vb Normal file
View File

@@ -0,0 +1,49 @@
Public Class usrCntlSND_ATBGestellung
'Public NCTS_GA As VERAG_PROG_ALLGEMEIN.cNCTSGestellungsadressen
Sub New(SendungsId)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
'Public Sub setValues()
' txtATBT1.Text = If(NCTS_GA.nga_name, "")
' txtT1VerzollungsadresseStrasse.Text = If(NCTS_GA.nga_strasse, "")
' txtT1VerzollungsadressePlz.Text = If(NCTS_GA.nga_plz, "")
' txtT1VerzollungsadresseOrt.Text = If(NCTS_GA.nga_ort, "")
' sbT1VerzollungsadresseLand.SET_VALUE(If(NCTS_GA.nga_land, ""))
' txtT1VerzollungsadresseAnspr.Text = If(NCTS_GA.nga_Ansprechpartner, "")
' txtT1VerzollungsadresseEORI.Text = If(NCTS_GA.nga_EORI, "")
' txtT1VerzollungsadresseEORI_NL.Text = If(NCTS_GA.nga_EORI_NL, "")
' txtT1VerzollungsadresseBestimmungszollstelle.SET_VALUE(If(NCTS_GA.nga_bestZollst, ""))
' lblNGAId.Text = If(NCTS_GA.nga_id > 0, NCTS_GA.nga_id, "-")
' picDel.Visible = (NCTS_GA.nga_id > 0)
'End Sub
'Public Sub getValues()
' NCTS_GA.nga_name = txtATBT1.Text
' NCTS_GA.nga_strasse = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtT1VerzollungsadresseStrasse.Text)
' NCTS_GA.nga_plz = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtT1VerzollungsadressePlz.Text)
' NCTS_GA.nga_ort = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtT1VerzollungsadresseOrt.Text)
' NCTS_GA.nga_land = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(sbT1VerzollungsadresseLand._value)
' NCTS_GA.nga_Ansprechpartner = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtT1VerzollungsadresseAnspr.Text)
' NCTS_GA.nga_EORI = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtT1VerzollungsadresseEORI.Text)
' NCTS_GA.nga_EORI_NL = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtT1VerzollungsadresseEORI_NL.Text)
' NCTS_GA.nga_bestZollst = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtT1VerzollungsadresseBestimmungszollstelle._value)
'End Sub
End Class

628
Aviso/usrcntlAktDetails.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

129
Aviso/usrcntlAktDetails.vb
View File

@@ -919,6 +919,14 @@ Public Class usrcntlAktDetails
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
Case "90"
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
myVermerk.VermerkCodeId = 93
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
Case "13"
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
myVermerk.VermerkCodeId = 14
@@ -1022,6 +1030,17 @@ Public Class usrcntlAktDetails
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If
End If
Case "82"
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("eingereicht", "fertig")
myVermerk.VermerkCodeId = 83
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
VermerkeDAL.UpdateLKW(myVermerk.AvisoID, False)
' avisoAktualisierenAktiveIdBehalten(myVermerk.AvisoID)
'Vermerke_aktualisieren()
init = True ' Vermerke_anzeigen(e.RowIndex)
End Select
loaded = False
' Dim tmpIndex = -1
@@ -1089,6 +1108,11 @@ Public Class usrcntlAktDetails
optionCell.Value = "CMR erhalten"
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'CMR erhalten' einzutragen."
End If
Case 90
If Not existCodeInGridVermerke(93, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
optionCell.Value = "Packliste erhalten"
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Packliste erhalten' einzutragen."
End If
Case 13
If r.Cells("VorauskasseId").Value IsNot DBNull.Value Then
@@ -1165,6 +1189,11 @@ Public Class usrcntlAktDetails
optionCell.Value = "ATB-Nr. erhalten"
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'ATB-Nr. erhalten' einzutragen."
End If
Case 82
If Not existCodeInGridVermerke(83) Then
optionCell.Value = "DE-ZOLL fertig"
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'DE-ZOLL (DIGITAL) fertig' einzutragen."
End If
End Select
End If
@@ -2602,9 +2631,11 @@ Public Class usrcntlAktDetails
End If
End Sub
Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click, Button15.Click
pnlDetailsRechts.Cursor = Cursors.WaitCursor
Dim loadAttachRg = True ' (sender Is Button15)
Dim ANH_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge)
VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.LOAD_LIST_ByAviso(ANH_LIST, AvisoID) 'LÄDT alle Aviso-Anhänge
For Each l In ANH_LIST
@@ -2624,8 +2655,91 @@ Public Class usrcntlAktDetails
End If
Next
Dim path = SDL.FormularManagerNEU.LaufzettelZollDE(AvisoID, False)
If path <> "" Then Process.Start(path)
'DIGITALE ABFERTIGUNG:
If (sender Is Button15) Then
Try
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, -1, AvisoID) 'LÄDT alle SENDUNGSDATEN
For Each s In SENDUNG_LIST
If If(s.tblSnd_Vorpapier, "") = "" Then
MsgBox("Nicht alle Sendungen haben ein Vorpapier eingetragen!" & vbNewLine & "Laufzettelerstellung wird abgebrochen.")
Exit Sub : pnlDetailsRechts.Cursor = Cursors.Default
End If
Next
AVISO.LOAD_Vorpapiere()
Dim VP_Enum = VERAG_PROG_ALLGEMEIN.cSendungen.VP_Enum(SENDUNG_LIST) 'Filtert nach eindeutigen Vorpapieren
Dim paths As New List(Of String)
For Each VP In VP_Enum
paths.Add(SDL.FormularManagerNEU.LaufzettelZollDE_VP(AvisoID, False,, VP))
Next
Dim outl As New Outlook.Application
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
Mail = outl.CreateItem(0)
Select Case AVISO.Grenzstelle
Case "SUB"
Mail.To = "abfertigung.za-suben@zoll.bund.de"
End Select
Dim tX As New VERAG_PROG_ALLGEMEIN.cTextkonserve("LAUFZETTEL_DIGITAL", "LAUFZETTEL_DE_DIGITAL_SUB", "DE", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
Dim MAIL_SUBJ = tX.txt_betreff.Replace("%LKWKennzeichen%", AVISO.LKW_Nr)
Dim MAIL_BODY = tX.txt_text.Replace("%LKWKennzeichen%", AVISO.LKW_Nr)
addVPList(MAIL_BODY, VP_Enum)
Mail.HTMLBody = "<div style=""font-family:Calibri, Arial"">" & MAIL_BODY & SDL.cFakturierung.getSignature("DE", tX.txt_firmaSig, True) & "</div>"
Mail.Subject = MAIL_SUBJ
For Each p In paths
Mail.Attachments.Add(p, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "Gestellungsliste.pdf")
Next
If loadAttachRg Then
If cbxLZT1.Visible AndAlso cbxLZT1.Checked Then
'Falls CMR, Vorpapier in den Unterlagen vorhanden, werden diese beigefügt
For Each l In ANH_LIST
Select Case l.anh_Art.ToString.ToUpper
Case "VORPAPIER" ', "CMR"
Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(l.anh_docId), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
End Select
Next
End If
If cbxLZRg.Visible AndAlso cbxLZRg.Checked Then
For Each s In SENDUNG_LIST
Select Case s.tblSnd_Abfertigungsart_ID
'Falls RECHNUNGen in den Unterlagen vorhanden, werden diese beigefügt
Case "5", "45", "28" 'T1, Ü-T1, DE-FISK
Dim ANH_LIST_SND As New List(Of VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge)
VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.LOAD_LIST_BySendung(ANH_LIST_SND, s.tblSnd_SendungID) 'LÄDT alle Aviso-Anhänge
For Each l In ANH_LIST_SND
Select Case l.anh_Art.ToString.ToUpper
Case "RECHNUNG", "HANDELSRECHNUNG"
Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(l.anh_docId), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
End Select
Next
End Select
Next
End If
End If
Mail.Display()
Catch ex As Exception
MsgBox("Fehler beim erstellen der E-Mail:" & vbNewLine & ex.Message & ex.StackTrace)
End Try
Else
Dim path = SDL.FormularManagerNEU.LaufzettelZollDE(AvisoID, False)
If path <> "" Then
Process.Start(path)
End If
End If
Panel4.Visible = False
pnlDetailsRechts.Cursor = Cursors.Default
End Sub
@@ -2662,6 +2776,15 @@ Public Class usrcntlAktDetails
End If
End Sub
Sub addVPList(ByRef MAIL_BODY As String, VP_Enum As List(Of String))
Dim Platzhalter = "<br><br><table style=""font-family:Calibri;"" border=""1"" bordercolor=""#000"" cellspacing=""0"">"
Platzhalter &= "<tr><th width=200>Vorpapier:</th><th width=200></th><th></th></tr>"
For Each VP In VP_Enum
Platzhalter &= "<tr><td>" & VP & "</td><td></t></tr>"
Next
Platzhalter &= "</table>"
MAIL_BODY = MAIL_BODY.Replace("%Platzhalter%", Platzhalter)
End Sub
Private Sub HervorhebenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HervorhebenToolStripMenuItem.Click
If gridVermerke.SelectedRows.Count = 0 Then Exit Sub
Dim index As Integer = -1