From b51abf8128d4615c3e8a06905aa44fce09b78eae Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 28 Sep 2026 10:57:27 +0200 Subject: [PATCH] zoll-Import --- DAKOSY_Worker/cZOLL_IMPORT.vb | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/DAKOSY_Worker/cZOLL_IMPORT.vb b/DAKOSY_Worker/cZOLL_IMPORT.vb index 19f2510..ebc06fd 100644 --- a/DAKOSY_Worker/cZOLL_IMPORT.vb +++ b/DAKOSY_Worker/cZOLL_IMPORT.vb @@ -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