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

AT-ZOLL eingereicht Fiskal Checkliste

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-03-10 08:20:49 +01:00
parent e5228f3038
commit e0c0d74b9a
6 changed files with 2217 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Aviso/Aviso.vbproj
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>

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.8.6.7")>
<Assembly: AssemblyFileVersion("3.8.6.7")>
<Assembly: AssemblyVersion("3.8.6.9")>
<Assembly: AssemblyFileVersion("3.8.6.9")>

757
Aviso/frmATZollEingereichtSetzen.Designer.vb generated Normal file
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

1253
Aviso/frmATZollEingereichtSetzen.resx Normal file
View File

File diff suppressed because it is too large Load Diff

162
Aviso/frmATZollEingereichtSetzen.vb Normal file
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

42
Aviso/frmAddAktenvermerkShort.vb
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)