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

zoll-Import

Browse Source
This commit is contained in:
d.breimaier
2026-09-28 10:57:27 +02:00
parent 940ada8915
commit b51abf8128
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
DAKOSY_Worker/cZOLL_IMPORT.vb
View File

@@ -1,5 +1,4 @@
Imports System.Security.Cryptography
Imports com.sun.tools.corba.se
Imports DAKOSY_Worker.DataEXITDE
Imports VERAG_PROG_ALLGEMEIN
Public Class cZOLL_IMPORT
Public Aviso As cAviso
@@ -748,6 +747,8 @@ Public Class cZOLL_IMPORT
If SPEDITIONSBUCH.PersonalnummerQS Is Nothing OrElse IsDBNull(SPEDITIONSBUCH.PersonalnummerQS) OrElse CInt(SPEDITIONSBUCH.PersonalnummerQS) <= 0 Then
SPEDITIONSBUCH.PersonalnummerQS = SENDUNG.tblSnd_QS_MA
Else
VERAG_PROG_ALLGEMEIN.cErrorHandler.sendERRORperMail("keine PersonalNr bei " & SPEDITIONSBUCH.FilialenNr & "/" & SPEDITIONSBUCH.AbfertigungsNr & " !!", SPEDITIONSBUCH.FilialenNr & "/" & SPEDITIONSBUCH.AbfertigungsNr, Now.ToString("yyyy.MM.dd HH:mm"), "d.breimaier@verag.ag", "", "", "")
End If
If SPEDITIONSBUCH.PersonalnummerAbklTR Is Nothing OrElse IsDBNull(SPEDITIONSBUCH.PersonalnummerAbklTR) OrElse CInt(SPEDITIONSBUCH.PersonalnummerAbklTR) <= 0 Then