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

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