comm

Aviso/Benachrichtigung/frmAvisoWeiterleiten.vb

@@ -269,7 +269,7 @@ Public Class frmAvisoWeiterleiten
             addBtn(flpFirma, "N", "NKD", "VERAG Nickelsdorf")
             addBtn(flpFirma, "N", "NEU", "VERAG Neuhaus")
             addBtn(flpFirma, "N", "DTB", "VERAG Dettelbach")
-            addBtn(flpFirma, "N", "DTB", "VERAG Neunkirchen (Saar)")
+            addBtn(flpFirma, "N", "NKN", "VERAG Neunkirchen (Saar)")
 
             addBtn(flpFirma, "A", "FISK", "VERAG Fiskal")
 

Aviso/frmATZollEingereichtSetzen.vb

@@ -67,8 +67,16 @@ Public Class frmATZollEingereichtSetzen
         If Not cbxUID.Checked Then Me.DialogResult = DialogResult.None : Exit Sub
         If Not cbxEORI.Checked Then Me.DialogResult = DialogResult.None : Exit Sub
 
-
-
+        If lblUIDPruefdatum.Text <> Now.ToShortDateString Then
+            Dim Txt = InputBox("UID Prüfung wurde nicht mit heutigem Datum durchführen, Begründung eingeben:")
+            If Txt = "" Then Exit Sub
+            AvisoStatusFunctions.insertSendungsVermerk(SND.tblSnd_SendungID, SND.tblSnd_AvisoID, "UID Prüfung Begründung: " & Txt, 47)
+        End If
+        If lblEORIPruefdatum.Text <> Now.ToShortDateString Then
+            Dim Txt = InputBox("EORI Prüfung wurde nicht mit heutigem Datum durchführen, Begründung eingeben:")
+            If Txt = "" Then Exit Sub
+            AvisoStatusFunctions.insertSendungsVermerk(SND.tblSnd_SendungID, SND.tblSnd_AvisoID, "EORI Prüfung Begründung: " & Txt, 47)
+        End If
         Me.DialogResult = DialogResult.OK
 
     End Sub

Aviso/frmHauptfenster.vb

@@ -590,6 +590,7 @@ Public Class frmHauptfenster
         Try
 
             If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasId IsNot Nothing Then
+                If Not VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasNichtStempeln Then
                     Dim timas As New cTimasAPI
                     Dim infoMessage As New DataTable
                     Dim timeEntryExisting As Boolean = False
@@ -607,7 +608,7 @@ Public Class frmHauptfenster
 
                     End If
 
-
+                End If
             End If
 
         Catch ex As Exception