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

Version, Benachrichtigung

Browse Source
This commit is contained in:
d.breimaier
2026-07-24 12:59:35 +02:00
parent 906f3450b7
commit 92cc9e342b
2 changed files with 8 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
Aviso/Benachrichtigung/usrCntlBenachrichtigungen.vb
View File

@@ -93,7 +93,7 @@ Public Class usrCntlBenachrichtigungen
whereMA &= " ) " 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) Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
' List.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("maId", VERAG_PROG_ALLGEMEIN.cAllgemein.USRID)) ' 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_ReminderVermerkID").Visible = False
.Columns("ab_VermerkID").Visible = False .Columns("ab_VermerkID").Visible = False
.Columns("ab_ReminderVermerkCode").Visible = False .Columns("ab_ReminderVermerkCode").Visible = False
.Columns("Grenzstelle").Visible = False
.Columns("ab_TO_Art").Visible = False .Columns("ab_TO_Art").Visible = False
.Columns("ab_TO_Code").Visible = False .Columns("ab_TO_Code").Visible = False
@@ -194,6 +195,10 @@ Public Class usrCntlBenachrichtigungen
'r.DefaultCellStyle.SelectionForeColor = Color.Red 'r.DefaultCellStyle.SelectionForeColor = Color.Red
End If 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 If r.Cells("ab_BenachrichtigungCode").Value = "6" Then
r.Cells("ab_Art").Value = "VK" r.Cells("ab_Art").Value = "VK"
End If End If

4
Aviso/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("4.3.0.1")> <Assembly: AssemblyVersion("4.3.0.2")>
<Assembly: AssemblyFileVersion("4.3.0.1")> <Assembly: AssemblyFileVersion("4.3.0.2")>