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

Sendungsdetails, formualre,

Browse Source
This commit is contained in:
d.breimaier
2026-08-18 13:50:12 +02:00
parent a139545ba3
commit 818777a5cb
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Aviso/frmSendungsdetailsNEU.vb
View File

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