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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2021-11-18 14:59:04 +01:00
parent 05280436a4
commit 98378dd496
51 changed files with 4647 additions and 763 deletions
Download Patch File Download Diff File Expand all files Collapse all files

108
initATLASAufschubkonten/cMAVIWorker.vb
View File

@@ -9,7 +9,7 @@ Public Class cMAVIWorker
Shared Partnersystem = "" ' FUnzt noch nciht --> leer für zuordnung guid mrn, sonst problem
Public Shared Function readNCTS_VersandanmeldungXML_CC015B(FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument) As String
Public Shared Function readNCTS_VersandanmeldungXML_CC015B(ncts_Partnersystem As String, FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument, ByRef NS_id As Integer) As String
Try
readNCTS_VersandanmeldungXML_CC015B = ""
Dim sw = New StringWriter()
@@ -39,7 +39,7 @@ Public Class cMAVIWorker
If NCTS Is Nothing Then NCTS = New VERAG_PROG_ALLGEMEIN.cNCTS_TR
NCTS.ncts_ObjectName = LRN
NCTS.ncts_Partnersystem = "MAVI"
NCTS.ncts_Partnersystem = ncts_Partnersystem
If doc.GetElementsByTagName("GuaRefNumGRNREF1").Count > 0 Then ' AndAlso doc.GetElementsByTagName("AmoConREF7").Count > 0 Then
@@ -63,6 +63,14 @@ Public Class cMAVIWorker
If NCTS.SAVE_ALL() Then
' If If(NCTS.ncts_Status, 0) <= 5 Then DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_TMP, DAKOSY_Worker.cDY_Statusliste.S_05,,,, statusTMP)
Dim NR As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Nachrichten()
NR.nctsNr_nctsId = NCTS.ncts_Id
NR.nctsNr_typ = "CC015B"
NR.nctsNr_path = ""
NR.nctsNr_LRN = LRN
NR.nctsNr_MRN = Nothing
NR.nctsNr_GUID = Nothing
If NR.SAVE() Then NS_id = NR.nctsNr_id
Else
readNCTS_VersandanmeldungXML_CC015B = ""
End If
@@ -90,7 +98,7 @@ Public Class cMAVIWorker
Public Shared Function readNCTS_VersandanmeldungXML_CC015B_RES(FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument) As String
Public Shared Function readNCTS_VersandanmeldungXML_CC015B_RES(ncts_Partnersystem As String, FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument, ByRef NS_id As Integer) As String
Try
readNCTS_VersandanmeldungXML_CC015B_RES = ""
Dim sw = New StringWriter()
@@ -121,7 +129,7 @@ Public Class cMAVIWorker
NCTS.ncts_ObjectName = LRN
NCTS.ncts_GUID = GUID
NCTS.ncts_Partnersystem = "MAVI"
NCTS.ncts_Partnersystem = ncts_Partnersystem
@@ -132,6 +140,14 @@ Public Class cMAVIWorker
If NCTS.SAVE_ALL() Then
' If If(NCTS.ncts_Status, 0) <= 5 Then DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_TMP, DAKOSY_Worker.cDY_Statusliste.S_05,,,, statusTMP)
Dim NR As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Nachrichten()
NR.nctsNr_nctsId = NCTS.ncts_Id
NR.nctsNr_typ = "CC15B_RES"
NR.nctsNr_path = ""
NR.nctsNr_LRN = LRN
NR.nctsNr_MRN = Nothing
NR.nctsNr_GUID = GUID
If NR.SAVE() Then NS_id = NR.nctsNr_id
Else
readNCTS_VersandanmeldungXML_CC015B_RES = ""
End If
@@ -157,7 +173,7 @@ Public Class cMAVIWorker
End Function
Public Shared Function readNCTS_BestaetigungZollXML_CC029B(FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument) As String
Public Shared Function readNCTS_BestaetigungZollXML_CC029B(ncts_Partnersystem As String, FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument, ByRef NS_id As Integer) As String
Try
readNCTS_BestaetigungZollXML_CC029B = ""
Dim sw = New StringWriter()
@@ -225,7 +241,7 @@ Public Class cMAVIWorker
If NCTS Is Nothing Then NCTS = New VERAG_PROG_ALLGEMEIN.cNCTS_TR
NCTS.ncts_ObjectName = LRN
NCTS.ncts_Partnersystem = "MAVI"
NCTS.ncts_Partnersystem = ncts_Partnersystem
NCTS.ncts_MRN = MRN
NCTS.ncts_Eroeffnung = If(Eroeffnung Is Nothing, Now.ToShortDateString, Eroeffnung)
NCTS.ncts_Wiedergestellungsdatum = Wiedergestellungsdatum
@@ -250,6 +266,14 @@ Public Class cMAVIWorker
If NCTS.SAVE_ALL() Then
' If If(NCTS.ncts_Status, 0) <= 5 Then DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_TMP, DAKOSY_Worker.cDY_Statusliste.S_05,,,, statusTMP)
Dim NR As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Nachrichten()
NR.nctsNr_nctsId = NCTS.ncts_Id
NR.nctsNr_typ = "CC029B"
NR.nctsNr_path = ""
NR.nctsNr_LRN = LRN
NR.nctsNr_MRN = MRN
NR.nctsNr_GUID = Nothing
If NR.SAVE() Then NS_id = NR.nctsNr_id
Else
readNCTS_BestaetigungZollXML_CC029B = ""
End If
@@ -277,7 +301,7 @@ Public Class cMAVIWorker
Public Shared Function readNCTS_ErledigungsmitteilungXML_CC045A(FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument) As String
Public Shared Function readNCTS_ErledigungsmitteilungXML_CC045A(ncts_Partnersystem As String, FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument, ByRef NS_id As Integer) As String
Try
readNCTS_ErledigungsmitteilungXML_CC045A = ""
Dim sw = New StringWriter()
@@ -313,7 +337,7 @@ Public Class cMAVIWorker
NCTS.ncts_Erledigung = TMSTMP.ToShortDateString
readNCTS_ErledigungsmitteilungXML_CC045A = MRN
NCTS.ncts_Partnersystem = "MAVI"
NCTS.ncts_Partnersystem = ncts_Partnersystem
If If(NCTS.ncts_Status, 0) <= 60 Then NCTS.ncts_Status = DAKOSY_Worker.cDY_Statusliste.S_60
@@ -321,6 +345,14 @@ Public Class cMAVIWorker
If NCTS.SAVE_ALL() Then
' If If(NCTS.ncts_Status, 0) <= 5 Then DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_TMP, DAKOSY_Worker.cDY_Statusliste.S_05,,,, statusTMP)
Dim NR As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Nachrichten()
NR.nctsNr_nctsId = NCTS.ncts_Id
NR.nctsNr_typ = "CC045A"
NR.nctsNr_path = ""
NR.nctsNr_LRN = Nothing
NR.nctsNr_MRN = MRN
NR.nctsNr_GUID = Nothing
If NR.SAVE() Then NS_id = NR.nctsNr_id
Else
readNCTS_ErledigungsmitteilungXML_CC045A = ""
End If
@@ -346,7 +378,7 @@ Public Class cMAVIWorker
End Try
End Function
Public Shared Function readNCTS_BestaetigungZollXML_ARR_INF(FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument) As String
Public Shared Function readNCTS_BestaetigungZollXML_ARR_INF(ncts_Partnersystem As String, FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument, ByRef NS_id As Integer) As String
Try
readNCTS_BestaetigungZollXML_ARR_INF = ""
Dim sw = New StringWriter()
@@ -377,7 +409,7 @@ Public Class cMAVIWorker
'NCTS.ncts_ObjectName = LRN
NCTS.ncts_GUID = GUID
NCTS.ncts_Partnersystem = "MAVI"
NCTS.ncts_Partnersystem = ncts_Partnersystem
NCTS.ncts_Ankunft = TMSTMP.ToShortDateString
readNCTS_BestaetigungZollXML_ARR_INF = GUID
@@ -386,6 +418,14 @@ Public Class cMAVIWorker
If NCTS.SAVE_ALL() Then
' If If(NCTS.ncts_Status, 0) <= 5 Then DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_TMP, DAKOSY_Worker.cDY_Statusliste.S_05,,,, statusTMP)
Dim NR As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Nachrichten()
NR.nctsNr_nctsId = NCTS.ncts_Id
NR.nctsNr_typ = "ARR_INF"
NR.nctsNr_path = ""
NR.nctsNr_LRN = Nothing
NR.nctsNr_MRN = Nothing
NR.nctsNr_GUID = GUID
If NR.SAVE() Then NS_id = NR.nctsNr_id
Else
readNCTS_BestaetigungZollXML_ARR_INF = ""
End If
@@ -412,7 +452,7 @@ Public Class cMAVIWorker
End Function
Public Shared Function readNCTS_AbbruchXML_CC009A(FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument) As String
Public Shared Function readNCTS_AbbruchXML_CC009A(ncts_Partnersystem As String, FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument, ByRef NS_id As Integer) As String
Try
readNCTS_AbbruchXML_CC009A = ""
Dim sw = New StringWriter()
@@ -446,7 +486,7 @@ Public Class cMAVIWorker
Dim NCTS As VERAG_PROG_ALLGEMEIN.cNCTS_TR = VERAG_PROG_ALLGEMEIN.cNCTS_TR.LOADByBezugsNr_or_GUID_or_MRN("", "", MRN, True,, Partnersystem)
If NCTS Is Nothing Then NCTS = New VERAG_PROG_ALLGEMEIN.cNCTS_TR
NCTS.ncts_Partnersystem = "MAVI"
NCTS.ncts_Partnersystem = ncts_Partnersystem
NCTS.ncts_MRN = MRN
@@ -457,6 +497,14 @@ Public Class cMAVIWorker
If NCTS.SAVE_ALL() Then
' If If(NCTS.ncts_Status, 0) <= 5 Then DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_TMP, DAKOSY_Worker.cDY_Statusliste.S_05,,,, statusTMP)
Dim NR As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Nachrichten()
NR.nctsNr_nctsId = NCTS.ncts_Id
NR.nctsNr_typ = "CC009A"
NR.nctsNr_path = ""
NR.nctsNr_LRN = Nothing
NR.nctsNr_MRN = MRN
NR.nctsNr_GUID = Nothing
If NR.SAVE() Then NS_id = NR.nctsNr_id
Else
readNCTS_AbbruchXML_CC009A = ""
End If
@@ -481,7 +529,7 @@ Public Class cMAVIWorker
Public Shared Function readNCTS_RueckweisungXML_CC016A(FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument) As String
Public Shared Function readNCTS_RueckweisungXML_CC016A(ncts_Partnersystem As String, FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument, ByRef NS_id As Integer) As String
Try
readNCTS_RueckweisungXML_CC016A = ""
Dim sw = New StringWriter()
@@ -514,7 +562,7 @@ Public Class cMAVIWorker
Dim NCTS As VERAG_PROG_ALLGEMEIN.cNCTS_TR = VERAG_PROG_ALLGEMEIN.cNCTS_TR.LOADByBezugsNr_or_GUID_or_MRN(LRN, "", "", True,, Partnersystem)
If NCTS Is Nothing Then NCTS = New VERAG_PROG_ALLGEMEIN.cNCTS_TR
NCTS.ncts_Partnersystem = "MAVI"
NCTS.ncts_Partnersystem = ncts_Partnersystem
NCTS.ncts_ObjectName = LRN
@@ -524,6 +572,14 @@ Public Class cMAVIWorker
readNCTS_RueckweisungXML_CC016A = LRN
If NCTS.SAVE_ALL() Then
' If If(NCTS.ncts_Status, 0) <= 5 Then DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_TMP, DAKOSY_Worker.cDY_Statusliste.S_05,,,, statusTMP)
Dim NR As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Nachrichten()
NR.nctsNr_nctsId = NCTS.ncts_Id
NR.nctsNr_typ = "CC016A"
NR.nctsNr_path = ""
NR.nctsNr_LRN = LRN
NR.nctsNr_MRN = Nothing
NR.nctsNr_GUID = Nothing
If NR.SAVE() Then NS_id = NR.nctsNr_id
Else
readNCTS_RueckweisungXML_CC016A = ""
End If
@@ -547,7 +603,7 @@ Public Class cMAVIWorker
End Function
Public Shared Function readNCTS_KeineFreigabeXML_CC051B(FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument) As String
Public Shared Function readNCTS_KeineFreigabeXML_CC051B(ncts_Partnersystem As String, FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument, ByRef NS_id As Integer) As String
Try
readNCTS_KeineFreigabeXML_CC051B = ""
Dim sw = New StringWriter()
@@ -580,7 +636,7 @@ Public Class cMAVIWorker
Dim NCTS As VERAG_PROG_ALLGEMEIN.cNCTS_TR = VERAG_PROG_ALLGEMEIN.cNCTS_TR.LOADByBezugsNr_or_GUID_or_MRN("", "", MRN, True,, Partnersystem)
If NCTS Is Nothing Then NCTS = New VERAG_PROG_ALLGEMEIN.cNCTS_TR
NCTS.ncts_Partnersystem = "MAVI"
NCTS.ncts_Partnersystem = ncts_Partnersystem
NCTS.ncts_MRN = MRN
@@ -591,6 +647,14 @@ Public Class cMAVIWorker
If NCTS.SAVE_ALL() Then
' If If(NCTS.ncts_Status, 0) <= 5 Then DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_TMP, DAKOSY_Worker.cDY_Statusliste.S_05,,,, statusTMP)
Dim NR As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Nachrichten()
NR.nctsNr_nctsId = NCTS.ncts_Id
NR.nctsNr_typ = "CC051B"
NR.nctsNr_path = ""
NR.nctsNr_LRN = Nothing
NR.nctsNr_MRN = MRN
NR.nctsNr_GUID = Nothing
If NR.SAVE() Then NS_id = NR.nctsNr_id
Else
readNCTS_KeineFreigabeXML_CC051B = ""
End If
@@ -613,7 +677,7 @@ Public Class cMAVIWorker
End Try
End Function
Public Shared Function readNCTS_BestaetigungZollXML_GUA_INF(FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument) As String
Public Shared Function readNCTS_BestaetigungZollXML_GUA_INF(ncts_Partnersystem As String, FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument, ByRef NS_id As Integer) As String
Try
readNCTS_BestaetigungZollXML_GUA_INF = ""
Dim sw = New StringWriter()
@@ -644,7 +708,7 @@ Public Class cMAVIWorker
'NCTS.ncts_ObjectName = LRN
NCTS.ncts_GUID = GUID
NCTS.ncts_Partnersystem = "MAVI"
NCTS.ncts_Partnersystem = ncts_Partnersystem
readNCTS_BestaetigungZollXML_GUA_INF = GUID
'If If(NCTS.ncts_Status, 0) <= 53 Then NCTS.ncts_Status = DAKOSY_Worker.cDY_Statusliste.S_53
@@ -673,6 +737,14 @@ Public Class cMAVIWorker
If NCTS.SAVE_ALL() Then
' If If(NCTS.ncts_Status, 0) <= 5 Then DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_TMP, DAKOSY_Worker.cDY_Statusliste.S_05,,,, statusTMP)
Dim NR As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Nachrichten()
NR.nctsNr_nctsId = NCTS.ncts_Id
NR.nctsNr_typ = "GUA_INF"
NR.nctsNr_path = ""
NR.nctsNr_LRN = Nothing
NR.nctsNr_MRN = Nothing
NR.nctsNr_GUID = GUID
If NR.SAVE() Then NS_id = NR.nctsNr_id
Else
readNCTS_BestaetigungZollXML_GUA_INF = ""
End If