ATLAS 9.1 NCTS
This commit is contained in:
@@ -55,9 +55,12 @@ Public Class cGetMsgType
|
||||
Return False
|
||||
End Function
|
||||
|
||||
Shared Function isNCTS_AnrechnungReferenzbetraege(doc As XmlDocument) As Boolean
|
||||
Shared Function isNCTS_AnrechnungReferenzbetraege(doc As XmlDocument, ByRef version As String) As Boolean
|
||||
If doc.HasChildNodes Then
|
||||
If doc.GetElementsByTagName("AnrechnungReferenzbetraegeNCTSDE").Count > 0 Then
|
||||
If doc.GetElementsByTagName("Version").Count > 0 Then
|
||||
version = doc.GetElementsByTagName("Version")(0).InnerText
|
||||
End If
|
||||
Return True
|
||||
End If
|
||||
End If
|
||||
@@ -67,9 +70,12 @@ Public Class cGetMsgType
|
||||
|
||||
|
||||
|
||||
Shared Function isNCTS_StatusmeldungNCTSDE(doc As XmlDocument) As Boolean
|
||||
Shared Function isNCTS_StatusmeldungNCTSDE(doc As XmlDocument, ByRef version As String) As Boolean
|
||||
If doc.HasChildNodes Then
|
||||
If doc.GetElementsByTagName("StatusmeldungNCTSDE").Count > 0 Then
|
||||
If doc.GetElementsByTagName("Version").Count > 0 Then
|
||||
version = doc.GetElementsByTagName("Version")(0).InnerText
|
||||
End If
|
||||
Return True
|
||||
End If
|
||||
End If
|
||||
@@ -92,9 +98,24 @@ Public Class cGetMsgType
|
||||
|
||||
|
||||
|
||||
Shared Function isNCTS_Erledigungsmeldung(doc As XmlDocument) As Boolean
|
||||
Shared Function isNCTS_Erledigungsmeldung(doc As XmlDocument, ByRef version As String) As Boolean
|
||||
If doc.HasChildNodes Then
|
||||
If doc.GetElementsByTagName("ErledigungsmeldungNCTSDE").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 isNCTS_Ereignismitteilung(doc As XmlDocument, ByRef version As String) As Boolean
|
||||
If doc.HasChildNodes Then
|
||||
If doc.GetElementsByTagName("EreignismitteilungNCTSDE").Count > 0 Then
|
||||
If doc.GetElementsByTagName("Version").Count > 0 Then
|
||||
version = doc.GetElementsByTagName("Version")(0).InnerText
|
||||
End If
|
||||
Return True
|
||||
End If
|
||||
End If
|
||||
@@ -536,6 +557,15 @@ Public Class cGetMsgType
|
||||
Return False
|
||||
End Function
|
||||
|
||||
Shared Function isNCTS_VersandanmeldungXML_DETPDD(doc As XmlDocument) As Boolean
|
||||
If doc.HasChildNodes Then
|
||||
If doc.GetElementsByTagName("DETPDD").Count > 0 Then
|
||||
Return True
|
||||
End If
|
||||
End If
|
||||
Return False
|
||||
End Function
|
||||
|
||||
Shared Function isNCTS_AnkunftsanzeigeXML(doc As XmlDocument) As Boolean
|
||||
If doc.HasChildNodes Then
|
||||
If doc.GetElementsByTagName("DETBAE").Count > 0 Then
|
||||
@@ -545,9 +575,12 @@ Public Class cGetMsgType
|
||||
Return False
|
||||
End Function
|
||||
|
||||
Shared Function isNCTS_Versandbestaetigung(doc As XmlDocument) As Boolean
|
||||
Shared Function isNCTS_Versandbestaetigung(doc As XmlDocument, ByRef version As String) As Boolean
|
||||
If doc.HasChildNodes Then
|
||||
If doc.GetElementsByTagName("VersandbestaetigungNCTSDE").Count > 0 Then
|
||||
If doc.GetElementsByTagName("Version").Count > 0 Then
|
||||
version = doc.GetElementsByTagName("Version")(0).InnerText
|
||||
End If
|
||||
Return True
|
||||
End If
|
||||
End If
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@@ -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"
|
||||
|
||||
20
initATLASAufschubkonten/frmStartOptions.Designer.vb
generated
20
initATLASAufschubkonten/frmStartOptions.Designer.vb
generated
@@ -155,7 +155,7 @@ Partial Class frmStartOptions
|
||||
Me.PictureBox18 = New System.Windows.Forms.PictureBox()
|
||||
Me.LinkLabel41 = New System.Windows.Forms.LinkLabel()
|
||||
Me.LinkLabel42 = New System.Windows.Forms.LinkLabel()
|
||||
Me.Label23 = New System.Windows.Forms.Label()
|
||||
Me.Label99 = New System.Windows.Forms.Label()
|
||||
Me.LinkLabel43 = New System.Windows.Forms.LinkLabel()
|
||||
Me.LinkLabel44 = New System.Windows.Forms.LinkLabel()
|
||||
Me.Label24 = New System.Windows.Forms.Label()
|
||||
@@ -747,7 +747,7 @@ Partial Class frmStartOptions
|
||||
Me.TabPage1.Controls.Add(Me.Button21)
|
||||
Me.TabPage1.Controls.Add(Me.Button20)
|
||||
Me.TabPage1.Controls.Add(Me.Button19)
|
||||
Me.TabPage1.Controls.Add(Me.Label23)
|
||||
Me.TabPage1.Controls.Add(Me.Label99)
|
||||
Me.TabPage1.Controls.Add(Me.Button18)
|
||||
Me.TabPage1.Controls.Add(Me.PictureBox20)
|
||||
Me.TabPage1.Controls.Add(Me.LinkLabel45)
|
||||
@@ -826,13 +826,13 @@ Partial Class frmStartOptions
|
||||
'
|
||||
'Label23
|
||||
'
|
||||
Me.Label23.AutoSize = True
|
||||
Me.Label23.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label23.Location = New System.Drawing.Point(582, 261)
|
||||
Me.Label23.Name = "Label23"
|
||||
Me.Label23.Size = New System.Drawing.Size(152, 13)
|
||||
Me.Label23.TabIndex = 78
|
||||
Me.Label23.Text = "AAS (Aviso-Alert-System):"
|
||||
Me.Label99.AutoSize = True
|
||||
Me.Label99.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label99.Location = New System.Drawing.Point(582, 261)
|
||||
Me.Label99.Name = "Label99"
|
||||
Me.Label99.Size = New System.Drawing.Size(152, 13)
|
||||
Me.Label99.TabIndex = 78
|
||||
Me.Label99.Text = "AAS (Aviso-Alert-System):"
|
||||
'
|
||||
'Button18
|
||||
'
|
||||
@@ -2851,7 +2851,7 @@ Partial Class frmStartOptions
|
||||
Friend WithEvents TabPage4 As TabPage
|
||||
Friend WithEvents LinkLabel41 As LinkLabel
|
||||
Friend WithEvents LinkLabel42 As LinkLabel
|
||||
Friend WithEvents Label23 As Label
|
||||
Friend WithEvents Label99 As Label
|
||||
Friend WithEvents LinkLabel43 As LinkLabel
|
||||
Friend WithEvents LinkLabel44 As LinkLabel
|
||||
Friend WithEvents Label24 As Label
|
||||
|
||||
Reference in New Issue
Block a user