AT-ZOLL eingereicht Fiskal Checkliste

Aviso/frmAddAktenvermerkShort.vb

@@ -198,16 +198,42 @@ 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
+
+
+
+                    'Sendungen durchlaufen und die Fiskal - Checkliste bei AT Fiskal anzeigen (je SND)
+                    Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
+                    VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, 0, AvisoID) 'LÄDT alle SENDUNGSDATEN
+
+                    If SENDUNG_LIST IsNot Nothing Then
+
+                        For Each SND In SENDUNG_LIST
+
+                            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
+                        Next
+
+                    End If
+
+
+                End If
                 insertVermerk("AT Zoll eingereicht", 19)
 
-                'If vbYes = MsgBox("Fahrer-Anweisung ""zum Zollamt gehen"" ausdrucken?", vbYesNo) Then
-                '    Try
-                '        Dim path = SDL.FormularManagerNEU.zumZOLL_AVISO(myAviso, "AT")
-                '        If path <> "" Then VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaGS(path, (New System.Drawing.Printing.PrinterSettings).PrinterName)
-                '    Catch ex As Exception : MsgBox(ex.Message & ex.StackTrace) : End Try
-                'End If
-            End If
-        ElseIf sender Is btnLKWStandzeitWE Then
+                    'If vbYes = MsgBox("Fahrer-Anweisung ""zum Zollamt gehen"" ausdrucken?", vbYesNo) Then
+                    '    Try
+                    '        Dim path = SDL.FormularManagerNEU.zumZOLL_AVISO(myAviso, "AT")
+                    '        If path <> "" Then VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaGS(path, (New System.Drawing.Printing.PrinterSettings).PrinterName)
+                    '    Catch ex As Exception : MsgBox(ex.Message & ex.StackTrace) : End Try
+                    'End If
+                End If
+                ElseIf sender Is btnLKWStandzeitWE Then
             insertVermerk("LKW Standzeit Wochenende", 21)
         ElseIf sender Is btnLKWStandzeitFeierteage Then
             insertVermerk("LKW Standzeit Feiertag(e)", 22)