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

Aviso_Trips; NewLayout HF

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-03-19 13:13:23 +01:00
parent 50857959fe
commit 77e83a464a
23 changed files with 1766 additions and 1157 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Aviso/frmHauptfenster.vb
View File

@@ -1213,7 +1213,7 @@ ELSE_ATILLA:
End If
End If
End If
Dim hSQLFirma = ""
hSQL = " SELECT 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 " &
" ,tblSnd_Empfaenger,AbfertigungsNr,tblSnd_Abfertigungsart_ID,tblSnd_Vorgeschrieben,tblSnd_Vorbereitet,tblSnd_Status,tblSnd_SendungID,tblSnd_Fremdspedition,tblSnd_FremdspeditionText " &
" FROM Aviso INNER JOIN tblSendungen ON AvisoID=tblSnd_AvisoID " &
@@ -5260,7 +5260,7 @@ ELSE_ATILLA:
Dim f As New frmSendungsdetailsNEU
Dim NEW_SND As New VERAG_PROG_ALLGEMEIN.cSendungen(AvisoId, f.SENDUNG_LIST.Count + 1, filiale_tmp, Nothing, 0, 0) 'Neue Sendung erstellen
Dim NEW_SND As New VERAG_PROG_ALLGEMEIN.cSendungen(-1, f.SENDUNG_LIST.Count + 1, , Nothing, 0, 0) 'Neue Sendung erstellen
NEW_SND.SAVE(False) 'Insert neue Sendung
f.SENDUNG_LIST.Add(NEW_SND)