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

eZoll, Sessions-Übersicht, Timas

Browse Source
This commit is contained in:
d.breimaier
2026-05-26 09:37:30 +02:00
parent 6e91ef81b3
commit 850d64073b
7 changed files with 364 additions and 267 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
DAKOSY_Worker/cZOLL_IMPORT.vb
View File

@@ -77,7 +77,7 @@ Public Class cZOLL_IMPORT
SPEDBUCH.Zollsystem = "T"
SPEDBUCH.Abfertigungsdatum = Now.ToShortDateString
SPEDBUCH.Sachbearbeiter = "AUTO"
SPEDBUCH.AUTO_created = True
Dim notfound = False
@@ -365,7 +365,6 @@ Public Class cZOLL_IMPORT
' SPEDBUCH.AtlasBezNrEZA = LRN
SPEDBUCH.Zollsystem = "E"
SPEDBUCH.Sachbearbeiter = "AUTO"
SPEDBUCH.AUTO_created = True
Dim ZOLL_IMPORT As New cZOLL_IMPORT
Dim notfound = False
@@ -382,7 +381,7 @@ Public Class cZOLL_IMPORT
SPEDBUCH_TMP = SPEDBUCH
If notfound Then
VERAG_PROG_ALLGEMEIN.cErrorHandler.sendERRORperMail("HEUREKA EZA !!", SPEDBUCH.AtlasBezNrEZA, Now.ToString("yyyy.MM.dd HH:mm"), "d.breimaier@verag.ag", "", "", "")
VERAG_PROG_ALLGEMEIN.cErrorHandler.sendERRORperMail("HEUREKA " & art & " !!", LRN, Now.ToString("yyyy.MM.dd HH:mm"), "d.breimaier@verag.ag", "", "", "")
Return False
End If
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = firmaTmp
@@ -640,7 +639,7 @@ Public Class cZOLL_IMPORT
' SPEDITIONSBUCH.AtlasBezNrEZA = EZA_Nr
EZollEZADatenbereitstellung(EZA_Nr, False)
ElseIf AES_Nr <> "" Then
EZollEZADatenbereitstellung(AES_Nr, True) ' ???? Warum wird hier nur auf EF geprüft??? AES ist doch -> AF!!!!
EZollEZADatenbereitstellung(AES_Nr, True)
ElseIf NCTS_Nr <> "" Then
' SPEDITIONSBUCH.AtlasBezNrNCTS = NCTS_Nr
EZollNCTSDatenbereitstellung(NCTS_Nr)