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
2020-08-04 16:35:31 +02:00
parent 853d96140f
commit 41b13fe4b0
38 changed files with 603 additions and 256 deletions
Download Patch File Download Diff File Expand all files Collapse all files

133
initATLASAufschubkonten/cMAVIWorker.vb
View File

@@ -178,6 +178,38 @@ Public Class cMAVIWorker
End If
Dim Eroeffnung = Nothing
If doc.GetElementsByTagName("AccDatHEA158").Count > 0 Then
Try
Eroeffnung = Date.ParseExact(doc.GetElementsByTagName("AccDatHEA158")(0).InnerText, "yyyyMMdd", System.Globalization.DateTimeFormatInfo.InvariantInfo)
Catch ex As Exception
End Try
End If
Dim ncts_Befoerderungsmittel_KennzeichenAbgang = Nothing
If doc.GetElementsByTagName("IdeOfMeaOfTraAtDHEA78").Count > 0 Then
ncts_Befoerderungsmittel_KennzeichenAbgang = doc.GetElementsByTagName("IdeOfMeaOfTraAtDHEA78")(0).InnerText
End If
Dim ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend = Nothing
If doc.GetElementsByTagName("IdeOfMeaOfTraCroHEA85").Count > 0 Then
ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend = doc.GetElementsByTagName("IdeOfMeaOfTraCroHEA85")(0).InnerText
End If
Dim Wiedergestellungsdatum = Nothing
If doc.GetElementsByTagName("DatLimERS69").Count > 0 Then
Try
Wiedergestellungsdatum = Date.ParseExact(doc.GetElementsByTagName("DatLimERS69")(0).InnerText, "yyyyMMdd", System.Globalization.DateTimeFormatInfo.InvariantInfo)
Catch ex As Exception
End Try
End If
readNCTS_BestaetigungZollXML_CC029B = LRN
@@ -192,8 +224,11 @@ Public Class cMAVIWorker
NCTS.ncts_ObjectName = LRN
NCTS.ncts_Partnersystem = "MAVI"
NCTS.ncts_Eroeffnung = Now.ToShortDateString
NCTS.ncts_MRN = MRN
NCTS.ncts_Eroeffnung = If(Eroeffnung Is Nothing, Now.ToShortDateString, Eroeffnung)
NCTS.ncts_Wiedergestellungsdatum = Wiedergestellungsdatum
NCTS.ncts_Befoerderungsmittel_KennzeichenAbgang = ncts_Befoerderungsmittel_KennzeichenAbgang
NCTS.ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend = ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend
'If doc.GetElementsByTagName("GuaRefNumGRNREF1").Count > 0 AndAlso doc.GetElementsByTagName("AmoConREF7").Count > 0 Then
' Dim BRG As New cNCTSPartnerWorker.cNCTS_TR_Sicherheitsangaben
' BRG.nctsSA_GRN = doc.GetElementsByTagName("GuaRefNumGRNREF1")(0).InnerText
@@ -274,6 +309,7 @@ Public Class cMAVIWorker
' NCTS.ncts_GUID = Guid
NCTS.ncts_MRN = MRN
NCTS.ncts_Erledigung = TMSTMP.ToShortDateString
readNCTS_ErledigungsmitteilungXML_CC045A=MRN
NCTS.ncts_Partnersystem = "MAVI"
@@ -315,7 +351,7 @@ Public Class cMAVIWorker
Dim xw = New XmlTextWriter(sw)
doc.WriteTo(xw)
Dim XmlString = sw.ToString()
If XmlString.Contains("<ARR_INF") Then
If XmlString.Contains("<ARR_INF") Or XmlString.Contains("<ARRINF") Then
' Dim xmlCC015B = XmlString.Substring(XmlString.IndexOf("<CC015B>"), XmlString.IndexOf("</CC015B>") + 9 - XmlString.IndexOf("<CC015B>"))
' MsgBox(xmlCC015B)
' Dim p = Path.GetTempFileName
@@ -340,8 +376,8 @@ Public Class cMAVIWorker
NCTS.ncts_GUID = GUID
NCTS.ncts_Partnersystem = "MAVI"
NCTS.ncts_Ankunft = TMSTMP.toshortdatestring
NCTS.ncts_Ankunft = TMSTMP.ToShortDateString
readNCTS_BestaetigungZollXML_ARR_INF = GUID
If If(NCTS.ncts_Status, 0) <= 53 Then NCTS.ncts_Status = DAKOSY_Worker.cDY_Statusliste.S_53
NCTS.ncts_Status_KEWILL_Equivalent = NCTS.ncts_Status
@@ -374,6 +410,93 @@ Public Class cMAVIWorker
End Function
Public Shared Function readNCTS_BestaetigungZollXML_GUA_INF(FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument) As String
Try
readNCTS_BestaetigungZollXML_GUA_INF = ""
Dim sw = New StringWriter()
Dim xw = New XmlTextWriter(sw)
doc.WriteTo(xw)
Dim XmlString = sw.ToString()
If XmlString.Contains("<GUA_INF") Or XmlString.Contains("<GUAINF") Then
' Dim xmlCC015B = XmlString.Substring(XmlString.IndexOf("<CC015B>"), XmlString.IndexOf("</CC015B>") + 9 - XmlString.IndexOf("<CC015B>"))
' MsgBox(xmlCC015B)
' Dim p = Path.GetTempFileName
Dim GUID = ""
If doc.GetElementsByTagName("GUID").Count > 0 Then
GUID = doc.GetElementsByTagName("GUID")(0).InnerText
End If
Dim TMSTMP As Date
If doc.GetElementsByTagName("TMSTMP").Count > 0 Then
If IsDate(doc.GetElementsByTagName("TMSTMP")(0).InnerText) Then
TMSTMP = CDate(doc.GetElementsByTagName("TMSTMP")(0).InnerText)
End If
Dim AnsprechpTMP_Email = ""
Dim NCTS As cNCTSPartnerWorker.cNCTS_TR = cNCTSPartnerWorker.cNCTS_TR.LOADByGUID(GUID, True,, "MAVI")
If NCTS Is Nothing Then NCTS = New cNCTSPartnerWorker.cNCTS_TR
'NCTS.ncts_ObjectName = LRN
NCTS.ncts_GUID = GUID
NCTS.ncts_Partnersystem = "MAVI"
readNCTS_BestaetigungZollXML_GUA_INF = GUID
'If If(NCTS.ncts_Status, 0) <= 53 Then NCTS.ncts_Status = DAKOSY_Worker.cDY_Statusliste.S_53
'NCTS.ncts_Status_KEWILL_Equivalent = NCTS.ncts_Status
Dim GRN = ""
' Dim CurREF8 = ""
Dim AmoConREF7 = ""
If doc.GetElementsByTagName("GRN").Count > 0 Then
GRN = doc.GetElementsByTagName("GRN")(0).InnerText
End If
If doc.GetElementsByTagName("AmoConREF7").Count > 0 Then
AmoConREF7 = doc.GetElementsByTagName("AmoConREF7")(0).InnerText
End If
For Each GUA In NCTS.ncts_SICHERHEITSANGABEN
If GUA.nctsSA_GRN = GRN Then
GUA.nctsSA_AbgabenBetrag = AmoConREF7
End If
Next
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)
Else
readNCTS_BestaetigungZollXML_GUA_INF = ""
End If
'Try
' System.IO.File.Delete(p)
'Catch ex As Exception
' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
'End Try
FORM.addDGVEinarbeitung("NCTS: Garantie_Info", readNCTS_BestaetigungZollXML_GUA_INF)
' End Using
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)
readNCTS_BestaetigungZollXML_GUA_INF = ""
End Try
End Function
Shared Function getDatumXMLNothing(dateTmp) As Object
If dateTmp IsNot Nothing AndAlso dateTmp.ToString.Trim <> "" AndAlso IsDate(dateTmp) Then