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

div. Änderungen, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-08-10 09:12:56 +02:00
parent 4caa0c2073
commit b88fb31cf1
7 changed files with 124 additions and 61 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
DAKOSY_Worker/cZOLL_IMPORT.vb
View File

@@ -745,8 +745,14 @@ Public Class cZOLL_IMPORT
SPEDITIONSBUCH.AbfertigungsanzahlPos = SENDUNG.tblSnd_anzahlPOS ' (NOCH) Keine Funktion!
SPEDITIONSBUCH.Vermerk = "Pos-Anzahl: " & SPEDITIONSBUCH.AbfertigungsanzahlPos
End If
If SPEDITIONSBUCH.PersonalnummerQS <= 0 Then SPEDITIONSBUCH.PersonalnummerQS = SENDUNG.tblSnd_QS_MA
If SPEDITIONSBUCH.PersonalnummerAbklTR <= 0 Then SPEDITIONSBUCH.PersonalnummerAbklTR = SENDUNG.tblSnd_AbklaerungTR_MA
If SPEDITIONSBUCH.PersonalnummerQS Is Nothing OrElse IsDBNull(SPEDITIONSBUCH.PersonalnummerQS) OrElse CInt(SPEDITIONSBUCH.PersonalnummerQS) <= 0 Then
SPEDITIONSBUCH.PersonalnummerQS = SENDUNG.tblSnd_QS_MA
End If
If SPEDITIONSBUCH.PersonalnummerAbklTR Is Nothing OrElse IsDBNull(SPEDITIONSBUCH.PersonalnummerAbklTR) OrElse CInt(SPEDITIONSBUCH.PersonalnummerAbklTR) <= 0 Then
SPEDITIONSBUCH.PersonalnummerAbklTR = SENDUNG.tblSnd_AbklaerungTR_MA
End If
If SENDUNG.tblSnd_FilialeAbklaerung IsNot Nothing AndAlso IsNumeric(SENDUNG.tblSnd_FilialeAbklaerung) AndAlso SENDUNG.tblSnd_FilialeAbklaerung > 0 Then
SPEDITIONSBUCH.FilialenNrAbklaerung = SENDUNG.tblSnd_FilialeAbklaerung