Merge branch 'newMaster2024' of https://git.it.verag.ag/edv/SDL into newMaster2024

SDL/Fakturierung/cAutomailversand.vb

@@ -29,7 +29,7 @@ Public Class cAutomailversand
                                         LEFT JOIN tblKundenErweitert on tblKundenErweitert.kde_KundenNr = Rechnungsausgang.RechnungsKundenNr 
                                         INNER JOIN Währungstabelle on LandKz = Rechnungsausgang.RechnungsLandKz        
 	                                    WHERE Rechnungsausgang.Status IN (2) and Rechnungsausgang.Automailversand_sent is null And Rechnungsausgang.Firma_ID = '" & FirmaID & "' And Rechnungsausgang.Sammelrechnung = '" & SammelrechungArt & "' And CONVERT(DATE,Rechnungsausgang.Rechnungsdatum,104) = '" & _Rechnungsdatum.ToShortDateString & "'
-                                        and isnull(Rechnungsausgang.Automailversand,0) = 1 and Rechnungsausgang.Automailversand_sent = NULL and RechnungsNr > 0 " & IIf(KundenNr > 0, " AND RechnungsKundenNr = " & KundenNr, "") & "
+                                        and isnull(Rechnungsausgang.Automailversand,0) = 1 and RechnungsNr > 0 " & IIf(KundenNr > 0, " AND RechnungsKundenNr = " & KundenNr, "") & "
                                         GROUP BY RechnungsNr, RechnungsKundenNr,isnull(tblKundenErweitert.kde_keineMWSt,0),RechnungsLandKz, MitgliedslandEU
                                         ORDER BY RechnungsLandKz, RechnungsKundenNr"
 
@@ -39,7 +39,7 @@ Public Class cAutomailversand
                                         LEFT JOIN tblKundenErweitert on tblKundenErweitert.kde_KundenNr = Rechnungsausgang.RechnungsKundenNr 
                                         INNER JOIN Währungstabelle on LandKz = Rechnungsausgang.RechnungsLandKz        
 	                                    WHERE Rechnungsausgang.Status IN (2) and Rechnungsausgang.Automailversand_sent is null And Rechnungsausgang.Firma_ID = '" & FirmaID & "' And Rechnungsausgang.Sammelrechnung = '" & SammelrechungArt & "' And CONVERT(DATE,Rechnungsausgang.Rechnungsdatum,104) = '" & _Rechnungsdatum.ToShortDateString & "'
-                                        and isnull(Rechnungsausgang.Automailversand,0) = 1 and Rechnungsausgang.Automailversand_sent = NULL and RechnungsNr > 0 and FakturierungsGruppe = '" & faktGruppe & "'" & IIf(KundenNr > 0, " AND RechnungsKundenNr = " & KundenNr, "") & "
+                                        and isnull(Rechnungsausgang.Automailversand,0) = 1 and RechnungsNr > 0 and FakturierungsGruppe = '" & faktGruppe & "'" & IIf(KundenNr > 0, " AND RechnungsKundenNr = " & KundenNr, "") & "
                                         GROUP BY RechnungsNr, RechnungsKundenNr,tblKundenErweitert.kde_SR_IM_EX
                                         ORDER BY RechnungsLandKz, RechnungsKundenNr"
 

SDL/Fakturierung/frmAbrechnungsMaske.vb

@@ -1,5 +1,6 @@
 Imports System.IO
 Imports Microsoft.Office.Interop
+Imports VERAG_PROG_ALLGEMEIN
 
 Public Class frmAbrechnungsMaske
     Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
@@ -53,7 +54,7 @@ Public Class frmAbrechnungsMaske
             FirmaTmp = "VERAGIMEX"
         End If
 
-        FirmaTmp = "AMBAR"
+        'FirmaTmp = "AMBAR"
 
         cboSachbearbeiter.Items.Clear()
 
@@ -986,6 +987,10 @@ Public Class frmAbrechnungsMaske
 
             Dim ListOfRK_ID As New List(Of Integer)
 
+            Dim noRE_DATE = dgvRechnungen.SelectedRows.Cast(Of DataGridViewRow)().Any(Function(r) r.Cells("RENR").Value Is Nothing OrElse IsDBNull(r.Cells("RENR").Value))
+
+            If noRE_DATE Then MsgBox("ACHTUNG, Rechnungsdatum wurde nicht gesetzt." & vbNewLine & "Vorgang wird abgebrochen!") : Exit Sub
+
             For Each row As DataGridViewRow In dgvRechnungen.SelectedRows
 
                 If Not IsDBNull(row.Cells("RK_ID").Value) AndAlso IsNumeric(row.Cells("RK_ID").Value) Then

SDL/Fakturierung/usrCntlFaktAbrechnung.vb

@@ -5524,6 +5524,8 @@ mwst:
 
             If cboRechnungAn._value = "" Then Return enableAUTOMAIL
 
+            If cboSammelrechnung._value <> 0 Then Return enableAUTOMAIL
+
 
             Dim RD_DRUCK = -1
                 Dim AD As cAdressen
@@ -5575,6 +5577,14 @@ mwst:
 
             If RECHNUNG.Rechnung_an = 0 Then Return enableAUTOMAIL
 
+            If cboSammelrechnung._value <> 0 Then
+                Return enableAUTOMAIL
+            ElseIf RECHNUNG.Sammelrechnung <> 0 Then
+                Return enableAUTOMAIL
+            End If
+
+
+
             Dim RD_DRUCK = -1
                 Dim AD As cAdressen
                 Select Case RECHNUNG.Rechnung_an

SDL/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.5.4.8")>
+<Assembly: AssemblyVersion("1.5.4.9")>
-<Assembly: AssemblyFileVersion("1.5.4.8")>
+<Assembly: AssemblyFileVersion("1.5.4.9")>

SDL/SDL.vbproj

@@ -104,8 +104,8 @@
     <Reference Include="BouncyCastle.Crypto, Version=1.7.4137.9688, Culture=neutral, PublicKeyToken=a4292a325f69b123, processorArchitecture=MSIL">
       <HintPath>..\..\..\Aviso\AVISO\packages\BouncyCastle.1.7.0\lib\Net40-Client\BouncyCastle.Crypto.dll</HintPath>
     </Reference>
-    <Reference Include="BouncyCastle.Cryptography">
+    <Reference Include="BouncyCastle.Cryptography, Version=2.0.0.0, Culture=neutral, PublicKeyToken=072edcf4a5328938, processorArchitecture=MSIL">
-      <HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\allDll\BouncyCastle.Cryptography.dll</HintPath>
+      <HintPath>..\..\..\Aviso\AVISO\packages\BouncyCastle.Cryptography.2.6.2\lib\net461\BouncyCastle.Cryptography.dll</HintPath>
     </Reference>
     <Reference Include="ChilkatDotNet47, Version=9.5.0.96, Culture=neutral, PublicKeyToken=eb5fc1fc52ef09bd, processorArchitecture=AMD64">
       <SpecificVersion>False</SpecificVersion>
@@ -256,6 +256,9 @@
     <Reference Include="itext.barcodes, Version=9.6.0.0, Culture=neutral, PublicKeyToken=8354ae6d2174ddca, processorArchitecture=MSIL">
       <HintPath>..\..\..\Aviso\AVISO\packages\itext.9.6.0\lib\net461\itext.barcodes.dll</HintPath>
     </Reference>
+    <Reference Include="itext.bouncy-castle-adapter, Version=9.6.0.0, Culture=neutral, PublicKeyToken=8354ae6d2174ddca, processorArchitecture=MSIL">
+      <HintPath>..\..\..\Aviso\AVISO\packages\itext.bouncy-castle-adapter.9.6.0\lib\net461\itext.bouncy-castle-adapter.dll</HintPath>
+    </Reference>
     <Reference Include="itext.bouncy-castle-connector, Version=9.6.0.0, Culture=neutral, PublicKeyToken=8354ae6d2174ddca, processorArchitecture=MSIL">
       <HintPath>..\..\..\Aviso\AVISO\packages\itext.9.6.0\lib\net461\itext.bouncy-castle-connector.dll</HintPath>
     </Reference>

SDL/packages.config

@@ -1,6 +1,7 @@
 <?xml version="1.0" encoding="utf-8"?>
 <packages>
   <package id="BouncyCastle" version="1.7.0" targetFramework="net48" />
+  <package id="BouncyCastle.Cryptography" version="2.6.2" targetFramework="net48" />
   <package id="ClosedXML" version="0.95.4" targetFramework="net47" />
   <package id="Common.Logging" version="3.4.1" targetFramework="net48" />
   <package id="Common.Logging.Core" version="3.4.1" targetFramework="net48" />
@@ -19,6 +20,7 @@
   <package id="Hardcodet.NotifyIcon.Wpf" version="1.0.5" targetFramework="net40-Client" requireReinstallation="True" />
   <package id="IKVM" version="8.0.5449.1" targetFramework="net47" />
   <package id="itext" version="9.6.0" targetFramework="net48" />
+  <package id="itext.bouncy-castle-adapter" version="9.6.0" targetFramework="net48" />
   <package id="itext.commons" version="9.6.0" targetFramework="net48" />
   <package id="itext7" version="9.6.0" targetFramework="net48" />
   <package id="LiveCharts" version="0.6.7.0" targetFramework="net40-Client" requireReinstallation="True" />

VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb

@@ -1007,40 +1007,15 @@ Public Class frmMessenger
     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles btnSendAtt.Click
         If Not CHAT.chat_aktiv Then MsgBox("Chat inaktiv!") : Exit Sub
         If CHAT IsNot Nothing Then
-            Dim fd As New OpenFileDialog
+            Using fd As New OpenFileDialog()
-            '  fd.Filter = "Excel Dateien|*.xls;*.xlsx"
-            fd.RestoreDirectory = True
                 fd.Title = "Datei auswählen"
+                fd.RestoreDirectory = True
+                fd.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
 
-            ' fd.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
+                If fd.ShowDialog(Me) = DialogResult.OK AndAlso Not String.IsNullOrEmpty(fd.FileName) Then
-
-            'fd.Filter = "Image Files(*.BMP;*.JPG;*.GIF;*.PNG)|*.BMP;*.JPG;*.GIF;*.PNG"
-            'fd.FilterIndex = 2
-
-            If fd.ShowDialog() = System.Windows.Forms.DialogResult.OK And fd.FileName <> "" Then
                     saveFileAtt(fd.FileName)
-                'Dim fileName = New System.IO.FileInfo(fd.FileName).Name
-                'Dim docId = -1
-                'If saveToDS(fileName, fd.FileName, docId) Then
-
-                '    Dim MSG As New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages(CHAT.chat_id, VERAG_PROG_ALLGEMEIN.cAllgemein.USRID)
-                '    MSG.chatMg_type = "ATTACHMENT"
-                '    MSG.chatMg_text = fileName
-                '    MSG.chatMg_anhang_docId = docId
-                '    MSG.chatMg_maName = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.Fullname
-                '    MSG.chatMg_maFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
-
-                '    If MSG.SAVE(True, CHAT.CHAT_MEMBERS) Then
-                '        SEND_TOKEN_NEW_MESSAGE()
-                '        ' CHAT.CHAT_MESSAGES.Add(MSG)
-                '        SET_ALL_READ()
-                '        REFRESH_CHAT()
-                '        rtbChatMessage.Text = ""
-                '        rtbChatMessage.Focus()
-                '    End If
-                ' End If
                 End If
-
+            End Using
         End If
     End Sub