Verwahrung, Mitarbeiter, Fakt, etc.

2026-04-15 10:11:21 +02:00
parent 0d8c42342c
commit 438e1c2a1a
5 changed files with 58 additions and 34 deletions
--- a/SDL/Fakturierung/cFakturierung.vb
+++ b/SDL/Fakturierung/cFakturierung.vb
@@ -1978,9 +1978,9 @@ Public Class cFakturierung
                            End If
                        End If
                        If Rechnung.ANHAENGE.Count > 0 AndAlso Not (Rechnung.Firma_ID = 1 Or Rechnung.Firma_ID = 20) Then
-                            If (Rechnung.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Anhänge drucken?", vbYesNoCancel)) Then
-                                printRGAnhaenge(Rechnung)
-                            End If
+                            'If (Rechnung.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Anhänge drucken?", vbYesNoCancel)) Then
+                            '    printRGAnhaenge(Rechnung)
+                            'End If
                        End If

                        Return ret
@@ -2038,9 +2038,9 @@ Public Class cFakturierung
                                End If
                                If Rechnung.ANHAENGE.Count > 0 Then
                                    'wird nicht mehr benötigt! TicketNr: 953 ----- wird doch wieder benötigt!
-                                    If (Rechnung.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Anhänge drucken?", vbYesNoCancel)) Then
-                                        printRGAnhaenge(Rechnung)
-                                    End If
+                                    'If (Rechnung.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Anhänge drucken?", vbYesNoCancel)) Then
+                                    '    printRGAnhaenge(Rechnung)
+                                    'End If
                                End If
                            End If

@@ -2924,9 +2924,9 @@ Public Class cFakturierung
                        End If
                    End If
                    If RECHNUNG.ANHAENGE.Count > 0 AndAlso RECHNUNG.Firma_ID <> 1 Then
-                        If (RECHNUNG.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Anhänge drucken?", vbYesNoCancel)) Then
-                            printRGAnhaenge(RECHNUNG)
-                        End If
+                        'If (RECHNUNG.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Anhänge drucken?", vbYesNoCancel)) Then
+                        '    printRGAnhaenge(RECHNUNG)
+                        'End If
                    End If

                    Return ret
@@ -2977,9 +2977,9 @@ Public Class cFakturierung
                            End If
                            If RECHNUNG.ANHAENGE.Count > 0 Then
                                'wird nicht mehr benötigt! TicketNr: 953 ----- wird doch wieder benötigt!
-                                If (RECHNUNG.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Anhänge drucken?", vbYesNoCancel)) Then
-                                    printRGAnhaenge(RECHNUNG)
-                                End If
+                                'If (RECHNUNG.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Anhänge drucken?", vbYesNoCancel)) Then
+                                '    printRGAnhaenge(RECHNUNG)
+                                'End If
                            End If
                        End If

--- a/SDL/Fakturierung/frmFaktSammelRgDrucken.vb
+++ b/SDL/Fakturierung/frmFaktSammelRgDrucken.vb
@@ -235,6 +235,12 @@ Public Class frmFaktSammelRgDrucken
                .Columns("LKW").Width = 80
            End If

+            If Sammelrechung = 7 Then
+                .Columns("AvisoId").Visible = True
+            Else
+                .Columns("AvisoId").Visible = False
+            End If
+
            If .Columns.Contains("RechnungsLandKz") AndAlso Sammelrechung = 6 Then
                .Columns("RechnungsLandKz").Visible = True
            End If
--- a/SDL/kassenbuch/frmBelegNeu.Designer.vb
+++ b/SDL/kassenbuch/frmBelegNeu.Designer.vb
@@ -71,7 +71,6 @@ Partial Class frmBelegNeu
        Me.btnAusgabebeleg = New System.Windows.Forms.Button()
        Me.lblErrPos = New System.Windows.Forms.Label()
        Me.pnlData = New System.Windows.Forms.Panel()
-        Me.Button4 = New System.Windows.Forms.Button()
        Me.cboBuchungsoforterzeugen = New System.Windows.Forms.CheckBox()
        Me.lblErr_Fahrer = New System.Windows.Forms.Label()
        Me.lblErr_Pass = New System.Windows.Forms.Label()
@@ -102,6 +101,7 @@ Partial Class frmBelegNeu
        Me.Label1 = New System.Windows.Forms.Label()
        Me.kdkunde = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
        Me.pnlOPt = New System.Windows.Forms.Panel()
+        Me.Button4 = New System.Windows.Forms.Button()
        Me.LinkLabel1 = New System.Windows.Forms.LinkLabel()
        Me.cboPrinter = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.cbxBelegOffnen = New System.Windows.Forms.CheckBox()
@@ -693,24 +693,10 @@ Partial Class frmBelegNeu
        Me.pnlData.Size = New System.Drawing.Size(624, 208)
        Me.pnlData.TabIndex = 5
        '
-        'Button4
-        '
-        Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button4.ForeColor = System.Drawing.Color.Black
-        Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button4.Location = New System.Drawing.Point(120, 38)
-        Me.Button4.Name = "Button4"
-        Me.Button4.Padding = New System.Windows.Forms.Padding(0, 0, 5, 0)
-        Me.Button4.Size = New System.Drawing.Size(51, 21)
-        Me.Button4.TabIndex = 49
-        Me.Button4.Text = "TEST"
-        Me.Button4.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.Button4.UseVisualStyleBackColor = True
-        Me.Button4.Visible = False
-        '
        'cboBuchungsoforterzeugen
        '
        Me.cboBuchungsoforterzeugen.AutoSize = True
+        Me.cboBuchungsoforterzeugen.Enabled = False
        Me.cboBuchungsoforterzeugen.Location = New System.Drawing.Point(9, 185)
        Me.cboBuchungsoforterzeugen.Name = "cboBuchungsoforterzeugen"
        Me.cboBuchungsoforterzeugen.Size = New System.Drawing.Size(145, 17)
@@ -1259,6 +1245,21 @@ Partial Class frmBelegNeu
        Me.pnlOPt.Size = New System.Drawing.Size(624, 96)
        Me.pnlOPt.TabIndex = 6
        '
+        'Button4
+        '
+        Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button4.ForeColor = System.Drawing.Color.Black
+        Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button4.Location = New System.Drawing.Point(120, 38)
+        Me.Button4.Name = "Button4"
+        Me.Button4.Padding = New System.Windows.Forms.Padding(0, 0, 5, 0)
+        Me.Button4.Size = New System.Drawing.Size(51, 21)
+        Me.Button4.TabIndex = 49
+        Me.Button4.Text = "TEST"
+        Me.Button4.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.Button4.UseVisualStyleBackColor = True
+        Me.Button4.Visible = False
+        '
        'LinkLabel1
        '
        Me.LinkLabel1.AutoSize = True
--- a/VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb
@@ -103,8 +103,7 @@ Public Class cMitarbeiter
    Property mit_SchalterID As Object = Nothing
    Property mit_Funktion As Object = Nothing
    Property mit_terminalTimasId As Object = Nothing 'externe ID von TIMAS
-
-
+    Property mit_EMailbenachrichtigungen As Object = Nothing


    Dim SQL As New SQL
@@ -224,6 +223,7 @@ Public Class cMitarbeiter
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_SchalterID", mit_SchalterID))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_Funktion", mit_Funktion))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_terminalTimasId", mit_terminalTimasId))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_EMailbenachrichtigungen", mit_EMailbenachrichtigungen))



@@ -436,6 +436,7 @@ Public Class cMitarbeiter
                            If Not dr.Item("mit_SchalterID") Is DBNull.Value Then Me.mit_SchalterID = dr.Item("mit_SchalterID")
                            If Not dr.Item("mit_Funktion") Is DBNull.Value Then Me.mit_Funktion = dr.Item("mit_Funktion")
                            If Not dr.Item("mit_terminalTimasId") Is DBNull.Value Then Me.mit_terminalTimasId = dr.Item("mit_terminalTimasId")
+                            If Not dr.Item("mit_EMailbenachrichtigungen") Is DBNull.Value Then Me.mit_EMailbenachrichtigungen = dr.Item("mit_EMailbenachrichtigungen")


                        Catch ex As Exception
@@ -488,4 +489,20 @@ Public Class cMitarbeiter
        Return Value
    End Function

+
+    Public Shared Function GetEMailRecipientForEmailNotification(NotificationObject As String, Optional Firma_ID As Integer = -1) As String
+        Dim dt As New DataTable
+        Dim mailString As String = ""
+        dt = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql("Select distinct(m.mit_email) FROM ADMIN.dbo.tblMitarbeiter m CROSS APPLY dbo.SplitString(m.mit_EMailbenachrichtigungen, ',') s
+          Join ADMIN.dbo.tblEMailbenachrichtigungen e  On TRY_CAST(s.value AS INT) = e.mb_id
+            WHERE e.mb_object = '" & NotificationObject & "' and isnull(m.mit_email,'') <> '' " & IIf(Firma_ID > 0, " AND e.mb_firmaID = " & Firma_ID & "", ""), "ADMIN")
+
+        For Each r As DataRow In dt.Rows
+            If r.Item("mit_email") <> "" Then mailString &= r.Item("mit_email") & ";"
+        Next
+
+        Return mailString
+
+    End Function
+
 End Class
--- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/Creditsafe/cCreditSafeAPI.vb
+++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/Creditsafe/cCreditSafeAPI.vb
@@ -647,10 +647,10 @@ Public Class cCreditSafeAPI
            Dim empfanegerMail As String = ""

            Select Case firma
-                Case "VERAG" : empfanegerMail = "as@verag.ag"
-                Case "IMEX" : empfanegerMail = "Viktoria.Leirich@imex-group.at"
-                    'Case "AMBAR" : empfanegerMail = "Buchhaltung@ambarlog.com"
-                    'Case "UNISPED" : empfanegerMail = "sabine.muehlboeck@unisped.at"
+                Case "VERAG" : empfanegerMail = cMitarbeiter.GetEMailRecipientForEmailNotification("Creditsafe", 1)
+                Case "IMEX" : empfanegerMail = cMitarbeiter.GetEMailRecipientForEmailNotification("Creditsafe", 20)
+                Case "AMBAR" : empfanegerMail = cMitarbeiter.GetEMailRecipientForEmailNotification("Creditsafe", 24)
+                Case "UNISPED" : empfanegerMail = cMitarbeiter.GetEMailRecipientForEmailNotification("Creditsafe", 21)
            End Select

            If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then empfanegerMail = "d.breimaier@verag.ag"