Fiskal-Checkliste / AT ZOLL eingereicht

Aviso/usrcntlAktDetails.vb

@@ -6,6 +6,7 @@ Imports System.IO
 Imports System.Drawing
 Imports Microsoft.Office.Interop
 
+
 Public Class usrcntlAktDetails
 
     Dim VermerkeDAL As New cVermerkeDAL
@@ -147,7 +148,7 @@ Public Class usrcntlAktDetails
                 '    lblLKWChat_MsgCnt.BringToFront()
                 'End If
             End If
-            End If
+        End If
 
     End Sub
     Sub initSND_CHAT(SendungsID)
@@ -2558,8 +2559,20 @@ Public Class usrcntlAktDetails
     End Sub
 
     Private Sub btnFertig_Click_1(sender As Object, e As EventArgs) Handles btnFertig.Click
-        VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.LKWFertig(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
-        frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+        'VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.LKWFertig(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+        'frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+
+        'Select Case AVISO.Status
+        '   ' Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben
+        '    Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben
+
+        'End Select
+
+        Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
+        Dim sv As New frmAddAktenvermerkShort(AVISO.AvisoID)
+        sv.Location = Me.PointToClient(Cursor.Position)
+        sv.ShowDialog(frmGrayOut)
+        frmGrayOut.Close()
     End Sub
 
 
@@ -3182,27 +3195,27 @@ Public Class usrcntlAktDetails
 
         ' Me.Cursor = Cursors.WaitCursor
         Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
-            VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, -1, AvisoID) 'LÄDT alle SENDUNGSDATEN
+        VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, -1, AvisoID) 'LÄDT alle SENDUNGSDATEN
 
-            For Each s In SENDUNG_LIST
-                If checkcbxAlleFirmen(s.FilialenNr) Then
-                    If Not s.tblSnd_Fremdspedition Then If CInt(s.AbfertigungsNr) < 100000 Then MsgBox("Es wurden nicht alle Abfertigungsnummern vergeben!") : Exit Sub
-                End If
-            Next
+        For Each s In SENDUNG_LIST
+            If checkcbxAlleFirmen(s.FilialenNr) Then
+                If Not s.tblSnd_Fremdspedition Then If CInt(s.AbfertigungsNr) < 100000 Then MsgBox("Es wurden nicht alle Abfertigungsnummern vergeben!") : Exit Sub
+            End If
+        Next
 
-            Dim Printername = ""
-            Dim oPS As New System.Drawing.Printing.PrinterSettings
-            Try
-                Printername = oPS.PrinterName
-            Catch ex As System.Exception
-            End Try
+        Dim Printername = ""
+        Dim oPS As New System.Drawing.Printing.PrinterSettings
+        Try
+            Printername = oPS.PrinterName
+        Catch ex As System.Exception
+        End Try
 
-            'Dim trd = New Threading.Thread(Sub()
-            For Each s In SENDUNG_LIST
-                If checkcbxAlleFirmen(s.FilialenNr) Then
-                    If Not s.tblSnd_Fremdspedition Then SendungOptions.PrintSendung("PRINT", s, AVISO, Printername,, SENDUNG_LIST.Count)
-                End If
-            Next
+        'Dim trd = New Threading.Thread(Sub()
+        For Each s In SENDUNG_LIST
+            If checkcbxAlleFirmen(s.FilialenNr) Then
+                If Not s.tblSnd_Fremdspedition Then SendungOptions.PrintSendung("PRINT", s, AVISO, Printername,, SENDUNG_LIST.Count)
+            End If
+        Next
         '                               End Sub)
         '   trd.IsBackground = True : trd.Start()
         '    Me.Cursor = Cursors.Default