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

ATLAS 9.1 NCTS

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-09-23 01:18:32 +02:00
parent 205b0fa484
commit a9591ca6a7
26 changed files with 73125 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

54
initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
View File

@@ -279,25 +279,39 @@ Public Class frmDYNachrichtenVerarbeitung
'------------------ NCTS ------------------
'------------------------------------------
'NCTS: Versandanmeldung
'NCTS: Versandanmeldung ATLAS 9.1
If Not found AndAlso cGetMsgType.isNCTS_VersandanmeldungXML_DETPDD(doc) Then
If cWorker_NCTS.readNCTS_VersandanmeldungXML_DETPDD(Me, doc, statusTMP) <> "" Then found = True
End If
'NCTS: Versandanmeldung - alt
If Not found AndAlso cGetMsgType.isNCTS_VersandanmeldungXML(doc) Then
If cWorker_NCTS.readNCTS_VersandanmeldungXML(Me, doc, statusTMP) <> "" Then found = True
End If
'NCTS: Ankunftsanzeige
If Not found AndAlso cGetMsgType.isNCTS_AnkunftsanzeigeXML(doc) Then
If cWorker_NCTS.readNCTS_AnkunftsanzeigeXML(doc) <> "" Then found = True
Select Case VERSION
Case "XXXXX"
Case Else : If cWorker_NCTS.readNCTS_AnkunftsanzeigeXML(doc) <> "" Then found = True
End Select
End If
'NCTS: Versandbestätigung
If Not found And cGetMsgType.isNCTS_Versandbestaetigung(doc) Then
If cWorker_NCTS.readNCTS_Versandbestaetigung(Me, d) <> "" Then found = True
If Not found And cGetMsgType.isNCTS_Versandbestaetigung(doc, VERSION) Then
Select Case VERSION
Case "002" : If cWorker_NCTS.readNCTS_Versandbestaetigung002(Me, d) <> "" Then found = True
Case Else : If cWorker_NCTS.readNCTS_Versandbestaetigung(Me, d) <> "" Then found = True
End Select
' If bezugsNr <> "" Then addDGVEinarbeitung("NCTS: Versandbestätigung", bezugsNr) : found = True
End If
'NCTS: Ueberlassungsmeldung
If Not found And cGetMsgType.isNCTS_Ueberlassungsmeldung(doc, VERSION) Then
Select Case VERSION
Case "008" : If cWorker_NCTS.readNCTS_Ueberlassungsmeldung008(Me, d, statusTMP) <> "" Then found = True ': MsgBox("005!")
Case "007" : If cWorker_NCTS.readNCTS_Ueberlassungsmeldung007(Me, d, statusTMP) <> "" Then found = True ': MsgBox("005!")
Case "006" : If cWorker_NCTS.readNCTS_Ueberlassungsmeldung006(Me, d, statusTMP) <> "" Then found = True ': MsgBox("005!")
Case "005" : If cWorker_NCTS.readNCTS_Ueberlassungsmeldung005(Me, d, statusTMP) <> "" Then found = True ': MsgBox("005!")
@@ -306,23 +320,41 @@ Public Class frmDYNachrichtenVerarbeitung
End If
'NCTS: AnrechnungReferenzbetraege
If Not found And cGetMsgType.isNCTS_AnrechnungReferenzbetraege(doc) Then
If cWorker_NCTS.readNCTS_AnrechnungReferenzbetraege(Me, d) <> "" Then found = True
If Not found And cGetMsgType.isNCTS_AnrechnungReferenzbetraege(doc, VERSION) Then
Select Case VERSION
Case "002" : If cWorker_NCTS.readNCTS_AnrechnungReferenzbetraege002(Me, d) <> "" Then found = True
Case Else : If cWorker_NCTS.readNCTS_AnrechnungReferenzbetraege(Me, d) <> "" Then found = True
End Select
End If
'NCTS: Erledigungsmeldung
If Not found And cGetMsgType.isNCTS_Erledigungsmeldung(doc) Then
If cWorker_NCTS.readNCTS_Erledigungsmeldung(Me, d) <> "" Then found = True
If Not found And cGetMsgType.isNCTS_Erledigungsmeldung(doc, VERSION) Then
Select Case VERSION
Case "003" : If cWorker_NCTS.readNCTS_Erledigungsmeldung003(Me, d) <> "" Then found = True
Case Else : If cWorker_NCTS.readNCTS_Erledigungsmeldung(Me, d) <> "" Then found = True
End Select
End If
'NCTS: Ereignismitteilung
If Not found And cGetMsgType.isNCTS_Ereignismitteilung(doc, VERSION) Then
Select Case VERSION
'Case "001" : If cWorker_NCTS.readNCTS_Erledigungsmeldung001(Me, d) <> "" Then found = True
Case Else : If cWorker_NCTS.readNCTS_Erledigungsmeldung001(Me, d) <> "" Then found = True
End Select
End If
'NCTS: StatusmeldungNCTSDE
If Not found And cGetMsgType.isNCTS_StatusmeldungNCTSDE(doc) Then
If cWorker_NCTS.readNCTS_StatusmeldungNCTSDE(Me, d) <> "" Then found = True
If Not found And cGetMsgType.isNCTS_StatusmeldungNCTSDE(doc, VERSION) Then
Select Case VERSION
Case "003" : If cWorker_NCTS.readNCTS_StatusmeldungNCTSDE003(Me, d) <> "" Then found = True
Case Else : If cWorker_NCTS.readNCTS_StatusmeldungNCTSDE(Me, d) <> "" Then found = True
End Select
End If
'NCTS: UngueltigkeitSicherheitenNCTSDE
If Not found And cGetMsgType.isNCTS_UngueltigkeitSicherheitenNCTSDE(doc, VERSION) Then
Select Case VERSION
Case "004" : If cWorker_NCTS.readNCTS_UngueltigkeitSicherheitenNCTSDE004(Me, d) <> "" Then found = True ': MsgBox("005!")
Case "003" : If cWorker_NCTS.readNCTS_UngueltigkeitSicherheitenNCTSDE003(Me, d) <> "" Then found = True ': MsgBox("005!")
Case Else : If cWorker_NCTS.readNCTS_UngueltigkeitSicherheitenNCTSDE(Me, d) <> "" Then found = True
End Select
@@ -5818,6 +5850,8 @@ Public Class frmDYNachrichtenVerarbeitung
Public Shared Sub tryGetFirmaNiederlassung(ByRef firma As String, ByRef niederlassung As String, Mail As String, BezugsNr As String)
If Mail.Contains("@imex") Then
firma = "IMEX"