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()
 
@@ -246,22 +247,22 @@ Public Class frmAbrechnungsMaske
                 End If
 
                 .Columns("UnterNr").Width = 35
-                    .Columns("Art").Width = 30
-                    .Columns("Betrag").Width = 100
-                    .Columns("Rechnungsempfänger").MinimumWidth = 150
-                    .Columns("Rechnungsempfänger").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+                .Columns("Art").Width = 30
+                .Columns("Betrag").Width = 100
+                .Columns("Rechnungsempfänger").MinimumWidth = 150
+                .Columns("Rechnungsempfänger").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
 
-                    If Not cbxGutschriftenAnVerag.Checked Then
-                        .Columns("Rechnungsdruck").Width = 60
-                        .Columns("Rechnungsdruck").HeaderText = "Rg.Art"
-                        .Columns("Rechnungsdruck").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
-                    End If
-
-
-                    .Columns("Betrag").DefaultCellStyle.Format = "C2"
+                If Not cbxGutschriftenAnVerag.Checked Then
+                    .Columns("Rechnungsdruck").Width = 60
+                    .Columns("Rechnungsdruck").HeaderText = "Rg.Art"
+                    .Columns("Rechnungsdruck").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
                 End If
 
-                If cboFirma._value <> "" AndAlso cboFirma._value = "19" Then
+
+                .Columns("Betrag").DefaultCellStyle.Format = "C2"
+            End If
+
+            If cboFirma._value <> "" AndAlso cboFirma._value = "19" Then
 
                 For Each r In .Rows
 
@@ -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,104 +5524,114 @@ mwst:
 
             If cboRechnungAn._value = "" Then Return enableAUTOMAIL
 
+            If cboSammelrechnung._value <> 0 Then Return enableAUTOMAIL
+
 
             Dim RD_DRUCK = -1
-            Dim AD As cAdressen
+                Dim AD As cAdressen
 
-            Select Case cboRechnungAn._value
-                Case "1"
-                    If kdFirmaAbsender.KdNr = "" Then Return enableAUTOMAIL
-                    AD = New cAdressen(kdFirmaAbsender.KdNr)
-                    RD_DRUCK = If(AD.Rechnungsdruck, -1)
-                Case "2"
-                    If kdFirmaEmpfaenger.KdNr = "" Then Return enableAUTOMAIL
-                    AD = New cAdressen(kdFirmaEmpfaenger.KdNr)
-                    RD_DRUCK = If(AD.Rechnungsdruck, -1)
-                Case "3"
-                    If kdFirmaAuftraggeber.KdNr = "" Then Return enableAUTOMAIL
-                    AD = New cAdressen(kdFirmaAuftraggeber.KdNr)
-                    RD_DRUCK = If(AD.Rechnungsdruck, -1)
-                Case "4"
-                    If kdFirmaAvisierer.KdNr = "" Then Return enableAUTOMAIL
-                    AD = New cAdressen(kdFirmaAvisierer.KdNr)
-                    RD_DRUCK = If(AD.Rechnungsdruck, -1)
-                Case Else
-                    Return enableAUTOMAIL
-            End Select
+                Select Case cboRechnungAn._value
+                    Case "1"
+                        If kdFirmaAbsender.KdNr = "" Then Return enableAUTOMAIL
+                        AD = New cAdressen(kdFirmaAbsender.KdNr)
+                        RD_DRUCK = If(AD.Rechnungsdruck, -1)
+                    Case "2"
+                        If kdFirmaEmpfaenger.KdNr = "" Then Return enableAUTOMAIL
+                        AD = New cAdressen(kdFirmaEmpfaenger.KdNr)
+                        RD_DRUCK = If(AD.Rechnungsdruck, -1)
+                    Case "3"
+                        If kdFirmaAuftraggeber.KdNr = "" Then Return enableAUTOMAIL
+                        AD = New cAdressen(kdFirmaAuftraggeber.KdNr)
+                        RD_DRUCK = If(AD.Rechnungsdruck, -1)
+                    Case "4"
+                        If kdFirmaAvisierer.KdNr = "" Then Return enableAUTOMAIL
+                        AD = New cAdressen(kdFirmaAvisierer.KdNr)
+                        RD_DRUCK = If(AD.Rechnungsdruck, -1)
+                    Case Else
+                        Return enableAUTOMAIL
+                End Select
 
-            'BEI EINZELRECHNUNG WIRD STATUS 0 und 2 geprüft
+                'BEI EINZELRECHNUNG WIRD STATUS 0 und 2 geprüft
+
+                'STATUS 0-_> Rechnung angelegt
+                'STATUS 1-_> Einzel-Rg gedruckt
+                'STATUS 2-_> Anlagen zur Rg gedruckt
+                'STATUS 3-_> Sammel-Rg gedruckt
+                'STATUS 4-_> ? irgendwas mit SR 6 Maut/Diesel??
+
+                If cboSammelrechnung._value = 0 AndAlso lblDruckDatum.Text = "" AndAlso RD_DRUCK = 2 Then ' (RECHNUNG.Status <> 4 ANDAlso RECHNUNG.Status <> 0)  WARUM NOCHMALS??
+                    If RECHNUNG IsNot Nothing AndAlso (RECHNUNG.Status <> 0 AndAlso RECHNUNG.Status <> 2) Then
+                        Return enableAUTOMAIL = False
+                    Else
+                        enableAUTOMAIL = True
+                    End If
 
-            'STATUS 0-_> Rechnung angelegt
-            'STATUS 1-_> Einzel-Rg gedruckt
-            'STATUS 2-_> Anlagen zur Rg gedruckt
-            'STATUS 3-_> Sammel-Rg gedruckt
-            'STATUS 4-_> ? irgendwas mit SR 6 Maut/Diesel??
 
-            If cboSammelrechnung._value = 0 AndAlso lblDruckDatum.Text = "" AndAlso RD_DRUCK = 2 Then ' (RECHNUNG.Status <> 4 ANDAlso RECHNUNG.Status <> 0)  WARUM NOCHMALS??
-                If RECHNUNG IsNot Nothing AndAlso (RECHNUNG.Status <> 0 AndAlso RECHNUNG.Status <> 2) Then
-                    Return enableAUTOMAIL = False
                 Else
-                    enableAUTOMAIL = True
+                    enableAUTOMAIL = False
                 End If
 
 
             Else
-                enableAUTOMAIL = False
-            End If
-
-
-        Else
 
 
             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
-                Case 1
-                    If RECHNUNG.AbsenderKundenNr Is Nothing Then Return enableAUTOMAIL
-                    AD = New cAdressen(RECHNUNG.AbsenderKundenNr)
-                    RD_DRUCK = If(AD.Rechnungsdruck, -1)
-                Case 2
-                    If RECHNUNG.EmpfängerKundenNr Is Nothing Then Return enableAUTOMAIL
-                    AD = New cAdressen(RECHNUNG.EmpfängerKundenNr)
-                    RD_DRUCK = If(AD.Rechnungsdruck, -1)
-                Case 3
-                    If RECHNUNG.VermittlerKundenNr Is Nothing Then Return enableAUTOMAIL
-                    AD = New cAdressen(RECHNUNG.VermittlerKundenNr)
-                    RD_DRUCK = If(AD.Rechnungsdruck, -1)
-                Case 4
-                    If RECHNUNG.AvisiererKundenNr Is Nothing Then Return enableAUTOMAIL
-                    AD = New cAdressen(RECHNUNG.AvisiererKundenNr)
-                    RD_DRUCK = If(AD.Rechnungsdruck, -1)
-                Case Else
-                    Return enableAUTOMAIL
-            End Select
+                Dim AD As cAdressen
+                Select Case RECHNUNG.Rechnung_an
+                    Case 1
+                        If RECHNUNG.AbsenderKundenNr Is Nothing Then Return enableAUTOMAIL
+                        AD = New cAdressen(RECHNUNG.AbsenderKundenNr)
+                        RD_DRUCK = If(AD.Rechnungsdruck, -1)
+                    Case 2
+                        If RECHNUNG.EmpfängerKundenNr Is Nothing Then Return enableAUTOMAIL
+                        AD = New cAdressen(RECHNUNG.EmpfängerKundenNr)
+                        RD_DRUCK = If(AD.Rechnungsdruck, -1)
+                    Case 3
+                        If RECHNUNG.VermittlerKundenNr Is Nothing Then Return enableAUTOMAIL
+                        AD = New cAdressen(RECHNUNG.VermittlerKundenNr)
+                        RD_DRUCK = If(AD.Rechnungsdruck, -1)
+                    Case 4
+                        If RECHNUNG.AvisiererKundenNr Is Nothing Then Return enableAUTOMAIL
+                        AD = New cAdressen(RECHNUNG.AvisiererKundenNr)
+                        RD_DRUCK = If(AD.Rechnungsdruck, -1)
+                    Case Else
+                        Return enableAUTOMAIL
+                End Select
 
 
-            'BEI EINZELRECHNUNG WIRD STATUS 0 und 2 geprüft
+                'BEI EINZELRECHNUNG WIRD STATUS 0 und 2 geprüft
 
-            'STATUS 0-_> Rechnung angelegt
-            'STATUS 1-_> Einzel-Rg gedruckt
-            'STATUS 2-_> Anlagen zur Rg gedruckt
-            'STATUS 3-_> Sammel-Rg gedruckt
-            'STATUS 4-_> ? irgendwas mit SR 6 Maut/Diesel??
+                'STATUS 0-_> Rechnung angelegt
+                'STATUS 1-_> Einzel-Rg gedruckt
+                'STATUS 2-_> Anlagen zur Rg gedruckt
+                'STATUS 3-_> Sammel-Rg gedruckt
+                'STATUS 4-_> ? irgendwas mit SR 6 Maut/Diesel??
+
+                If RECHNUNG.Sammelrechnung = 0 AndAlso RECHNUNG.DruckDatumZeit Is Nothing AndAlso RD_DRUCK = 2 AndAlso (RECHNUNG.Status = 0 Or RECHNUNG.Status = 2) Then ' (RECHNUNG.Status <> 4 ANDAlso RECHNUNG.Status <> 0)  WARUM NOCHMALS??
+                    enableAUTOMAIL = True
+                Else
+                    enableAUTOMAIL = False
+
+
+
+                End If
 
-            If RECHNUNG.Sammelrechnung = 0 AndAlso RECHNUNG.DruckDatumZeit Is Nothing AndAlso RD_DRUCK = 2 AndAlso (RECHNUNG.Status = 0 Or RECHNUNG.Status = 2) Then ' (RECHNUNG.Status <> 4 ANDAlso RECHNUNG.Status <> 0)  WARUM NOCHMALS??
-                enableAUTOMAIL = True
-            Else
-                enableAUTOMAIL = False
 
 
 
             End If
 
-
-
-
-        End If
-
-        If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
             'Button8.Enabled = Not enableAUTOMAIL
             'Button9.Enabled = Not enableAUTOMAIL
             'Button4.Enabled = Not enableAUTOMAIL

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: AssemblyFileVersion("1.5.4.8")>
+<Assembly: AssemblyVersion("1.5.4.9")>
+<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">
-      <HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\allDll\BouncyCastle.Cryptography.dll</HintPath>
+    <Reference Include="BouncyCastle.Cryptography, Version=2.0.0.0, Culture=neutral, PublicKeyToken=072edcf4a5328938, processorArchitecture=MSIL">
+      <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
-            '  fd.Filter = "Excel Dateien|*.xls;*.xlsx"
-            fd.RestoreDirectory = True
-            fd.Title = "Datei auswählen"
-
-            ' fd.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
-
-            '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
+            Using fd As New OpenFileDialog()
+                fd.Title = "Datei auswählen"
+                fd.RestoreDirectory = True
+                fd.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
 
+                If fd.ShowDialog(Me) = DialogResult.OK AndAlso Not String.IsNullOrEmpty(fd.FileName) Then
+                    saveFileAtt(fd.FileName)
+                End If
+            End Using
         End If
     End Sub