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

spedbuch auswert; ReadT1ATEZ,Greenpulse API

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-09-23 07:35:12 +02:00
parent dbc0826321
commit 1c1af724c2
4 changed files with 163 additions and 55 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Aviso/usrCntlHauptfenster_Suche_SND.vb
View File

@@ -624,7 +624,7 @@ Public Class usrCntlHauptfenster_Suche_SND
Dim hSQLFirma = ""
hSQLFirma = " AND Firma ='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' "
hSQLFirma = " AND (Firma ='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' ) "
hSQL = " SELECT " & top & " AvisoID, CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig], CASE WHEN [VerwahrungStatus] = 1 THEN 'OK' ELSE '' END AS [VerwahrungStatus],[Status],tblSendungen.LetzterMitarbeiterId,tblSendungen.LetzterMitarbeiter, LKW_Nr, VoraussichtlichesEintreffen,Dauer, Datum, AvisoEingang, Ankunft, Grenzstelle, Freigabe, Aviso.LetzterMitarbeiterId AS maId,AvisoTVHinweis " &
@@ -714,7 +714,7 @@ Public Class usrCntlHauptfenster_Suche_SND
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("maId", VERAG_PROG_ALLGEMEIN.cAllgemein.USRID))
MsgBox(hSQL)
' MsgBox(hSQL)
'If hSort = "" Then
'hSQL += " ORDER BY Ankunft DESC, AvisoEingang DESC, Datum DESC"
' Else