Mitarbeiter, verwahrung

This commit is contained in:
2026-08-21 14:15:13 +02:00
parent cdc881a643
commit 2aed96d9af
5 changed files with 161 additions and 65 deletions

View File

@@ -2,9 +2,6 @@
Imports System.IO
Imports System.Xml
Imports DAKOSY_Worker
Imports DocumentFormat.OpenXml
Imports DocumentFormat.OpenXml.Spreadsheet
Imports iTextSharp.text.pdf
Imports VERAG_PROG_ALLGEMEIN
Public Class cWorker_NCTS
@@ -4196,10 +4193,10 @@ Public Class cWorker_NCTS
'temp ausnehmen!
'If saveVerwahrung Then
' 'saveVerwahrungsAusgang(MRN, posErledigung, NCTS, sendMail, testlauf)
' cWorker_Verwahrung.saveVerwahrungsAusgang(MRN, posErledigung, "", zp, sendMail, testlauf, -1, True, "T1")
'End If
If saveVerwahrung Then
'saveVerwahrungsAusgang(MRN, posErledigung, NCTS, sendMail, testlauf)
cWorker_Verwahrung.saveVerwahrungsAusgang(MRN, posErledigung, "", zp, sendMail, testlauf, -1, True, "T1")
End If
End If
@@ -4226,6 +4223,7 @@ Public Class cWorker_NCTS
Shared Sub checkATEZ_Bereitstellung(DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen, filePath As String)
If DY_TMP Is Nothing Then Exit Sub
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then Exit Sub
Dim ATEZ = VERAG_PROG_ALLGEMEIN.cATEZ_NCTS_DATA.LOAD_ByBezugsNr(DY_TMP.dy_BezugsNr)
If (DY_TMP.dy_BezugsNr.Contains("ATEZ") Or DY_TMP.dy_BezugsNr.Contains("PLH")) OrElse (ATEZ IsNot Nothing AndAlso ATEZ.hasEntry) Then
' If ATEZ.status IsNot Nothing Then
@@ -4239,6 +4237,7 @@ Public Class cWorker_NCTS
Shared Sub checkATEZ_BereitstellungDHUB(DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen, filePath As String)
If DY_TMP Is Nothing Then Exit Sub
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then Exit Sub
Dim ATEZ = VERAG_PROG_ALLGEMEIN.cATEZ_NCTS_DATA.LOAD_ByBezugsNr(DY_TMP.dy_BezugsNr)
If DY_TMP.dy_BezugsNr.Contains("DHUB") Then
' If ATEZ.status IsNot Nothing Then