neu

Aviso/frmEintragAviso.vb

@@ -616,6 +616,7 @@ Public Class frmEintragAviso
 
             'If Neuanlage Then
             '  If optAvisoEingang.Checked Then
+            '  If optAvisoEingang.Checked Thensend
             '    If dtpAvisoEingangDatum.Value < Now.Date Then
             '         Dim antwort As MsgBoxResult = MsgBox("Das Aviso-Eingangsdatum liegt in der Vergangenheit. Wollen Sie den Eintrag trotzdem speichern?", CType(MsgBoxStyle.YesNo + MsgBoxStyle.Exclamation, MsgBoxStyle),
             '                                 "Aviso speichern")
@@ -998,9 +999,11 @@ Public Class frmEintragAviso
 
             Dim tmpId = AvisoDAL.SpeichernAviso(myAviso)
 
+
             myAviso.AvisoID = tmpId
             AvisoDAL.addAenderung(tmpId, aendart, aendText)
 
+
             'VORPAPIER
             If UsrCntlAviso_Vorpapiere1.checkDouble() Then
                 MsgBox("Vorpapiere: Doppelte Einträge!")
@@ -1144,6 +1147,9 @@ Public Class frmEintragAviso
 
 
 
+            If Neuanlage Then
+                AvisoStatusFunctions.SendStatusEmail(myAviso)
+            End If
 
             '        If Not IsNumeric(txtSendungen.Text) Or txtSendungen.Text = "0" Then
             'txtSendungen.Text = "1"
@@ -1801,7 +1807,14 @@ Public Class frmEintragAviso
         End Try
     End Sub
 
-    Private Sub Button5_Click_1(sender As Object, e As EventArgs) Handles Button5.Click
-
+    Private Sub kdAvisierer_KeyDown(sender As Object, e As KeyEventArgs) Handles kdAvisierer.KeyDown
+        If e.Modifiers = Keys.Control And e.KeyCode = Keys.D0 Then
+            Label17_Click(Label17, New EventArgs)
+        End If
+    End Sub
+    Private Sub kdAuftraggeber_KeyDown(sender As Object, e As KeyEventArgs) Handles kdAuftraggeber.KeyDown
+        If e.Modifiers = Keys.Control And e.KeyCode = Keys.D0 Then
+            lblAtrAvis_Click(lblAtrAvis, New EventArgs)
+        End If
     End Sub
 End Class