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

NCTS 5

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-09-24 23:03:25 +02:00
parent a9591ca6a7
commit 04664a652b
10 changed files with 1664 additions and 100 deletions
Download Patch File Download Diff File Expand all files Collapse all files

46
initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
View File

@@ -278,6 +278,7 @@ Public Class frmDYNachrichtenVerarbeitung
'------------------------------------------
'------------------ NCTS ------------------
'------------------------------------------
' VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.SHOW 'TEEEEESSSSTTT
'NCTS: Versandanmeldung ATLAS 9.1
If Not found AndAlso cGetMsgType.isNCTS_VersandanmeldungXML_DETPDD(doc) Then
@@ -302,7 +303,9 @@ Public Class frmDYNachrichtenVerarbeitung
'NCTS: Versandbestätigung
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 "002"
If cWorker_NCTS.readNCTS004_Versandbestaetigung002(Me, d) <> "" Then found = True 'NEU
If Not found Then If cWorker_NCTS.readNCTS_Versandbestaetigung002(Me, d) <> "" Then found = True 'WENN NOCH ALT
Case Else : If cWorker_NCTS.readNCTS_Versandbestaetigung(Me, d) <> "" Then found = True
End Select
' If bezugsNr <> "" Then addDGVEinarbeitung("NCTS: Versandbestätigung", bezugsNr) : found = True
@@ -311,7 +314,9 @@ Public Class frmDYNachrichtenVerarbeitung
'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 "008"
If cWorker_NCTS.readNCTS004_Ueberlassungsmeldung008(Me, d, statusTMP) <> "" Then found = True 'NEU
If Not found Then If cWorker_NCTS.readNCTS_Ueberlassungsmeldung008(Me, d, statusTMP) <> "" Then found = True
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!")
@@ -322,7 +327,9 @@ Public Class frmDYNachrichtenVerarbeitung
'NCTS: AnrechnungReferenzbetraege
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 "002"
If cWorker_NCTS.readNCTS004_AnrechnungReferenzbetraege002(Me, d) <> "" Then found = True 'NEU
If Not found Then 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
@@ -330,7 +337,9 @@ Public Class frmDYNachrichtenVerarbeitung
'NCTS: Erledigungsmeldung
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 "003"
If cWorker_NCTS.readNCTS004_Erledigungsmeldung003(Me, d) <> "" Then found = True 'NEU
If Not found Then 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
@@ -338,15 +347,16 @@ Public Class frmDYNachrichtenVerarbeitung
'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
Case Else : If cWorker_NCTS.readNCTS_Ereignismitteilung(Me, d) <> "" Then found = True
End Select
End If
'NCTS: StatusmeldungNCTSDE
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 "003"
If cWorker_NCTS.readNCTS004_StatusmeldungNCTSDE003(Me, d) <> "" Then found = True 'NEU
If Not found Then 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
@@ -354,7 +364,9 @@ Public Class frmDYNachrichtenVerarbeitung
'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 "004"
If cWorker_NCTS.readNCTS004_UngueltigkeitSicherheitenNCTSDE004(Me, d) <> "" Then found = True 'NEU
If Not found Then 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
@@ -5848,6 +5860,24 @@ Public Class frmDYNachrichtenVerarbeitung
End Try
End Sub
Public Shared Sub tryGetNCTS004BasicData(ByRef NCTS_new As DAKOSY_Worker.cDakosyNCTSOut004)
'Try
' Dim WP_LIST_old As List(Of DAKOSY_Worker.cDakosy_NCTSOut004_HouseConsignment_ConsignmentItem) = DAKOSY_Worker.cDakosyNCTSOut.get_Warenposition(NCTS_new.ncts_Id)
' If WP_LIST_old IsNot Nothing And NCTS_new IsNot Nothing Then
' If WP_LIST_old IsNot Nothing And NCTS_new.ncts_WARENPOS IsNot Nothing Then
' For Each POS In NCTS_new.ncts_WARENPOS
' If WP_LIST_old.Count > NCTS_new.ncts_WARENPOS.IndexOf(POS) Then
' ' MsgBox(POS.nctsWP_KdRefNr & " --- " & WP_LIST_old(NCTS_new.ncts_WARENPOS.IndexOf(POS)).nctsWP_KdRefNr)
' POS.nctsWP_KdRefNr = WP_LIST_old(NCTS_new.ncts_WARENPOS.IndexOf(POS)).nctsWP_KdRefNr
' End If
' Next
' End If
' End If
'Catch ex As Exception
' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
'End Try
End Sub