This commit is contained in:
2023-03-14 08:32:16 +01:00
13 changed files with 2534 additions and 289 deletions

View File

@@ -1064,6 +1064,7 @@ Public Class frmSendungAnhangImport
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATR-EUR1", "ATR-EUR1"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Rechnung", "Rechnung"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("eFatura", "eFatura"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CMR", "CMR"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Ausfuhr", "Ausfuhr"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vorpapier", "Vorpapier"))
@@ -1078,6 +1079,7 @@ Public Class frmSendungAnhangImport
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATA-Nr", "ATA"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UID-Prüfung", "UID"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EORI-Prüfung", "EORI"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EORI-Antrag", "EORI_ANTRAG"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Lieferschein", "Lieferschein"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Ursprungszeugnis", "CoO"))
If VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE = 7001 Then

View File

@@ -16,6 +16,7 @@
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATR-EUR1", "ATR-EUR1"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Rechnung", "Rechnung"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("eFatura", "eFatura"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CMR", "CMR"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Ausfuhr", "Ausfuhr"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vorpapier", "Vorpapier"))
@@ -30,6 +31,7 @@
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATA-Nr", "ATA"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UID-Prüfung", "UID"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EORI-Prüfung", "EORI"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EORI-Antrag", "EORI_ANTRAG"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Lieferschein", "Lieferschein"))
If VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE = 7001 Then
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("GB - C88", "C88"))

View File

@@ -537,6 +537,12 @@
<Compile Include="Benachrichtigung\frmAvisoBenachrichtigungReminderBestaetigen.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmATZollEingereichtSetzen.Designer.vb">
<DependentUpon>frmATZollEingereichtSetzen.vb</DependentUpon>
</Compile>
<Compile Include="frmATZollEingereichtSetzen.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmEssensbestellungenAdministration.Designer.vb">
<DependentUpon>frmEssensbestellungenAdministration.vb</DependentUpon>
</Compile>
@@ -1107,6 +1113,9 @@
<EmbeddedResource Include="Benachrichtigung\frmAvisoBenachrichtigungReminderBestaetigen.resx">
<DependentUpon>frmAvisoBenachrichtigungReminderBestaetigen.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmATZollEingereichtSetzen.resx">
<DependentUpon>frmATZollEingereichtSetzen.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmEssensbestellungenAdministration.resx">
<DependentUpon>frmEssensbestellungenAdministration.vb</DependentUpon>
</EmbeddedResource>

View File

@@ -0,0 +1,757 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmATZollEingereichtSetzen
Inherits System.Windows.Forms.Form
'Das Formular ü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()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmATZollEingereichtSetzen))
Me.pnl = New System.Windows.Forms.Panel()
Me.lblEORIPruefdatum = New System.Windows.Forms.Label()
Me.lblUIDPruefdatum = New System.Windows.Forms.Label()
Me.Label7 = New System.Windows.Forms.Label()
Me.lblAbfNr = New System.Windows.Forms.Label()
Me.lblEORIAbfrage = New System.Windows.Forms.Label()
Me.picEORIAbfrage = New System.Windows.Forms.PictureBox()
Me.lblUIDAbfrage = New System.Windows.Forms.Label()
Me.picUIDAbfrage = New System.Windows.Forms.PictureBox()
Me.btnCheckUID = New System.Windows.Forms.Button()
Me.btnCheckEORI = New System.Windows.Forms.Button()
Me.txtEori = New System.Windows.Forms.TextBox()
Me.txtUid = New System.Windows.Forms.TextBox()
Me.GroupBox5 = New System.Windows.Forms.GroupBox()
Me.cbxUEST4 = New System.Windows.Forms.CheckBox()
Me.cbxUEST3 = New System.Windows.Forms.CheckBox()
Me.cbxUEST2 = New System.Windows.Forms.CheckBox()
Me.cbxUEST1 = New System.Windows.Forms.CheckBox()
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
Me.cbxRG2 = New System.Windows.Forms.CheckBox()
Me.cbxRG1 = New System.Windows.Forms.CheckBox()
Me.GroupBox4 = New System.Windows.Forms.GroupBox()
Me.cbxS2 = New System.Windows.Forms.CheckBox()
Me.cbxS1 = New System.Windows.Forms.CheckBox()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.cbxCMR3 = New System.Windows.Forms.CheckBox()
Me.cbxCMR1 = New System.Windows.Forms.CheckBox()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.cbxVS3 = New System.Windows.Forms.CheckBox()
Me.cbxVS5 = New System.Windows.Forms.CheckBox()
Me.cbxVS4 = New System.Windows.Forms.CheckBox()
Me.cbxVS2 = New System.Windows.Forms.CheckBox()
Me.cbxVS1 = New System.Windows.Forms.CheckBox()
Me.cbxEORI = New System.Windows.Forms.CheckBox()
Me.cbxUID = New System.Windows.Forms.CheckBox()
Me.Label10 = New System.Windows.Forms.Label()
Me.Label9 = New System.Windows.Forms.Label()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.Button1 = New System.Windows.Forms.Button()
Me.Label6 = New System.Windows.Forms.Label()
Me.lblWare = New System.Windows.Forms.Label()
Me.lblEmpf = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.btn = New System.Windows.Forms.Button()
Me.Label3 = New System.Windows.Forms.Label()
Me.Panel3 = New System.Windows.Forms.Panel()
Me.Label2 = New System.Windows.Forms.Label()
Me.lblNr = New System.Windows.Forms.Label()
Me.pnl.SuspendLayout()
CType(Me.picEORIAbfrage, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picUIDAbfrage, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox5.SuspendLayout()
Me.GroupBox3.SuspendLayout()
Me.GroupBox4.SuspendLayout()
Me.GroupBox2.SuspendLayout()
Me.GroupBox1.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.Panel3.SuspendLayout()
Me.SuspendLayout()
'
'pnl
'
Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnl.Controls.Add(Me.lblEORIPruefdatum)
Me.pnl.Controls.Add(Me.lblUIDPruefdatum)
Me.pnl.Controls.Add(Me.Label7)
Me.pnl.Controls.Add(Me.lblAbfNr)
Me.pnl.Controls.Add(Me.lblEORIAbfrage)
Me.pnl.Controls.Add(Me.picEORIAbfrage)
Me.pnl.Controls.Add(Me.lblUIDAbfrage)
Me.pnl.Controls.Add(Me.picUIDAbfrage)
Me.pnl.Controls.Add(Me.btnCheckUID)
Me.pnl.Controls.Add(Me.btnCheckEORI)
Me.pnl.Controls.Add(Me.txtEori)
Me.pnl.Controls.Add(Me.txtUid)
Me.pnl.Controls.Add(Me.GroupBox5)
Me.pnl.Controls.Add(Me.GroupBox3)
Me.pnl.Controls.Add(Me.GroupBox4)
Me.pnl.Controls.Add(Me.GroupBox2)
Me.pnl.Controls.Add(Me.GroupBox1)
Me.pnl.Controls.Add(Me.cbxEORI)
Me.pnl.Controls.Add(Me.cbxUID)
Me.pnl.Controls.Add(Me.Label10)
Me.pnl.Controls.Add(Me.Label9)
Me.pnl.Controls.Add(Me.Panel1)
Me.pnl.Controls.Add(Me.lblWare)
Me.pnl.Controls.Add(Me.lblEmpf)
Me.pnl.Controls.Add(Me.Label4)
Me.pnl.Controls.Add(Me.Label5)
Me.pnl.Controls.Add(Me.btn)
Me.pnl.Controls.Add(Me.Label3)
Me.pnl.Controls.Add(Me.Panel3)
Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnl.Location = New System.Drawing.Point(0, 0)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(621, 659)
Me.pnl.TabIndex = 0
'
'lblEORIPruefdatum
'
Me.lblEORIPruefdatum.AutoSize = True
Me.lblEORIPruefdatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblEORIPruefdatum.Location = New System.Drawing.Point(108, 263)
Me.lblEORIPruefdatum.Name = "lblEORIPruefdatum"
Me.lblEORIPruefdatum.Size = New System.Drawing.Size(61, 13)
Me.lblEORIPruefdatum.TabIndex = 80
Me.lblEORIPruefdatum.Text = "01.01.2020"
Me.lblEORIPruefdatum.TextAlign = System.Drawing.ContentAlignment.BottomLeft
'
'lblUIDPruefdatum
'
Me.lblUIDPruefdatum.AutoSize = True
Me.lblUIDPruefdatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblUIDPruefdatum.Location = New System.Drawing.Point(108, 240)
Me.lblUIDPruefdatum.Name = "lblUIDPruefdatum"
Me.lblUIDPruefdatum.Size = New System.Drawing.Size(61, 13)
Me.lblUIDPruefdatum.TabIndex = 79
Me.lblUIDPruefdatum.Text = "01.01.2020"
Me.lblUIDPruefdatum.TextAlign = System.Drawing.ContentAlignment.BottomLeft
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(451, 125)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(108, 13)
Me.Label7.TabIndex = 78
Me.Label7.Text = "Filiale/AbfertigungsNr"
'
'lblAbfNr
'
Me.lblAbfNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
Me.lblAbfNr.Location = New System.Drawing.Point(450, 138)
Me.lblAbfNr.Name = "lblAbfNr"
Me.lblAbfNr.Size = New System.Drawing.Size(158, 26)
Me.lblAbfNr.TabIndex = 77
Me.lblAbfNr.Text = "4803/23999999"
'
'lblEORIAbfrage
'
Me.lblEORIAbfrage.AutoSize = True
Me.lblEORIAbfrage.Cursor = System.Windows.Forms.Cursors.Default
Me.lblEORIAbfrage.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblEORIAbfrage.Location = New System.Drawing.Point(530, 265)
Me.lblEORIAbfrage.Name = "lblEORIAbfrage"
Me.lblEORIAbfrage.Size = New System.Drawing.Size(0, 13)
Me.lblEORIAbfrage.TabIndex = 72
'
'picEORIAbfrage
'
Me.picEORIAbfrage.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.picEORIAbfrage.Location = New System.Drawing.Point(492, 260)
Me.picEORIAbfrage.Name = "picEORIAbfrage"
Me.picEORIAbfrage.Size = New System.Drawing.Size(26, 23)
Me.picEORIAbfrage.TabIndex = 73
Me.picEORIAbfrage.TabStop = False
'
'lblUIDAbfrage
'
Me.lblUIDAbfrage.AutoSize = True
Me.lblUIDAbfrage.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblUIDAbfrage.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblUIDAbfrage.Location = New System.Drawing.Point(530, 239)
Me.lblUIDAbfrage.Name = "lblUIDAbfrage"
Me.lblUIDAbfrage.Size = New System.Drawing.Size(0, 13)
Me.lblUIDAbfrage.TabIndex = 69
'
'picUIDAbfrage
'
Me.picUIDAbfrage.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.picUIDAbfrage.Location = New System.Drawing.Point(492, 234)
Me.picUIDAbfrage.Name = "picUIDAbfrage"
Me.picUIDAbfrage.Size = New System.Drawing.Size(26, 23)
Me.picUIDAbfrage.TabIndex = 71
Me.picUIDAbfrage.TabStop = False
'
'btnCheckUID
'
Me.btnCheckUID.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnCheckUID.Location = New System.Drawing.Point(411, 234)
Me.btnCheckUID.Name = "btnCheckUID"
Me.btnCheckUID.Size = New System.Drawing.Size(75, 23)
Me.btnCheckUID.TabIndex = 70
Me.btnCheckUID.Text = "UID prüfen"
Me.btnCheckUID.UseVisualStyleBackColor = True
'
'btnCheckEORI
'
Me.btnCheckEORI.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnCheckEORI.Location = New System.Drawing.Point(411, 260)
Me.btnCheckEORI.Name = "btnCheckEORI"
Me.btnCheckEORI.Size = New System.Drawing.Size(75, 23)
Me.btnCheckEORI.TabIndex = 68
Me.btnCheckEORI.Text = "EORI prüfen"
Me.btnCheckEORI.UseVisualStyleBackColor = True
'
'txtEori
'
Me.txtEori.Location = New System.Drawing.Point(227, 263)
Me.txtEori.Name = "txtEori"
Me.txtEori.Size = New System.Drawing.Size(177, 20)
Me.txtEori.TabIndex = 65
'
'txtUid
'
Me.txtUid.Location = New System.Drawing.Point(227, 237)
Me.txtUid.Name = "txtUid"
Me.txtUid.Size = New System.Drawing.Size(177, 20)
Me.txtUid.TabIndex = 64
'
'GroupBox5
'
Me.GroupBox5.Controls.Add(Me.cbxUEST4)
Me.GroupBox5.Controls.Add(Me.cbxUEST3)
Me.GroupBox5.Controls.Add(Me.cbxUEST2)
Me.GroupBox5.Controls.Add(Me.cbxUEST1)
Me.GroupBox5.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox5.Location = New System.Drawing.Point(13, 513)
Me.GroupBox5.Name = "GroupBox5"
Me.GroupBox5.Size = New System.Drawing.Size(250, 119)
Me.GroupBox5.TabIndex = 59
Me.GroupBox5.TabStop = False
Me.GroupBox5.Text = "Übereinstimmuing notwendig"
'
'cbxUEST4
'
Me.cbxUEST4.AutoSize = True
Me.cbxUEST4.Checked = True
Me.cbxUEST4.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxUEST4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxUEST4.Location = New System.Drawing.Point(6, 96)
Me.cbxUEST4.Name = "cbxUEST4"
Me.cbxUEST4.Size = New System.Drawing.Size(127, 17)
Me.cbxUEST4.TabIndex = 3
Me.cbxUEST4.Text = "Feld 8 Zollanmeldung"
Me.cbxUEST4.UseVisualStyleBackColor = True
'
'cbxUEST3
'
Me.cbxUEST3.AutoSize = True
Me.cbxUEST3.Checked = True
Me.cbxUEST3.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxUEST3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxUEST3.Location = New System.Drawing.Point(6, 63)
Me.cbxUEST3.Name = "cbxUEST3"
Me.cbxUEST3.Size = New System.Drawing.Size(185, 30)
Me.cbxUEST3.TabIndex = 2
Me.cbxUEST3.Text = "EUR 1 / ATR (Feld 5 oder Feld 6)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Bestimmungsland"
Me.cbxUEST3.UseVisualStyleBackColor = True
'
'cbxUEST2
'
Me.cbxUEST2.AutoSize = True
Me.cbxUEST2.Checked = True
Me.cbxUEST2.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxUEST2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxUEST2.Location = New System.Drawing.Point(6, 45)
Me.cbxUEST2.Name = "cbxUEST2"
Me.cbxUEST2.Size = New System.Drawing.Size(201, 17)
Me.cbxUEST2.TabIndex = 1
Me.cbxUEST2.Text = "Bestimmungsort in der Lieferkondition"
Me.cbxUEST2.UseVisualStyleBackColor = True
'
'cbxUEST1
'
Me.cbxUEST1.AutoSize = True
Me.cbxUEST1.Checked = True
Me.cbxUEST1.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxUEST1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxUEST1.Location = New System.Drawing.Point(6, 22)
Me.cbxUEST1.Name = "cbxUEST1"
Me.cbxUEST1.Size = New System.Drawing.Size(234, 17)
Me.cbxUEST1.TabIndex = 0
Me.cbxUEST1.Text = "Empfangsort CMR / Lieferschein / Packliste"
Me.cbxUEST1.UseVisualStyleBackColor = True
'
'GroupBox3
'
Me.GroupBox3.Controls.Add(Me.cbxRG2)
Me.GroupBox3.Controls.Add(Me.cbxRG1)
Me.GroupBox3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox3.Location = New System.Drawing.Point(13, 426)
Me.GroupBox3.Name = "GroupBox3"
Me.GroupBox3.Size = New System.Drawing.Size(336, 70)
Me.GroupBox3.TabIndex = 58
Me.GroupBox3.TabStop = False
Me.GroupBox3.Text = "Auf Rechnung"
'
'cbxRG2
'
Me.cbxRG2.AutoSize = True
Me.cbxRG2.Checked = True
Me.cbxRG2.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxRG2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxRG2.Location = New System.Drawing.Point(6, 45)
Me.cbxRG2.Name = "cbxRG2"
Me.cbxRG2.Size = New System.Drawing.Size(215, 17)
Me.cbxRG2.TabIndex = 1
Me.cbxRG2.Text = "UID-Nummer des Empfängers / Stempel"
Me.cbxRG2.UseVisualStyleBackColor = True
'
'cbxRG1
'
Me.cbxRG1.AutoSize = True
Me.cbxRG1.Checked = True
Me.cbxRG1.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxRG1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxRG1.Location = New System.Drawing.Point(6, 22)
Me.cbxRG1.Name = "cbxRG1"
Me.cbxRG1.Size = New System.Drawing.Size(157, 17)
Me.cbxRG1.TabIndex = 0
Me.cbxRG1.Text = "Versendung als ig-Lieferung"
Me.cbxRG1.UseVisualStyleBackColor = True
'
'GroupBox4
'
Me.GroupBox4.Controls.Add(Me.cbxS2)
Me.GroupBox4.Controls.Add(Me.cbxS1)
Me.GroupBox4.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox4.Location = New System.Drawing.Point(355, 426)
Me.GroupBox4.Name = "GroupBox4"
Me.GroupBox4.Size = New System.Drawing.Size(250, 68)
Me.GroupBox4.TabIndex = 60
Me.GroupBox4.TabStop = False
Me.GroupBox4.Text = "Sonstiges"
'
'cbxS2
'
Me.cbxS2.AutoSize = True
Me.cbxS2.Checked = True
Me.cbxS2.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxS2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxS2.Location = New System.Drawing.Point(6, 45)
Me.cbxS2.Name = "cbxS2"
Me.cbxS2.Size = New System.Drawing.Size(148, 17)
Me.cbxS2.TabIndex = 1
Me.cbxS2.Text = "T1 oder TIR-Carnet-Kopie"
Me.cbxS2.UseVisualStyleBackColor = True
'
'cbxS1
'
Me.cbxS1.AutoSize = True
Me.cbxS1.Checked = True
Me.cbxS1.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxS1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxS1.Location = New System.Drawing.Point(6, 22)
Me.cbxS1.Name = "cbxS1"
Me.cbxS1.Size = New System.Drawing.Size(108, 17)
Me.cbxS1.TabIndex = 0
Me.cbxS1.Text = "Fahrer Passkopie"
Me.cbxS1.UseVisualStyleBackColor = True
'
'GroupBox2
'
Me.GroupBox2.Controls.Add(Me.cbxCMR3)
Me.GroupBox2.Controls.Add(Me.cbxCMR1)
Me.GroupBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox2.Location = New System.Drawing.Point(355, 301)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(250, 119)
Me.GroupBox2.TabIndex = 57
Me.GroupBox2.TabStop = False
Me.GroupBox2.Text = "Auf CMR"
'
'cbxCMR3
'
Me.cbxCMR3.AutoSize = True
Me.cbxCMR3.Checked = True
Me.cbxCMR3.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxCMR3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxCMR3.Location = New System.Drawing.Point(6, 45)
Me.cbxCMR3.Name = "cbxCMR3"
Me.cbxCMR3.Size = New System.Drawing.Size(206, 17)
Me.cbxCMR3.TabIndex = 2
Me.cbxCMR3.Text = "Versendung als ig-Lieferung / Stempel"
Me.cbxCMR3.UseVisualStyleBackColor = True
'
'cbxCMR1
'
Me.cbxCMR1.AutoSize = True
Me.cbxCMR1.Checked = True
Me.cbxCMR1.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxCMR1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxCMR1.Location = New System.Drawing.Point(6, 22)
Me.cbxCMR1.Name = "cbxCMR1"
Me.cbxCMR1.Size = New System.Drawing.Size(123, 17)
Me.cbxCMR1.TabIndex = 0
Me.cbxCMR1.Text = "VERZOLLT Stempel"
Me.cbxCMR1.UseVisualStyleBackColor = True
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.cbxVS3)
Me.GroupBox1.Controls.Add(Me.cbxVS5)
Me.GroupBox1.Controls.Add(Me.cbxVS4)
Me.GroupBox1.Controls.Add(Me.cbxVS2)
Me.GroupBox1.Controls.Add(Me.cbxVS1)
Me.GroupBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox1.Location = New System.Drawing.Point(12, 301)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(337, 119)
Me.GroupBox1.TabIndex = 56
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Versendungsbeleg"
'
'cbxVS3
'
Me.cbxVS3.AutoSize = True
Me.cbxVS3.Checked = True
Me.cbxVS3.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxVS3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxVS3.Location = New System.Drawing.Point(177, 45)
Me.cbxVS3.Name = "cbxVS3"
Me.cbxVS3.Size = New System.Drawing.Size(154, 17)
Me.cbxVS3.TabIndex = 2
Me.cbxVS3.Text = "mit Frachtführerbestätigung"
Me.cbxVS3.UseVisualStyleBackColor = True
'
'cbxVS5
'
Me.cbxVS5.AutoSize = True
Me.cbxVS5.Checked = True
Me.cbxVS5.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxVS5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxVS5.Location = New System.Drawing.Point(6, 91)
Me.cbxVS5.Name = "cbxVS5"
Me.cbxVS5.Size = New System.Drawing.Size(107, 17)
Me.cbxVS5.TabIndex = 4
Me.cbxVS5.Text = "Packliste Original"
Me.cbxVS5.UseVisualStyleBackColor = True
'
'cbxVS4
'
Me.cbxVS4.AutoSize = True
Me.cbxVS4.Checked = True
Me.cbxVS4.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxVS4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxVS4.Location = New System.Drawing.Point(6, 68)
Me.cbxVS4.Name = "cbxVS4"
Me.cbxVS4.Size = New System.Drawing.Size(121, 17)
Me.cbxVS4.TabIndex = 3
Me.cbxVS4.Text = "Lieferschein Original"
Me.cbxVS4.UseVisualStyleBackColor = True
'
'cbxVS2
'
Me.cbxVS2.AutoSize = True
Me.cbxVS2.Checked = True
Me.cbxVS2.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxVS2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxVS2.Location = New System.Drawing.Point(26, 45)
Me.cbxVS2.Name = "cbxVS2"
Me.cbxVS2.Size = New System.Drawing.Size(145, 17)
Me.cbxVS2.TabIndex = 1
Me.cbxVS2.Text = "mit Versenderbestätigung"
Me.cbxVS2.UseVisualStyleBackColor = True
'
'cbxVS1
'
Me.cbxVS1.AutoSize = True
Me.cbxVS1.Checked = True
Me.cbxVS1.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxVS1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxVS1.Location = New System.Drawing.Point(6, 22)
Me.cbxVS1.Name = "cbxVS1"
Me.cbxVS1.Size = New System.Drawing.Size(151, 17)
Me.cbxVS1.TabIndex = 0
Me.cbxVS1.Text = "CMR Original / Zweitstück"
Me.cbxVS1.UseVisualStyleBackColor = True
'
'cbxEORI
'
Me.cbxEORI.AutoSize = True
Me.cbxEORI.Location = New System.Drawing.Point(18, 262)
Me.cbxEORI.Name = "cbxEORI"
Me.cbxEORI.Size = New System.Drawing.Size(80, 17)
Me.cbxEORI.TabIndex = 55
Me.cbxEORI.Text = "EORI gültig"
Me.cbxEORI.UseVisualStyleBackColor = True
'
'cbxUID
'
Me.cbxUID.AutoSize = True
Me.cbxUID.Location = New System.Drawing.Point(18, 239)
Me.cbxUID.Name = "cbxUID"
Me.cbxUID.Size = New System.Drawing.Size(73, 17)
Me.cbxUID.TabIndex = 54
Me.cbxUID.Text = "UID gültig"
Me.cbxUID.UseVisualStyleBackColor = True
'
'Label10
'
Me.Label10.AutoSize = True
Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label10.Location = New System.Drawing.Point(108, 220)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(75, 13)
Me.Label10.TabIndex = 63
Me.Label10.Text = "letzte Prüfung:"
Me.Label10.TextAlign = System.Drawing.ContentAlignment.BottomLeft
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label9.Location = New System.Drawing.Point(15, 218)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(73, 15)
Me.Label9.TabIndex = 61
Me.Label9.Text = "Prüfungen"
Me.Label9.TextAlign = System.Drawing.ContentAlignment.BottomLeft
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Panel1.Controls.Add(Me.Panel2)
Me.Panel1.Controls.Add(Me.Button1)
Me.Panel1.Controls.Add(Me.Label6)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(619, 41)
Me.Panel1.TabIndex = 53
'
'Panel2
'
Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.Panel2.Location = New System.Drawing.Point(535, 41)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(85, 63)
Me.Panel2.TabIndex = 76
'
'Button1
'
Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button1.BackColor = System.Drawing.Color.Red
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
Me.Button1.ForeColor = System.Drawing.Color.White
Me.Button1.Location = New System.Drawing.Point(534, -1)
Me.Button1.Margin = New System.Windows.Forms.Padding(0)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(85, 33)
Me.Button1.TabIndex = 1
Me.Button1.Text = "x"
Me.Button1.UseVisualStyleBackColor = False
'
'Label6
'
Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
Me.Label6.ForeColor = System.Drawing.Color.White
Me.Label6.Location = New System.Drawing.Point(13, 6)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(467, 26)
Me.Label6.TabIndex = 51
Me.Label6.Text = "AT Zoll Einreichen Fiskal - Checkliste"
Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'lblWare
'
Me.lblWare.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
Me.lblWare.Location = New System.Drawing.Point(10, 177)
Me.lblWare.Name = "lblWare"
Me.lblWare.Size = New System.Drawing.Size(587, 26)
Me.lblWare.TabIndex = 51
Me.lblWare.Text = "PCK"
'
'lblEmpf
'
Me.lblEmpf.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
Me.lblEmpf.Location = New System.Drawing.Point(10, 138)
Me.lblEmpf.Name = "lblEmpf"
Me.lblEmpf.Size = New System.Drawing.Size(435, 26)
Me.lblEmpf.TabIndex = 50
Me.lblEmpf.Text = "Empf"
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(11, 125)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(58, 13)
Me.Label4.TabIndex = 48
Me.Label4.Text = "Empfänger"
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(11, 164)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(36, 13)
Me.Label5.TabIndex = 49
Me.Label5.Text = "Ware:"
'
'btn
'
Me.btn.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btn.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
Me.btn.ForeColor = System.Drawing.Color.White
Me.btn.Location = New System.Drawing.Point(402, 570)
Me.btn.Name = "btn"
Me.btn.Size = New System.Drawing.Size(206, 62)
Me.btn.TabIndex = 0
Me.btn.Text = "Weiter >>" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(Bestätigen)"
Me.btn.UseVisualStyleBackColor = False
'
'Label3
'
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 30.0!, System.Drawing.FontStyle.Bold)
Me.Label3.Location = New System.Drawing.Point(6, 54)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(469, 57)
Me.Label3.TabIndex = 52
Me.Label3.Text = "Fiskal-Checkliste"
'
'Panel3
'
Me.Panel3.BackColor = System.Drawing.Color.AntiqueWhite
Me.Panel3.Controls.Add(Me.Label2)
Me.Panel3.Controls.Add(Me.lblNr)
Me.Panel3.Location = New System.Drawing.Point(533, 41)
Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(87, 57)
Me.Panel3.TabIndex = 76
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(20, 3)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(49, 13)
Me.Label2.TabIndex = 77
Me.Label2.Text = "Send.Nr."
'
'lblNr
'
Me.lblNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.0!, System.Drawing.FontStyle.Bold)
Me.lblNr.Location = New System.Drawing.Point(5, 18)
Me.lblNr.Name = "lblNr"
Me.lblNr.Size = New System.Drawing.Size(78, 34)
Me.lblNr.TabIndex = 75
Me.lblNr.Text = "99"
Me.lblNr.TextAlign = System.Drawing.ContentAlignment.TopCenter
'
'frmATZollEingereichtSetzen
'
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(621, 659)
Me.Controls.Add(Me.pnl)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmATZollEingereichtSetzen"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "AT Zoll Einreichen Fiskal - Checkliste"
Me.pnl.ResumeLayout(False)
Me.pnl.PerformLayout()
CType(Me.picEORIAbfrage, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picUIDAbfrage, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox5.ResumeLayout(False)
Me.GroupBox5.PerformLayout()
Me.GroupBox3.ResumeLayout(False)
Me.GroupBox3.PerformLayout()
Me.GroupBox4.ResumeLayout(False)
Me.GroupBox4.PerformLayout()
Me.GroupBox2.ResumeLayout(False)
Me.GroupBox2.PerformLayout()
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
Me.Panel1.ResumeLayout(False)
Me.Panel3.ResumeLayout(False)
Me.Panel3.PerformLayout()
Me.ResumeLayout(False)
End Sub
Friend WithEvents pnl As Panel
Friend WithEvents Button1 As Button
Friend WithEvents btn As Button
Friend WithEvents Panel1 As Panel
Friend WithEvents Label6 As Label
Friend WithEvents Label3 As Label
Friend WithEvents GroupBox5 As GroupBox
Friend WithEvents cbxUEST4 As CheckBox
Friend WithEvents cbxUEST3 As CheckBox
Friend WithEvents cbxUEST2 As CheckBox
Friend WithEvents cbxUEST1 As CheckBox
Friend WithEvents GroupBox3 As GroupBox
Friend WithEvents cbxRG2 As CheckBox
Friend WithEvents cbxRG1 As CheckBox
Friend WithEvents GroupBox4 As GroupBox
Friend WithEvents cbxS2 As CheckBox
Friend WithEvents cbxS1 As CheckBox
Friend WithEvents GroupBox2 As GroupBox
Friend WithEvents cbxCMR3 As CheckBox
Friend WithEvents cbxCMR1 As CheckBox
Friend WithEvents GroupBox1 As GroupBox
Friend WithEvents cbxVS3 As CheckBox
Friend WithEvents cbxVS5 As CheckBox
Friend WithEvents cbxVS4 As CheckBox
Friend WithEvents cbxVS2 As CheckBox
Friend WithEvents cbxVS1 As CheckBox
Friend WithEvents cbxEORI As CheckBox
Friend WithEvents cbxUID As CheckBox
Friend WithEvents Label10 As Label
Friend WithEvents Label9 As Label
Friend WithEvents lblEORIAbfrage As Label
Friend WithEvents picEORIAbfrage As PictureBox
Friend WithEvents lblUIDAbfrage As Label
Friend WithEvents picUIDAbfrage As PictureBox
Friend WithEvents btnCheckUID As Button
Friend WithEvents btnCheckEORI As Button
Friend WithEvents txtEori As TextBox
Friend WithEvents txtUid As TextBox
Friend WithEvents lblWare As Label
Friend WithEvents lblEmpf As Label
Friend WithEvents Label4 As Label
Friend WithEvents Label5 As Label
Friend WithEvents Panel3 As Panel
Friend WithEvents lblNr As Label
Friend WithEvents Panel2 As Panel
Friend WithEvents Label2 As Label
Friend WithEvents Label7 As Label
Friend WithEvents lblAbfNr As Label
Friend WithEvents lblEORIPruefdatum As Label
Friend WithEvents lblUIDPruefdatum As Label
End Class

File diff suppressed because it is too large Load Diff

View File

@@ -0,0 +1,162 @@
Imports SDL
Imports SDL.EORI
Imports VERAG_PROG_ALLGEMEIN
Public Class frmATZollEingereichtSetzen
Public AVISO As VERAG_PROG_ALLGEMEIN.cAviso = Nothing
Public SND As VERAG_PROG_ALLGEMEIN.cSendungen = Nothing
Dim AvisoDAL As New VERAG_PROG_ALLGEMEIN.cAvisoDAL
Sub New(AVISO, SND)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.AVISO = AVISO
Me.SND = SND
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub frmAnkunftSetzen_Load(sender As Object, e As EventArgs) Handles Me.Load
lblUIDPruefdatum.Text = "-"
lblEORIPruefdatum.Text = "-"
If AVISO IsNot Nothing Then
lblEmpf.Text = If(SND.tblSnd_Empfaenger, "")
lblAbfNr.Text = SND.FilialenNr & "/" & SND.AbfertigungsNr
lblWare.Text = If(SND.tblSnd_Gewicht, "") & " kg, " & If(SND.tblSnd_Colli, "") & " Pk. " & If(SND.tblSnd_Warenbezeichnung, "")
End If
If SND IsNot Nothing Then
If SND.tblSnd_EmpfaengerKdNr > 0 Then
lblNr.Text = SND.tblSnd_PosUnterNr
Dim ADRESSEN As New VERAG_PROG_ALLGEMEIN.cAdressen(SND.tblSnd_EmpfaengerKdNr)
Dim KUNDEN As New VERAG_PROG_ALLGEMEIN.cKunde(SND.tblSnd_EmpfaengerKdNr)
If ADRESSEN IsNot Nothing Then
txtUid.Text = If(ADRESSEN.UstIdKz, "") & If(ADRESSEN.UstIdNr, "")
Dim UID_Pruef = VERAG_PROG_ALLGEMEIN.cUIDPruefung.LOADByKdNrNewestDate(SND.tblSnd_EmpfaengerKdNr)
If UID_Pruef IsNot Nothing Then
lblUIDPruefdatum.Text = UID_Pruef.uid_Datum.ToShortDateString
If UID_Pruef.uid_Datum.ToShortDateString = Now.ToShortDateString Then
cbxUID.Checked = True
picUIDAbfrage.Image = My.Resources.ok
Else
check_UID(ADRESSEN)
End If
End If
End If
If KUNDEN IsNot Nothing Then
txtEori.Text = If(KUNDEN.EORITIN, "")
check_EORI(KUNDEN)
End If
End If
End If
End Sub
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
Me.DialogResult = DialogResult.OK
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.DialogResult = DialogResult.Cancel
End Sub
Private Sub frmAnkunftSetzen_KeyDown(sender As Object, e As KeyEventArgs)
If e.KeyCode = Keys.Return Then
btn.PerformClick()
End If
End Sub
Sub check_EORI(KUNDE As VERAG_PROG_ALLGEMEIN.cKunde)
If If(KUNDE.EORITIN, "") = "" Then Exit Sub
picEORIAbfrage.BackgroundImage = Nothing
Dim EORI_ERG = SDL.cEORIWebService.ValidateEoriNumber(KUNDE.EORITIN)
If EORI_ERG.Result.Count > 0 Then
If EORI_ERG.Result(0).Status = 0 Or EORI_ERG.Result(0).Status = 1 Then
Select Case EORI_ERG.Result(0).Status
Case 0 : cbxEORI.Checked = True : picEORIAbfrage.BackgroundImage = My.Resources.ok
Case 1 : cbxEORI.Checked = False : picEORIAbfrage.BackgroundImage = My.Resources.del
End Select
Else
MsgBox("Fehler bei der Prüfung der EORI-Nummer. WebService evtl. nicht verfügbar.")
End If
End If
End Sub
Sub check_UID(ADRESSE)
If ADRESSE.UstIdNr Is Nothing Then Exit Sub
If ADRESSE.UstIdKz Is Nothing Then Exit Sub
If ADRESSE.UstIdKz = "" Then Exit Sub
If ADRESSE.UstIdNr = "" Then Exit Sub
picUIDAbfrage.BackgroundImage = Nothing
' Button5.Visible = False
Dim FO As New VERAG_PROG_ALLGEMEIN.cFinanzOnlineWebService
FO.initValues()
If FO.Call_Web_Service_MethodUID_Login_NEU2020() = 0 Then
Dim UID_TMP = FO.Call_Web_Service_MethodUID_Abfrage_NEU2020(ADRESSE.AdressenNr,, , , 2)
If UID_TMP IsNot Nothing Then
If UID_TMP.uid_valid Then
'setKD(kdNr)
picUIDAbfrage.BackgroundImage = My.Resources.ok
Else
picUIDAbfrage.BackgroundImage = My.Resources.del
End If
Else
picUIDAbfrage.BackgroundImage = Nothing
End If
FO.Call_Web_Service_MethodUID_Logout_NEU2020()
End If
End Sub
Private Sub btnCheckEORI_Click(sender As Object, e As EventArgs) Handles btnCheckEORI.Click
If SND IsNot Nothing Then
If SND.tblSnd_EmpfaengerKdNr > 0 Then
End If
Dim KUNDEN As New VERAG_PROG_ALLGEMEIN.cKunde(SND.tblSnd_EmpfaengerKdNr)
If KUNDEN IsNot Nothing Then
txtEori.Text = If(KUNDEN.EORITIN, "")
check_EORI(KUNDEN)
End If
End If
End Sub
Private Sub btnCheckUID_Click(sender As Object, e As EventArgs) Handles btnCheckUID.Click
If SND IsNot Nothing Then
If SND.tblSnd_EmpfaengerKdNr > 0 Then
End If
Dim ADRESSEN As New VERAG_PROG_ALLGEMEIN.cAdressen(SND.tblSnd_EmpfaengerKdNr)
If ADRESSEN IsNot Nothing Then
check_UID(ADRESSEN)
End If
End If
End Sub
End Class

View File

@@ -198,16 +198,42 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
insertVermerk("AT Zoll fertig", 20)
If myAviso.LKW_fertig Then VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.LKWFertig(myAviso.AvisoID) : frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
Else
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("AT_FISKAL_CHECKLISTE") Then
'Sendungen durchlaufen und die Fiskal - Checkliste bei AT Fiskal anzeigen (je SND)
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, 0, AvisoID) 'LÄDT alle SENDUNGSDATEN
If SENDUNG_LIST IsNot Nothing Then
For Each SND In SENDUNG_LIST
If SND.tblSnd_Abfertigungsart_ID = 26 Then
Dim f As New frmATZollEingereichtSetzen(myAviso, SND)
If f.ShowDialog() = DialogResult.OK Then
'Passt scho..
Else
Exit Sub ' --> YOU'RE OUT!
End If
End If
Next
End If
End If
insertVermerk("AT Zoll eingereicht", 19)
'If vbYes = MsgBox("Fahrer-Anweisung ""zum Zollamt gehen"" ausdrucken?", vbYesNo) Then
' Try
' Dim path = SDL.FormularManagerNEU.zumZOLL_AVISO(myAviso, "AT")
' If path <> "" Then VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaGS(path, (New System.Drawing.Printing.PrinterSettings).PrinterName)
' Catch ex As Exception : MsgBox(ex.Message & ex.StackTrace) : End Try
'End If
End If
ElseIf sender Is btnLKWStandzeitWE Then
'If vbYes = MsgBox("Fahrer-Anweisung ""zum Zollamt gehen"" ausdrucken?", vbYesNo) Then
' Try
' Dim path = SDL.FormularManagerNEU.zumZOLL_AVISO(myAviso, "AT")
' If path <> "" Then VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaGS(path, (New System.Drawing.Printing.PrinterSettings).PrinterName)
' Catch ex As Exception : MsgBox(ex.Message & ex.StackTrace) : End Try
'End If
End If
ElseIf sender Is btnLKWStandzeitWE Then
insertVermerk("LKW Standzeit Wochenende", 21)
ElseIf sender Is btnLKWStandzeitFeierteage Then
insertVermerk("LKW Standzeit Feiertag(e)", 22)

View File

@@ -24,15 +24,15 @@ Partial Class frmHauptfenster
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmHauptfenster))
Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.mnuInfo = New System.Windows.Forms.ToolStripMenuItem()
Me.conÜbernehmen = New System.Windows.Forms.ToolStripMenuItem()
Me.conMenuAviso = New System.Windows.Forms.ContextMenuStrip(Me.components)
@@ -221,6 +221,7 @@ Partial Class frmHauptfenster
Me.Label6 = New System.Windows.Forms.Label()
Me.txtSuche = New System.Windows.Forms.TextBox()
Me.Top = New System.Windows.Forms.Panel()
Me.lblUsrname = New System.Windows.Forms.Label()
Me.lblFimaAviso = New System.Windows.Forms.Label()
Me.Button11 = New System.Windows.Forms.Button()
Me.btnMAVerzeichnis = New System.Windows.Forms.Button()
@@ -272,16 +273,13 @@ Partial Class frmHauptfenster
Me.SplitContainer3 = New System.Windows.Forms.SplitContainer()
Me.pnl = New System.Windows.Forms.Panel()
Me.Button10 = New System.Windows.Forms.Button()
Me.gridMyAviso = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Panel6 = New System.Windows.Forms.Panel()
Me.btnColor = New System.Windows.Forms.Button()
Me.lblMeineAviso = New System.Windows.Forms.Label()
Me.cboMy_Grenzstelle = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.lblMySnd_Grenzstelle = New System.Windows.Forms.Label()
Me.cbx_My_LKW = New System.Windows.Forms.CheckBox()
Me.cboMy_QS = New System.Windows.Forms.CheckBox()
Me.cboMy_VB = New System.Windows.Forms.CheckBox()
Me.cboMyAvisoAnzeige = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.lblMySND_Anzeige = New System.Windows.Forms.Label()
Me.lblAkte = New System.Windows.Forms.Label()
Me.btnClose = New System.Windows.Forms.Button()
@@ -302,22 +300,16 @@ Partial Class frmHauptfenster
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
Me.pnlDetailsLinks = New System.Windows.Forms.Panel()
Me.splitMain = New System.Windows.Forms.SplitContainer()
Me.gridAviso = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Panel1 = New System.Windows.Forms.Panel()
Me.txtBestimmungszollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.Label10 = New System.Windows.Forms.Label()
Me.cboImEx = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label21 = New System.Windows.Forms.Label()
Me.cbxCluster = New System.Windows.Forms.CheckBox()
Me.cboTeams = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.lblErweitereSuche = New System.Windows.Forms.LinkLabel()
Me.Label16 = New System.Windows.Forms.Label()
Me.Label8 = New System.Windows.Forms.Label()
Me.lblEintraege = New System.Windows.Forms.Label()
Me.cboGrenzstelle = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.pnlTime = New System.Windows.Forms.Panel()
Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.pnlSearch = New System.Windows.Forms.Panel()
Me.txtDyRef = New System.Windows.Forms.TextBox()
Me.Label19 = New System.Windows.Forms.Label()
@@ -336,7 +328,6 @@ Partial Class frmHauptfenster
Me.Button4 = New System.Windows.Forms.Button()
Me.lblErwEmpfänger = New System.Windows.Forms.Label()
Me.txtEmpfänger = New System.Windows.Forms.TextBox()
Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtAbfertigungsnummer = New System.Windows.Forms.TextBox()
Me.lblErwFilialePos = New System.Windows.Forms.Label()
Me.lblErwAuftraggeber = New System.Windows.Forms.Label()
@@ -368,10 +359,20 @@ Partial Class frmHauptfenster
Me.ToolStripMenuItem19 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem20 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem21 = New System.Windows.Forms.ToolStripMenuItem()
Me.cbx_My_Brexit = New System.Windows.Forms.CheckBox()
Me.btnMitarbeiterKonto = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem()
Me.gridAviso = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.txtBestimmungszollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.cboImEx = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboTeams = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboGrenzstelle = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.UsrCntlBenachrichtigungen1 = New AVISO.usrCntlBenachrichtigungen()
Me.lblUsrname = New System.Windows.Forms.Label()
Me.gridMyAviso = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.cboMy_Grenzstelle = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboMyAvisoAnzeige = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.conMenuAviso.SuspendLayout()
Me.MenuStrip1.SuspendLayout()
Me.pnlDetailsRechts.SuspendLayout()
@@ -391,7 +392,6 @@ Partial Class frmHauptfenster
Me.SplitContainer3.Panel2.SuspendLayout()
Me.SplitContainer3.SuspendLayout()
Me.pnl.SuspendLayout()
CType(Me.gridMyAviso, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel6.SuspendLayout()
Me.tbcntrAviso.SuspendLayout()
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -403,13 +403,14 @@ Partial Class frmHauptfenster
Me.splitMain.Panel1.SuspendLayout()
Me.splitMain.Panel2.SuspendLayout()
Me.splitMain.SuspendLayout()
CType(Me.gridAviso, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout()
Me.pnlTime.SuspendLayout()
Me.pnlSearch.SuspendLayout()
Me.pnlOptionen.SuspendLayout()
Me.cntxt.SuspendLayout()
Me.ctxtFarben.SuspendLayout()
CType(Me.gridAviso, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.gridMyAviso, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'mnuInfo
@@ -1652,6 +1653,19 @@ Partial Class frmHauptfenster
Me.Top.Size = New System.Drawing.Size(1372, 52)
Me.Top.TabIndex = 6
'
'lblUsrname
'
Me.lblUsrname.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblUsrname.BackColor = System.Drawing.Color.White
Me.lblUsrname.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.lblUsrname.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.lblUsrname.Location = New System.Drawing.Point(1252, 34)
Me.lblUsrname.Name = "lblUsrname"
Me.lblUsrname.Size = New System.Drawing.Size(75, 13)
Me.lblUsrname.TabIndex = 86
Me.lblUsrname.Text = "ADMIN"
Me.lblUsrname.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'lblFimaAviso
'
Me.lblFimaAviso.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -2326,53 +2340,10 @@ Partial Class frmHauptfenster
Me.Button10.Text = "<"
Me.Button10.UseVisualStyleBackColor = False
'
'gridMyAviso
'
Me.gridMyAviso.AKTUALISIERUNGS_INTERVALL = -1
Me.gridMyAviso.AllowUserToAddRows = False
Me.gridMyAviso.AllowUserToDeleteRows = False
Me.gridMyAviso.AllowUserToOrderColumns = True
Me.gridMyAviso.AllowUserToResizeRows = False
DataGridViewCellStyle10.BackColor = System.Drawing.Color.Azure
Me.gridMyAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle10
Me.gridMyAviso.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle11.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
DataGridViewCellStyle11.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle11.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle11.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridMyAviso.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle11
Me.gridMyAviso.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle12.Font = New System.Drawing.Font("Microsoft Sans Serif", 5.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridMyAviso.DefaultCellStyle = DataGridViewCellStyle12
Me.gridMyAviso.Dock = System.Windows.Forms.DockStyle.Fill
Me.gridMyAviso.Location = New System.Drawing.Point(0, 21)
Me.gridMyAviso.Name = "gridMyAviso"
Me.gridMyAviso.ReadOnly = True
DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle13.Font = New System.Drawing.Font("Microsoft Sans Serif", 5.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle13.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridMyAviso.RowHeadersDefaultCellStyle = DataGridViewCellStyle13
Me.gridMyAviso.RowHeadersVisible = False
Me.gridMyAviso.RowHeadersWidth = 62
Me.gridMyAviso.Size = New System.Drawing.Size(488, 279)
Me.gridMyAviso.TabIndex = 0
'
'Panel6
'
Me.Panel6.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Panel6.Controls.Add(Me.cbx_My_Brexit)
Me.Panel6.Controls.Add(Me.btnColor)
Me.Panel6.Controls.Add(Me.lblMeineAviso)
Me.Panel6.Controls.Add(Me.cboMy_Grenzstelle)
@@ -2411,23 +2382,6 @@ Partial Class frmHauptfenster
Me.lblMeineAviso.TabIndex = 0
Me.lblMeineAviso.Text = "Meine Sendungen:"
'
'cboMy_Grenzstelle
'
Me.cboMy_Grenzstelle._allowedValuesFreiText = Nothing
Me.cboMy_Grenzstelle._allowFreiText = False
Me.cboMy_Grenzstelle._value = ""
Me.cboMy_Grenzstelle.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.cboMy_Grenzstelle.BackColor = System.Drawing.Color.WhiteSmoke
Me.cboMy_Grenzstelle.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboMy_Grenzstelle.DropDownWidth = 120
Me.cboMy_Grenzstelle.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cboMy_Grenzstelle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.cboMy_Grenzstelle.FormattingEnabled = True
Me.cboMy_Grenzstelle.Location = New System.Drawing.Point(113, 1)
Me.cboMy_Grenzstelle.Name = "cboMy_Grenzstelle"
Me.cboMy_Grenzstelle.Size = New System.Drawing.Size(64, 21)
Me.cboMy_Grenzstelle.TabIndex = 26
'
'lblMySnd_Grenzstelle
'
Me.lblMySnd_Grenzstelle.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -2479,22 +2433,6 @@ Partial Class frmHauptfenster
Me.cboMy_VB.ThreeState = True
Me.cboMy_VB.UseVisualStyleBackColor = True
'
'cboMyAvisoAnzeige
'
Me.cboMyAvisoAnzeige._allowedValuesFreiText = Nothing
Me.cboMyAvisoAnzeige._allowFreiText = False
Me.cboMyAvisoAnzeige._value = ""
Me.cboMyAvisoAnzeige.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.cboMyAvisoAnzeige.BackColor = System.Drawing.Color.WhiteSmoke
Me.cboMyAvisoAnzeige.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboMyAvisoAnzeige.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cboMyAvisoAnzeige.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.cboMyAvisoAnzeige.FormattingEnabled = True
Me.cboMyAvisoAnzeige.Location = New System.Drawing.Point(232, 1)
Me.cboMyAvisoAnzeige.Name = "cboMyAvisoAnzeige"
Me.cboMyAvisoAnzeige.Size = New System.Drawing.Size(127, 21)
Me.cboMyAvisoAnzeige.TabIndex = 21
'
'lblMySND_Anzeige
'
Me.lblMySND_Anzeige.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -2757,60 +2695,6 @@ Partial Class frmHauptfenster
Me.splitMain.SplitterDistance = 288
Me.splitMain.TabIndex = 0
'
'gridAviso
'
Me.gridAviso.AKTUALISIERUNGS_INTERVALL = -1
Me.gridAviso.AllowUserToAddRows = False
Me.gridAviso.AllowUserToDeleteRows = False
Me.gridAviso.AllowUserToResizeRows = False
DataGridViewCellStyle14.BackColor = System.Drawing.Color.Azure
DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle14
Me.gridAviso.BackgroundColor = System.Drawing.Color.DarkGray
Me.gridAviso.ClipboardCopyMode = System.Windows.Forms.DataGridViewClipboardCopyMode.Disable
DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle15.BackColor = System.Drawing.Color.LightBlue
DataGridViewCellStyle15.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle15.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle15.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle15.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridAviso.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle15
Me.gridAviso.ColumnHeadersHeight = 25
Me.gridAviso.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle16.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle16.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle16.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle16.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.DefaultCellStyle = DataGridViewCellStyle16
Me.gridAviso.Dock = System.Windows.Forms.DockStyle.Fill
Me.gridAviso.Location = New System.Drawing.Point(0, 220)
Me.gridAviso.MultiSelect = False
Me.gridAviso.Name = "gridAviso"
Me.gridAviso.ReadOnly = True
DataGridViewCellStyle17.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle17.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle17.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle17.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle17.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle17.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle17.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.RowHeadersDefaultCellStyle = DataGridViewCellStyle17
Me.gridAviso.RowHeadersVisible = False
Me.gridAviso.RowHeadersWidth = 62
Me.gridAviso.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.RowsDefaultCellStyle = DataGridViewCellStyle18
Me.gridAviso.RowTemplate.ReadOnly = True
Me.gridAviso.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.gridAviso.Size = New System.Drawing.Size(815, 68)
Me.gridAviso.TabIndex = 1
Me.gridAviso.TabStop = False
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
@@ -2844,32 +2728,6 @@ Partial Class frmHauptfenster
Me.Panel1.Size = New System.Drawing.Size(815, 220)
Me.Panel1.TabIndex = 2
'
'txtBestimmungszollstelle
'
Me.txtBestimmungszollstelle._allowFreitext = False
Me.txtBestimmungszollstelle._AllowSetValue = False
Me.txtBestimmungszollstelle._allowSpaceAsSplitter = False
Me.txtBestimmungszollstelle._autoSizeGross = False
Me.txtBestimmungszollstelle._hideIfListEmpty = True
Me.txtBestimmungszollstelle._value = Nothing
Me.txtBestimmungszollstelle.conn_art = "FMZOLL"
Me.txtBestimmungszollstelle.dgvpos = "LEFT"
Me.txtBestimmungszollstelle.DISPLAY_PARAM = Nothing
Me.txtBestimmungszollstelle.INVISIBLE_COLUMNS = Nothing
Me.txtBestimmungszollstelle.key_visible = False
Me.txtBestimmungszollstelle.KEYPARAM = Nothing
Me.txtBestimmungszollstelle.Location = New System.Drawing.Point(379, 55)
Me.txtBestimmungszollstelle.MaxLength = 50
Me.txtBestimmungszollstelle.Name = "txtBestimmungszollstelle"
Me.txtBestimmungszollstelle.searchActive = True
Me.txtBestimmungszollstelle.Size = New System.Drawing.Size(211, 20)
Me.txtBestimmungszollstelle.SQL_ORDER_BY = Nothing
Me.txtBestimmungszollstelle.SQL_SELECT = Nothing
Me.txtBestimmungszollstelle.SQL_WHERE = Nothing
Me.txtBestimmungszollstelle.SQL_WhereParamList = Nothing
Me.txtBestimmungszollstelle.TabIndex = 25
Me.txtBestimmungszollstelle.usrcntl = Nothing
'
'Label10
'
Me.Label10.AutoSize = True
@@ -2880,22 +2738,6 @@ Partial Class frmHauptfenster
Me.Label10.TabIndex = 26
Me.Label10.Text = "Zollamt:"
'
'cboImEx
'
Me.cboImEx._allowedValuesFreiText = Nothing
Me.cboImEx._allowFreiText = False
Me.cboImEx._value = ""
Me.cboImEx.BackColor = System.Drawing.Color.WhiteSmoke
Me.cboImEx.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboImEx.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cboImEx.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboImEx.FormattingEnabled = True
Me.cboImEx.Items.AddRange(New Object() {"ALLE", "SUB", "SBG", "WAI", "NKD"})
Me.cboImEx.Location = New System.Drawing.Point(828, 3)
Me.cboImEx.Name = "cboImEx"
Me.cboImEx.Size = New System.Drawing.Size(78, 24)
Me.cboImEx.TabIndex = 24
'
'Label21
'
Me.Label21.AutoSize = True
@@ -2919,22 +2761,6 @@ Partial Class frmHauptfenster
Me.cbxCluster.Text = "Firmenverbund"
Me.cbxCluster.UseVisualStyleBackColor = True
'
'cboTeams
'
Me.cboTeams._allowedValuesFreiText = Nothing
Me.cboTeams._allowFreiText = False
Me.cboTeams._value = ""
Me.cboTeams.BackColor = System.Drawing.Color.WhiteSmoke
Me.cboTeams.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboTeams.DropDownWidth = 200
Me.cboTeams.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cboTeams.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboTeams.FormattingEnabled = True
Me.cboTeams.Location = New System.Drawing.Point(379, 3)
Me.cboTeams.Name = "cboTeams"
Me.cboTeams.Size = New System.Drawing.Size(107, 24)
Me.cboTeams.TabIndex = 19
'
'lblErweitereSuche
'
Me.lblErweitereSuche.AutoSize = True
@@ -2980,23 +2806,6 @@ Partial Class frmHauptfenster
Me.lblEintraege.Text = "0 Einträge"
Me.lblEintraege.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'cboGrenzstelle
'
Me.cboGrenzstelle._allowedValuesFreiText = Nothing
Me.cboGrenzstelle._allowFreiText = False
Me.cboGrenzstelle._value = ""
Me.cboGrenzstelle.BackColor = System.Drawing.Color.WhiteSmoke
Me.cboGrenzstelle.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboGrenzstelle.DropDownWidth = 200
Me.cboGrenzstelle.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cboGrenzstelle.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboGrenzstelle.FormattingEnabled = True
Me.cboGrenzstelle.Items.AddRange(New Object() {"ALLE", "SUB", "SBG", "WAI", "NKD", "NEU", "AMB", "???"})
Me.cboGrenzstelle.Location = New System.Drawing.Point(379, 30)
Me.cboGrenzstelle.Name = "cboGrenzstelle"
Me.cboGrenzstelle.Size = New System.Drawing.Size(107, 24)
Me.cboGrenzstelle.TabIndex = 13
'
'Label4
'
Me.Label4.AutoSize = True
@@ -3024,22 +2833,6 @@ Partial Class frmHauptfenster
Me.pnlTime.Size = New System.Drawing.Size(437, 57)
Me.pnlTime.TabIndex = 12
'
'MyComboBox1
'
Me.MyComboBox1._allowedValuesFreiText = Nothing
Me.MyComboBox1._allowFreiText = False
Me.MyComboBox1._value = ""
Me.MyComboBox1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.MyComboBox1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.MyComboBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.MyComboBox1.ForeColor = System.Drawing.Color.White
Me.MyComboBox1.FormattingEnabled = True
Me.MyComboBox1.Location = New System.Drawing.Point(46, 1)
Me.MyComboBox1.MaxLength = 4
Me.MyComboBox1.Name = "MyComboBox1"
Me.MyComboBox1.Size = New System.Drawing.Size(98, 21)
Me.MyComboBox1.TabIndex = 7
'
'pnlSearch
'
Me.pnlSearch.Controls.Add(Me.txtDyRef)
@@ -3247,20 +3040,6 @@ Partial Class frmHauptfenster
Me.txtEmpfänger.Size = New System.Drawing.Size(236, 23)
Me.txtEmpfänger.TabIndex = 5
'
'cboFiliale
'
Me.cboFiliale._allowedValuesFreiText = Nothing
Me.cboFiliale._allowFreiText = False
Me.cboFiliale._value = ""
Me.cboFiliale.DropDownWidth = 300
Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboFiliale.FormattingEnabled = True
Me.cboFiliale.Location = New System.Drawing.Point(389, 13)
Me.cboFiliale.MaxLength = 4
Me.cboFiliale.Name = "cboFiliale"
Me.cboFiliale.Size = New System.Drawing.Size(70, 24)
Me.cboFiliale.TabIndex = 3
'
'txtAbfertigungsnummer
'
Me.txtAbfertigungsnummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -3503,6 +3282,19 @@ Partial Class frmHauptfenster
Me.ToolStripMenuItem21.Size = New System.Drawing.Size(121, 22)
Me.ToolStripMenuItem21.Text = "GELB"
'
'cbx_My_Brexit
'
Me.cbx_My_Brexit.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.cbx_My_Brexit.AutoSize = True
Me.cbx_My_Brexit.ForeColor = System.Drawing.Color.White
Me.cbx_My_Brexit.Location = New System.Drawing.Point(-91, 3)
Me.cbx_My_Brexit.Name = "cbx_My_Brexit"
Me.cbx_My_Brexit.Size = New System.Drawing.Size(65, 17)
Me.cbx_My_Brexit.TabIndex = 28
Me.cbx_My_Brexit.Text = "BREXIT"
Me.cbx_My_Brexit.UseVisualStyleBackColor = True
Me.cbx_My_Brexit.Visible = False
'
'btnMitarbeiterKonto
'
Me.btnMitarbeiterKonto.allowBorder = False
@@ -3532,6 +3324,165 @@ Partial Class frmHauptfenster
Me.UsrCntlTestsystem1.Size = New System.Drawing.Size(152, 28)
Me.UsrCntlTestsystem1.TabIndex = 8
'
'gridAviso
'
Me.gridAviso.AKTUALISIERUNGS_INTERVALL = -1
Me.gridAviso.AllowUserToAddRows = False
Me.gridAviso.AllowUserToDeleteRows = False
Me.gridAviso.AllowUserToResizeRows = False
DataGridViewCellStyle5.BackColor = System.Drawing.Color.Azure
DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
Me.gridAviso.BackgroundColor = System.Drawing.Color.DarkGray
Me.gridAviso.ClipboardCopyMode = System.Windows.Forms.DataGridViewClipboardCopyMode.Disable
DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle6.BackColor = System.Drawing.Color.LightBlue
DataGridViewCellStyle6.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridAviso.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle6
Me.gridAviso.ColumnHeadersHeight = 25
Me.gridAviso.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle7.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle7.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle7.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle7.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.DefaultCellStyle = DataGridViewCellStyle7
Me.gridAviso.Dock = System.Windows.Forms.DockStyle.Fill
Me.gridAviso.Location = New System.Drawing.Point(0, 220)
Me.gridAviso.MultiSelect = False
Me.gridAviso.Name = "gridAviso"
Me.gridAviso.ReadOnly = True
DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle8.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle8.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle8.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.RowHeadersDefaultCellStyle = DataGridViewCellStyle8
Me.gridAviso.RowHeadersVisible = False
Me.gridAviso.RowHeadersWidth = 62
Me.gridAviso.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.RowsDefaultCellStyle = DataGridViewCellStyle9
Me.gridAviso.RowTemplate.ReadOnly = True
Me.gridAviso.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.gridAviso.Size = New System.Drawing.Size(815, 68)
Me.gridAviso.TabIndex = 1
Me.gridAviso.TabStop = False
'
'txtBestimmungszollstelle
'
Me.txtBestimmungszollstelle._allowFreitext = False
Me.txtBestimmungszollstelle._AllowSetValue = False
Me.txtBestimmungszollstelle._allowSpaceAsSplitter = False
Me.txtBestimmungszollstelle._autoSizeGross = False
Me.txtBestimmungszollstelle._hideIfListEmpty = True
Me.txtBestimmungszollstelle._value = Nothing
Me.txtBestimmungszollstelle.conn_art = "FMZOLL"
Me.txtBestimmungszollstelle.dgvpos = "LEFT"
Me.txtBestimmungszollstelle.DISPLAY_PARAM = Nothing
Me.txtBestimmungszollstelle.INVISIBLE_COLUMNS = Nothing
Me.txtBestimmungszollstelle.key_visible = False
Me.txtBestimmungszollstelle.KEYPARAM = Nothing
Me.txtBestimmungszollstelle.Location = New System.Drawing.Point(379, 55)
Me.txtBestimmungszollstelle.MaxLength = 50
Me.txtBestimmungszollstelle.Name = "txtBestimmungszollstelle"
Me.txtBestimmungszollstelle.searchActive = True
Me.txtBestimmungszollstelle.Size = New System.Drawing.Size(211, 20)
Me.txtBestimmungszollstelle.SQL_ORDER_BY = Nothing
Me.txtBestimmungszollstelle.SQL_SELECT = Nothing
Me.txtBestimmungszollstelle.SQL_WHERE = Nothing
Me.txtBestimmungszollstelle.SQL_WhereParamList = Nothing
Me.txtBestimmungszollstelle.TabIndex = 25
Me.txtBestimmungszollstelle.usrcntl = Nothing
'
'cboImEx
'
Me.cboImEx._allowedValuesFreiText = Nothing
Me.cboImEx._allowFreiText = False
Me.cboImEx._value = ""
Me.cboImEx.BackColor = System.Drawing.Color.WhiteSmoke
Me.cboImEx.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboImEx.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cboImEx.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboImEx.FormattingEnabled = True
Me.cboImEx.Items.AddRange(New Object() {"ALLE", "SUB", "SBG", "WAI", "NKD"})
Me.cboImEx.Location = New System.Drawing.Point(828, 3)
Me.cboImEx.Name = "cboImEx"
Me.cboImEx.Size = New System.Drawing.Size(78, 24)
Me.cboImEx.TabIndex = 24
'
'cboTeams
'
Me.cboTeams._allowedValuesFreiText = Nothing
Me.cboTeams._allowFreiText = False
Me.cboTeams._value = ""
Me.cboTeams.BackColor = System.Drawing.Color.WhiteSmoke
Me.cboTeams.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboTeams.DropDownWidth = 200
Me.cboTeams.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cboTeams.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboTeams.FormattingEnabled = True
Me.cboTeams.Location = New System.Drawing.Point(379, 3)
Me.cboTeams.Name = "cboTeams"
Me.cboTeams.Size = New System.Drawing.Size(107, 24)
Me.cboTeams.TabIndex = 19
'
'cboGrenzstelle
'
Me.cboGrenzstelle._allowedValuesFreiText = Nothing
Me.cboGrenzstelle._allowFreiText = False
Me.cboGrenzstelle._value = ""
Me.cboGrenzstelle.BackColor = System.Drawing.Color.WhiteSmoke
Me.cboGrenzstelle.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboGrenzstelle.DropDownWidth = 200
Me.cboGrenzstelle.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cboGrenzstelle.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboGrenzstelle.FormattingEnabled = True
Me.cboGrenzstelle.Items.AddRange(New Object() {"ALLE", "SUB", "SBG", "WAI", "NKD", "NEU", "AMB", "???"})
Me.cboGrenzstelle.Location = New System.Drawing.Point(379, 30)
Me.cboGrenzstelle.Name = "cboGrenzstelle"
Me.cboGrenzstelle.Size = New System.Drawing.Size(107, 24)
Me.cboGrenzstelle.TabIndex = 13
'
'MyComboBox1
'
Me.MyComboBox1._allowedValuesFreiText = Nothing
Me.MyComboBox1._allowFreiText = False
Me.MyComboBox1._value = ""
Me.MyComboBox1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.MyComboBox1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.MyComboBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.MyComboBox1.ForeColor = System.Drawing.Color.White
Me.MyComboBox1.FormattingEnabled = True
Me.MyComboBox1.Location = New System.Drawing.Point(46, 1)
Me.MyComboBox1.MaxLength = 4
Me.MyComboBox1.Name = "MyComboBox1"
Me.MyComboBox1.Size = New System.Drawing.Size(98, 21)
Me.MyComboBox1.TabIndex = 7
'
'cboFiliale
'
Me.cboFiliale._allowedValuesFreiText = Nothing
Me.cboFiliale._allowFreiText = False
Me.cboFiliale._value = ""
Me.cboFiliale.DropDownWidth = 300
Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboFiliale.FormattingEnabled = True
Me.cboFiliale.Location = New System.Drawing.Point(389, 13)
Me.cboFiliale.MaxLength = 4
Me.cboFiliale.Name = "cboFiliale"
Me.cboFiliale.Size = New System.Drawing.Size(70, 24)
Me.cboFiliale.TabIndex = 3
'
'UsrCntlBenachrichtigungen1
'
Me.UsrCntlBenachrichtigungen1.Dock = System.Windows.Forms.DockStyle.Fill
@@ -3541,18 +3492,82 @@ Partial Class frmHauptfenster
Me.UsrCntlBenachrichtigungen1.Size = New System.Drawing.Size(158, 300)
Me.UsrCntlBenachrichtigungen1.TabIndex = 0
'
'lblUsrname
'gridMyAviso
'
Me.lblUsrname.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblUsrname.BackColor = System.Drawing.Color.White
Me.lblUsrname.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.lblUsrname.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.lblUsrname.Location = New System.Drawing.Point(1252, 34)
Me.lblUsrname.Name = "lblUsrname"
Me.lblUsrname.Size = New System.Drawing.Size(75, 13)
Me.lblUsrname.TabIndex = 86
Me.lblUsrname.Text = "ADMIN"
Me.lblUsrname.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.gridMyAviso.AKTUALISIERUNGS_INTERVALL = -1
Me.gridMyAviso.AllowUserToAddRows = False
Me.gridMyAviso.AllowUserToDeleteRows = False
Me.gridMyAviso.AllowUserToOrderColumns = True
Me.gridMyAviso.AllowUserToResizeRows = False
DataGridViewCellStyle1.BackColor = System.Drawing.Color.Azure
Me.gridMyAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
Me.gridMyAviso.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridMyAviso.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2
Me.gridMyAviso.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 5.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridMyAviso.DefaultCellStyle = DataGridViewCellStyle3
Me.gridMyAviso.Dock = System.Windows.Forms.DockStyle.Fill
Me.gridMyAviso.Location = New System.Drawing.Point(0, 21)
Me.gridMyAviso.Name = "gridMyAviso"
Me.gridMyAviso.ReadOnly = True
DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 5.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridMyAviso.RowHeadersDefaultCellStyle = DataGridViewCellStyle4
Me.gridMyAviso.RowHeadersVisible = False
Me.gridMyAviso.RowHeadersWidth = 62
Me.gridMyAviso.Size = New System.Drawing.Size(488, 279)
Me.gridMyAviso.TabIndex = 0
'
'cboMy_Grenzstelle
'
Me.cboMy_Grenzstelle._allowedValuesFreiText = Nothing
Me.cboMy_Grenzstelle._allowFreiText = False
Me.cboMy_Grenzstelle._value = ""
Me.cboMy_Grenzstelle.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.cboMy_Grenzstelle.BackColor = System.Drawing.Color.WhiteSmoke
Me.cboMy_Grenzstelle.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboMy_Grenzstelle.DropDownWidth = 120
Me.cboMy_Grenzstelle.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cboMy_Grenzstelle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.cboMy_Grenzstelle.FormattingEnabled = True
Me.cboMy_Grenzstelle.Location = New System.Drawing.Point(113, 1)
Me.cboMy_Grenzstelle.Name = "cboMy_Grenzstelle"
Me.cboMy_Grenzstelle.Size = New System.Drawing.Size(64, 21)
Me.cboMy_Grenzstelle.TabIndex = 26
'
'cboMyAvisoAnzeige
'
Me.cboMyAvisoAnzeige._allowedValuesFreiText = Nothing
Me.cboMyAvisoAnzeige._allowFreiText = False
Me.cboMyAvisoAnzeige._value = ""
Me.cboMyAvisoAnzeige.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.cboMyAvisoAnzeige.BackColor = System.Drawing.Color.WhiteSmoke
Me.cboMyAvisoAnzeige.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboMyAvisoAnzeige.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cboMyAvisoAnzeige.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.cboMyAvisoAnzeige.FormattingEnabled = True
Me.cboMyAvisoAnzeige.Location = New System.Drawing.Point(232, 1)
Me.cboMyAvisoAnzeige.Name = "cboMyAvisoAnzeige"
Me.cboMyAvisoAnzeige.Size = New System.Drawing.Size(127, 21)
Me.cboMyAvisoAnzeige.TabIndex = 21
'
'frmHauptfenster
'
@@ -3597,7 +3612,6 @@ Partial Class frmHauptfenster
CType(Me.SplitContainer3, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainer3.ResumeLayout(False)
Me.pnl.ResumeLayout(False)
CType(Me.gridMyAviso, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel6.ResumeLayout(False)
Me.Panel6.PerformLayout()
Me.tbcntrAviso.ResumeLayout(False)
@@ -3612,7 +3626,6 @@ Partial Class frmHauptfenster
Me.splitMain.Panel2.ResumeLayout(False)
CType(Me.splitMain, System.ComponentModel.ISupportInitialize).EndInit()
Me.splitMain.ResumeLayout(False)
CType(Me.gridAviso, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
Me.pnlTime.ResumeLayout(False)
@@ -3622,6 +3635,8 @@ Partial Class frmHauptfenster
Me.pnlOptionen.ResumeLayout(False)
Me.cntxt.ResumeLayout(False)
Me.ctxtFarben.ResumeLayout(False)
CType(Me.gridAviso, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.gridMyAviso, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
@@ -3965,4 +3980,5 @@ Partial Class frmHauptfenster
Friend WithEvents WarenorteToolStripMenuItem As ToolStripMenuItem
Friend WithEvents btnMitarbeiterKonto As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents lblUsrname As Label
Friend WithEvents cbx_My_Brexit As CheckBox
End Class

View File

@@ -228,9 +228,6 @@
pOTzPwAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>598, 17</value>
</metadata>
<metadata name="BackgroundWorker1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>697, 17</value>
</metadata>

View File

@@ -244,14 +244,14 @@ Public Class frmHauptfenster
cboMy_Grenzstelle.changeItem("")
Else
cboMy_Grenzstelle.Items.Clear()
If Not VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Then ' Nicht, wenn Front-Office
cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE (BACKOFFICE)", "ALLE_BACK"))
End If
''''If Not VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Then ' Nicht, wenn Front-Office
'''' cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE (BACKOFFICE)", "ALLE_BACK"))
''''End If
cboMy_Grenzstelle.fillWithSQL("SELECT [grz_Grenzstelle],[grz_BezeichnungCBO] FROM tblGrenzstelle where ([grz_Firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "') AND grz_Aktiv=1 order by grz_Reihenfolge, grz_Grenzstelle", False, "AVISO", True, False, "ALLE")
cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("??? - Andere", "???"))
cboMy_Grenzstelle.changeItem("")
cboMy_Grenzstelle.changeItem("ALLE_BACK") 'greift nur wenn verfügbar..
''''cboMy_Grenzstelle.changeItem("ALLE_BACK") 'greift nur wenn verfügbar..
End If
@@ -385,6 +385,7 @@ Public Class frmHauptfenster
End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("BREXIT", "AVISO") Then
BREXITToolStripMenuItem.Visible = True
cbx_My_Brexit.Checked = True
End If
'If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Speditionsbuch", "AVISO") Then
@@ -1258,6 +1259,7 @@ Public Class frmHauptfenster
End Select
If cboMy_Grenzstelle._value.Replace("ALLE_BACK", "") <> "" Then sqlStr &= " AND Grenzstelle = '" & cboMy_Grenzstelle._value & "'"
If cboMy_Grenzstelle._value = "ALLE_BACK" Then sqlStr &= " AND FilialenNr NOT IN ('7001','7002','7003') "
If cbx_My_Brexit.Visible AndAlso Not cbx_My_Brexit.Checked Then sqlStr &= " AND FilialenNr NOT IN ('7001','7002','7003') "
'Farbe
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("AVISO_MeineSND_Farbe") Then
@@ -3958,7 +3960,7 @@ Public Class frmHauptfenster
End Sub
Private Sub cboMyAvisoAnzeige_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboMyAvisoAnzeige.SelectedIndexChanged, cbx_My_LKW.CheckedChanged, cboMy_Grenzstelle.SelectedIndexChanged, cboMy_QS.CheckStateChanged, cboMy_VB.CheckStateChanged
Private Sub cboMyAvisoAnzeige_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboMyAvisoAnzeige.SelectedIndexChanged, cbx_My_LKW.CheckedChanged, cbx_My_Brexit.CheckedChanged, cboMy_Grenzstelle.SelectedIndexChanged, cboMy_QS.CheckStateChanged, cboMy_VB.CheckStateChanged
If Grid_aktiv Then
'Wenn VERIMEX/T1 und cboMyAvisoAnzeige geändert --> Checkboxes richtig setzen
If sender Is cboMyAvisoAnzeige Then
@@ -3990,8 +3992,10 @@ Public Class frmHauptfenster
End If
If cbx_My_LKW.Checked Then
lblMeineAviso.Text = "Meine Aviso:"
cbx_My_Brexit.Visible = False
Else
lblMeineAviso.Text = "Meine Sendungen:"
cbx_My_Brexit.Visible = True
End If
End Sub

View File

@@ -3141,6 +3141,7 @@ Public Class frmSendungsdetailsNEU
when [anh_Art] = 'ATR-EUR1' then 0
when [anh_Art] = 'Rechnung' then 1
when [anh_Art] = 'eFatura' then 1.1
when [anh_Art] = 'CMR' then 2
when [anh_Art] = 'Ausfuhr' then 3
when [anh_Art] = 'Vorpapier' then 4
@@ -5753,7 +5754,11 @@ Public Class frmSendungsdetailsNEU
lblSNDChat_MsgCnt.Visible = True
lblSNDChat_MsgCnt.BringToFront()
End If
'If VERAG_PROG_ALLGEMEIN.cMessenger.isACTIVE_SendungsID(SendungsID) Then
' lblSNDChat_MsgCnt.Text = "!!"
' lblSNDChat_MsgCnt.Visible = True
' lblSNDChat_MsgCnt.BringToFront()
'End If
End If
End If

View File

@@ -141,8 +141,13 @@ Public Class usrcntlAktDetails
lblLKWChat_MsgCnt.Visible = True
lblLKWChat_MsgCnt.BringToFront()
End If
'If VERAG_PROG_ALLGEMEIN.cMessenger.isACTIVE_AVISOID(AvisoID) Then
' lblLKWChat_MsgCnt.Text = "!!"
' lblLKWChat_MsgCnt.Visible = True
' lblLKWChat_MsgCnt.BringToFront()
'End If
End If
End If
End If
End Sub
Sub initSND_CHAT(SendungsID)
@@ -158,6 +163,11 @@ Public Class usrcntlAktDetails
lblSNDChat_MsgCnt.Visible = True
lblSNDChat_MsgCnt.BringToFront()
End If
'If VERAG_PROG_ALLGEMEIN.cMessenger.isACTIVE_SendungsID(SendungsID) Then
' lblSNDChat_MsgCnt.Text = "!!"
' lblSNDChat_MsgCnt.Visible = True
' lblSNDChat_MsgCnt.BringToFront()
'End If
End If
End If
@@ -755,6 +765,7 @@ Public Class usrcntlAktDetails
case
when [anh_Art] = 'ATR-EUR1' then 0
when [anh_Art] = 'Rechnung' then 1
when [anh_Art] = 'eFatura' then 1.1
when [anh_Art] = 'CMR' then 2
when [anh_Art] = 'Ausfuhr' then 3
when [anh_Art] = 'Vorpapier' then 4

View File

@@ -479,6 +479,7 @@ Public Class usrcntlAktDetailsATILLANeu
case
when [anh_Art] = 'ATR-EUR1' then 0
when [anh_Art] = 'Rechnung' then 1
when [anh_Art] = 'eFatura' then 1.1
when [anh_Art] = 'CMR' then 2
when [anh_Art] = 'Ausfuhr' then 3
when [anh_Art] = 'Vorpapier' then 4