diff --git a/Aviso/ATEZ/frmATEZ_EZA.vb b/Aviso/ATEZ/frmATEZ_EZA.vb
index 775515d..340ebe4 100644
--- a/Aviso/ATEZ/frmATEZ_EZA.vb
+++ b/Aviso/ATEZ/frmATEZ_EZA.vb
@@ -28,7 +28,7 @@ Public Class frmATEZ_EZA
Dim id As Integer = -1
Dim dgv As DataGridView = Nothing
Dim atez_data As cATEZ_NCTS_DATA
- Dim atez = New cATEZ_NCTS_IN("atez_ncts")
+ Dim atez = New cATEZ_NCTS_IN("ATEZ")
Dim allSelected As Boolean = False
Property BezugsNr As String = ""
diff --git a/Aviso/ATEZ/frmATEZ_NCTS.vb b/Aviso/ATEZ/frmATEZ_NCTS.vb
index 121d88c..ea867c3 100644
--- a/Aviso/ATEZ/frmATEZ_NCTS.vb
+++ b/Aviso/ATEZ/frmATEZ_NCTS.vb
@@ -25,7 +25,7 @@ Public Class frmATEZ_NCTS
Dim id As Integer = -1
Dim dgv As DataGridView = Nothing
Dim atez_data As cATEZ_NCTS_DATA
- Dim atez = New cATEZ_NCTS_IN("atez_ncts")
+ Dim atez As cATEZ_NCTS_IN = New cATEZ_NCTS_IN("ATEZ")
Dim allSelected As Boolean = False
Property BezugsNr As String = ""
@@ -77,7 +77,7 @@ Public Class frmATEZ_NCTS
If Button1.Text = "JSON" Then
- If Not atez.setJson(atez_data) Then MsgBox("Fehler beim Erstellen der Daten")
+ If Not atez.setJsonNCTS(atez_data) Then MsgBox("Fehler beim Erstellen der Daten")
atez.setJsonPDF(atez_data, dgvAnhaenge)
Dim data As New DataObject()
diff --git a/Aviso/Aviso.vbproj b/Aviso/Aviso.vbproj
index 5cf7953..3a05bd8 100644
--- a/Aviso/Aviso.vbproj
+++ b/Aviso/Aviso.vbproj
@@ -77,7 +77,8 @@
On
- aviso.ico
+
+
@@ -1870,6 +1871,9 @@
+
+ Always
+
Always
diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb
index aa5310c..acc943e 100644
--- a/Aviso/My Project/AssemblyInfo.vb
+++ b/Aviso/My Project/AssemblyInfo.vb
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
'
-
-
+
+
diff --git a/Aviso/My Project/Resources.Designer.vb b/Aviso/My Project/Resources.Designer.vb
index 4f612c3..ba159a6 100644
--- a/Aviso/My Project/Resources.Designer.vb
+++ b/Aviso/My Project/Resources.Designer.vb
@@ -189,6 +189,16 @@ Namespace My.Resources
End Get
End Property
+ '''
+ ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+ '''
+ Public ReadOnly Property ambar_boarder_new() As System.Drawing.Bitmap
+ Get
+ Dim obj As Object = ResourceManager.GetObject("ambar_boarder_new", resourceCulture)
+ Return CType(obj,System.Drawing.Bitmap)
+ End Get
+ End Property
+
'''
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''
diff --git a/Aviso/My Project/Resources.resx b/Aviso/My Project/Resources.resx
index 2f3fe19..cc25293 100644
--- a/Aviso/My Project/Resources.resx
+++ b/Aviso/My Project/Resources.resx
@@ -721,4 +721,7 @@
..\Resources\zollberatung_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
+
+ ..\Resources\ambar_boarder_new.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
+
\ No newline at end of file
diff --git a/Aviso/Resources/ambar_boarder_new.png b/Aviso/Resources/ambar_boarder_new.png
new file mode 100644
index 0000000..1cb377f
Binary files /dev/null and b/Aviso/Resources/ambar_boarder_new.png differ
diff --git a/Aviso/frmHauptfenster.Designer.vb b/Aviso/frmHauptfenster.Designer.vb
index 68ca5ef..ab98250 100644
--- a/Aviso/frmHauptfenster.Designer.vb
+++ b/Aviso/frmHauptfenster.Designer.vb
@@ -80,6 +80,7 @@ Partial Class frmHauptfenster
Me.AnhangsartenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.SpireLizenzPrüfenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.UNBescheinigungAusTFEinlesenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+ Me.FIXSQLTIGGERSQLGUIDE01ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator()
Me.FirmaWechselnToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.VERAGToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -253,6 +254,8 @@ Partial Class frmHauptfenster
Me.Button11 = New System.Windows.Forms.Button()
Me.btnMAVerzeichnis = New System.Windows.Forms.Button()
Me.btnMitarbeiterKonto = New VERAG_PROG_ALLGEMEIN.FlatButton()
+ Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem()
+ Me.Label9 = New System.Windows.Forms.Label()
Me.btnKontakt = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.Button5 = New System.Windows.Forms.Button()
@@ -386,7 +389,6 @@ Partial Class frmHauptfenster
Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
Me.BackgroundWorker1 = New System.ComponentModel.BackgroundWorker()
Me.timerStandzeit = New System.Windows.Forms.Timer(Me.components)
- Me.Label9 = New System.Windows.Forms.Label()
Me.TimerUPDATE = New System.Windows.Forms.Timer(Me.components)
Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.pnlOptionen = New System.Windows.Forms.Panel()
@@ -418,8 +420,6 @@ Partial Class frmHauptfenster
Me.UsrCntlBenachrichtigungen2 = New AVISO.usrCntlBenachrichtigungen()
Me.Panel5 = New System.Windows.Forms.Panel()
Me.Panel7 = New System.Windows.Forms.Panel()
- Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem()
- Me.FIXSQLTIGGERSQLGUIDE01ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.conMenuAviso.SuspendLayout()
Me.MenuStrip1.SuspendLayout()
Me.pnlDetailsRechts.SuspendLayout()
@@ -761,6 +761,12 @@ Partial Class frmHauptfenster
Me.UNBescheinigungAusTFEinlesenToolStripMenuItem.Size = New System.Drawing.Size(257, 22)
Me.UNBescheinigungAusTFEinlesenToolStripMenuItem.Text = "UN-Bescheinigung aus TF einlesen"
'
+ 'FIXSQLTIGGERSQLGUIDE01ToolStripMenuItem
+ '
+ Me.FIXSQLTIGGERSQLGUIDE01ToolStripMenuItem.Name = "FIXSQLTIGGERSQLGUIDE01ToolStripMenuItem"
+ Me.FIXSQLTIGGERSQLGUIDE01ToolStripMenuItem.Size = New System.Drawing.Size(257, 22)
+ Me.FIXSQLTIGGERSQLGUIDE01ToolStripMenuItem.Text = "FIX SQL TIGGER (SQLGUIDE01)"
+ '
'ToolStripSeparator4
'
Me.ToolStripSeparator4.Name = "ToolStripSeparator4"
@@ -1855,6 +1861,7 @@ Partial Class frmHauptfenster
Me.Top.Controls.Add(Me.Button11)
Me.Top.Controls.Add(Me.btnMAVerzeichnis)
Me.Top.Controls.Add(Me.btnMitarbeiterKonto)
+ Me.Top.Controls.Add(Me.Label9)
Me.Top.Controls.Add(Me.btnKontakt)
Me.Top.Controls.Add(Me.Button2)
Me.Top.Controls.Add(Me.Button5)
@@ -1868,6 +1875,7 @@ Partial Class frmHauptfenster
Me.Top.Controls.Add(Me.Button3)
Me.Top.Controls.Add(Me.btnKunden)
Me.Top.Controls.Add(Me.btnSpedBuch)
+ Me.Top.Controls.Add(Me.UsrCntlTestsystem1)
Me.Top.Dock = System.Windows.Forms.DockStyle.Top
Me.Top.Location = New System.Drawing.Point(0, 20)
Me.Top.Name = "Top"
@@ -1955,6 +1963,33 @@ Partial Class frmHauptfenster
Me.btnMitarbeiterKonto.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.btnMitarbeiterKonto.UseVisualStyleBackColor = False
'
+ 'UsrCntlTestsystem1
+ '
+ Me.UsrCntlTestsystem1.BackColor = System.Drawing.Color.White
+ Me.UsrCntlTestsystem1.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.UsrCntlTestsystem1.ForeColor = System.Drawing.Color.Red
+ Me.UsrCntlTestsystem1.Location = New System.Drawing.Point(633, 9)
+ Me.UsrCntlTestsystem1.Margin = New System.Windows.Forms.Padding(5, 6, 5, 6)
+ Me.UsrCntlTestsystem1.Name = "UsrCntlTestsystem1"
+ Me.UsrCntlTestsystem1.Size = New System.Drawing.Size(152, 28)
+ Me.UsrCntlTestsystem1.TabIndex = 8
+ '
+ 'Label9
+ '
+ Me.Label9.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+ Me.Label9.AutoSize = True
+ Me.Label9.BackColor = System.Drawing.Color.White
+ Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold)
+ Me.Label9.ForeColor = System.Drawing.Color.Red
+ Me.Label9.Location = New System.Drawing.Point(905, 19)
+ Me.Label9.Name = "Label9"
+ Me.Label9.Size = New System.Drawing.Size(438, 15)
+ Me.Label9.TabIndex = 9
+ Me.Label9.Text = "Es ist ein Programm-Update verfügbar, bitte das AVISO neu starten."
+ Me.Label9.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+ Me.Label9.Visible = False
+ '
'btnKontakt
'
Me.btnKontakt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -3745,22 +3780,6 @@ Partial Class frmHauptfenster
'
Me.timerStandzeit.Interval = 300000
'
- 'Label9
- '
- Me.Label9.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
- Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
- Me.Label9.AutoSize = True
- Me.Label9.BackColor = System.Drawing.Color.White
- Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold)
- Me.Label9.ForeColor = System.Drawing.Color.Red
- Me.Label9.Location = New System.Drawing.Point(370, 5)
- Me.Label9.Name = "Label9"
- Me.Label9.Size = New System.Drawing.Size(438, 15)
- Me.Label9.TabIndex = 9
- Me.Label9.Text = "Es ist ein Programm-Update verfügbar, bitte das AVISO neu starten."
- Me.Label9.TextAlign = System.Drawing.ContentAlignment.MiddleRight
- Me.Label9.Visible = False
- '
'TimerUPDATE
'
Me.TimerUPDATE.Interval = 900000
@@ -4007,31 +4026,12 @@ Partial Class frmHauptfenster
Me.Panel7.Size = New System.Drawing.Size(252, 51)
Me.Panel7.TabIndex = 4
'
- 'UsrCntlTestsystem1
- '
- Me.UsrCntlTestsystem1.BackColor = System.Drawing.Color.White
- Me.UsrCntlTestsystem1.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.UsrCntlTestsystem1.ForeColor = System.Drawing.Color.Red
- Me.UsrCntlTestsystem1.Location = New System.Drawing.Point(632, -1)
- Me.UsrCntlTestsystem1.Margin = New System.Windows.Forms.Padding(5, 6, 5, 6)
- Me.UsrCntlTestsystem1.Name = "UsrCntlTestsystem1"
- Me.UsrCntlTestsystem1.Size = New System.Drawing.Size(152, 28)
- Me.UsrCntlTestsystem1.TabIndex = 8
- '
- 'FIXSQLTIGGERSQLGUIDE01ToolStripMenuItem
- '
- Me.FIXSQLTIGGERSQLGUIDE01ToolStripMenuItem.Name = "FIXSQLTIGGERSQLGUIDE01ToolStripMenuItem"
- Me.FIXSQLTIGGERSQLGUIDE01ToolStripMenuItem.Size = New System.Drawing.Size(257, 22)
- Me.FIXSQLTIGGERSQLGUIDE01ToolStripMenuItem.Text = "FIX SQL TIGGER (SQLGUIDE01)"
- '
'frmHauptfenster
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1302, 694)
Me.Controls.Add(Me.pnlOptionen)
- Me.Controls.Add(Me.Label9)
- Me.Controls.Add(Me.UsrCntlTestsystem1)
Me.Controls.Add(Me.SplitContainer1)
Me.Controls.Add(Me.pnlLeft)
Me.Controls.Add(Me.Top)
@@ -4049,6 +4049,7 @@ Partial Class frmHauptfenster
Me.pnlDetailsRechts.ResumeLayout(False)
Me.pnlDetailsRechts.PerformLayout()
Me.Top.ResumeLayout(False)
+ Me.Top.PerformLayout()
Me.SplitContainer2.Panel1.ResumeLayout(False)
Me.SplitContainer2.Panel2.ResumeLayout(False)
CType(Me.SplitContainer2, System.ComponentModel.ISupportInitialize).EndInit()
@@ -4097,7 +4098,6 @@ Partial Class frmHauptfenster
Me.cntVerag.ResumeLayout(False)
Me.pnlLeft.ResumeLayout(False)
Me.ResumeLayout(False)
- Me.PerformLayout()
End Sub
Friend WithEvents mnuInfo As System.Windows.Forms.ToolStripMenuItem