diff --git a/Aviso/Benachrichtigung/frmAvisoWeiterleiten.vb b/Aviso/Benachrichtigung/frmAvisoWeiterleiten.vb index decd201..83a9144 100644 --- a/Aviso/Benachrichtigung/frmAvisoWeiterleiten.vb +++ b/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") diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb index c3a0838..937866b 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/frmATZollEingereichtSetzen.vb b/Aviso/frmATZollEingereichtSetzen.vb index 4fa02fa..0612dbd 100644 --- a/Aviso/frmATZollEingereichtSetzen.vb +++ b/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 diff --git a/Aviso/frmHauptfenster.vb b/Aviso/frmHauptfenster.vb index db07a3b..a221ef1 100644 --- a/Aviso/frmHauptfenster.vb +++ b/Aviso/frmHauptfenster.vb @@ -590,24 +590,25 @@ Public Class frmHauptfenster Try If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasId IsNot Nothing Then - Dim timas As New cTimasAPI - Dim infoMessage As New DataTable - Dim timeEntryExisting As Boolean = False - Dim isEndpointRunning As Boolean = True - timas.getTimeEntries(cAllgemein.MITARBEITER.mit_timasId, infoMessage, timeEntryExisting,, isEndpointRunning) - If Not timeEntryExisting AndAlso isEndpointRunning Then - Dim a As MsgBoxResult = MsgBox("Für " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & " wurde heute noch keine Zeit erfasst" & vbNewLine & Now.ToString() & " als Startzeit erfassen?", vbYesNo) - If a = vbYes Then - Dim info - timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, "in") - MsgBox(info) - Else + 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 + Dim isEndpointRunning As Boolean = True + timas.getTimeEntries(cAllgemein.MITARBEITER.mit_timasId, infoMessage, timeEntryExisting,, isEndpointRunning) + If Not timeEntryExisting AndAlso isEndpointRunning Then + Dim a As MsgBoxResult = MsgBox("Für " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & " wurde heute noch keine Zeit erfasst" & vbNewLine & Now.ToString() & " als Startzeit erfassen?", vbYesNo) + If a = vbYes Then + Dim info + timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, "in") + MsgBox(info) + Else + + End If End If End If - - End If Catch ex As Exception