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

Sendungsdetails (AMBAR), UNISPED -> LKW-Flag, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-08-17 10:32:08 +02:00
parent 0282fecbb8
commit a139545ba3
3 changed files with 12 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -4425,7 +4425,10 @@ Public Class frmSendungsdetailsNEU
Dim f As SDL.frmFormulare = Nothing
SDL.FormularManagerNEU.OPEN_FORM_Byref(SDL.FormularManagerArten.Importaviso, kdnrFrm, {kdnrFrm, FirmaFrm, SENDUNG_LIST(CURRENT_INDEX), AVISO, ROLLE},, f)
AddHandler f.FormClosing, Sub()
If f.printed Then AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, "Auftrag fehlt - angefordert", 1)
If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Firma <> 24 Then
If f.printed Then AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, "Auftrag fehlt - angefordert", 1)
End If
End Sub
End Select