Bugfix Emailverarbeitung

VERAGAddIn/frmAvisoAnfügen.vb

@@ -1,5 +1,7 @@
 Imports System.Diagnostics
 Imports System.Windows.Forms
+Imports AVISO
+Imports VERAG_PROG_ALLGEMEIN
 Imports VERAG_PROG_ALLGEMEIN.VERAG_OUT_EZA
 
 Public Class frmAvisoAnfuegen
@@ -282,17 +284,48 @@ Public Class frmAvisoAnfuegen
         If dgvSendungen.SelectedRows.Count > 0 Then
             btnVermerke.Enabled = True
             Me.SendungsId = dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value
+            Dim SENDUNG_TMP = New VERAG_PROG_ALLGEMEIN.cSendungen(SendungsId)
             Dim AVISO = VERAG_PROG_ALLGEMEIN.cAviso.getAvisoById(dgvSendungen.SelectedRows(0).Cells("tblSnd_AvisoID").Value)
             If AVISO IsNot Nothing Then
                 usrcntrVermerke.init(AVISO, SendungsId)
+
+                If SENDUNG_TMP IsNot Nothing Then
+
+                    CheckBox3.Checked = IIf(SENDUNG_TMP.tblSnd_Vorgeschrieben = Nothing, False, True)
+                    CheckBox2.Checked = IIf(SENDUNG_TMP.tblSnd_Vorbereitet = Nothing, False, True)
+                    CheckBox3.Enabled = True
+                    CheckBox2.Enabled = True
+                End If
+
+            Else
+                btnVermerke.Enabled = False
+                CheckBox3.Enabled = False
+                CheckBox2.Enabled = False
+                usrcntrVermerke.init(Nothing, -1)
             End If
-        Else
-            btnVermerke.Enabled = False
-            usrcntrVermerke.init(Nothing, -1)
         End If
 
+
     End Sub
     Private Sub dgvSendungen_SelectionChanged(sender As Object, e As EventArgs) Handles dgvSendungen.SelectionChanged
         initVermerke()
     End Sub
+
+    Private Sub CheckBox3_Click(sender As Object, e As EventArgs) Handles CheckBox3.Click, CheckBox2.Click
+        If dgvSendungen.SelectedRows.Count > 0 Then
+            Me.SendungsId = dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value
+            Dim AVISO = VERAG_PROG_ALLGEMEIN.cAviso.getAvisoById(dgvSendungen.SelectedRows(0).Cells("tblSnd_AvisoID").Value)
+            If AVISO IsNot Nothing Then
+                Dim FUNC As New AvisoStatusFunctions
+
+                Select Case sender.Name
+                    Case "CheckBox3" : FUNC.setSendungVorgeschrieben(SendungsId, AVISO.AvisoID) : initVermerke()
+                    Case "CheckBox2" : FUNC.setSendungVorbereitetQS(SendungsId, AVISO.AvisoID) : initVermerke()
+                End Select
+
+            End If
+        End If
+
+
+    End Sub
 End Class