edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Verwahrung, Mitarbeiter, Fakt, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-04-15 10:11:21 +02:00
parent 0d8c42342c
commit 438e1c2a1a
5 changed files with 58 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
SDL/Fakturierung/cFakturierung.vb
View File

@@ -1978,9 +1978,9 @@ Public Class cFakturierung
End If End If
End If End If
If Rechnung.ANHAENGE.Count > 0 AndAlso Not (Rechnung.Firma_ID = 1 Or Rechnung.Firma_ID = 20) Then 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 'If (Rechnung.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Anhänge drucken?", vbYesNoCancel)) Then
printRGAnhaenge(Rechnung) ' printRGAnhaenge(Rechnung)
End If 'End If
End If End If
Return ret Return ret
@@ -2038,9 +2038,9 @@ Public Class cFakturierung
End If End If
If Rechnung.ANHAENGE.Count > 0 Then If Rechnung.ANHAENGE.Count > 0 Then
'wird nicht mehr benötigt! TicketNr: 953 ----- wird doch wieder benötigt! '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 'If (Rechnung.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Anhänge drucken?", vbYesNoCancel)) Then
printRGAnhaenge(Rechnung) ' printRGAnhaenge(Rechnung)
End If 'End If
End If End If
End If End If
@@ -2924,9 +2924,9 @@ Public Class cFakturierung
End If End If
End If End If
If RECHNUNG.ANHAENGE.Count > 0 AndAlso RECHNUNG.Firma_ID <> 1 Then If RECHNUNG.ANHAENGE.Count > 0 AndAlso RECHNUNG.Firma_ID <> 1 Then
If (RECHNUNG.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Anhänge drucken?", vbYesNoCancel)) Then 'If (RECHNUNG.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Anhänge drucken?", vbYesNoCancel)) Then
printRGAnhaenge(RECHNUNG) ' printRGAnhaenge(RECHNUNG)
End If 'End If
End If End If
Return ret Return ret
@@ -2977,9 +2977,9 @@ Public Class cFakturierung
End If End If
If RECHNUNG.ANHAENGE.Count > 0 Then If RECHNUNG.ANHAENGE.Count > 0 Then
'wird nicht mehr benötigt! TicketNr: 953 ----- wird doch wieder benötigt! '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 'If (RECHNUNG.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Anhänge drucken?", vbYesNoCancel)) Then
printRGAnhaenge(RECHNUNG) ' printRGAnhaenge(RECHNUNG)
End If 'End If
End If End If
End If End If

6
SDL/Fakturierung/frmFaktSammelRgDrucken.vb
View File

@@ -235,6 +235,12 @@ Public Class frmFaktSammelRgDrucken
.Columns("LKW").Width = 80 .Columns("LKW").Width = 80
End If 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 If .Columns.Contains("RechnungsLandKz") AndAlso Sammelrechung = 6 Then
.Columns("RechnungsLandKz").Visible = True .Columns("RechnungsLandKz").Visible = True
End If End If

33
SDL/kassenbuch/frmBelegNeu.Designer.vb generated
View File

@@ -71,7 +71,6 @@ Partial Class frmBelegNeu
Me.btnAusgabebeleg = New System.Windows.Forms.Button() Me.btnAusgabebeleg = New System.Windows.Forms.Button()
Me.lblErrPos = New System.Windows.Forms.Label() Me.lblErrPos = New System.Windows.Forms.Label()
Me.pnlData = New System.Windows.Forms.Panel() Me.pnlData = New System.Windows.Forms.Panel()
Me.Button4 = New System.Windows.Forms.Button()
Me.cboBuchungsoforterzeugen = New System.Windows.Forms.CheckBox() Me.cboBuchungsoforterzeugen = New System.Windows.Forms.CheckBox()
Me.lblErr_Fahrer = New System.Windows.Forms.Label() Me.lblErr_Fahrer = New System.Windows.Forms.Label()
Me.lblErr_Pass = 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.Label1 = New System.Windows.Forms.Label()
Me.kdkunde = New VERAG_PROG_ALLGEMEIN.KdSearchBox() Me.kdkunde = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
Me.pnlOPt = New System.Windows.Forms.Panel() Me.pnlOPt = New System.Windows.Forms.Panel()
Me.Button4 = New System.Windows.Forms.Button()
Me.LinkLabel1 = New System.Windows.Forms.LinkLabel() Me.LinkLabel1 = New System.Windows.Forms.LinkLabel()
Me.cboPrinter = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cboPrinter = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cbxBelegOffnen = New System.Windows.Forms.CheckBox() 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.Size = New System.Drawing.Size(624, 208)
Me.pnlData.TabIndex = 5 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 'cboBuchungsoforterzeugen
' '
Me.cboBuchungsoforterzeugen.AutoSize = True Me.cboBuchungsoforterzeugen.AutoSize = True
Me.cboBuchungsoforterzeugen.Enabled = False
Me.cboBuchungsoforterzeugen.Location = New System.Drawing.Point(9, 185) Me.cboBuchungsoforterzeugen.Location = New System.Drawing.Point(9, 185)
Me.cboBuchungsoforterzeugen.Name = "cboBuchungsoforterzeugen" Me.cboBuchungsoforterzeugen.Name = "cboBuchungsoforterzeugen"
Me.cboBuchungsoforterzeugen.Size = New System.Drawing.Size(145, 17) 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.Size = New System.Drawing.Size(624, 96)
Me.pnlOPt.TabIndex = 6 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 'LinkLabel1
' '
Me.LinkLabel1.AutoSize = True Me.LinkLabel1.AutoSize = True

21
VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb
View File

@@ -103,8 +103,7 @@ Public Class cMitarbeiter
Property mit_SchalterID As Object = Nothing Property mit_SchalterID As Object = Nothing
Property mit_Funktion As Object = Nothing Property mit_Funktion As Object = Nothing
Property mit_terminalTimasId As Object = Nothing 'externe ID von TIMAS Property mit_terminalTimasId As Object = Nothing 'externe ID von TIMAS
Property mit_EMailbenachrichtigungen As Object = Nothing
Dim SQL As New SQL 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_SchalterID", mit_SchalterID))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_Funktion", mit_Funktion)) 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_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_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_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_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 Catch ex As Exception
@@ -488,4 +489,20 @@ Public Class cMitarbeiter
Return Value Return Value
End Function 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 End Class

8
VERAG_PROG_ALLGEMEIN/Schnittstellen/Creditsafe/cCreditSafeAPI.vb
View File

@@ -647,10 +647,10 @@ Public Class cCreditSafeAPI
Dim empfanegerMail As String = "" Dim empfanegerMail As String = ""
Select Case firma Select Case firma
Case "VERAG" : empfanegerMail = "as@verag.ag" Case "VERAG" : empfanegerMail = cMitarbeiter.GetEMailRecipientForEmailNotification("Creditsafe", 1)
Case "IMEX" : empfanegerMail = "Viktoria.Leirich@imex-group.at" Case "IMEX" : empfanegerMail = cMitarbeiter.GetEMailRecipientForEmailNotification("Creditsafe", 20)
'Case "AMBAR" : empfanegerMail = "Buchhaltung@ambarlog.com" Case "AMBAR" : empfanegerMail = cMitarbeiter.GetEMailRecipientForEmailNotification("Creditsafe", 24)
'Case "UNISPED" : empfanegerMail = "sabine.muehlboeck@unisped.at" Case "UNISPED" : empfanegerMail = cMitarbeiter.GetEMailRecipientForEmailNotification("Creditsafe", 21)
End Select End Select
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then empfanegerMail = "d.breimaier@verag.ag" If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then empfanegerMail = "d.breimaier@verag.ag"