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

Benachrichtungen, Hauptfenster (Filter Sendungen), etc.

Browse Source
This commit is contained in:
d.breimaier
2026-09-23 11:33:36 +02:00
parent 9164f9d08b
commit 8296d44861
6 changed files with 232 additions and 156 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Aviso/Benachrichtigung/usrCntlBenachrichtigungen.vb
View File

@@ -33,6 +33,12 @@ Public Class usrCntlBenachrichtigungen
'End If
Dim whereMA = " AND ( 1<>1 "
Dim whereVerwahrungsFotos = ""
If Not cbxFotoVerwahrung.Checked Then
whereVerwahrungsFotos = " AND ab_BenachrichtigungCode <> 20 "
End If
'WARENORT
If VERAG_PROG_ALLGEMEIN.cAllgemein.WARENORT_ZUGANG Then
@@ -93,7 +99,7 @@ Public Class usrCntlBenachrichtigungen
whereMA &= " ) "
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 sqlStr As String = "SELECT tblAvisoBenachrichtigungen.*, LKW_Nr, Status, Grenzstelle FROM [tblAvisoBenachrichtigungen] INNER JOIN AVISO on AvisoId=ab_AvisoID WHERE ab_status=0 " & whereMA & whereVerwahrungsFotos & " 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))
@@ -248,7 +254,6 @@ Public Class usrCntlBenachrichtigungen
'MyComboBox2.changeItem("Benutzer")
' MyComboBox2.chang
MyComboBox2.Items.Clear()
MyComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG", "VERAG"))
MyComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX", "IMEX"))
@@ -431,4 +436,7 @@ Public Class usrCntlBenachrichtigungen
End Sub
Private Sub cbxFotoVerwahrung_CheckedChanged(sender As Object, e As EventArgs) Handles cbxFotoVerwahrung.CheckedChanged
initDgvAvisoBenachrichtigungen(True, Me.Font)
End Sub
End Class