neu
This commit is contained in:
@@ -99,6 +99,39 @@ Public Class frmTRNCTS_NachrichtenVerarbeitung
|
||||
Function getNachrichtenDatenFromMAVIServices() As Integer
|
||||
Dim cnt = 0
|
||||
Try
|
||||
Dim SERVER_Path = ""
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
|
||||
|
||||
SERVER_Path = "\\ftps.verag.ag\FTP\MAVI\IN\"
|
||||
Else
|
||||
|
||||
SERVER_Path = "\\ftps.verag.ag\FTP\MAVI\IN\"
|
||||
End If
|
||||
|
||||
|
||||
For Each f In IO.Directory.GetFiles(SERVER_Path)
|
||||
Dim fi As New IO.FileInfo(f)
|
||||
If Not fi.Name.StartsWith(".") Then
|
||||
Dim zielPfad = VERARBEITUNGS_PFAD & "\" & fi.Name
|
||||
While IO.File.Exists(zielPfad)
|
||||
zielPfad = VERARBEITUNGS_PFAD & "\" & Now.ToString("yyyyMMdd_HHmmss_") & fi.Name
|
||||
End While
|
||||
IO.File.Copy(f, zielPfad)
|
||||
If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
|
||||
If IO.File.Exists(zielPfad) Then IO.File.Delete(f)
|
||||
End If
|
||||
|
||||
ListBox3.Items.Add(frmStartOptions.cut_file((New FileInfo(zielPfad)).Name)) 'zur Liste hinzufügen
|
||||
|
||||
cnt += 1
|
||||
End If
|
||||
Next
|
||||
|
||||
|
||||
Return cnt
|
||||
|
||||
|
||||
Dim NCTSTR_server = ""
|
||||
Dim NCTSTR_name = ""
|
||||
Dim NCTSTR_pwd = ""
|
||||
@@ -120,7 +153,7 @@ Public Class frmTRNCTS_NachrichtenVerarbeitung
|
||||
Do While reader.Peek <> -1
|
||||
Dim fName = reader.ReadLine
|
||||
|
||||
|
||||
MsgBox(fName)
|
||||
Loop
|
||||
End Using
|
||||
|
||||
@@ -261,96 +294,105 @@ Public Class frmTRNCTS_NachrichtenVerarbeitung
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
For Each d In System.IO.Directory.GetFiles(VERARBEITUNGS_PFAD)
|
||||
Try
|
||||
Dateiname = d
|
||||
cWorker_NCTS.Dateiname = d
|
||||
If IO.File.Exists(d) Then
|
||||
Dim found = False
|
||||
Dim fi As FileInfo = New FileInfo(d)
|
||||
|
||||
' EDIFACT
|
||||
' If fi.Extension = ".edi" Then
|
||||
Dim alreadyMoved = False
|
||||
If fi.Extension.ToLower = ".xml" Then
|
||||
Dim xmlWriterSettings As XmlWriterSettings = New XmlWriterSettings With {.Encoding = System.Text.Encoding.UTF8, .CheckCharacters = True}
|
||||
For NACHRICHTENTYP = 1 To 10 'Nach Nachrichtentyp abarbeteiten
|
||||
|
||||
Dim doc As New XmlDocument()
|
||||
Dim XML_Code = System.IO.File.ReadAllText(d, System.Text.UTF8Encoding.Default)
|
||||
For Each d In System.IO.Directory.GetFiles(VERARBEITUNGS_PFAD)
|
||||
Try
|
||||
Dateiname = d
|
||||
cWorker_NCTS.Dateiname = d
|
||||
If IO.File.Exists(d) Then
|
||||
Dim found = False
|
||||
Dim fi As FileInfo = New FileInfo(d)
|
||||
|
||||
doc.LoadXml(SanitizeXmlString(XML_Code))
|
||||
Dim VERSION As String = ""
|
||||
' EDIFACT
|
||||
' If fi.Extension = ".edi" Then
|
||||
Dim alreadyMoved = False
|
||||
|
||||
'------------------------------------------------------------------------------------------------------------------------------
|
||||
' eZOLL
|
||||
'------------------------------------------------------------------------------------------------------------------------------
|
||||
Dim NACHRICHTENTYP_notfound = False
|
||||
|
||||
If fi.Extension.ToLower = ".xml" Then
|
||||
Dim xmlWriterSettings As XmlWriterSettings = New XmlWriterSettings With {.Encoding = System.Text.Encoding.UTF8, .CheckCharacters = True}
|
||||
|
||||
Dim doc As New XmlDocument()
|
||||
Dim XML_Code = System.IO.File.ReadAllText(d, System.Text.UTF8Encoding.Default)
|
||||
|
||||
doc.LoadXml(SanitizeXmlString(XML_Code))
|
||||
Dim VERSION As String = ""
|
||||
|
||||
'------------------------------------------------------------------------------------------------------------------------------
|
||||
' eZOLL
|
||||
'------------------------------------------------------------------------------------------------------------------------------
|
||||
|
||||
|
||||
'------------------------------------------
|
||||
'------------------ Anmeldung ------------------
|
||||
'------------------------------------------
|
||||
'MAVI: CC015B - Versandanmeldung Final
|
||||
'------------------------------------------
|
||||
'------------------ Anmeldung ------------------
|
||||
'------------------------------------------
|
||||
'MAVI: CC015B - Versandanmeldung Final
|
||||
|
||||
'NCTS: Versandanmeldung
|
||||
If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_VersandanmeldungXML_CC015B(doc) Then
|
||||
MsgBox("CC015B")
|
||||
If cMAVIWorker.readNCTS_VersandanmeldungXML_CC015B(Me, doc) <> "" Then found = True
|
||||
End If
|
||||
Select Case NACHRICHTENTYP
|
||||
Case 1
|
||||
'NCTS: Versandanmeldung
|
||||
If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_VersandanmeldungXML_CC015B(doc) Then
|
||||
If cMAVIWorker.readNCTS_VersandanmeldungXML_CC015B(Me, doc) <> "" Then found = True
|
||||
End If
|
||||
|
||||
'NCTS: Versandanmeldung - Ergänzung GUID
|
||||
If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_VersandanmeldungXML_CC015B_RES(doc) Then
|
||||
MsgBox("CC015B_RES")
|
||||
If cMAVIWorker.readNCTS_VersandanmeldungXML_CC015B_RES(Me, doc) <> "" Then found = True
|
||||
Case 2
|
||||
'NCTS: Versandanmeldung - Ergänzung GUID
|
||||
If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_VersandanmeldungXML_CC015B_RES(doc) Then
|
||||
If cMAVIWorker.readNCTS_VersandanmeldungXML_CC015B_RES(Me, doc) <> "" Then found = True
|
||||
End If
|
||||
Case 3
|
||||
'NCTS: BestätigungZoll
|
||||
If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_BestaetigungZollXML_CC029B(doc) Then
|
||||
If cMAVIWorker.readNCTS_BestaetigungZollXML_CC029B(Me, doc) <> "" Then found = True
|
||||
End If
|
||||
Case 4
|
||||
'NCTS: Guarantee
|
||||
If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_BestaetigungZollXML_GUA_INF(doc) Then
|
||||
If cMAVIWorker.readNCTS_BestaetigungZollXML_GUA_INF(Me, doc) <> "" Then found = True
|
||||
End If
|
||||
Case 5
|
||||
'NCTS: Ankunftsanzeige
|
||||
If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_BestaetigungZollXML_ARR_INF(doc) Then
|
||||
If cMAVIWorker.readNCTS_BestaetigungZollXML_ARR_INF(Me, doc) <> "" Then found = True
|
||||
End If
|
||||
|
||||
Case 6
|
||||
'NCTS: Erledigungsmitteilung
|
||||
If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_ErledigungsmitteilungXML_CC045A(doc) Then
|
||||
If cMAVIWorker.readNCTS_ErledigungsmitteilungXML_CC045A(Me, doc) <> "" Then found = True
|
||||
End If
|
||||
|
||||
Case 10
|
||||
NACHRICHTENTYP_notfound = True ' alle nciht zu verarbeitenden
|
||||
End Select
|
||||
End If
|
||||
|
||||
|
||||
|
||||
'NCTS: BestätigungZoll
|
||||
If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_BestaetigungZollXML_CC029B(doc) Then
|
||||
MsgBox("CC029B")
|
||||
If cMAVIWorker.readNCTS_BestaetigungZollXML_CC029B(Me, doc) <> "" Then found = True
|
||||
End If
|
||||
|
||||
''NCTS: Guarantee
|
||||
'If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_BestaetigungZollXML_GUA_INF(doc) Then
|
||||
' MsgBox("GUA_INF")
|
||||
' If cMAVIWorker.readNCTS_BestaetigungZollXML_GUA_INF(Me, doc) <> "" Then found = True
|
||||
'End If
|
||||
|
||||
'NCTS: Ankunftsanzeige
|
||||
If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_BestaetigungZollXML_ARR_INF(doc) Then
|
||||
MsgBox("ARR_INF")
|
||||
If cMAVIWorker.readNCTS_BestaetigungZollXML_ARR_INF(Me, doc) <> "" Then found = True
|
||||
End If
|
||||
|
||||
|
||||
'NCTS: Erledigungsmitteilung
|
||||
If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_ErledigungsmitteilungXML_CC045A(doc) Then
|
||||
MsgBox("CC045A")
|
||||
If cMAVIWorker.readNCTS_ErledigungsmitteilungXML_CC045A(Me, doc) <> "" Then found = True
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
If True Then
|
||||
If Not alreadyMoved Then
|
||||
If found Then
|
||||
If Not IO.Directory.Exists(ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\") Then IO.Directory.CreateDirectory(ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
|
||||
frmStartOptions.moveFile(d, ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
|
||||
Else
|
||||
frmStartOptions.moveFile(d, ERROR_PFAD)
|
||||
If found Then
|
||||
If Not IO.Directory.Exists(ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\") Then IO.Directory.CreateDirectory(ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
|
||||
frmStartOptions.moveFile(d, ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
|
||||
cntDatenEingelesen += 1
|
||||
Else
|
||||
If NACHRICHTENTYP_notfound Then
|
||||
frmStartOptions.moveFile(d, ERROR_PFAD) ' nciht gefunden, oder durch ERROR nicht eingearbt,.
|
||||
dsNichtErkannt += 1
|
||||
End If
|
||||
|
||||
End If
|
||||
' If found Then Else dsNichtErkannt += 1
|
||||
|
||||
Me.Refresh()
|
||||
End If
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
Next
|
||||
|
||||
|
||||
Me.Refresh()
|
||||
If found Then cntDatenEingelesen += 1 Else dsNichtErkannt += 1
|
||||
End If
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
Next
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -362,7 +404,6 @@ Public Class frmTRNCTS_NachrichtenVerarbeitung
|
||||
Dim xw = New XmlTextWriter(sw)
|
||||
doc.WriteTo(xw)
|
||||
Dim XmlString = sw.ToString()
|
||||
MsgBox(XmlString)
|
||||
End If
|
||||
Return False
|
||||
End Function
|
||||
@@ -522,8 +563,8 @@ Public Class frmTRNCTS_NachrichtenVerarbeitung
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub pnl_Paint(sender As Object, e As PaintEventArgs) Handles pnl.Paint
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
|
||||
Reference in New Issue
Block a user