Mail Erstellen Maske

SDL/Fakturierung/usrCntlFaktAbrechnung.vb

@@ -3495,6 +3495,7 @@ Nächste_Textzeile_lesen:
         cbxOriginalPrint.Checked = False
     End Sub
 
+
     Function getPrinterFromParent()
         Try
             If Me.FindForm IsNot Nothing Then
@@ -4221,4 +4222,30 @@ Nächste_Textzeile_lesen:
             txtText.Text = cFakturierung.przRechnungstextTXT(RECHNUNG, SPEDBUCH)
         End If
     End Sub
+
+    Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click
+        If Not checkUIDNR() Then Exit Sub
+
+        If RECHNUNG.Status <> 0 OrElse saveMe() Then
+            ' Anhänge sichern, falls geändert
+            If RECHNUNG.RK_ID > 0 And RECHNUNG.Status <> 0 Then
+                getValues_ANHAENGE()
+                RECHNUNG.SAVE_ANHAENGE(RECHNUNG.RK_ID)
+            End If
+
+            'RG-Druck - Mail (+Kopie)
+            Dim RG_DRUCK = 2
+            If sender Is Button16 Then
+                RG_DRUCK = 5
+            End If
+
+            Dim f As New frmSendEmail(RECHNUNG, SPEDBUCH, If(cbxOriginalPrint.Visible, cbxOriginalPrint.Checked, Nothing), RG_DRUCK)
+            f.ShowDialog(Me)
+            initRECHNUNG()
+            RaiseEvent SOMETHING_CHANGED(-1)
+
+
+        End If
+        cbxOriginalPrint.Checked = False
+    End Sub
 End Class