Compare commits
2 Commits
dbc0826321
...
86108d05b7
| Author | SHA1 | Date | |
|---|---|---|---|
| 86108d05b7 | |||
| 818777a5cb |
@@ -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
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user