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", "NKD", "VERAG Nickelsdorf")
addBtn(flpFirma, "N", "NEU", "VERAG Neuhaus") addBtn(flpFirma, "N", "NEU", "VERAG Neuhaus")
addBtn(flpFirma, "N", "DTB", "VERAG Dettelbach") 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") 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: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("3.9.5.5")> <Assembly: AssemblyVersion("3.9.6.0")>
<Assembly: AssemblyFileVersion("3.9.5.5")> <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 cbxUID.Checked Then Me.DialogResult = DialogResult.None : Exit Sub
If Not cbxEORI.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 Me.DialogResult = DialogResult.OK
End Sub End Sub

29
Aviso/frmHauptfenster.vb
View File

@@ -590,24 +590,25 @@ Public Class frmHauptfenster
Try Try
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasId IsNot Nothing Then If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasId IsNot Nothing Then
Dim timas As New cTimasAPI If Not VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasNichtStempeln Then
Dim infoMessage As New DataTable Dim timas As New cTimasAPI
Dim timeEntryExisting As Boolean = False Dim infoMessage As New DataTable
Dim isEndpointRunning As Boolean = True Dim timeEntryExisting As Boolean = False
timas.getTimeEntries(cAllgemein.MITARBEITER.mit_timasId, infoMessage, timeEntryExisting,, isEndpointRunning) Dim isEndpointRunning As Boolean = True
If Not timeEntryExisting AndAlso isEndpointRunning Then timas.getTimeEntries(cAllgemein.MITARBEITER.mit_timasId, infoMessage, timeEntryExisting,, isEndpointRunning)
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 Not timeEntryExisting AndAlso isEndpointRunning Then
If a = vbYes 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)
Dim info If a = vbYes Then
timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, "in") Dim info
MsgBox(info) timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, "in")
Else MsgBox(info)
Else
End If
End If End If
End If End If
End If End If
Catch ex As Exception Catch ex As Exception