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

Dakosy Worker: AES neue Datensätze

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-01-27 14:27:12 +01:00
parent 424af199ed
commit 5d3b03cf7f
9 changed files with 14273 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
initATLASAufschubkonten/cGetMsgType.vb
View File

@@ -361,6 +361,31 @@ Public Class cGetMsgType
Return False
End Function
Shared Function isAES_UeberlassungAusfuhr(doc As XmlDocument, ByRef version As String) As Boolean
If doc.HasChildNodes Then
If doc.GetElementsByTagName("UeberlassungAusfuhr").Count > 0 Then
If doc.GetElementsByTagName("Version").Count > 0 Then
version = doc.GetElementsByTagName("Version")(0).InnerText
End If
Return True
End If
End If
Return False
End Function
Shared Funct
Shared Function isAES_BestaetigungAusfuhr(doc As XmlDocument, ByRef version As String) As Boolean
If doc.HasChildNodes Then
If doc.GetElementsByTagName("BestaetigungAusfuhr").Count > 0 Then
If doc.GetElementsByTagName("Version").Count > 0 Then
version = doc.GetElementsByTagName("Version")(0).InnerText
End If
Return True
End If
End If
Return False
End Function
Shared Function isEZA_MitteilungAbschreibung(doc As XmlDocument) As Boolean
If doc.HasChildNodes Then
If doc.GetElementsByTagName("MitteilungAbschreibung").Count > 0 Then

73
initATLASAufschubkonten/cWorker_NCTS.vb
View File

@@ -1795,6 +1795,10 @@ Public Class cWorker_NCTS
Dim Wiedergestellungsdatum As Object = Nothing
' Dim bearbeiter = ""
Dim zp As Object = Nothing
Dim Verschluss_Art = ""
Dim Verschluss_Anzahl = 0
Dim Verschluss_Zeichen As New List(Of String)
readNCTS_Ueberlassungsmeldung006 = ""
If NCTS IsNot Nothing Then
If NCTS.Transaktion IsNot Nothing Then
@@ -1819,6 +1823,21 @@ Public Class cWorker_NCTS
Wiedergestellungsdatum = NCTS.EinzelUeberlassungsmeldung.KopfDaten.Wiedergestellungsdatum
' bearbeiter=NCTS.EinzelUeberlassungsmeldung.KopfDaten.
'Verschluesse
If NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse IsNot Nothing Then
If NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Anzahl IsNot Nothing AndAlso NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Anzahl > 0 Then
Verschluss_Art = NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Art
Verschluss_Anzahl = NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Anzahl
If NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Zeichen IsNot Nothing Then
If NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Zeichen.Count > 0 Then
For Each z In NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Zeichen
Verschluss_Zeichen.Add(z)
Next
End If
End If
End If
End If
End If
End If
@@ -1839,6 +1858,22 @@ Public Class cWorker_NCTS
Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = FORM.saveDY_ZA(STATUS, NCTS.Transaktion.IOReferenz, If(zp, NCTS.Transaktion.IODatumZeit), "NCTS")
Dim NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut = saveDY_NCTS(STATUS, DY_TMP, NCTS.Transaktion.IOReferenz, If(zp, NCTS.Transaktion.IODatumZeit), , MRN)
If Verschluss_Anzahl > 0 Then
NCTS_TMP.ncts_Verschluss_Anzahl = Verschluss_Anzahl
NCTS_TMP.ncts_Verschluss_ArtCode = Verschluss_Art
NCTS_TMP.ncts_Verschluss_Zeichen1 = If(Verschluss_Zeichen.Count > 0, Verschluss_Zeichen(0), Nothing)
NCTS_TMP.ncts_Verschluss_Zeichen2 = If(Verschluss_Zeichen.Count > 1, Verschluss_Zeichen(1), Nothing)
NCTS_TMP.ncts_Verschluss_Zeichen3 = If(Verschluss_Zeichen.Count > 2, Verschluss_Zeichen(2), Nothing)
NCTS_TMP.ncts_Verschluss_Zeichen4 = If(Verschluss_Zeichen.Count > 3, Verschluss_Zeichen(3), Nothing)
NCTS_TMP.ncts_Verschluss_Zeichen5 = If(Verschluss_Zeichen.Count > 4, Verschluss_Zeichen(4), Nothing)
NCTS_TMP.ncts_Verschluss_Zeichen6 = If(Verschluss_Zeichen.Count > 5, Verschluss_Zeichen(5), Nothing)
NCTS_TMP.ncts_Verschluss_Zeichen7 = If(Verschluss_Zeichen.Count > 6, Verschluss_Zeichen(6), Nothing)
NCTS_TMP.ncts_Verschluss_Zeichen8 = If(Verschluss_Zeichen.Count > 7, Verschluss_Zeichen(7), Nothing)
NCTS_TMP.ncts_Verschluss_Zeichen9 = If(Verschluss_Zeichen.Count > 8, Verschluss_Zeichen(8), Nothing)
NCTS_TMP.ncts_Verschluss_Zeichen10 = If(Verschluss_Zeichen.Count > 9, Verschluss_Zeichen(9), Nothing)
NCTS_TMP.SAVE()
End If
SaveNCTS_FirmaNL(NCTS_TMP, DY_TMP, division)
SaveNCTS_WGDAT(NCTS_TMP, Wiedergestellungsdatum)
@@ -1868,6 +1903,11 @@ Public Class cWorker_NCTS
Dim Wiedergestellungsdatum As Object = Nothing
' Dim bearbeiter = ""
Dim zp As Object = Nothing
Dim Verschluss_Art = ""
Dim Verschluss_Anzahl = 0
Dim Verschluss_Zeichen As New List(Of String)
readNCTS_Ueberlassungsmeldung007 = ""
If NCTS IsNot Nothing Then
If NCTS.Transaktion IsNot Nothing Then
@@ -1892,9 +1932,27 @@ Public Class cWorker_NCTS
Wiedergestellungsdatum = NCTS.EinzelUeberlassungsmeldung.KopfDaten.Wiedergestellungsdatum
' bearbeiter=NCTS.EinzelUeberlassungsmeldung.KopfDaten.
'Verschluesse
If NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse IsNot Nothing Then
If NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Anzahl IsNot Nothing AndAlso NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Anzahl > 0 Then
Verschluss_Art = NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Art
Verschluss_Anzahl = NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Anzahl
If NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Zeichen IsNot Nothing Then
If NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Zeichen.Count > 0 Then
For Each z In NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Zeichen
Verschluss_Zeichen.Add(z)
Next
End If
End If
End If
End If
End If
End If
End If
' NCTS.LOADByBezugsNr(bezugsNr, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist.
@@ -1912,6 +1970,21 @@ Public Class cWorker_NCTS
Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = FORM.saveDY_ZA(STATUS, NCTS.Transaktion.IOReferenz, If(zp, NCTS.Transaktion.IODatumZeit), "NCTS")
Dim NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut = saveDY_NCTS(STATUS, DY_TMP, NCTS.Transaktion.IOReferenz, If(zp, NCTS.Transaktion.IODatumZeit), , MRN)
If Verschluss_Anzahl > 0 Then
NCTS_TMP.ncts_Verschluss_Anzahl = Verschluss_Anzahl
NCTS_TMP.ncts_Verschluss_ArtCode = Verschluss_Art
NCTS_TMP.ncts_Verschluss_Zeichen1 = If(Verschluss_Zeichen.Count > 0, Verschluss_Zeichen(0), Nothing)
NCTS_TMP.ncts_Verschluss_Zeichen2 = If(Verschluss_Zeichen.Count > 1, Verschluss_Zeichen(1), Nothing)
NCTS_TMP.ncts_Verschluss_Zeichen3 = If(Verschluss_Zeichen.Count > 2, Verschluss_Zeichen(2), Nothing)
NCTS_TMP.ncts_Verschluss_Zeichen4 = If(Verschluss_Zeichen.Count > 3, Verschluss_Zeichen(3), Nothing)
NCTS_TMP.ncts_Verschluss_Zeichen5 = If(Verschluss_Zeichen.Count > 4, Verschluss_Zeichen(4), Nothing)
NCTS_TMP.ncts_Verschluss_Zeichen6 = If(Verschluss_Zeichen.Count > 5, Verschluss_Zeichen(5), Nothing)
NCTS_TMP.ncts_Verschluss_Zeichen7 = If(Verschluss_Zeichen.Count > 6, Verschluss_Zeichen(6), Nothing)
NCTS_TMP.ncts_Verschluss_Zeichen8 = If(Verschluss_Zeichen.Count > 7, Verschluss_Zeichen(7), Nothing)
NCTS_TMP.ncts_Verschluss_Zeichen9 = If(Verschluss_Zeichen.Count > 8, Verschluss_Zeichen(8), Nothing)
NCTS_TMP.ncts_Verschluss_Zeichen10 = If(Verschluss_Zeichen.Count > 9, Verschluss_Zeichen(9), Nothing)
NCTS_TMP.SAVE()
End If
SaveNCTS_FirmaNL(NCTS_TMP, DY_TMP, division)
SaveNCTS_WGDAT(NCTS_TMP, Wiedergestellungsdatum)

247
initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
View File

@@ -446,6 +446,8 @@ Public Class frmDYNachrichtenVerarbeitung
If Not found Then
'????? UeberlassungAusfuhr
Dim doc2 As New XmlDocument()
Dim XML_Code2 = System.IO.File.ReadAllText(d, System.Text.ASCIIEncoding.UTF8)
doc2.LoadXml(SanitizeXmlString(XML_Code2))
@@ -470,6 +472,9 @@ Public Class frmDYNachrichtenVerarbeitung
addDGVEinarbeitung("*AES: DeliveryNotification", "-")
End If
'---------------------------------------------------------------------------------
'--------OLD----------------------------------------------------------------------
'---------------------------------------------------------------------------------
'AES: DEXPRE - Überlassung 2.3
If Not found And cGetMsgType.isAES_DEXPRD(doc2) Then
If readAES_DEXPRD(doc2) <> "" Then found = True
@@ -479,6 +484,28 @@ Public Class frmDYNachrichtenVerarbeitung
If Not found And cGetMsgType.isAES_DEXPRE(doc2) Then
If readAES_DEXPRE(doc2) <> "" Then found = True
End If
'---------------------------------------------------------------------------------
'---------------------------------------------------------------------------------
'---------------------------------------------------------------------------------
'AES: UeberlassungAusfuhr
If Not found And cGetMsgType.isAES_UeberlassungAusfuhr(doc, VERSION) Then
Select Case VERSION
Case "006" : If readAES_UeberlassungAusfuhr_006(d) <> "" Then found = True
End Select
End If
'AES: BestaetigungAusfuhr
If Not found And cGetMsgType.isAES_BestaetigungAusfuhr(doc, VERSION) Then
Select Case VERSION
Case "006" : If readAES_BestaetigungAusfuhr_006(d) <> "" Then found = True
End Select
End If
'AES: Error
If Not found And cGetMsgType.isAES_DEERRE(doc2) Then
@@ -2116,6 +2143,152 @@ Public Class frmDYNachrichtenVerarbeitung
End Try
End Function
Function readAES_UeberlassungAusfuhr_006(d) As String
Try
Dim AES As DAKOSY_Worker.UeberlassungAusfuhr_006.UeberlassungAusfuhrERTyp = DAKOSY_Worker.UeberlassungAusfuhr_006.UeberlassungAusfuhrERTyp.LoadFromFile(d)
Dim ART = ""
' Dim details = ""
Dim zp As Object = Nothing
Dim regNR = ""
Dim division = ""
readAES_UeberlassungAusfuhr_006 = ""
If AES IsNot Nothing Then
If AES.Transaktion IsNot Nothing Then
If AES.Transaktion.IODivision3 IsNot Nothing Then
division = AES.Transaktion.IODivision3
End If
End If
If AES.EinzelUeberlassung IsNot Nothing AndAlso AES.EinzelUeberlassung.Count > 0 Then
If AES.EinzelUeberlassung(0).ObjektIdentifizierung IsNot Nothing Then
If AES.EinzelUeberlassung(0).ObjektIdentifizierung.ObjektName IsNot Nothing Then
readAES_UeberlassungAusfuhr_006 = AES.EinzelUeberlassung(0).ObjektIdentifizierung.ObjektName
End If
zp = AES.EinzelUeberlassung(0).ObjektIdentifizierung.ZeitpunktEingang
End If
If AES.EinzelUeberlassung(0).KopfDaten IsNot Nothing Then
' If AES.EinzelNichtAbschliessendeFestsetzung.KopfDaten.ArtErledigung IsNot Nothing Then
'ART = AES.EinzelNichtAbschliessendeFestsetzung.KopfDaten.ArtErledigung
' End If
If AES.EinzelUeberlassung(0).KopfDaten.MovementReferenceNumber IsNot Nothing Then
regNR = AES.EinzelUeberlassung(0).KopfDaten.MovementReferenceNumber
End If
End If
End If
End If
' AES.LOADByBezugsNr(bezugsNr, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist.
If readAES_UeberlassungAusfuhr_006 <> "" And regNR <> "" Then 'BEZUGSNR vorhanden
Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = getStatusCheckTransID(AES.Transaktion.IOReferenz, If(zp, AES.Transaktion.IODatumZeit))
STATUS.dySt_BezugsNr = readAES_UeberlassungAusfuhr_006
STATUS.dySt_artMitteilung = "UEA"
STATUS.dySt_dyArt = "AES"
STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_60
STATUS.dySt_ergCode = "TSTMP"
' STATUS.dySt_ergMitteilung = Reason
' If tstmp IsNot Nothing Then STATUS.dySt_ergZeitpunkt = tstmp
'EINTRAG IN tblDakosy_Zollanmeldungen
Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = saveDY_ZA(STATUS, AES.Transaktion.IOReferenz, If(zp, AES.Transaktion.IODatumZeit), "AES")
' Dim NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut = saveDY_NCTS(STATUS, DY_TMP, messageID, messageTstmp, , regNR)
Dim AES_TMP As DAKOSY_Worker.cDakosyAES = saveDY_AES(STATUS, DY_TMP, AES.Transaktion.IOReferenz, If(zp, AES.Transaktion.IODatumZeit), , regNR)
'SaveAES_FirmaNL(AES_TMP, "") 'KEINE NIEDERLASSUNG
AES_TMP.insertIntoSpedBuch(DY_TMP)
If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id
STATUS.SAVE()
addDGVEinarbeitung("AES: Überlassung", STATUS.dySt_BezugsNr)
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
readAES_UeberlassungAusfuhr_006 = ""
End Try
End Function
Function readAES_BestaetigungAusfuhr_006(d) As String
Try
Dim AES As DAKOSY_Worker.BestaetigungAusfuhr_006.BestaetigungAusfuhrENTyp = DAKOSY_Worker.BestaetigungAusfuhr_006.BestaetigungAusfuhrENTyp.LoadFromFile(d)
Dim ART = ""
' Dim details = ""
Dim zp As Object = Nothing
Dim regNR = ""
Dim division = ""
readAES_BestaetigungAusfuhr_006 = ""
If AES IsNot Nothing Then
If AES.Transaktion IsNot Nothing Then
If AES.Transaktion.IODivision3 IsNot Nothing Then
division = AES.Transaktion.IODivision3
End If
End If
If AES.EinzelBestaetigung IsNot Nothing AndAlso AES.EinzelBestaetigung.Count > 0 Then
If AES.EinzelBestaetigung(0).ObjektIdentifizierung IsNot Nothing Then
If AES.EinzelBestaetigung(0).ObjektIdentifizierung.ObjektName IsNot Nothing Then
readAES_BestaetigungAusfuhr_006 = AES.EinzelBestaetigung(0).ObjektIdentifizierung.ObjektName
End If
zp = AES.EinzelBestaetigung(0).ObjektIdentifizierung.ZeitpunktEingang
End If
If AES.EinzelBestaetigung(0).KopfDaten IsNot Nothing Then
' If AES.EinzelNichtAbschliessendeFestsetzung.KopfDaten.ArtErledigung IsNot Nothing Then
'ART = AES.EinzelNichtAbschliessendeFestsetzung.KopfDaten.ArtErledigung
' End If
If AES.EinzelBestaetigung(0).KopfDaten.MovementReferenceNumber IsNot Nothing Then
regNR = AES.EinzelBestaetigung(0).KopfDaten.MovementReferenceNumber
End If
End If
End If
End If
' AES.LOADByBezugsNr(bezugsNr, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist.
If readAES_BestaetigungAusfuhr_006 <> "" And regNR <> "" Then 'BEZUGSNR vorhanden
Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = getStatusCheckTransID(AES.Transaktion.IOReferenz, If(zp, AES.Transaktion.IODatumZeit))
STATUS.dySt_BezugsNr = readAES_BestaetigungAusfuhr_006
STATUS.dySt_artMitteilung = "BST"
STATUS.dySt_dyArt = "AES"
STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_60
STATUS.dySt_ergCode = "TSTMP"
' STATUS.dySt_ergMitteilung = Reason
' If tstmp IsNot Nothing Then STATUS.dySt_ergZeitpunkt = tstmp
'EINTRAG IN tblDakosy_Zollanmeldungen
Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = saveDY_ZA(STATUS, AES.Transaktion.IOReferenz, If(zp, AES.Transaktion.IODatumZeit), "AES")
' Dim NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut = saveDY_NCTS(STATUS, DY_TMP, messageID, messageTstmp, , regNR)
Dim AES_TMP As DAKOSY_Worker.cDakosyAES = saveDY_AES(STATUS, DY_TMP, AES.Transaktion.IOReferenz, If(zp, AES.Transaktion.IODatumZeit), , regNR)
'SaveAES_FirmaNL(AES_TMP, "") 'KEINE NIEDERLASSUNG
AES_TMP.insertIntoSpedBuch(DY_TMP)
If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id
STATUS.SAVE()
addDGVEinarbeitung("AES: BestätigunAusfuhr", STATUS.dySt_BezugsNr)
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
readAES_BestaetigungAusfuhr_006 = ""
End Try
End Function
Function readAES_DEXPRE(doc As XmlDocument) As String
Try
readAES_DEXPRE = ""
@@ -5863,6 +6036,7 @@ Public Class frmDYNachrichtenVerarbeitung
Dim division = ""
Dim TXT_DokBeschau = ""
'Dim annahmeKz As Object = Nothing
'Dim ueberlassungKz As Object = Nothing
'Dim RueckgabeKz As Object = Nothing
@@ -5898,7 +6072,21 @@ Public Class frmDYNachrichtenVerarbeitung
zoellner = EZA.EinzelEntscheidungAnmeldung.KopfDaten.BearbeiterZoll
End If
End If
'If EZA.EinzelEntscheidungAnmeldung.Position IsNot Nothing Then
'POS __> DOKUMENTENBSCHAU
If EZA.EinzelEntscheidungAnmeldung.Position IsNot Nothing Then
For Each POS In EZA.EinzelEntscheidungAnmeldung.Position
If POS.AnordnungKz IsNot Nothing Then
'0 = Keine Beschau. 1 = Volle Gesamtbeschau. 2 = Stichprobenweise Mengenbeschau. 3 = Stichprobenweise Beschaffenheitsbeschau. 4 = Dokumentenprüfung 5= Durchleuchtung 9 = Andere. (Codeliste A1410
Select Case POS.AnordnungKz
Case "4" '--> Dokumentenprüfung
TXT_DokBeschau &= POS.Positionsnummer & ": Dokumentenprüfung" & If(POS.MitteilungTeilnehmerBeschau IsNot Nothing, " (" & POS.MitteilungTeilnehmerBeschau & ")", "") & vbNewLine
'MitteilungTeilnehmerBeschau
End Select
End If
Next
End If
'End If
@@ -5906,6 +6094,7 @@ Public Class frmDYNachrichtenVerarbeitung
End If
' EZA.LOADByBezugsNr(bezugsNr, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist.
If readEZA_EntscheidungAnmeldung_004 <> "" Then 'BEZUGSNR vorhanden
Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = getStatusCheckTransID(EZA.Transaktion.IOReferenz, EZA.Transaktion.IODatumZeit)
STATUS.dySt_BezugsNr = readEZA_EntscheidungAnmeldung_004
@@ -5943,6 +6132,61 @@ Public Class frmDYNachrichtenVerarbeitung
STATUS.SAVE()
addDGVEinarbeitung("EZA: EntscheidungAnmeldung", STATUS.dySt_BezugsNr)
If TXT_DokBeschau <> "" Then
'Benachrichtigung
Try
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim sendToID As String = SQL.DLookup("tblSnd_VG_MA", "tblSendungen", "tblSnd_SendungID='" & DY_TMP.dy_SendungsId & "'", "AVISO")
Dim art = "B"
'Wenn Benutzer vorschreiben nicht online, dann Benutzer der Sendung...
If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID)) Then
sendToID = SQL.DLookup("LetzterMitarbeiterId", "tblSendungen", "tblSnd_SendungID='" & DY_TMP.dy_SendungsId & "'", "AVISO")
art = "B"
End If
'Wenn Benutzer der Sendung nicht online, dann Benutzer des LKW ..
If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID)) Then
sendToID = SQL.DLookup("LetzterMitarbeiterId", "Aviso", "AvisoId='" & DY_TMP.dy_AvisoId & "'", "AVISO")
art = "B"
End If
'Wenn Benutzer des LKWs nicht online, Team...
If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID)) Then
sendToID = SQL.DLookup("tblSnd_TeamId", "tblSendungen", "tblSnd_SendungID='" & DY_TMP.dy_SendungsId & "'", "AVISO")
art = "T"
End If
'Wenn TEAM nicht gefunden, Firma...
If EZA_TMP.eza_firma IsNot Nothing AndAlso EZA_TMP.eza_firma <> "" Then
If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID)) Then
sendToID = EZA_TMP.eza_firma
art = "F"
End If
End If
'Wenn gefunden
If sendToID >= 0 Then
Dim statusAVISO = SQL.DLookup("Status", "Aviso", "AvisoID='" & DY_TMP.dy_AvisoId & "'", "AVISO")
Select Case statusAVISO
'Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben,,VERAG_PROG_ALLGEMEIN.cGlobal.erfasst Nue
Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben
'Nicht
Case Else
Dim code = VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.ZOLL_Dokumentenbeschau
VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(DY_TMP.dy_AvisoId, DY_TMP.dy_SendungsId, code, art, sendToID, "ZOLL: Dokumentenbeschau", 1, , TXT_DokBeschau.Trim,,, If(EZA_TMP.eza_firma, ""))
End Select
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
End If
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
@@ -5951,6 +6195,7 @@ Public Class frmDYNachrichtenVerarbeitung
End Function
Function readEZA_SumAErledigungsinformationVorpapier(d) As String
Try