neu

2020-06-22 13:32:28 +02:00
parent 3d67139c09
commit 2d85480c4c
25 changed files with 30373 additions and 2360 deletions
--- a/initATLASAufschubkonten/cMAVIWorker.vb
+++ b/initATLASAufschubkonten/cMAVIWorker.vb
@@ -35,8 +35,8 @@ Public Class cMAVIWorker


                Dim AnsprechpTMP_Email = ""
-                    Dim NCTS As cNCTSPartnerWorker.cNCTS_TR = cNCTSPartnerWorker.cNCTS_TR.LOADByBezugsNr(LRN, True)
-                    If NCTS Is Nothing Then NCTS = New cNCTSPartnerWorker.cNCTS_TR
+                Dim NCTS As cNCTSPartnerWorker.cNCTS_TR = cNCTSPartnerWorker.cNCTS_TR.LOADByBezugsNr(LRN, True,, "MAVI")
+                If NCTS Is Nothing Then NCTS = New cNCTSPartnerWorker.cNCTS_TR
                    NCTS.ncts_ObjectName = LRN

                    NCTS.ncts_Partnersystem = "MAVI"
@@ -88,6 +88,73 @@ Public Class cMAVIWorker



+    Public Shared Function readNCTS_VersandanmeldungXML_CC015B_RES(FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument) As String
+        Try
+            readNCTS_VersandanmeldungXML_CC015B_RES = ""
+            Dim sw = New StringWriter()
+            Dim xw = New XmlTextWriter(sw)
+            doc.WriteTo(xw)
+            Dim XmlString = sw.ToString()
+            If XmlString.Contains("<CC015B_RES") Then
+                '   Dim xmlCC015B = XmlString.Substring(XmlString.IndexOf("<CC015B>"), XmlString.IndexOf("</CC015B>") + 9 - XmlString.IndexOf("<CC015B>"))
+                '  MsgBox(xmlCC015B)
+                '  Dim p = Path.GetTempFileName
+
+                Dim LRN = ""
+                Dim GUID = ""
+                If doc.GetElementsByTagName("LRN").Count > 0 Then
+                    LRN = doc.GetElementsByTagName("LRN")(0).InnerText
+                End If
+
+                readNCTS_VersandanmeldungXML_CC015B_RES = LRN
+
+                If doc.GetElementsByTagName("GUID").Count > 0 Then
+                    GUID = doc.GetElementsByTagName("GUID")(0).InnerText
+                End If
+
+
+                Dim AnsprechpTMP_Email = ""
+                Dim NCTS As cNCTSPartnerWorker.cNCTS_TR = cNCTSPartnerWorker.cNCTS_TR.LOADByBezugsNr_or_GUID_or_MRN(LRN, 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"
+
+
+
+
+                If If(NCTS.ncts_Status, 0) <= 5 Then NCTS.ncts_Status = DAKOSY_Worker.cDY_Statusliste.S_05
+                ' If If(NCTS.ncts_Status_KEWILL_Equivalent, 0) <= 5 Then NCTS.ncts_Status_KEWILL_Equivalent = DAKOSY_Worker.cDY_Statusliste.S_05
+                NCTS.ncts_Status_KEWILL_Equivalent = NCTS.ncts_Status
+
+                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_VersandanmeldungXML_CC015B_RES = ""
+                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: Versandanmeldung - Ergänzung GUID", readNCTS_VersandanmeldungXML_CC015B_RES)
+
+                '    End Using
+
+            End If
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            readNCTS_VersandanmeldungXML_CC015B_RES = ""
+        End Try
+    End Function
+
+
    Public Shared Function readNCTS_BestaetigungZollXML_CC029B(FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument) As String
        Try
            readNCTS_BestaetigungZollXML_CC029B = ""
@@ -105,6 +172,12 @@ Public Class cMAVIWorker
                    LRN = doc.GetElementsByTagName("RefNumHEA4")(0).InnerText
                End If

+                Dim MRN = ""
+                If doc.GetElementsByTagName("DocNumHEA5").Count > 0 Then
+                    MRN = doc.GetElementsByTagName("DocNumHEA5")(0).InnerText
+                End If
+
+
                readNCTS_BestaetigungZollXML_CC029B = LRN


@@ -114,12 +187,12 @@ Public Class cMAVIWorker


                    Dim AnsprechpTMP_Email = ""
-                    Dim NCTS As cNCTSPartnerWorker.cNCTS_TR = cNCTSPartnerWorker.cNCTS_TR.LOADByBezugsNr(LRN, True)
+                    Dim NCTS As cNCTSPartnerWorker.cNCTS_TR = cNCTSPartnerWorker.cNCTS_TR.LOADByBezugsNr_or_GUID_or_MRN(LRN, "", MRN, True,, "MAVI")
                    If NCTS Is Nothing Then NCTS = New cNCTSPartnerWorker.cNCTS_TR
                    NCTS.ncts_ObjectName = LRN

                    NCTS.ncts_Partnersystem = "MAVI"
-
+                    NCTS.ncts_Eroeffnung = Now.ToShortDateString

                    'If doc.GetElementsByTagName("GuaRefNumGRNREF1").Count > 0 AndAlso doc.GetElementsByTagName("AmoConREF7").Count > 0 Then
                    '    Dim BRG As New cNCTSPartnerWorker.cNCTS_TR_Sicherheitsangaben
@@ -165,6 +238,143 @@ Public Class cMAVIWorker
    End Function


+
+
+    Public Shared Function readNCTS_ErledigungsmitteilungXML_CC045A(FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument) As String
+        Try
+            readNCTS_ErledigungsmitteilungXML_CC045A = ""
+            Dim sw = New StringWriter()
+            Dim xw = New XmlTextWriter(sw)
+            doc.WriteTo(xw)
+            Dim XmlString = sw.ToString()
+            If XmlString.Contains("<CC045A") Then
+                '   Dim xmlCC015B = XmlString.Substring(XmlString.IndexOf("<CC015B>"), XmlString.IndexOf("</CC015B>") + 9 - XmlString.IndexOf("<CC015B>"))
+                '  MsgBox(xmlCC015B)
+                '  Dim p = Path.GetTempFileName
+
+
+                Dim MRN = ""
+                If doc.GetElementsByTagName("DocNumHEA5").Count > 0 Then
+                    MRN = doc.GetElementsByTagName("DocNumHEA5")(0).InnerText
+                End If
+
+                Dim TMSTMP As Date
+                If doc.GetElementsByTagName("WriOffDatHEA619").Count > 0 Then
+                    'If IsDate(doc.GetElementsByTagName("WriOffDatHEA619")(0).InnerText) Then
+                    '    TMSTMP = CDate(doc.GetElementsByTagName("WriOffDatHEA619")(0).InnerText)
+                    'End If
+                    Try
+                        TMSTMP = Date.ParseExact(doc.GetElementsByTagName("WriOffDatHEA619")(0).InnerText, "yyyyMMdd", System.Globalization.DateTimeFormatInfo.InvariantInfo)
+                    Catch ex As Exception
+                    End Try
+
+                    Dim NCTS As cNCTSPartnerWorker.cNCTS_TR = cNCTSPartnerWorker.cNCTS_TR.LOADByMRN(MRN, True,, "MAVI")
+                    If NCTS Is Nothing Then NCTS = New cNCTSPartnerWorker.cNCTS_TR
+                    'NCTS.ncts_ObjectName = LRN 
+                    '  NCTS.ncts_GUID = Guid
+                    NCTS.ncts_MRN = MRN
+                    NCTS.ncts_Erledigung = TMSTMP.ToShortDateString
+
+                    NCTS.ncts_Partnersystem = "MAVI"
+
+
+                    If If(NCTS.ncts_Status, 0) <= 60 Then NCTS.ncts_Status = DAKOSY_Worker.cDY_Statusliste.S_60
+                    NCTS.ncts_Status_KEWILL_Equivalent = NCTS.ncts_Status
+
+                    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_ErledigungsmitteilungXML_CC045A = ""
+                    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: Erledigungsmitteilung", readNCTS_ErledigungsmitteilungXML_CC045A)
+
+                    '    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_ErledigungsmitteilungXML_CC045A = ""
+        End Try
+    End Function
+
+    Public Shared Function readNCTS_BestaetigungZollXML_ARR_INF(FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument) As String
+        Try
+            readNCTS_BestaetigungZollXML_ARR_INF = ""
+            Dim sw = New StringWriter()
+            Dim xw = New XmlTextWriter(sw)
+            doc.WriteTo(xw)
+            Dim XmlString = sw.ToString()
+            If XmlString.Contains("<ARR_INF") 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"
+                    NCTS.ncts_Ankunft = TMSTMP.toshortdatestring
+
+
+                    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
+
+                    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_ARR_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: Ankunftsanzeige", readNCTS_BestaetigungZollXML_ARR_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_ARR_INF = ""
+        End Try
+    End Function
+
+
+
    Shared Function getDatumXMLNothing(dateTmp) As Object
        If dateTmp IsNot Nothing AndAlso dateTmp.ToString.Trim <> "" AndAlso IsDate(dateTmp) Then
            Dim datum As Date = CDate(dateTmp).ToShortDateString()