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

4
Aviso/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("4.3.1.0")> <Assembly: AssemblyVersion("4.3.1.3")>
<Assembly: AssemblyFileVersion("4.3.1.0")> <Assembly: AssemblyFileVersion("4.3.1.3")>

7
Aviso/frmHauptfenster.vb
View File

File diff suppressed because one or more lines are too long

5
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -4425,7 +4425,10 @@ 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 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 Sub
End Select End Select