diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index 4e5fa6cc..1fda4478 100644 --- 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 diff --git a/SDL/Fakturierung/frmFaktSammelRgDrucken.vb b/SDL/Fakturierung/frmFaktSammelRgDrucken.vb index e4ea1ba7..50467d63 100644 --- 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 diff --git a/SDL/kassenbuch/frmBelegNeu.Designer.vb b/SDL/kassenbuch/frmBelegNeu.Designer.vb index 18d4db94..0e6fdd83 100644 --- 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 diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb b/VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb index 64c9f979..9301f2ec 100644 --- 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 diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/Creditsafe/cCreditSafeAPI.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/Creditsafe/cCreditSafeAPI.vb index 6381a086..42ae5653 100644 --- 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"