SendEmail Added ContextMenuStrip

SDL/Fakturierung/usrCntlFaktAbrechnung.vb

@@ -4224,28 +4224,67 @@ Nächste_Textzeile_lesen:
     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
+        ContextMenuStrip3.Show(Cursor.Position)
     End Sub
+
+Private Sub AbsenderToolStripMenuItem2_Click(sender As Object, e As EventArgs) Handles AbsenderToolStripMenuItem2.Click, EmpfängerToolStripMenuItem2.Click, AuftraggeberToolStripMenuItem2.Click, AvisiererToolStripMenuItem2.Click
+        Try
+
+
+            If cboRechnungAn._value = "" Then Exit Sub
+            getValues()
+            Dim ROLLE = "AUFTRAGGEBER"
+
+            Dim FirmaFrm = (RECHNUNG.RechnungsName_1 & " " & If(RECHNUNG.RechnungsName_2, "")).trim
+            Dim kdnrFrm As Integer = RECHNUNG.RechnungsKundenNr
+
+            Select Case sender.text.ToString.Substring(0, 1) 'cboRechnungAn._value
+                Case "1"
+                    ROLLE = "ABSENDER"
+                    FirmaFrm = (RECHNUNG.AbsenderName_1 & " " & If(RECHNUNG.AbsenderName_2, "")).trim
+                    kdnrFrm = RECHNUNG.AbsenderKundenNr
+                Case "2"
+                    ROLLE = "EMPFAENGER"
+                    FirmaFrm = (RECHNUNG.EmpfängerName_1 & " " & If(RECHNUNG.EmpfängerName_2, "")).trim
+                    kdnrFrm = RECHNUNG.EmpfängerKundenNr
+                Case "3"
+                    ROLLE = "AUFTRAGGEBER"
+                    FirmaFrm = (RECHNUNG.VermittlerName_1 & " " & If(RECHNUNG.VermittlerName_2, "")).trim
+                    kdnrFrm = RECHNUNG.VermittlerKundenNr
+                Case "4"
+                    ROLLE = "AVISIERER"
+                    FirmaFrm = (RECHNUNG.Avisierer)
+                    kdnrFrm = RECHNUNG.AvisiererKundenNr
+            End Select
+            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, kdnrFrm)
+                f.ShowDialog(Me)
+                initRECHNUNG()
+                RaiseEvent SOMETHING_CHANGED(-1)
+
+
+            End If
+            cbxOriginalPrint.Checked = False
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+    End Sub
+
+
+
 End Class