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

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

3
Aviso/frmHauptfenster.vb
View File

@@ -590,6 +590,7 @@ 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
If Not VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasNichtStempeln Then
Dim timas As New cTimasAPI Dim timas As New cTimasAPI
Dim infoMessage As New DataTable Dim infoMessage As New DataTable
Dim timeEntryExisting As Boolean = False Dim timeEntryExisting As Boolean = False
@@ -607,7 +608,7 @@ Public Class frmHauptfenster
End If End If
End If
End If End If
Catch ex As Exception Catch ex As Exception