MDM Fakt.

SDL/Fakturierung/frmFaktEmail.vb

@@ -1,4 +1,5 @@
-Imports Microsoft.Office.Interop
+Imports GrapeCity.DataVisualization.TypeScript
+Imports Microsoft.Office.Interop
 Imports org.omg.PortableServer.POAPackage
 Imports VERAG_PROG_ALLGEMEIN
 
@@ -31,6 +32,7 @@ Public Class frmFaktEmail
     Dim Abfertigungsart As String
     Dim DruckDatumZeit As DateTime
     Dim AvisoIds As List(Of Integer)
+    Dim printRgCopy As Boolean = False
 
     Dim SR = False
     Sub New(RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, printOriginalRg As Object, Rechnungsdruck As Integer, Optional Rechnungsdatum As Object = Nothing)
@@ -72,6 +74,7 @@ Public Class frmFaktEmail
         Me.Abfertigungsart = Abfertigungsart
         Me.AvisoIds = AvisoIds
         Me.Rechnungsdruck = Rechnungsdruck
+        Me.printRgCopy = printRgCopy
         SR = True
     End Sub
 
@@ -140,8 +143,22 @@ Public Class frmFaktEmail
             If SammelrechungArt = 6 Then
                 cbxMergePDF.Checked = False
                 cbxMergePDF.Enabled = False
+                cbxMDMReKopie.Visible = True
+                cbxMDMReKopie.Checked = printRgCopy
+                cbxMDMAnh.Visible = True
+                cbxMDMAnh.Checked = False
+
+                cboPrinter.Visible = False
+                cbxRgKopieDrucken.Visible = False
+
             Else
                 cbxMergePDF.Enabled = True
+                cbxMDMReKopie.Visible = False
+                cbxMDMAnh.Visible = False
+
+                cboPrinter.Visible = True
+                cbxRgKopieDrucken.Visible = True
+
             End If
         Else
             setMailText(RECHNUNG.RechnungsLandKz)
@@ -189,7 +206,6 @@ Public Class frmFaktEmail
             If RECHNUNG.FilialenNr = "4801" Or RECHNUNG.FilialenNr = "4802" Then email_receipt = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(AD.AdressenNr, "Rechnung an (ATILLA)")
         End If
 
-
         Dim EMAILTMP = IIf(email_receipt = "", VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(AD.AdressenNr, "Rechnung an"), email_receipt) 'VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(AD.AdressenNr, "Rechnung an")
         If EMAILTMP <> "" Then dgvEmail.Rows.Add(EMAILTMP)
         Dim EMAILTMPCC = IIf(email_receipt = "", VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressCC(AD.AdressenNr, "Rechnung an"), VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressCC(AD.AdressenNr, "Rechnung an (ATILLA)"))
@@ -376,7 +392,7 @@ Public Class frmFaktEmail
                         Dim path = ""
 
                         If SammelrechungArt = 6 Then
-                            RechnungsNrisSet = cFakturierung.doSAMMELRechnungsDruck(19, SammelrechungArt, DatumBis, Rechnungsdatum, "", EinzelAnlagen, Sammelbericht, KdNr, 4, listPDFs, SB, lastAktuelle_RgNr, DruckDatumZeit, AvisoIds, cbxExcelEvolog.Checked, SonstAnlagen,, cbxTransFerry.Checked, FakturierungsGruppe, Abfertigungsart, True)
+                            RechnungsNrisSet = cFakturierung.doSAMMELRechnungsDruck(19, SammelrechungArt, DatumBis, Rechnungsdatum, "", EinzelAnlagen, Sammelbericht, KdNr, 4, listPDFs, SB, lastAktuelle_RgNr, DruckDatumZeit, AvisoIds, cbxExcelEvolog.Checked, SonstAnlagen,, cbxTransFerry.Checked, FakturierungsGruppe, Abfertigungsart, True, cbxMDMReKopie.Checked)
                         Else
                             cFakturierung.doSAMMELRechnungsDruck_Abschnitt(RechnungsNr, -1, -1, DruckDatumZeit, "", False, , 4, path, True,, cbxExcelEvolog.Checked, SonstAnlagen,, cbxTransFerry.Checked)
                         End If
@@ -453,11 +469,17 @@ Public Class frmFaktEmail
                     '-----------------------------------------------------------------
                     For Each l In listPDFs
                         '    Mail.Attachments.Add(l, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
+
                         ATTACHMENTS.Add(New cFakt_MailATTach(l, ""))
+
+
+
                     Next
                     For Each l In SonstAnlagen
                         '    Mail.Attachments.Add(l, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
+
                         ATTACHMENTS.Add(New cFakt_MailATTach(l, ""))
+
                     Next
                     addAttachments(Mail, lastAktuelle_RgNr, cbxMergeRg.Checked)
 
@@ -562,16 +584,16 @@ Public Class frmFaktEmail
                         '-----------------------------------------------------------------
                         Dim pathRG = ""
 
-                        If Not cFakturierung.doRechnungsDruck(RECHNUNG, Rechnungsdatum,, 4, pathRG,, cbxOriginalPrint.Checked) Then
-                            Exit Sub
-                        End If
+                    If Not cFakturierung.doRechnungsDruck(RECHNUNG, Rechnungsdatum,, 4, pathRG,, cbxOriginalPrint.Checked) Then
+                        Exit Sub
+                    End If
 
-                        'If Not RECHNUNG.checkRechnungsNrIsSet() Then
-                        '    MsgBox("Rechnungsnummer wurde nicht in Datenbank eingetragen" & vbNewLine & "Vorgang wird abgebrochen")
-                        '    Exit Sub
-                        'End If
+                    'If Not RECHNUNG.checkRechnungsNrIsSet() Then
+                    '    MsgBox("Rechnungsnummer wurde nicht in Datenbank eingetragen" & vbNewLine & "Vorgang wird abgebrochen")
+                    '    Exit Sub
+                    'End If
 
-                        RechnungsNr = RECHNUNG.RechnungsNr
+                    RechnungsNr = RECHNUNG.RechnungsNr
 
                         If cbxRgKopieDrucken.Checked Then
                             'KOPIE DRUCK
@@ -849,7 +871,20 @@ Public Class frmFaktEmail
             'Anhang an Mail anfügen
             '-----------------------------------------------------------------
             For Each a In ATTACHMENTS
-                Mail.Attachments.Add(a.Pfad, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , a.MailName)
+
+                If cbxMDMAnh.Checked Then
+                    Mail.Attachments.Add(a.Pfad, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , a.MailName)
+                Else
+                    If a.Pfad.ToString.toLowerCase.EndsWith("maut_at.pdf") Or a.Pfad.ToString.toLowerCase.EndsWith("maut_uta.pdf") Or a.Pfad.ToString.toLowerCase.EndsWith("maut_mse.pdf") Then
+                        'NICHT ANFÜGEN!
+                    Else
+                        Mail.Attachments.Add(a.Pfad, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , a.MailName)
+                    End If
+
+                End If
+
+
+
             Next
             '-----------------------------------------------------------------