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

AAS (AvisoAlertSystem)

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-09-20 10:55:00 +02:00
parent 8f8a18cce0
commit e6fcd7f4f9
3 changed files with 475 additions and 258 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
View File

@@ -6188,8 +6188,8 @@ Public Class frmDYNachrichtenVerarbeitung
End If End If
'Wenn TEAM nicht gefunden, Firma... 'Wenn TEAM nicht gefunden, Firma...
If EZA_TMP IsNot Nothing AndAlso EZA_TMP.eza_firma IsNot Nothing AndAlso EZA_TMP.eza_firma <> "" Then If sendToID <= 0 Then
If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then If EZA_TMP IsNot Nothing AndAlso EZA_TMP.eza_firma IsNot Nothing AndAlso EZA_TMP.eza_firma <> "" Then
sendToID = EZA_TMP.eza_firma sendToID = EZA_TMP.eza_firma
art = "F" art = "F"
End If End If
@@ -6242,8 +6242,8 @@ Public Class frmDYNachrichtenVerarbeitung
End If End If
'Wenn TEAM nicht gefunden, Firma... 'Wenn TEAM nicht gefunden, Firma...
If EZA_TMP IsNot Nothing AndAlso EZA_TMP.eza_firma IsNot Nothing AndAlso EZA_TMP.eza_firma <> "" Then If sendToID <= 0 Then
If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then If EZA_TMP IsNot Nothing AndAlso EZA_TMP.eza_firma IsNot Nothing AndAlso EZA_TMP.eza_firma <> "" Then
sendToID = EZA_TMP.eza_firma sendToID = EZA_TMP.eza_firma
art = "F" art = "F"
End If End If
@@ -6305,8 +6305,8 @@ Public Class frmDYNachrichtenVerarbeitung
End If End If
'Wenn TEAM nicht gefunden, Firma... 'Wenn TEAM nicht gefunden, Firma...
If EZA_TMP IsNot Nothing AndAlso EZA_TMP.eza_firma IsNot Nothing AndAlso EZA_TMP.eza_firma <> "" Then If sendToID <= 0 Then
If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then If EZA_TMP IsNot Nothing AndAlso EZA_TMP.eza_firma IsNot Nothing AndAlso EZA_TMP.eza_firma <> "" Then
sendToID = EZA_TMP.eza_firma sendToID = EZA_TMP.eza_firma
art = "F" art = "F"
End If End If

578
initATLASAufschubkonten/frmStartOptions.Designer.vb generated
View File

@@ -45,6 +45,7 @@ Partial Class frmStartOptions
Me.cbxSyskaWdh = New System.Windows.Forms.CheckBox() Me.cbxSyskaWdh = New System.Windows.Forms.CheckBox()
Me.txtSyskaWdhDateiname = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtSyskaWdhDateiname = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Button10 = New System.Windows.Forms.Button() Me.Button10 = New System.Windows.Forms.Button()
Me.piceZollAnh = New System.Windows.Forms.PictureBox()
Me.txtEZOLLAnhDat = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtEZOLLAnhDat = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.lblEZOLLDat = New System.Windows.Forms.LinkLabel() Me.lblEZOLLDat = New System.Windows.Forms.LinkLabel()
Me.Button6 = New System.Windows.Forms.Button() Me.Button6 = New System.Windows.Forms.Button()
@@ -65,12 +66,21 @@ Partial Class frmStartOptions
Me.CheckBox3 = New System.Windows.Forms.CheckBox() Me.CheckBox3 = New System.Windows.Forms.CheckBox()
Me.tbcntr = New System.Windows.Forms.TabControl() Me.tbcntr = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage() Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.Button20 = New System.Windows.Forms.Button()
Me.Button19 = New System.Windows.Forms.Button()
Me.Label23 = New System.Windows.Forms.Label()
Me.Button18 = New System.Windows.Forms.Button()
Me.Button17 = New System.Windows.Forms.Button()
Me.LinkLabel38 = New System.Windows.Forms.LinkLabel() Me.LinkLabel38 = New System.Windows.Forms.LinkLabel()
Me.PictureBox17 = New System.Windows.Forms.PictureBox()
Me.LinkLabel37 = New System.Windows.Forms.LinkLabel() Me.LinkLabel37 = New System.Windows.Forms.LinkLabel()
Me.PictureBox16 = New System.Windows.Forms.PictureBox()
Me.Button15 = New System.Windows.Forms.Button() Me.Button15 = New System.Windows.Forms.Button()
Me.Button8 = New System.Windows.Forms.Button() Me.Button8 = New System.Windows.Forms.Button()
Me.LinkLabel28 = New System.Windows.Forms.LinkLabel() Me.LinkLabel28 = New System.Windows.Forms.LinkLabel()
Me.LinkLabel4 = New System.Windows.Forms.LinkLabel() Me.LinkLabel4 = New System.Windows.Forms.LinkLabel()
Me.PictureBox13 = New System.Windows.Forms.PictureBox()
Me.picC0008 = New System.Windows.Forms.PictureBox()
Me.LinkLabel26 = New System.Windows.Forms.LinkLabel() Me.LinkLabel26 = New System.Windows.Forms.LinkLabel()
Me.Label2 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label()
Me.LinkLabel5 = New System.Windows.Forms.LinkLabel() Me.LinkLabel5 = New System.Windows.Forms.LinkLabel()
@@ -78,20 +88,28 @@ Partial Class frmStartOptions
Me.LinkLabel23 = New System.Windows.Forms.LinkLabel() Me.LinkLabel23 = New System.Windows.Forms.LinkLabel()
Me.LinkLabel7 = New System.Windows.Forms.LinkLabel() Me.LinkLabel7 = New System.Windows.Forms.LinkLabel()
Me.LinkLabel24 = New System.Windows.Forms.LinkLabel() Me.LinkLabel24 = New System.Windows.Forms.LinkLabel()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.Label5 = New System.Windows.Forms.Label() Me.Label5 = New System.Windows.Forms.Label()
Me.LinkLabel8 = New System.Windows.Forms.LinkLabel() Me.LinkLabel8 = New System.Windows.Forms.LinkLabel()
Me.LinkLabel21 = New System.Windows.Forms.LinkLabel() Me.LinkLabel21 = New System.Windows.Forms.LinkLabel()
Me.PictureBox2 = New System.Windows.Forms.PictureBox()
Me.LinkLabel22 = New System.Windows.Forms.LinkLabel() Me.LinkLabel22 = New System.Windows.Forms.LinkLabel()
Me.LinkLabel9 = New System.Windows.Forms.LinkLabel() Me.LinkLabel9 = New System.Windows.Forms.LinkLabel()
Me.Label4 = New System.Windows.Forms.Label() Me.Label4 = New System.Windows.Forms.Label()
Me.LinkLabel10 = New System.Windows.Forms.LinkLabel() Me.LinkLabel10 = New System.Windows.Forms.LinkLabel()
Me.Label1 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label()
Me.PictureBox3 = New System.Windows.Forms.PictureBox()
Me.LinkLabel11 = New System.Windows.Forms.LinkLabel() Me.LinkLabel11 = New System.Windows.Forms.LinkLabel()
Me.PictureBox4 = New System.Windows.Forms.PictureBox()
Me.LinkLabel12 = New System.Windows.Forms.LinkLabel() Me.LinkLabel12 = New System.Windows.Forms.LinkLabel()
Me.PictureBox5 = New System.Windows.Forms.PictureBox()
Me.LinkLabel13 = New System.Windows.Forms.LinkLabel() Me.LinkLabel13 = New System.Windows.Forms.LinkLabel()
Me.PictureBox6 = New System.Windows.Forms.PictureBox()
Me.LinkLabel14 = New System.Windows.Forms.LinkLabel() Me.LinkLabel14 = New System.Windows.Forms.LinkLabel()
Me.PictureBox7 = New System.Windows.Forms.PictureBox()
Me.LinkLabel15 = New System.Windows.Forms.LinkLabel() Me.LinkLabel15 = New System.Windows.Forms.LinkLabel()
Me.LinkLabel16 = New System.Windows.Forms.LinkLabel() Me.LinkLabel16 = New System.Windows.Forms.LinkLabel()
Me.PictureBox8 = New System.Windows.Forms.PictureBox()
Me.TabPage2 = New System.Windows.Forms.TabPage() Me.TabPage2 = New System.Windows.Forms.TabPage()
Me.Button11 = New System.Windows.Forms.Button() Me.Button11 = New System.Windows.Forms.Button()
Me.Label15 = New System.Windows.Forms.Label() Me.Label15 = New System.Windows.Forms.Label()
@@ -121,6 +139,8 @@ Partial Class frmStartOptions
Me.txtVRGOutEZA_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtVRGOutEZA_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtVRGOut_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtVRGOut_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.PictureBox15 = New System.Windows.Forms.PictureBox()
Me.PictureBox14 = New System.Windows.Forms.PictureBox()
Me.TabPage3 = New System.Windows.Forms.TabPage() Me.TabPage3 = New System.Windows.Forms.TabPage()
Me.LinkLabel39 = New System.Windows.Forms.LinkLabel() Me.LinkLabel39 = New System.Windows.Forms.LinkLabel()
Me.LinkLabel40 = New System.Windows.Forms.LinkLabel() Me.LinkLabel40 = New System.Windows.Forms.LinkLabel()
@@ -141,9 +161,13 @@ Partial Class frmStartOptions
Me.Button9 = New System.Windows.Forms.Button() Me.Button9 = New System.Windows.Forms.Button()
Me.Label3 = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label()
Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.PictureBox12 = New System.Windows.Forms.PictureBox()
Me.LinkLabel20 = New System.Windows.Forms.LinkLabel() Me.LinkLabel20 = New System.Windows.Forms.LinkLabel()
Me.PictureBox11 = New System.Windows.Forms.PictureBox()
Me.LinkLabel19 = New System.Windows.Forms.LinkLabel() Me.LinkLabel19 = New System.Windows.Forms.LinkLabel()
Me.PictureBox10 = New System.Windows.Forms.PictureBox()
Me.LinkLabel18 = New System.Windows.Forms.LinkLabel() Me.LinkLabel18 = New System.Windows.Forms.LinkLabel()
Me.PictureBox9 = New System.Windows.Forms.PictureBox()
Me.LinkLabel17 = New System.Windows.Forms.LinkLabel() Me.LinkLabel17 = New System.Windows.Forms.LinkLabel()
Me.cbxHistory = New System.Windows.Forms.CheckBox() Me.cbxHistory = New System.Windows.Forms.CheckBox()
Me.btn = New System.Windows.Forms.Button() Me.btn = New System.Windows.Forms.Button()
@@ -153,33 +177,11 @@ Partial Class frmStartOptions
Me.lklAufschubkontenATLASEZOLL = New System.Windows.Forms.LinkLabel() Me.lklAufschubkontenATLASEZOLL = New System.Windows.Forms.LinkLabel()
Me.lblRoutineManager = New System.Windows.Forms.Label() Me.lblRoutineManager = New System.Windows.Forms.Label()
Me.txtGJ_UNISPED = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtGJ_UNISPED = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Button17 = New System.Windows.Forms.Button() Me.Button21 = New System.Windows.Forms.Button()
Me.piceZollAnh = New System.Windows.Forms.PictureBox()
Me.PictureBox17 = New System.Windows.Forms.PictureBox()
Me.PictureBox16 = New System.Windows.Forms.PictureBox()
Me.PictureBox13 = New System.Windows.Forms.PictureBox()
Me.picC0008 = New System.Windows.Forms.PictureBox()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.PictureBox2 = New System.Windows.Forms.PictureBox()
Me.PictureBox3 = New System.Windows.Forms.PictureBox()
Me.PictureBox4 = New System.Windows.Forms.PictureBox()
Me.PictureBox5 = New System.Windows.Forms.PictureBox()
Me.PictureBox6 = New System.Windows.Forms.PictureBox()
Me.PictureBox7 = New System.Windows.Forms.PictureBox()
Me.PictureBox8 = New System.Windows.Forms.PictureBox()
Me.PictureBox15 = New System.Windows.Forms.PictureBox()
Me.PictureBox14 = New System.Windows.Forms.PictureBox()
Me.PictureBox12 = New System.Windows.Forms.PictureBox()
Me.PictureBox11 = New System.Windows.Forms.PictureBox()
Me.PictureBox10 = New System.Windows.Forms.PictureBox()
Me.PictureBox9 = New System.Windows.Forms.PictureBox()
Me.pnl.SuspendLayout() Me.pnl.SuspendLayout()
CType(Me.piceZollAnh, System.ComponentModel.ISupportInitialize).BeginInit()
Me.tbcntr.SuspendLayout() Me.tbcntr.SuspendLayout()
Me.TabPage1.SuspendLayout() Me.TabPage1.SuspendLayout()
Me.TabPage2.SuspendLayout()
CType(Me.dgvMRN, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabPage3.SuspendLayout()
CType(Me.piceZollAnh, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox17, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox17, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox16, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox16, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox13, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox13, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -192,8 +194,11 @@ Partial Class frmStartOptions
CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabPage2.SuspendLayout()
CType(Me.dgvMRN, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox15, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox15, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox14, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox14, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabPage3.SuspendLayout()
CType(Me.PictureBox12, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox12, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -524,6 +529,17 @@ Partial Class frmStartOptions
Me.Button10.UseVisualStyleBackColor = True Me.Button10.UseVisualStyleBackColor = True
Me.Button10.Visible = False Me.Button10.Visible = False
' '
'piceZollAnh
'
Me.piceZollAnh.BackgroundImage = CType(resources.GetObject("piceZollAnh.BackgroundImage"), System.Drawing.Image)
Me.piceZollAnh.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.piceZollAnh.Location = New System.Drawing.Point(500, 190)
Me.piceZollAnh.Name = "piceZollAnh"
Me.piceZollAnh.Size = New System.Drawing.Size(18, 18)
Me.piceZollAnh.TabIndex = 56
Me.piceZollAnh.TabStop = False
Me.piceZollAnh.Visible = False
'
'txtEZOLLAnhDat 'txtEZOLLAnhDat
' '
Me.txtEZOLLAnhDat._DateTimeOnly = False Me.txtEZOLLAnhDat._DateTimeOnly = False
@@ -755,6 +771,11 @@ Partial Class frmStartOptions
' '
'TabPage1 'TabPage1
' '
Me.TabPage1.Controls.Add(Me.Button21)
Me.TabPage1.Controls.Add(Me.Button20)
Me.TabPage1.Controls.Add(Me.Button19)
Me.TabPage1.Controls.Add(Me.Label23)
Me.TabPage1.Controls.Add(Me.Button18)
Me.TabPage1.Controls.Add(Me.Button17) Me.TabPage1.Controls.Add(Me.Button17)
Me.TabPage1.Controls.Add(Me.LinkLabel38) Me.TabPage1.Controls.Add(Me.LinkLabel38)
Me.TabPage1.Controls.Add(Me.PictureBox17) Me.TabPage1.Controls.Add(Me.PictureBox17)
@@ -803,6 +824,65 @@ Partial Class frmStartOptions
Me.TabPage1.Text = "Zollverfahren" Me.TabPage1.Text = "Zollverfahren"
Me.TabPage1.UseVisualStyleBackColor = True Me.TabPage1.UseVisualStyleBackColor = True
' '
'Button20
'
Me.Button20.Enabled = False
Me.Button20.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button20.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button20.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button20.Location = New System.Drawing.Point(581, 323)
Me.Button20.Name = "Button20"
Me.Button20.Size = New System.Drawing.Size(211, 24)
Me.Button20.TabIndex = 80
Me.Button20.Text = "xxx AAS Ankunft 4h"
Me.Button20.UseVisualStyleBackColor = True
'
'Button19
'
Me.Button19.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button19.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button19.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button19.Location = New System.Drawing.Point(581, 300)
Me.Button19.Name = "Button19"
Me.Button19.Size = New System.Drawing.Size(211, 24)
Me.Button19.TabIndex = 79
Me.Button19.Text = "AAS Vermerke 24h"
Me.Button19.UseVisualStyleBackColor = True
'
'Label23
'
Me.Label23.AutoSize = True
Me.Label23.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label23.Location = New System.Drawing.Point(582, 261)
Me.Label23.Name = "Label23"
Me.Label23.Size = New System.Drawing.Size(152, 13)
Me.Label23.TabIndex = 78
Me.Label23.Text = "AAS (Aviso-Alert-System):"
'
'Button18
'
Me.Button18.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button18.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button18.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button18.Location = New System.Drawing.Point(581, 277)
Me.Button18.Name = "Button18"
Me.Button18.Size = New System.Drawing.Size(211, 24)
Me.Button18.TabIndex = 77
Me.Button18.Text = "AAS Vermerke Überschreitung"
Me.Button18.UseVisualStyleBackColor = True
'
'Button17
'
Me.Button17.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button17.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button17.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button17.Location = New System.Drawing.Point(581, 179)
Me.Button17.Name = "Button17"
Me.Button17.Size = New System.Drawing.Size(211, 24)
Me.Button17.TabIndex = 61
Me.Button17.Text = "DATENARCHIV_ARCHIV"
Me.Button17.UseVisualStyleBackColor = True
'
'LinkLabel38 'LinkLabel38
' '
Me.LinkLabel38.AutoSize = True Me.LinkLabel38.AutoSize = True
@@ -814,6 +894,17 @@ Partial Class frmStartOptions
Me.LinkLabel38.TabStop = True Me.LinkLabel38.TabStop = True
Me.LinkLabel38.Text = "I0610 - Zust. Zollstelle (AES)" Me.LinkLabel38.Text = "I0610 - Zust. Zollstelle (AES)"
' '
'PictureBox17
'
Me.PictureBox17.BackgroundImage = CType(resources.GetObject("PictureBox17.BackgroundImage"), System.Drawing.Image)
Me.PictureBox17.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox17.Location = New System.Drawing.Point(630, 120)
Me.PictureBox17.Name = "PictureBox17"
Me.PictureBox17.Size = New System.Drawing.Size(18, 18)
Me.PictureBox17.TabIndex = 60
Me.PictureBox17.TabStop = False
Me.PictureBox17.Visible = False
'
'LinkLabel37 'LinkLabel37
' '
Me.LinkLabel37.AutoSize = True Me.LinkLabel37.AutoSize = True
@@ -825,12 +916,23 @@ Partial Class frmStartOptions
Me.LinkLabel37.TabStop = True Me.LinkLabel37.TabStop = True
Me.LinkLabel37.Text = "C0141 - Zollstellen" Me.LinkLabel37.Text = "C0141 - Zollstellen"
' '
'PictureBox16
'
Me.PictureBox16.BackgroundImage = CType(resources.GetObject("PictureBox16.BackgroundImage"), System.Drawing.Image)
Me.PictureBox16.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox16.Location = New System.Drawing.Point(400, 120)
Me.PictureBox16.Name = "PictureBox16"
Me.PictureBox16.Size = New System.Drawing.Size(18, 18)
Me.PictureBox16.TabIndex = 58
Me.PictureBox16.TabStop = False
Me.PictureBox16.Visible = False
'
'Button15 'Button15
' '
Me.Button15.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button15.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button15.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.Button15.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button15.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.Button15.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button15.Location = New System.Drawing.Point(581, 250) Me.Button15.Location = New System.Drawing.Point(581, 209)
Me.Button15.Name = "Button15" Me.Button15.Name = "Button15"
Me.Button15.Size = New System.Drawing.Size(211, 24) Me.Button15.Size = New System.Drawing.Size(211, 24)
Me.Button15.TabIndex = 56 Me.Button15.TabIndex = 56
@@ -842,9 +944,9 @@ Partial Class frmStartOptions
Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button8.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.Button8.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button8.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.Button8.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button8.Location = New System.Drawing.Point(581, 313) Me.Button8.Location = New System.Drawing.Point(732, 5)
Me.Button8.Name = "Button8" Me.Button8.Name = "Button8"
Me.Button8.Size = New System.Drawing.Size(211, 24) Me.Button8.Size = New System.Drawing.Size(123, 24)
Me.Button8.TabIndex = 54 Me.Button8.TabIndex = 54
Me.Button8.Text = "test" Me.Button8.Text = "test"
Me.Button8.UseVisualStyleBackColor = True Me.Button8.UseVisualStyleBackColor = True
@@ -871,6 +973,28 @@ Partial Class frmStartOptions
Me.LinkLabel4.TabStop = True Me.LinkLabel4.TabStop = True
Me.LinkLabel4.Text = "C0008 - NCTS Länder" Me.LinkLabel4.Text = "C0008 - NCTS Länder"
' '
'PictureBox13
'
Me.PictureBox13.BackgroundImage = CType(resources.GetObject("PictureBox13.BackgroundImage"), System.Drawing.Image)
Me.PictureBox13.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox13.Location = New System.Drawing.Point(129, 120)
Me.PictureBox13.Name = "PictureBox13"
Me.PictureBox13.Size = New System.Drawing.Size(18, 18)
Me.PictureBox13.TabIndex = 54
Me.PictureBox13.TabStop = False
Me.PictureBox13.Visible = False
'
'picC0008
'
Me.picC0008.BackgroundImage = CType(resources.GetObject("picC0008.BackgroundImage"), System.Drawing.Image)
Me.picC0008.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.picC0008.Location = New System.Drawing.Point(129, 32)
Me.picC0008.Name = "picC0008"
Me.picC0008.Size = New System.Drawing.Size(18, 18)
Me.picC0008.TabIndex = 7
Me.picC0008.TabStop = False
Me.picC0008.Visible = False
'
'LinkLabel26 'LinkLabel26
' '
Me.LinkLabel26.AutoSize = True Me.LinkLabel26.AutoSize = True
@@ -947,6 +1071,17 @@ Partial Class frmStartOptions
Me.LinkLabel24.TabStop = True Me.LinkLabel24.TabStop = True
Me.LinkLabel24.Text = "Eingangsnachrichten abrufen TEST" Me.LinkLabel24.Text = "Eingangsnachrichten abrufen TEST"
' '
'PictureBox1
'
Me.PictureBox1.BackgroundImage = CType(resources.GetObject("PictureBox1.BackgroundImage"), System.Drawing.Image)
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox1.Location = New System.Drawing.Point(205, 60)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(18, 18)
Me.PictureBox1.TabIndex = 12
Me.PictureBox1.TabStop = False
Me.PictureBox1.Visible = False
'
'Label5 'Label5
' '
Me.Label5.AutoSize = True Me.Label5.AutoSize = True
@@ -979,6 +1114,17 @@ Partial Class frmStartOptions
Me.LinkLabel21.TabStop = True Me.LinkLabel21.TabStop = True
Me.LinkLabel21.Text = "Eingangsnachrichten abrufen PROD" Me.LinkLabel21.Text = "Eingangsnachrichten abrufen PROD"
' '
'PictureBox2
'
Me.PictureBox2.BackgroundImage = CType(resources.GetObject("PictureBox2.BackgroundImage"), System.Drawing.Image)
Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox2.Location = New System.Drawing.Point(421, 32)
Me.PictureBox2.Name = "PictureBox2"
Me.PictureBox2.Size = New System.Drawing.Size(18, 18)
Me.PictureBox2.TabIndex = 14
Me.PictureBox2.TabStop = False
Me.PictureBox2.Visible = False
'
'LinkLabel22 'LinkLabel22
' '
Me.LinkLabel22.AutoSize = True Me.LinkLabel22.AutoSize = True
@@ -1032,6 +1178,17 @@ Partial Class frmStartOptions
Me.Label1.TabIndex = 0 Me.Label1.TabIndex = 0
Me.Label1.Text = "ZOLL.DE Codelisten einlesen:" Me.Label1.Text = "ZOLL.DE Codelisten einlesen:"
' '
'PictureBox3
'
Me.PictureBox3.BackgroundImage = CType(resources.GetObject("PictureBox3.BackgroundImage"), System.Drawing.Image)
Me.PictureBox3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox3.Location = New System.Drawing.Point(405, 60)
Me.PictureBox3.Name = "PictureBox3"
Me.PictureBox3.Size = New System.Drawing.Size(18, 18)
Me.PictureBox3.TabIndex = 17
Me.PictureBox3.TabStop = False
Me.PictureBox3.Visible = False
'
'LinkLabel11 'LinkLabel11
' '
Me.LinkLabel11.AutoSize = True Me.LinkLabel11.AutoSize = True
@@ -1043,6 +1200,17 @@ Partial Class frmStartOptions
Me.LinkLabel11.TabStop = True Me.LinkLabel11.TabStop = True
Me.LinkLabel11.Text = "A0122 - Art der Anmeldung (Überführung)" Me.LinkLabel11.Text = "A0122 - Art der Anmeldung (Überführung)"
' '
'PictureBox4
'
Me.PictureBox4.BackgroundImage = CType(resources.GetObject("PictureBox4.BackgroundImage"), System.Drawing.Image)
Me.PictureBox4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox4.Location = New System.Drawing.Point(683, 60)
Me.PictureBox4.Name = "PictureBox4"
Me.PictureBox4.Size = New System.Drawing.Size(18, 18)
Me.PictureBox4.TabIndex = 19
Me.PictureBox4.TabStop = False
Me.PictureBox4.Visible = False
'
'LinkLabel12 'LinkLabel12
' '
Me.LinkLabel12.AutoSize = True Me.LinkLabel12.AutoSize = True
@@ -1054,6 +1222,17 @@ Partial Class frmStartOptions
Me.LinkLabel12.TabStop = True Me.LinkLabel12.TabStop = True
Me.LinkLabel12.Text = "A0127 - Beteiligten-Konstellation" Me.LinkLabel12.Text = "A0127 - Beteiligten-Konstellation"
' '
'PictureBox5
'
Me.PictureBox5.BackgroundImage = CType(resources.GetObject("PictureBox5.BackgroundImage"), System.Drawing.Image)
Me.PictureBox5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox5.Location = New System.Drawing.Point(640, 32)
Me.PictureBox5.Name = "PictureBox5"
Me.PictureBox5.Size = New System.Drawing.Size(18, 18)
Me.PictureBox5.TabIndex = 21
Me.PictureBox5.TabStop = False
Me.PictureBox5.Visible = False
'
'LinkLabel13 'LinkLabel13
' '
Me.LinkLabel13.AutoSize = True Me.LinkLabel13.AutoSize = True
@@ -1065,6 +1244,17 @@ Partial Class frmStartOptions
Me.LinkLabel13.TabStop = True Me.LinkLabel13.TabStop = True
Me.LinkLabel13.Text = "I0400 - Währungsliste" Me.LinkLabel13.Text = "I0400 - Währungsliste"
' '
'PictureBox6
'
Me.PictureBox6.BackgroundImage = CType(resources.GetObject("PictureBox6.BackgroundImage"), System.Drawing.Image)
Me.PictureBox6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox6.Location = New System.Drawing.Point(127, 90)
Me.PictureBox6.Name = "PictureBox6"
Me.PictureBox6.Size = New System.Drawing.Size(18, 18)
Me.PictureBox6.TabIndex = 23
Me.PictureBox6.TabStop = False
Me.PictureBox6.Visible = False
'
'LinkLabel14 'LinkLabel14
' '
Me.LinkLabel14.AutoSize = True Me.LinkLabel14.AutoSize = True
@@ -1076,6 +1266,17 @@ Partial Class frmStartOptions
Me.LinkLabel14.TabStop = True Me.LinkLabel14.TabStop = True
Me.LinkLabel14.Text = "C0013 - Unterlagen" Me.LinkLabel14.Text = "C0013 - Unterlagen"
' '
'PictureBox7
'
Me.PictureBox7.BackgroundImage = CType(resources.GetObject("PictureBox7.BackgroundImage"), System.Drawing.Image)
Me.PictureBox7.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox7.Location = New System.Drawing.Point(400, 90)
Me.PictureBox7.Name = "PictureBox7"
Me.PictureBox7.Size = New System.Drawing.Size(18, 18)
Me.PictureBox7.TabIndex = 25
Me.PictureBox7.TabStop = False
Me.PictureBox7.Visible = False
'
'LinkLabel15 'LinkLabel15
' '
Me.LinkLabel15.AutoSize = True Me.LinkLabel15.AutoSize = True
@@ -1098,6 +1299,17 @@ Partial Class frmStartOptions
Me.LinkLabel16.TabStop = True Me.LinkLabel16.TabStop = True
Me.LinkLabel16.Text = "I0200 - Unterlageaerten (EZA)" Me.LinkLabel16.Text = "I0200 - Unterlageaerten (EZA)"
' '
'PictureBox8
'
Me.PictureBox8.BackgroundImage = CType(resources.GetObject("PictureBox8.BackgroundImage"), System.Drawing.Image)
Me.PictureBox8.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox8.Location = New System.Drawing.Point(630, 90)
Me.PictureBox8.Name = "PictureBox8"
Me.PictureBox8.Size = New System.Drawing.Size(18, 18)
Me.PictureBox8.TabIndex = 29
Me.PictureBox8.TabStop = False
Me.PictureBox8.Visible = False
'
'TabPage2 'TabPage2
' '
Me.TabPage2.Controls.Add(Me.Button11) Me.TabPage2.Controls.Add(Me.Button11)
@@ -1509,6 +1721,28 @@ Partial Class frmStartOptions
Me.txtVRGOut_BezugsNr.Size = New System.Drawing.Size(153, 20) Me.txtVRGOut_BezugsNr.Size = New System.Drawing.Size(153, 20)
Me.txtVRGOut_BezugsNr.TabIndex = 5 Me.txtVRGOut_BezugsNr.TabIndex = 5
' '
'PictureBox15
'
Me.PictureBox15.BackgroundImage = CType(resources.GetObject("PictureBox15.BackgroundImage"), System.Drawing.Image)
Me.PictureBox15.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox15.Location = New System.Drawing.Point(596, 255)
Me.PictureBox15.Name = "PictureBox15"
Me.PictureBox15.Size = New System.Drawing.Size(18, 18)
Me.PictureBox15.TabIndex = 67
Me.PictureBox15.TabStop = False
Me.PictureBox15.Visible = False
'
'PictureBox14
'
Me.PictureBox14.BackgroundImage = CType(resources.GetObject("PictureBox14.BackgroundImage"), System.Drawing.Image)
Me.PictureBox14.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox14.Location = New System.Drawing.Point(596, 65)
Me.PictureBox14.Name = "PictureBox14"
Me.PictureBox14.Size = New System.Drawing.Size(18, 18)
Me.PictureBox14.TabIndex = 56
Me.PictureBox14.TabStop = False
Me.PictureBox14.Visible = False
'
'TabPage3 'TabPage3
' '
Me.TabPage3.Controls.Add(Me.LinkLabel39) Me.TabPage3.Controls.Add(Me.LinkLabel39)
@@ -1746,6 +1980,17 @@ Partial Class frmStartOptions
Me.MyTextBox1.TabIndex = 11 Me.MyTextBox1.TabIndex = 11
Me.MyTextBox1.Text = "100000" Me.MyTextBox1.Text = "100000"
' '
'PictureBox12
'
Me.PictureBox12.BackgroundImage = CType(resources.GetObject("PictureBox12.BackgroundImage"), System.Drawing.Image)
Me.PictureBox12.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox12.Location = New System.Drawing.Point(127, 130)
Me.PictureBox12.Name = "PictureBox12"
Me.PictureBox12.Size = New System.Drawing.Size(18, 18)
Me.PictureBox12.TabIndex = 37
Me.PictureBox12.TabStop = False
Me.PictureBox12.Visible = False
'
'LinkLabel20 'LinkLabel20
' '
Me.LinkLabel20.AutoSize = True Me.LinkLabel20.AutoSize = True
@@ -1757,6 +2002,17 @@ Partial Class frmStartOptions
Me.LinkLabel20.TabStop = True Me.LinkLabel20.TabStop = True
Me.LinkLabel20.Text = "UID-Prüfung VERAG" Me.LinkLabel20.Text = "UID-Prüfung VERAG"
' '
'PictureBox11
'
Me.PictureBox11.BackgroundImage = CType(resources.GetObject("PictureBox11.BackgroundImage"), System.Drawing.Image)
Me.PictureBox11.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox11.Location = New System.Drawing.Point(620, 94)
Me.PictureBox11.Name = "PictureBox11"
Me.PictureBox11.Size = New System.Drawing.Size(18, 18)
Me.PictureBox11.TabIndex = 35
Me.PictureBox11.TabStop = False
Me.PictureBox11.Visible = False
'
'LinkLabel19 'LinkLabel19
' '
Me.LinkLabel19.AutoSize = True Me.LinkLabel19.AutoSize = True
@@ -1768,6 +2024,17 @@ Partial Class frmStartOptions
Me.LinkLabel19.TabStop = True Me.LinkLabel19.TabStop = True
Me.LinkLabel19.Text = "Währungskurse EZB 90D" Me.LinkLabel19.Text = "Währungskurse EZB 90D"
' '
'PictureBox10
'
Me.PictureBox10.BackgroundImage = CType(resources.GetObject("PictureBox10.BackgroundImage"), System.Drawing.Image)
Me.PictureBox10.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox10.Location = New System.Drawing.Point(620, 73)
Me.PictureBox10.Name = "PictureBox10"
Me.PictureBox10.Size = New System.Drawing.Size(18, 18)
Me.PictureBox10.TabIndex = 33
Me.PictureBox10.TabStop = False
Me.PictureBox10.Visible = False
'
'LinkLabel18 'LinkLabel18
' '
Me.LinkLabel18.AutoSize = True Me.LinkLabel18.AutoSize = True
@@ -1779,6 +2046,17 @@ Partial Class frmStartOptions
Me.LinkLabel18.TabStop = True Me.LinkLabel18.TabStop = True
Me.LinkLabel18.Text = "Währungskurse EZB" Me.LinkLabel18.Text = "Währungskurse EZB"
' '
'PictureBox9
'
Me.PictureBox9.BackgroundImage = CType(resources.GetObject("PictureBox9.BackgroundImage"), System.Drawing.Image)
Me.PictureBox9.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox9.Location = New System.Drawing.Point(620, 46)
Me.PictureBox9.Name = "PictureBox9"
Me.PictureBox9.Size = New System.Drawing.Size(18, 18)
Me.PictureBox9.TabIndex = 31
Me.PictureBox9.TabStop = False
Me.PictureBox9.Visible = False
'
'LinkLabel17 'LinkLabel17
' '
Me.LinkLabel17.AutoSize = True Me.LinkLabel17.AutoSize = True
@@ -1894,226 +2172,17 @@ Partial Class frmStartOptions
Me.txtGJ_UNISPED.Size = New System.Drawing.Size(53, 20) Me.txtGJ_UNISPED.Size = New System.Drawing.Size(53, 20)
Me.txtGJ_UNISPED.TabIndex = 68 Me.txtGJ_UNISPED.TabIndex = 68
' '
'Button17 'Button21
' '
Me.Button17.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button21.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button17.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.Button21.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button17.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.Button21.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button17.Location = New System.Drawing.Point(581, 179) Me.Button21.Location = New System.Drawing.Point(581, 346)
Me.Button17.Name = "Button17" Me.Button21.Name = "Button21"
Me.Button17.Size = New System.Drawing.Size(211, 24) Me.Button21.Size = New System.Drawing.Size(211, 24)
Me.Button17.TabIndex = 61 Me.Button21.TabIndex = 81
Me.Button17.Text = "DATENARCHIV_ARCHIV" Me.Button21.Text = "AAS Sendung 24h"
Me.Button17.UseVisualStyleBackColor = True Me.Button21.UseVisualStyleBackColor = True
'
'piceZollAnh
'
Me.piceZollAnh.BackgroundImage = CType(resources.GetObject("piceZollAnh.BackgroundImage"), System.Drawing.Image)
Me.piceZollAnh.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.piceZollAnh.Location = New System.Drawing.Point(500, 190)
Me.piceZollAnh.Name = "piceZollAnh"
Me.piceZollAnh.Size = New System.Drawing.Size(18, 18)
Me.piceZollAnh.TabIndex = 56
Me.piceZollAnh.TabStop = False
Me.piceZollAnh.Visible = False
'
'PictureBox17
'
Me.PictureBox17.BackgroundImage = CType(resources.GetObject("PictureBox17.BackgroundImage"), System.Drawing.Image)
Me.PictureBox17.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox17.Location = New System.Drawing.Point(630, 120)
Me.PictureBox17.Name = "PictureBox17"
Me.PictureBox17.Size = New System.Drawing.Size(18, 18)
Me.PictureBox17.TabIndex = 60
Me.PictureBox17.TabStop = False
Me.PictureBox17.Visible = False
'
'PictureBox16
'
Me.PictureBox16.BackgroundImage = CType(resources.GetObject("PictureBox16.BackgroundImage"), System.Drawing.Image)
Me.PictureBox16.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox16.Location = New System.Drawing.Point(400, 120)
Me.PictureBox16.Name = "PictureBox16"
Me.PictureBox16.Size = New System.Drawing.Size(18, 18)
Me.PictureBox16.TabIndex = 58
Me.PictureBox16.TabStop = False
Me.PictureBox16.Visible = False
'
'PictureBox13
'
Me.PictureBox13.BackgroundImage = CType(resources.GetObject("PictureBox13.BackgroundImage"), System.Drawing.Image)
Me.PictureBox13.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox13.Location = New System.Drawing.Point(129, 120)
Me.PictureBox13.Name = "PictureBox13"
Me.PictureBox13.Size = New System.Drawing.Size(18, 18)
Me.PictureBox13.TabIndex = 54
Me.PictureBox13.TabStop = False
Me.PictureBox13.Visible = False
'
'picC0008
'
Me.picC0008.BackgroundImage = CType(resources.GetObject("picC0008.BackgroundImage"), System.Drawing.Image)
Me.picC0008.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.picC0008.Location = New System.Drawing.Point(129, 32)
Me.picC0008.Name = "picC0008"
Me.picC0008.Size = New System.Drawing.Size(18, 18)
Me.picC0008.TabIndex = 7
Me.picC0008.TabStop = False
Me.picC0008.Visible = False
'
'PictureBox1
'
Me.PictureBox1.BackgroundImage = CType(resources.GetObject("PictureBox1.BackgroundImage"), System.Drawing.Image)
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox1.Location = New System.Drawing.Point(205, 60)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(18, 18)
Me.PictureBox1.TabIndex = 12
Me.PictureBox1.TabStop = False
Me.PictureBox1.Visible = False
'
'PictureBox2
'
Me.PictureBox2.BackgroundImage = CType(resources.GetObject("PictureBox2.BackgroundImage"), System.Drawing.Image)
Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox2.Location = New System.Drawing.Point(421, 32)
Me.PictureBox2.Name = "PictureBox2"
Me.PictureBox2.Size = New System.Drawing.Size(18, 18)
Me.PictureBox2.TabIndex = 14
Me.PictureBox2.TabStop = False
Me.PictureBox2.Visible = False
'
'PictureBox3
'
Me.PictureBox3.BackgroundImage = CType(resources.GetObject("PictureBox3.BackgroundImage"), System.Drawing.Image)
Me.PictureBox3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox3.Location = New System.Drawing.Point(405, 60)
Me.PictureBox3.Name = "PictureBox3"
Me.PictureBox3.Size = New System.Drawing.Size(18, 18)
Me.PictureBox3.TabIndex = 17
Me.PictureBox3.TabStop = False
Me.PictureBox3.Visible = False
'
'PictureBox4
'
Me.PictureBox4.BackgroundImage = CType(resources.GetObject("PictureBox4.BackgroundImage"), System.Drawing.Image)
Me.PictureBox4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox4.Location = New System.Drawing.Point(683, 60)
Me.PictureBox4.Name = "PictureBox4"
Me.PictureBox4.Size = New System.Drawing.Size(18, 18)
Me.PictureBox4.TabIndex = 19
Me.PictureBox4.TabStop = False
Me.PictureBox4.Visible = False
'
'PictureBox5
'
Me.PictureBox5.BackgroundImage = CType(resources.GetObject("PictureBox5.BackgroundImage"), System.Drawing.Image)
Me.PictureBox5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox5.Location = New System.Drawing.Point(640, 32)
Me.PictureBox5.Name = "PictureBox5"
Me.PictureBox5.Size = New System.Drawing.Size(18, 18)
Me.PictureBox5.TabIndex = 21
Me.PictureBox5.TabStop = False
Me.PictureBox5.Visible = False
'
'PictureBox6
'
Me.PictureBox6.BackgroundImage = CType(resources.GetObject("PictureBox6.BackgroundImage"), System.Drawing.Image)
Me.PictureBox6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox6.Location = New System.Drawing.Point(127, 90)
Me.PictureBox6.Name = "PictureBox6"
Me.PictureBox6.Size = New System.Drawing.Size(18, 18)
Me.PictureBox6.TabIndex = 23
Me.PictureBox6.TabStop = False
Me.PictureBox6.Visible = False
'
'PictureBox7
'
Me.PictureBox7.BackgroundImage = CType(resources.GetObject("PictureBox7.BackgroundImage"), System.Drawing.Image)
Me.PictureBox7.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox7.Location = New System.Drawing.Point(400, 90)
Me.PictureBox7.Name = "PictureBox7"
Me.PictureBox7.Size = New System.Drawing.Size(18, 18)
Me.PictureBox7.TabIndex = 25
Me.PictureBox7.TabStop = False
Me.PictureBox7.Visible = False
'
'PictureBox8
'
Me.PictureBox8.BackgroundImage = CType(resources.GetObject("PictureBox8.BackgroundImage"), System.Drawing.Image)
Me.PictureBox8.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox8.Location = New System.Drawing.Point(630, 90)
Me.PictureBox8.Name = "PictureBox8"
Me.PictureBox8.Size = New System.Drawing.Size(18, 18)
Me.PictureBox8.TabIndex = 29
Me.PictureBox8.TabStop = False
Me.PictureBox8.Visible = False
'
'PictureBox15
'
Me.PictureBox15.BackgroundImage = CType(resources.GetObject("PictureBox15.BackgroundImage"), System.Drawing.Image)
Me.PictureBox15.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox15.Location = New System.Drawing.Point(596, 255)
Me.PictureBox15.Name = "PictureBox15"
Me.PictureBox15.Size = New System.Drawing.Size(18, 18)
Me.PictureBox15.TabIndex = 67
Me.PictureBox15.TabStop = False
Me.PictureBox15.Visible = False
'
'PictureBox14
'
Me.PictureBox14.BackgroundImage = CType(resources.GetObject("PictureBox14.BackgroundImage"), System.Drawing.Image)
Me.PictureBox14.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox14.Location = New System.Drawing.Point(596, 65)
Me.PictureBox14.Name = "PictureBox14"
Me.PictureBox14.Size = New System.Drawing.Size(18, 18)
Me.PictureBox14.TabIndex = 56
Me.PictureBox14.TabStop = False
Me.PictureBox14.Visible = False
'
'PictureBox12
'
Me.PictureBox12.BackgroundImage = CType(resources.GetObject("PictureBox12.BackgroundImage"), System.Drawing.Image)
Me.PictureBox12.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox12.Location = New System.Drawing.Point(127, 130)
Me.PictureBox12.Name = "PictureBox12"
Me.PictureBox12.Size = New System.Drawing.Size(18, 18)
Me.PictureBox12.TabIndex = 37
Me.PictureBox12.TabStop = False
Me.PictureBox12.Visible = False
'
'PictureBox11
'
Me.PictureBox11.BackgroundImage = CType(resources.GetObject("PictureBox11.BackgroundImage"), System.Drawing.Image)
Me.PictureBox11.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox11.Location = New System.Drawing.Point(620, 94)
Me.PictureBox11.Name = "PictureBox11"
Me.PictureBox11.Size = New System.Drawing.Size(18, 18)
Me.PictureBox11.TabIndex = 35
Me.PictureBox11.TabStop = False
Me.PictureBox11.Visible = False
'
'PictureBox10
'
Me.PictureBox10.BackgroundImage = CType(resources.GetObject("PictureBox10.BackgroundImage"), System.Drawing.Image)
Me.PictureBox10.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox10.Location = New System.Drawing.Point(620, 73)
Me.PictureBox10.Name = "PictureBox10"
Me.PictureBox10.Size = New System.Drawing.Size(18, 18)
Me.PictureBox10.TabIndex = 33
Me.PictureBox10.TabStop = False
Me.PictureBox10.Visible = False
'
'PictureBox9
'
Me.PictureBox9.BackgroundImage = CType(resources.GetObject("PictureBox9.BackgroundImage"), System.Drawing.Image)
Me.PictureBox9.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox9.Location = New System.Drawing.Point(620, 46)
Me.PictureBox9.Name = "PictureBox9"
Me.PictureBox9.Size = New System.Drawing.Size(18, 18)
Me.PictureBox9.TabIndex = 31
Me.PictureBox9.TabStop = False
Me.PictureBox9.Visible = False
' '
'frmStartOptions 'frmStartOptions
' '
@@ -2130,15 +2199,10 @@ Partial Class frmStartOptions
Me.WindowState = System.Windows.Forms.FormWindowState.Minimized Me.WindowState = System.Windows.Forms.FormWindowState.Minimized
Me.pnl.ResumeLayout(False) Me.pnl.ResumeLayout(False)
Me.pnl.PerformLayout() Me.pnl.PerformLayout()
CType(Me.piceZollAnh, System.ComponentModel.ISupportInitialize).EndInit()
Me.tbcntr.ResumeLayout(False) Me.tbcntr.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False) Me.TabPage1.ResumeLayout(False)
Me.TabPage1.PerformLayout() Me.TabPage1.PerformLayout()
Me.TabPage2.ResumeLayout(False)
Me.TabPage2.PerformLayout()
CType(Me.dgvMRN, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabPage3.ResumeLayout(False)
Me.TabPage3.PerformLayout()
CType(Me.piceZollAnh, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox17, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox17, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox16, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox16, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox13, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox13, System.ComponentModel.ISupportInitialize).EndInit()
@@ -2151,8 +2215,13 @@ Partial Class frmStartOptions
CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabPage2.ResumeLayout(False)
Me.TabPage2.PerformLayout()
CType(Me.dgvMRN, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox15, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox15, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox14, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox14, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabPage3.ResumeLayout(False)
Me.TabPage3.PerformLayout()
CType(Me.PictureBox12, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox12, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).EndInit()
@@ -2309,4 +2378,9 @@ Partial Class frmStartOptions
Friend WithEvents Label22 As Label Friend WithEvents Label22 As Label
Friend WithEvents cbxVermerk As CheckBox Friend WithEvents cbxVermerk As CheckBox
Friend WithEvents Button17 As Button Friend WithEvents Button17 As Button
Friend WithEvents Label23 As Label
Friend WithEvents Button18 As Button
Friend WithEvents Button20 As Button
Friend WithEvents Button19 As Button
Friend WithEvents Button21 As Button
End Class End Class

143
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -3441,4 +3441,147 @@ Public Class frmStartOptions
Dim f As New frmDatenarchivarchiv Dim f As New frmDatenarchivarchiv
f.ShowDialog() f.ShowDialog()
End Sub End Sub
Private Sub Button18_Click(sender As Object, e As EventArgs) Handles Button18.Click
doAASVermerke_Schwelle()
End Sub
Function doAASVermerke_Schwelle()
Try
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim dt = SQL.loadDgvBySql("
SELECT TOP 1000 aviso.AvisoID,Vermerke.[Hinweis_Vermerk]
,CASE WHEN Vermerke.SendungID is not null THEN(SELECT FilialenNr from tblSendungen WHERE tblSnd_SendungID=Vermerke.SendungID) ELSE NULL END FilialenNr
FROM [Aviso]
inner join Vermerke on [Aviso].AvisoID=Vermerke.AvisoID
inner join VermerkeCodes on Vermerke.VermerkeCode=VermerkeCodes.VermerkCodeId
WHERE [Aviso].Status NOT IN (1,2) AND AAS_Warnsystem=1 and AAS_Warnstufe=0 and DATEDIFF(HOUR,Vermerke.Datum,GETDATE())>AAS_SchwelleStunden and [VermerkIDAufgehoben] is null
and (Auftraggeber_KdNr IN (901043,100950,700945) or Frächter_KdNr IN (901043,100950,700945))
AND Aviso.Datum > DATEADD( day,-1,GETDATE())
", "AVISO")
If dt IsNot Nothing Then
For Each r In dt.Rows
insertBenachrichtigung_AAS(r("AvisoId"), r("SendungsId"), VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(r("FilialenNr")), VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.AAE_Benachrichtigung, "REMINDER", "REMINDER: " & r("Hinweis_Vermerk"), 1)
Next
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
Return False
End Try
Return True
End Function
Function doAASVermerke_24h()
Try
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim dt = SQL.loadDgvBySql("
SELECT TOP 1000 aviso.AvisoID, Datum
FROM [Aviso]
WHERE [Aviso].Status NOT IN (1,2)
and DATEDIFF(HOUR, (select top 1 Datum from Vermerke where Vermerke.AvisoID=aviso.AvisoID order by Vermerke.Datum desc),GETDATE())>24
and DATEDIFF(HOUR, (select top 1 Datum from Aenderungen where Aenderungen.AvisoID=aviso.AvisoID order by Aenderungen.Datum desc),GETDATE())>24
AND Datum > DATEADD( day,-2,GETDATE())
", "AVISO")
If dt IsNot Nothing Then
For Each r In dt.Rows
insertBenachrichtigung_AAS(r("AvisoId"), r("SendungsId"), VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(r("FilialenNr")), VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.AAE_Benachrichtigung, "REMINDER w4h", "REMINDER: " & r("Hinweis_Vermerk"), 0)
Next
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
Return False
End Try
Return True
End Function
Function doAASVermerke_Ankunft() ' 4 Stunden
Try
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim dt = SQL.loadDgvBySql("
SELECT TOP 1000 aviso.AvisoID, Datum
FROM [Aviso]
WHERE [Aviso].Status IN (3)
and DATEDIFF(HOUR, (select top 1 Datum from Vermerke where Vermerke.AvisoID=aviso.AvisoID order by Vermerke.Datum desc),GETDATE())>4
and DATEDIFF(HOUR, (select top 1 Datum from Aenderungen where Aenderungen.AvisoID=aviso.AvisoID order by Aenderungen.Datum desc),GETDATE())>4
AND Datum > DATEADD( day,-2,GETDATE())
", "AVISO")
If dt IsNot Nothing Then
For Each r In dt.Rows
insertBenachrichtigung_AAS(r("AvisoId"), r("SendungsId"), VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(r("FilialenNr")), VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.AAE_Benachrichtigung, "REMINDER", "REMINDER: " & r("Hinweis_Vermerk"), 0)
Next
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
Return False
End Try
Return True
End Function
Function insertBenachrichtigung_AAS(AvisoId, SendungsId, firma, code, TXT_AAS_HEAD, TXT_AAS_BODY, prio)
'
'Benachrichtigung
Try
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim sendToID As String = SQL.DLookup("tblSnd_VG_MA", "tblSendungen", "tblSnd_SendungID='" & SendungsId & "'", "AVISO", -1)
Dim art = "B"
'Wenn Benutzer vorschreiben nicht online, dann Benutzer der Sendung...
If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then
sendToID = SQL.DLookup("LetzterMitarbeiterId", "tblSendungen", "tblSnd_SendungID='" & SendungsId & "'", "AVISO", -1)
art = "B"
End If
'Wenn Benutzer der Sendung nicht online, dann Benutzer des LKW ..
If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then
sendToID = SQL.DLookup("LetzterMitarbeiterId", "Aviso", "AvisoId='" & AvisoId & "'", "AVISO", -1)
art = "B"
End If
'Wenn Benutzer des LKWs nicht online, Team...
If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then
sendToID = SQL.DLookup("tblSnd_TeamId", "tblSendungen", "tblSnd_SendungID='" & SendungsId & "'", "AVISO", -1)
art = "T"
End If
'Wenn TEAM nicht gefunden, Firma...
If sendToID <= 0 Then
If firma IsNot Nothing AndAlso firma <> "" Then
sendToID = firma
art = "F"
End If
End If
'Wenn gefunden
If (art = "F" AndAlso If(sendToID, "") <> "") OrElse sendToID >= 0 Then
Dim statusAVISO = SQL.DLookup("Status", "Aviso", "AvisoID='" & AvisoId & "'", "AVISO")
Dim GrenzstelleAVISO = SQL.DLookup("Grenzstelle", "Aviso", "AvisoID='" & AvisoId & "'", "AVISO")
If GrenzstelleAVISO = "???" Then
Select Case statusAVISO
Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben
'Nicht
Case Else
VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(AvisoId, SendungsId, code, art, sendToID, TXT_AAS_HEAD, prio, , TXT_AAS_BODY.Trim,,, firma)
End Select
End If
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
Return False
End Try
Return True
End Function
Private Sub Button19_Click(sender As Object, e As EventArgs) Handles Button19.Click
doAASVermerke_24h()
End Sub
Private Sub Button20_Click(sender As Object, e As EventArgs) Handles Button20.Click
doAASVermerke_Ankunft()
End Sub
End Class End Class