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

Parkplatz Abrechnung, Fakt div, etc

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-01-12 14:00:15 +01:00
parent 47ff9efbad
commit b3101d6af5
4 changed files with 28 additions and 19 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")

4
Aviso/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("3.9.5.5")>
<Assembly: AssemblyFileVersion("3.9.5.5")>
<Assembly: AssemblyVersion("3.9.6.0")>
<Assembly: AssemblyFileVersion("3.9.6.0")>

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