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

Fiskal-Checkliste / AT ZOLL eingereicht

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-03-15 22:29:37 +01:00
parent e0c0d74b9a
commit a27e324a71
7 changed files with 127 additions and 101 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
Aviso/frmAddAktenvermerkShort.vb
View File

@@ -198,8 +198,7 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
insertVermerk("AT Zoll fertig", 20)
If myAviso.LKW_fertig Then VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.LKWFertig(myAviso.AvisoID) : frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
Else
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("AT_FISKAL_CHECKLISTE") Then
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("AT_FISKAL_CHECKLISTE") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", "AVISO") Then
'Sendungen durchlaufen und die Fiskal - Checkliste bei AT Fiskal anzeigen (je SND)
@@ -209,15 +208,18 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
If SENDUNG_LIST IsNot Nothing Then
For Each SND In SENDUNG_LIST
Select Case SND.tblSnd_Abfertigungsart_ID
Case 26, 28
If SND.tblSnd_Abfertigungsart_ID = 26 Then
Dim f As New frmATZollEingereichtSetzen(myAviso, SND)
If f.ShowDialog() = DialogResult.OK Then
'Passt scho..
Else
Exit Sub ' --> YOU'RE OUT!
End If
End If
Dim f As New frmATZollEingereichtSetzen(myAviso, SND)
If f.ShowDialog() = DialogResult.OK Then
'Passt scho..
AvisoStatusFunctions.insertSendungsVermerk(SND.tblSnd_SendungID, myAviso.AvisoID, "Fiskal-Checkliste - OK", 100)
Else
Exit Sub ' --> YOU'RE OUT!
End If
End Select
Next
End If