diff --git a/Aviso/Benachrichtigung/usrCntlBenachrichtigungen.vb b/Aviso/Benachrichtigung/usrCntlBenachrichtigungen.vb index 16949a9..59f9094 100644 --- a/Aviso/Benachrichtigung/usrCntlBenachrichtigungen.vb +++ b/Aviso/Benachrichtigung/usrCntlBenachrichtigungen.vb @@ -93,7 +93,7 @@ Public Class usrCntlBenachrichtigungen whereMA &= " ) " - Dim sqlStr As String = "SELECT tblAvisoBenachrichtigungen.*, LKW_Nr, Status FROM [tblAvisoBenachrichtigungen] INNER JOIN AVISO on AvisoId=ab_AvisoID WHERE ab_status=0 " & whereMA & " ORDER BY CASE WHEN ANKUNFT <'01.01.2001' THEN '01.01.2999' ELSE ANKUNFT end ASC,ab_Datum ASC" + Dim sqlStr As String = "SELECT tblAvisoBenachrichtigungen.*, LKW_Nr, Status, Grenzstelle FROM [tblAvisoBenachrichtigungen] INNER JOIN AVISO on AvisoId=ab_AvisoID WHERE ab_status=0 " & whereMA & " ORDER BY CASE WHEN ANKUNFT <'01.01.2001' THEN '01.01.2999' ELSE ANKUNFT end ASC,ab_Datum ASC" Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) ' List.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("maId", VERAG_PROG_ALLGEMEIN.cAllgemein.USRID)) @@ -121,6 +121,7 @@ Public Class usrCntlBenachrichtigungen .Columns("ab_ReminderVermerkID").Visible = False .Columns("ab_VermerkID").Visible = False .Columns("ab_ReminderVermerkCode").Visible = False + .Columns("Grenzstelle").Visible = False .Columns("ab_TO_Art").Visible = False .Columns("ab_TO_Code").Visible = False @@ -194,6 +195,10 @@ Public Class usrCntlBenachrichtigungen 'r.DefaultCellStyle.SelectionForeColor = Color.Red End If + If Not IsDBNull(r.Cells("Grenzstelle").Value) AndAlso r.Cells("Grenzstelle").Value = "WAI" Then + r.DefaultCellStyle.BackColor = Color.Orange + End If + If r.Cells("ab_BenachrichtigungCode").Value = "6" Then r.Cells("ab_Art").Value = "VK" End If diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb index 8e082ba..b9ff00b 100644 --- a/Aviso/My Project/AssemblyInfo.vb +++ b/Aviso/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + +