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

Mitarbeiter, verwahrung

Browse Source
This commit is contained in:
d.breimaier
2026-08-21 14:15:13 +02:00
parent cdc881a643
commit 2aed96d9af
5 changed files with 161 additions and 65 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
initATLASAufschubkonten/cWorker_NCTS.vb
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

4
initATLASAufschubkonten/cWorker_Verwahrung.vb
View File

@@ -122,7 +122,7 @@ Anzeige:
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
readVW_SumAVerwahrungsinfo = ""
End Try
End Function
@@ -249,7 +249,7 @@ Anzeige:
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
readVW_SumAErledigungsinformation = ""
End Try
End Function

11
initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
View File

@@ -540,13 +540,6 @@ Public Class frmDYNachrichtenVerarbeitung
End If
'EZA: SumAErledigungsinformationVorpapier ' --> TEIL DER VERWAHRUNG
'
'
'
'
'
'EZA: Abgabenbescheid
If Not found And cGetMsgType.isEZA_Abgabenbescheid(doc, VERSION) Then
Select Case VERSION
@@ -1051,10 +1044,6 @@ Public Class frmDYNachrichtenVerarbeitung
'Status wir dnur upgedatet, wenn nicht schon ein neuerer Datensatz verarbeitet wurde!:
'If DY_TMP.dy_AvisoId Is Nothing Or DY_TMP.dy_SendungsId Is Nothing Then
'If getAVSIOFromBezugsNr(STATUS.dySt_BezugsNr, DY_TMP.dy_AvisoId, DY_TMP.dy_SendungsId) Then ' Lädt AVSIO
'DY_TMP.SAVE() ' AVISOID/SendungsID speichern