SDL, etc.

SDL/Fakturierung/cAutomailversand.vb

@@ -227,13 +227,13 @@ Public Class cAutomailversand
                     Dim showError As Boolean = False
                     setEmailText(r, FirmaID, RECHNUNG.RechnungsNr, Mailsubject, HTMLMail, RECHNUNG.Sammelrechnung, dt, RECHNUNG.BelegartenNr, SPEDBUCH, RECHNUNG)
 
-                    loadAndSetAnhaenge(dt, ATTACHMENTS, listPDFs, RECHNUNG)
+                    loadAndSetAnhaenge(dt, ATTACHMENTS, listPDFs, RECHNUNG, SPEDBUCH)
 
                     If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then Mailsubject &= " TEST"
 
                     If mailoeffnen Then
                         Dim Mail = createMail(Mailsubject, HTMLMail, ATTACHMENTS, MailTo, MailtoCC, MailtoBCC, FirmaID)
-                        If setLog(dt, r, FirmaID, RECHNUNG.Sammelrechnung, Rechnungsdatum,,,,,,, Mail, RECHNUNG) Then
+                        If setLog(dt, r, FirmaID, RECHNUNG.Sammelrechnung, Rechnungsdatum,,,,,,, Mail, RECHNUNG, FISKAL, SPEDBUCH) Then
                             Mail.Display()
                         End If
 
@@ -462,7 +462,7 @@ Public Class cAutomailversand
                 If att.Pfad.ToString.ToLower.EndsWith("maut_at.pdf") Or att.Pfad.ToString.ToLower.EndsWith("maut_uta.pdf") Or att.Pfad.ToString.ToLower.EndsWith("maut_mse.pdf") Then
                     'diese Anh. nicht mitanfügen!
                 Else
-                    Mail.Attachments.Add(att.Pfad, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , att.MailName)
+                    If att.Pfad <> "" Then Mail.Attachments.Add(att.Pfad, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , att.MailName)
                 End If
 
             Next
@@ -497,7 +497,7 @@ Public Class cAutomailversand
 
                 Dim path = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(ANH.dsId)
 
-                If PDFS_zusammenfassen(path, RECHNUNG.FilialenNr, RECHNUNG.Firma_ID) Then
+                If PDFS_zusammenfassen(path, RECHNUNG.FilialenNr, RECHNUNG.Firma_ID, False) Then
                     If path <> "" Then
                         If Not zsmf_ER.Any(Function(p) System.IO.Path.GetFileName(p.ToString).Equals(path, StringComparison.OrdinalIgnoreCase)) Then 'doppelte unterbinden!
                             zsmf_ER.Add(path)
@@ -521,12 +521,11 @@ Public Class cAutomailversand
 
                 Select Case ZOLL
                     Case "DE"
-                        ATTACHMENTS.Add(New cFakt_MailATTach(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(SPEDBUCH.DokumentId_Steuerbeleg), "Steuerbescheid.pdf"))
+                        If SPEDBUCH.DokumentId_Steuerbeleg IsNot Nothing Then ATTACHMENTS.Add(New cFakt_MailATTach(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(SPEDBUCH.DokumentId_Steuerbeleg), "Steuerbescheid.pdf"))
                         If SPEDBUCH.DokumentId_VBD IsNot Nothing Then ATTACHMENTS.Add(New cFakt_MailATTach(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(SPEDBUCH.DokumentId_VBD), "Abgabenbescheid.pdf"))
                     Case "AT"
-                        ATTACHMENTS.Add(New cFakt_MailATTach(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(SPEDBUCH.DokumentId_Steuerbeleg), "Verzollungsnachweis.pdf"))
-                        ATTACHMENTS.Add(New cFakt_MailATTach(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(SPEDBUCH.DokumentId_Mitteilung), "Versandschein.pdf"))
                         If SPEDBUCH.DokumentId_Steuerbeleg IsNot Nothing Then ATTACHMENTS.Add(New cFakt_MailATTach(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(SPEDBUCH.DokumentId_Steuerbeleg), "Verzollungsnachweis.pdf"))
+                        If SPEDBUCH.DokumentId_Mitteilung IsNot Nothing Then ATTACHMENTS.Add(New cFakt_MailATTach(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(SPEDBUCH.DokumentId_Mitteilung), "Versandschein.pdf"))
 
                 End Select
 
@@ -562,7 +561,7 @@ Public Class cAutomailversand
                             Dim path = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(ANH.dsId)
 
                             'hier die LOGIK, was alles zusammengefasst werden soll!
-                            If PDFS_zusammenfassen(path, FilialenNr, FIRMA_ID) Then
+                            If PDFS_zusammenfassen(path, FilialenNr, FIRMA_ID, True) Then
                                 If path <> "" Then
                                     If Not zsmf_SR.Any(Function(p) System.IO.Path.GetFileName(p.ToString).Equals(path, StringComparison.OrdinalIgnoreCase)) Then 'doppelte unterbinden!
                                         zsmf_SR.Add(path)
@@ -598,7 +597,7 @@ Public Class cAutomailversand
     End Sub
 
 
-    Private Function PDFS_zusammenfassen(path As String, Filiale As Integer, Firma As Integer)
+    Private Function PDFS_zusammenfassen(path As String, Filiale As Integer, Firma As Integer, isSR As Boolean)
 
         Dim zusammenfassen As Boolean = False
 
@@ -614,8 +613,44 @@ Public Class cAutomailversand
                     End If
                 End If
 
-            Case Else
+            Case 1
+                If Not isSR Then
+                    Return True
+                Else
 
+                    'mit Marlene sprechen!
+                    If Not (path.ToString.ToLower.Contains("flyercbam") OrElse Not (path.ToString.ToLower.Contains("sammelrechnung"))) Then
+                        Return True
+                    End If
+                End If
+
+            Case 20
+                If Not isSR Then
+                    Return True
+                Else
+
+                    'mit ÜMMÜ sprechen!
+                    If Not (path.ToString.ToLower.Contains("flyercbam") OrElse Not (path.ToString.ToLower.Contains("sammelrechnung"))) Then
+                        Return True
+                    End If
+                End If
+
+
+            Case 11
+                If Not isSR Then
+                    Return True
+                Else
+
+                    'mit WIESNER sprechen!
+                    If Not (path.ToString.ToLower.Contains("flyercbam") OrElse Not (path.ToString.ToLower.Contains("sammelrechnung"))) Then
+                        Return True
+                    End If
+                End If
+
+
+            Case 7
+
+                Return False
 
         End Select
 
@@ -652,10 +687,16 @@ Public Class cAutomailversand
             EMails_BCC = accountToSend 'MailtoBCC
             EMail_subject = Mailsubject
             EMail_HTML = Mailhtml
+
+            If ATTACHMENTS Is Nothing Then
+                AttCount = 0
+            Else
                 AttCount = ATTACHMENTS.Count
 
             End If
 
+        End If
+
         Dim AbfertigungsNr As Integer
         Dim FilialenNr As Integer
         Dim UnterNr As Integer
@@ -713,6 +754,7 @@ Public Class cAutomailversand
         Else
 
             Dim attachList As New List(Of String)
+            If ATTACHMENTS IsNot Nothing Then
                 For Each ATT As cFakt_MailATTach In ATTACHMENTS
 
                     If ATT.Pfad.ToString.ToLower.EndsWith("maut_at.pdf") Or ATT.Pfad.ToString.ToLower.EndsWith("maut_uta.pdf") Or ATT.Pfad.ToString.ToLower.EndsWith("maut_mse.pdf") Then
@@ -722,7 +764,7 @@ Public Class cAutomailversand
                     End If
 
                 Next
-
+            End If
 
             If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, EMail_subject, EMail_HTML, accountToSend, False, False, EMails_CC, EMails_BCC, attachList,, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "d.breimaier@verag.ag", accountToSend)) Then
                     API.UPDTAE_OK()
@@ -770,6 +812,8 @@ Public Class cAutomailversand
     Private Function setAccountToSend(FIRMA_ID) As String
         Dim accountToSend = ""
 
+        'ev aus tabelle TBLFIRMA ziehen??! allerdings IMEX nicht korrekt! -> abklären
+
         Select Case FIRMA_ID
 
             Case 24
@@ -778,6 +822,10 @@ Public Class cAutomailversand
                 accountToSend = "mmdabrechnung@verag.ag" 'bewusst falsch geschrieben!!!!
             Case 7
                 accountToSend = "rechnung@atilla-spedition.com"
+            Case 20
+                accountToSend = "finanz@imex-group.at"
+            Case 11
+                accountToSend = "versand@verag.com"
             Case Else
                 accountToSend = "rechnungsversand@verag.ag"
         End Select

SDL/kassenbuch/frmBelegNeu.vb

@@ -1888,6 +1888,7 @@ Public Class frmBelegNeu
             Dim client As New cFiskaltrustClient(KASSE.rksv_FT_RestServiceURL, KASSE.rksv_FT_CashboxID, KASSE.rksv_FT_AccessToken, KASSE.rksv_FT_Country)
             Dim result = client.Echo()
 
+
         Else
             MsgBox("keine Rest-Service URL hinterlegt!")
 

SDL/kunden/usrCntlKundenuebersicht.vb

@@ -3365,15 +3365,21 @@ Public Class usrCntlKundenuebersicht
 
         End If
 
-        Dim failureDesc As String = cs.getReport(company, True)
+
+
+        Dim withPDF As Boolean = True '#wenn PDF und JSON in einem geht withPDF aus true!
+
+
+        Dim failureDesc As String = cs.getReport(company, withPDF)
         If failureDesc <> "" Then
             MsgBox(failureDesc)
             Cursor = Cursors.Default
             Exit Sub
         End If
-
+        If Not withPDF Then
-        '#wenn PDF und JSON in einem geht, dann folgende Zeile auskommentieren!
             pdfObject = cs.getPDF(company, failureDesc)
+        End If
+
 
         'cs.AddCompanyToPortfolio(company)
 
@@ -3393,12 +3399,12 @@ Public Class usrCntlKundenuebersicht
             setCreditSafeEntry(company, pdfObject, kdNr, forecedReqest, beforeRequestCount, afterRequestCount, limit, country)
         End If
 
-        If beforeRequestCount >= (limit - 20) AndAlso beforeRequestCount <= limit Then 'Benachrichtigung
+        If beforeRequestCount >= (limit - 100) AndAlso beforeRequestCount <= (limit - 90) Then 'Benachrichtigung
 
             Dim empfanegerMail As String = ""
             empfanegerMail = cMitarbeiter.GetEMailRecipientForEmailNotification("Creditsafe-Limit")
             If empfanegerMail <> "" Then
-                VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfanegerMail, "Creditsafe-Limit", "ACHTUNG, das Creditsafe-Limit für " & country & " ist fast erreicht! <br><br> Limit: " & limit & " , aktuelle Stand: " & afterRequestCount & " <br><br>*Automatic generated e-mail*",, True,,,)
+                VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfanegerMail, "Creditsafe-Limit", "ACHTUNG, das Creditsafe-Limit für " & country & " ist fast erreicht! <br><br> Limit: " & limit & " , aktueller Stand: " & afterRequestCount & " <br><br>*Automatic generated e-mail*",, True,,,)
             End If
 
         End If

VERAG_PROG_ALLGEMEIN/Schnittstellen/Creditsafe/cCreditSafeAPI.vb

@@ -1127,9 +1127,9 @@ Public Class cCreditSafeAPI
         End If
 
         Dim acceptContentType = "application/json"
-        'If withPDF Then
+        If withPDF Then
-        '    acceptContentType &= "+pdf"
+            acceptContentType &= "+pdf"
-        'End If
+        End If