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

SDL Abholung Mail ergänzt

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-01-26 11:32:06 +01:00
parent 950127d6a4
commit cf6e1fd0cb
4 changed files with 86 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
SDL/mdm/SDLAbholung/frmSDLAbholungEintrag.vb
View File

@@ -566,7 +566,7 @@ Public Class frmSDLAbholungEintrag
' Mail.To = If(KdFirma.KdData_ADRESSEN IsNot Nothing, KdFirma.KdData_ADRESSEN.E_Mail, "")
Select Case KdFirma.KdNr.ToString.Substring(0, 1)
Case "1" : Mail.To = "maut.tr@verag.ag"
Case "2" : Mail.To = "ma@verag.ag" : Mail.CC = "maut.ro@verag.ag"
Case "2" : Mail.To = "ma@verag.ag" : Mail.CC = "maut.ro@verag.ag;ft@verag.ag"
Case "3" : Mail.To = "z.batinic@verag.ag"
Case "4" : Mail.To = "z.batinic@verag.ag"
Case Else

41
SDL/mdm/SDLAbholung/usrCntlSDLAbholung.vb
View File

@@ -1,4 +1,6 @@
Public Class usrCntlSDLAbholung
Imports GrapeCity.ActiveReports.ReportsCore.Tools
Public Class usrCntlSDLAbholung
Dim FahrerAbholAuftrag = False
Dim MONAT As Date = CDate("01." & Now.Month & "." & Now.Year) '.AddMonths(-1)
@@ -146,7 +148,7 @@
Dim sqlstr As String = ""
sqlstr &= " SELECT " & TopMax & " [sdlAb_Id],[sdlAb_Erfasst],[sdlAb_ErfassungSachbearbeiter],[sdlAb_ErfassungSachbearbeiterId],[sdlAb_Abgeholt],[sdlAb_AbholungKdNr],[sdlAb_AbholungFirma],[sdlAb_AbholungLKWKz],[sdlAb_AbholungFahrername],[sdlAb_AbholungFahrerSMS],[sdlAb_Abholung],[sdlAb_AbholungSachbearbeiter],[sdlAb_AbholungSachbearbeiterId],[sdlAb_Storniert],[sdlAb_AbholungVermerk],[sdlAb_FahrerAbholAuftrag] FROM [tblSDLAbholung] WHERE 1=1 "
sqlstr &= " SELECT " & TopMax & " [sdlAb_Id],[sdlAb_Erfasst],[sdlAb_ErfassungSachbearbeiter],[sdlAb_AbholungKdNr],[sdlAb_AbholungFirma],[sdlAb_AbholungVermerk],[sdlAb_AbholungLKWKz],[sdlAb_AbholungFahrername],[sdlAb_AbholungFahrerSMS],[sdlAb_Abholung],[sdlAb_AbholungSachbearbeiter],[sdlAb_AbholungSachbearbeiterId],[sdlAb_Storniert],[sdlAb_FahrerAbholAuftrag],[sdlAb_ErfassungSachbearbeiterId],[sdlAb_Abgeholt] FROM [tblSDLAbholung] WHERE 1=1 "
With MyDatagridview1
' .DataSource = myTable
@@ -218,7 +220,7 @@
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AuftrNr", txtAuftragsnr.Text.Replace("*", "%")))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PersonalnummerErf", cboSachbearbeiterErf._value))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PersonalnummerAbh", cboSachbearbeiterAbh._value))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PersonalnummerAbh", cboSachbearbeiterAbh._value))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LKW", txtLKW.Text & "%".Replace("*", "%")))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma", "%" & txtFirma.Text & "%"))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Fahrer", txtFahrer.Text & "%".Replace("*", "%")))
@@ -255,14 +257,14 @@
.Columns("sdlAb_ErfassungSachbearbeiterId").Visible = False
.Columns("sdlAb_AbholungSachbearbeiterId").Visible = False
'.Columns("sdlAb_ErfassungVermerk").MinimumWidth = 100
' .Columns("sdlAb_ErfassungVermerk").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
'.Columns("sdlAb_ErfassungVermerk").HeaderText = "Vermerk"
.Columns("sdlAb_AbholungLKWKz").Width = 110
.Columns("sdlAb_AbholungLKWKz").HeaderText = "LKW Abholung"
.Columns("sdlAb_AbholungFahrername").Width = 150
.Columns("sdlAb_AbholungFahrername").HeaderText = "Fahrer Abholung"
@@ -278,14 +280,16 @@
.Columns("sdlAb_Abholung").Width = 120
.Columns("sdlAb_Abholung").HeaderText = "Datum"
.Columns("sdlAb_Abgeholt").Width = 50
.Columns("sdlAb_Abgeholt").HeaderText = "Abgeholt"
.Columns("sdlAb_AbholungVermerk").MinimumWidth = 100
.Columns("sdlAb_AbholungVermerk").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("sdlAb_AbholungVermerk").HeaderText = "Vermerk"
.Columns("sdlAb_AbholungVermerk").DefaultCellStyle.ForeColor = Color.Red
.Columns("sdlAb_AbholungVermerk").DefaultCellStyle.Font = New Font(.Font.FontFamily, Font.Size, FontStyle.Bold)
.Columns("sdlAb_Storniert").HeaderText = "Storno"
.Columns("sdlAb_Storniert").Width = 45
@@ -295,6 +299,8 @@
.Columns("sdlAb_FahrerAbholAuftrag").HeaderText = "ZB Fahrer"
.Columns("sdlAb_FahrerAbholAuftrag").Width = 60
' lblErgebnis.Text = "Ergebnise: " & .RowCount
colorizeCells()
End With
End Sub
@@ -549,6 +555,25 @@
' cVorauskasseOptions.insertVermerk(MyDatagridview1.SelectedRows(0).Cells("vk_FilialeNr").Value, MyDatagridview1.SelectedRows(0).Cells("vk_AbfertigungsNr").Value, 14)
End If
End Sub
Private Sub MyDatagridview1_Layout(sender As Object, e As LayoutEventArgs) Handles MyDatagridview1.Layout
colorizeCells()
End Sub
Sub colorizeCells()
Dim kdNrTmp = "-1"
Dim bgColor = Color.White
For Each r As DataGridViewRow In MyDatagridview1.Rows
' MsgBox(r.Cells("sdlAb_AbholungKdNr").Value & " - " & kdNrTmp)
If r.Cells("sdlAb_AbholungKdNr").Value <> kdNrTmp Then
kdNrTmp = r.Cells("sdlAb_AbholungKdNr").Value
bgColor = If(bgColor = Color.White, Color.LightGoldenrodYellow, Color.White)
End If
r.DefaultCellStyle.BackColor = bgColor
Next
End Sub
End Class