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

comm

Browse Source
This commit is contained in:
d.breimaier
2024-01-18 15:27:38 +01:00
parent f4c1f1cf31 b3101d6af5
commit 52ee0934d2
3 changed files with 26 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Aviso/Benachrichtigung/frmAvisoWeiterleiten.vb
View File

@@ -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")

12
Aviso/frmATZollEingereichtSetzen.vb
View File

@@ -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

29
Aviso/frmHauptfenster.vb
View File

@@ -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