RMC Einarbeitung von EasyTrip, Sammelrechnung, Creditsafe, etc.

SDL/Fakturierung/cAutomailversand.vb

@@ -1,4 +1,5 @@
-Imports Microsoft.Office.Interop
+Imports com.sun.tools.doclets.internal.toolkit.util
+Imports Microsoft.Office.Interop
 Imports VERAG_PROG_ALLGEMEIN
 
 Public Class cAutomailversand
@@ -256,6 +257,9 @@ Public Class cAutomailversand
         ATTACHMENTS.Clear()
         'Rechnungsanhänge anfügen
 
+        Dim zielPfadZusammenfassung = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("Belegsanhänge", ".pdf",, False, "Zusammenfassung")
+
+
         For Each l In listPDFs
 
             ATTACHMENTS.Add(New cFakt_MailATTach(l, ""))
@@ -263,12 +267,39 @@ Public Class cAutomailversand
         Next
         '-----------------------------------------------------------------
         If SR_DT IsNot Nothing AndAlso SR_DT.Rows.Count > 0 Then
-            For Each r In SR_DT.Rows
+            For Each r As DataRow In SR_DT.Rows
                 Dim RG_ANH = VERAG_PROG_ALLGEMEIN.cRechnungsausgang.LOAD_ANHAENGE_LIST(r("RK_ID"))
                 If RG_ANH IsNot Nothing Then
-                    For Each ANH In RG_ANH
+
-                        ATTACHMENTS.Add(New cFakt_MailATTach(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(ANH.dsId), ANH.Bezeichnung))
+                    Dim FilialenNr = IIf(Not IsDBNull(r.Item("FilialenNr")) AndAlso IsNumeric(r.Item("FilialenNr")), CInt(r.Item("FilialenNr")), 0)
-                    Next
+
+                    If FilialenNr = 4817 Then 'diese immer zusammenfassen!
+
+                        Dim myList As List(Of String)
+
+                        For Each ANH In RG_ANH
+
+                            Dim path = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(ANH.dsId)
+                            If Not path.ToString.Contains("Sammelrechnung") Then
+                                myList.Add(ANH.Bezeichnung)
+                            Else
+                                ATTACHMENTS.Add(New cFakt_MailATTach(path, ANH.Bezeichnung))
+                            End If
+
+                        Next
+
+                        If FormularManagerNEU.MergePdfFiles(myList, zielPfadZusammenfassung) Then
+                            ATTACHMENTS.Add(New cFakt_MailATTach(zielPfadZusammenfassung, ""))
+                        End If
+
+                    Else
+                        For Each ANH In RG_ANH
+                            ATTACHMENTS.Add(New cFakt_MailATTach(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(ANH.dsId), ANH.Bezeichnung))
+                        Next
+                    End If
+
+
+
                 End If
             Next
         End If

SDL/Fakturierung/cFakturierung.vb

@@ -5111,6 +5111,8 @@ Public Class cFakturierung
             Dim RG As New VERAG_PROG_ALLGEMEIN.cRechnungsausgang(r("RK_ID"))
             If RG IsNot Nothing Then
                 RG.LOAD_ANHAENGE()
+                Dim PDFList As New List(Of String)
+                Dim mergedPDFList = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("Attachment_" & RG.RechnungsNr & ".pdf", "pdf",, False, "Zusammenfassung")
                 For Each RG_AH In RG.ANHAENGE.Where(Function(x) x.Bezeichnung.ToLower.EndsWith(extTyp))
 
                     Select Case extTyp
@@ -5123,16 +5125,30 @@ Public Class cFakturierung
                                 End If
                             Else
 
-                                If RG_AH.Bezeichnung.ToUpper.Contains("MAUT") Or RG_AH.Bezeichnung.ToUpper.Contains("DIESEL") Or RG_AH.Bezeichnung.ToUpper.Contains("INVOICE") Then
+
+                                If RG.Firma_ID = 19 AndAlso RG.Sammelrechnung = 6 AndAlso RG.FilialenNr = 4817 Then 'in diesem Fall PDFs zusammenfassen!
+
                                     Dim Path = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(RG_AH.dsId)
-                                    If Not listAnh.Contains(Path) Then
+                                    If Not Path.ToString.Contains("Sammelrechnung") Then
+                                        PDFList.Add(Path)
+                                    Else
+                                        listAnh.Add(Path)
+                                    End If
 
-                                        If Not (listAnh.Any(Function(f) f.Contains("COPY_INVOICE")) And Path.ToUpper.Contains("COPY_INVOICE")) Then 'damit diesel IDS-Rechnung nicht doppelt hinzugefügt wird.
+                                Else
-                                            listAnh.Add(Path)
 
+                                    If RG_AH.Bezeichnung.ToUpper.Contains("MAUT") Or RG_AH.Bezeichnung.ToUpper.Contains("DIESEL") Or RG_AH.Bezeichnung.ToUpper.Contains("INVOICE") Then
+                                        Dim Path = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(RG_AH.dsId)
+                                        If Not listAnh.Contains(Path) Then
+
+                                            If Not (listAnh.Any(Function(f) f.Contains("COPY_INVOICE")) And Path.ToUpper.Contains("COPY_INVOICE")) Then 'damit diesel IDS-Rechnung nicht doppelt hinzugefügt wird.
+                                                listAnh.Add(Path)
+
+                                            End If
                                         End If
                                     End If
                                 End If
+
                             End If
 
 
@@ -5152,7 +5168,14 @@ Public Class cFakturierung
 
 
                 Next
+
+                If mergedPDFList.Count > 0 Then
+                    If FormularManagerNEU.MergePdfFiles(PDFList, mergedPDFList) Then
+                        listAnh.Add(mergedPDFList)
+                    End If
+                End If
             End If
+
         Next
 
 

SDL/Fakturierung/frmFaktSammelRgDrucken.vb

@@ -679,7 +679,7 @@ Public Class frmFaktSammelRgDrucken
 
         If MyDatagridview1.SelectedRows.Count > 0 Then
 
-            If Not vbYes = MsgBox("Möchten Sie für alle markieren Rechnungen den automatischen Emailversand JETZT versenden?" & vbNewLine & "Ansonten werden sie im Nachtlauf automatisch versendet!", vbYesNoCancel) Then Exit Sub
+            If Not vbYes = MsgBox("Möchten Sie für alle markieren Rechnungen den automatischen Emailversand JETZT durchführen?" & vbNewLine & "Ansonten werden sie im Nachtlauf automatisch versendet!", vbYesNoCancel) Then Exit Sub
 
             Dim fun As New cAutomailversand
             For Each r In MyDatagridview1.SelectedRows

SDL/Formulare/KDFormulare/frmFormulare.vb

@@ -6701,7 +6701,7 @@ Public Class FormularManagerNEU
                 End If
 
             Finally
-                If document IsNot Nothing Then
+                If document IsNot Nothing AndAlso document.PageNumber > 0 Then
                     document.Close()
                 End If
             End Try

SDL/USTV/frmMDM_USTVAntrag.vb

@@ -1039,20 +1039,24 @@ Public Class frmMDM_USTVAntrag
                         USTV_POS.UStVPo_Schnittstelle = True
                         USTV_POS.UStVPo_Leistungsbezeichnung = "Diesel"
 
-                        Dim leistender As New cUStVLeistender("RMC Service GmbH" & " " & Antrag_LandKz, Antrag_LandKz)
+                        Dim leist As String = "RMC Service GmbH"
+
+                        If USTV_POS.UStVPo_ReNr.ToString.ToLower.StartsWith("fit") Then leist = "Con.Tir Scar"
+
+                        Dim leistender As New cUStVLeistender(leist & " " & Antrag_LandKz, Antrag_LandKz)
                         If leistender.UStV_LeistenderId < 1 Then
-                            leistender = New cUStVLeistender("RMC Service GmbH")
+                            leistender = New cUStVLeistender(leist)
                         End If
 
                         USTV_POS.UStVPo_Leistender = leistender.UStV_Leistender.ToString
-
-
                         USTV_POS.UStVPo_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
                         USTV_POS.UStVPo_Zeitstempel = Now()
 
                         ' Berechnungen
                         'von RMC bekommen wir Fremdwährung und EUR, d.b. wir können und den Umrechnungskurs selbst berechnen!
 
+                        'EasyTrip können wir nicht auslesen, deshalb geben wir immer 0,1 als Betrag mit!
+
                         Dim umrechKurs As Double = 1
                         If (CDbl(r.Item("rmc_betragBrutto")) <> 0 AndAlso CDbl(r.Item("rmc_euroBrutto")) <> 0) Then
 
@@ -1072,7 +1076,7 @@ Public Class frmMDM_USTVAntrag
                         End If
 
                         If USTV_POS.INSERT() Then
-                            cRMC.UPDATE_ARCHIV(USTV_POS.UStVPo_ReDat, USTV_POS.UStVPo_ReNr, kdNr, USTV_POS.UStVAn_ID)
+                            cRMC.UPDATE_ARCHIV(USTV_POS.UStVPo_ReDat, USTV_POS.UStVPo_ReNr.ToString, kdNr, USTV_POS.UStVAn_ID)
                         End If
 
                     End If
@@ -2135,7 +2139,7 @@ Public Class frmMDM_USTVAntrag
                 If Not test Then updated = SQL.doSQL(sqlText, "FMZOLL")
 
             Case 7  'RMC - neue Schnittstelle - OK
-                sqlText = "Update [tblRMCImport] Set rmc_archiv=0, [rmc_archiviertDatum] = NULL, UStVAn_ID = NULL FROM [tblRMCImport] inner join adressen on adressen.WölflKundenNr = tblRMCImport.rmc_kdNr Where cast(rmc_reDatum as date) = '" & RechnungsDatum.ToShortDateString & "' And rmc_reNr = " & RechnungsNr & " AND adressen.AdressenNr=" & USTV_ANTRAG.UStVAn_KuNr
+                sqlText = "Update [tblRMCImport] Set rmc_archiv=0, [rmc_archiviertDatum] = NULL, UStVAn_ID = NULL FROM [tblRMCImport] inner join adressen on adressen.WölflKundenNr = tblRMCImport.rmc_kdNr Where cast(rmc_reDatum as date) = '" & RechnungsDatum.ToShortDateString & "' And rmc_reNr = '" & RechnungsNr & "' AND adressen.AdressenNr=" & USTV_ANTRAG.UStVAn_KuNr
                 If Not test Then updated = SQL.doSQL(sqlText, "FMZOLL")
             Case 8, 12  'IDS neue Schnittstelle - OK
                 sqlText = "update tblIDSTransactionsNew set  UStVAn_ID = NULL

SDL/kunden/frmKundenblatt.Designer.vb

@@ -2446,7 +2446,7 @@ Partial Class frmKundenblatt
         '
         Me.btnFirmendatenFormularSpeichern.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.btnFirmendatenFormularSpeichern.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnFirmendatenFormularSpeichern.Location = New System.Drawing.Point(91, 18)
+        Me.btnFirmendatenFormularSpeichern.Location = New System.Drawing.Point(-1361, 18)
         Me.btnFirmendatenFormularSpeichern.Name = "btnFirmendatenFormularSpeichern"
         Me.btnFirmendatenFormularSpeichern.Size = New System.Drawing.Size(71, 52)
         Me.btnFirmendatenFormularSpeichern.TabIndex = 17
@@ -2724,7 +2724,7 @@ Partial Class frmKundenblatt
         '
         Me.cntxtCntxtMDM.ImageScalingSize = New System.Drawing.Size(24, 24)
         Me.cntxtCntxtMDM.Name = "cntxtCntxtMDM"
-        Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem4
+        Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem8
         Me.cntxtCntxtMDM.Size = New System.Drawing.Size(61, 4)
         Me.cntxtCntxtMDM.Text = "cntxtMDM"
         '

VERAG_PROG_ALLGEMEIN/Classes/cRMC.vb

@@ -196,7 +196,7 @@ Public Class cRMC
     End Function
 
 
-    Public Shared Function UPDATE_ARCHIV(reDat As Date, reNr As Integer, rmc_kdNr As Integer, UStVAn_ID As Integer) As Boolean
+    Public Shared Function UPDATE_ARCHIV(reDat As Date, reNr As String, rmc_kdNr As Integer, UStVAn_ID As Integer) As Boolean
         Try
             Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
 

VERAG_PROG_ALLGEMEIN/Schnittstellen/Creditsafe/cCreditSafeAPI.vb

@@ -348,9 +348,9 @@ Public Class cCreditSafeAPI
     End Function
 
 
-    Shared Function AddCompaniesCSVToPortfolio(csvFilePath As String, Optional PortfolioID As String = "1662419") As String
+    Shared Function AddCompaniesCSVToPortfolio(csvFilePath As String, sync As Boolean, Optional PortfolioID As String = "1662419") As String
 
-        Dim myUri As String = API_STRING & "/v1/monitoring/portfolios/" & PortfolioID & "/import" 'Default
+        Dim myUri As String = API_STRING & "/v1/monitoring/portfolios/" & PortfolioID & IIf(sync, "/sync", "/import") 'Default
 
         Dim jsonRespString = SendGetRequestWithAuthHeader(myUri, Nothing, "application/json", "POST", token, "", True, True, csvFilePath)