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

6
initATLASAufschubkonten/AtlasAufschubDatenEinlesen.vb
View File

@@ -132,9 +132,9 @@ Module AtlasAufschubDatenEinlesen
Dim cn As New SqlConnection()
cn.ConnectionString = "Data Source=BUCHHALTUNG\SQLEXPRESS;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;"
cn.Open()
Dim cn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionADMIN
'cn.ConnectionString = "Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;"
'cn.Open()
Using cn
Using cmd As New SqlCommand(sql, cn)
cmd.Parameters.AddWithValue("@brgak_datum", brgak_datum)

10
initATLASAufschubkonten/EZollAufschubEinlesen.vb
View File

@@ -146,7 +146,7 @@ Public Class EZollAufschubEinlesen
End While
Return daten
Catch ex As Exception
writeLog("ERROR", "Fehler beim Laden der DB aus EZOLL: " & ex.Message)
writeLog("ERROR", "Fehler beim Laden der DB aus EZOLL: " & ex.Message & ex.StackTrace)
Finally
dr.Close()
End Try
@@ -156,7 +156,7 @@ Public Class EZollAufschubEinlesen
Return daten
End While
Catch ex As Exception
writeLog("ERROR", "Fehler bei der Verbindung zur DB EZOLL: " & ex.Message)
writeLog("ERROR", "Fehler bei der Verbindung zur DB EZOLL: " & ex.Message & ex.StackTrace)
End Try
Return Nothing
End Function
@@ -178,7 +178,7 @@ Public Class EZollAufschubEinlesen
" End " &
" commit tran "
Using conn As SqlConnection = GetNewOpenConnectionADMIN()
Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionADMIN ' GetNewOpenConnectionADMIN()
Using cmd As New SqlCommand(sql, conn)
Select Case daten.Abgabenart
@@ -216,9 +216,9 @@ Public Class EZollAufschubEinlesen
cn.Open()
Return cn
End Function
Public Shared Function GetNewOpenConnectionADMIN() As SqlConnection
Public Shared Function GetNewOpenConnectionADMIN_OLD() As SqlConnection
Dim cn As New SqlConnection()
cn.ConnectionString = "Data Source=BUCHHALTUNG\SQLEXPRESS;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;"
cn.ConnectionString = "Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;"
cn.Open()
Return cn
End Function

4
initATLASAufschubkonten/cBuergschaften.vb
View File

@@ -152,10 +152,10 @@ Public Class cBuergschaften
'MsgBox("start")
Dim cnt As Integer = 0
Dim dr As SqlDataReader
Dim sql As String = "SELECT * FROM ezoll.dbo.vwVERAG_Zolaris_EZoll_NCTS_Datenübernahme"
Dim sql As String = "SELECT * FROM ezoll.dbo.vwVERAG_Zolaris_EZoll_NCTS_Datenübernahme"
If Not history Then sql &= " WHERE [AnmeldungsDatum] > DATEADD(DAY, - 10, GETDATE())" 'letzten 10 Tage
Dim sqlConn As SqlConnection = GetNewOpenConnectionBUCHHALTUNG()
Dim sqlConn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionEZOLL
' setLabel(frmAtlasAufschub.lbBrgAtlasSuben, "einlesen ...")
Using conn As SqlConnection = sqlConn

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

18
initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
View File

@@ -43,6 +43,7 @@ Public Class frmDYNachrichtenVerarbeitung
'VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\TESTSYSTEM\Nachrichtendaten_Ablage\"
Me.ERROR_PFAD = DAKOSY_Worker.cDY_Paramter.GET_PARAM_ByName("ERROR_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
'VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\TESTSYSTEM\Nachrichtendaten_ERROR\"
If Not IO.Directory.Exists(VERARBEITUNGS_PFAD) Then IO.Directory.CreateDirectory(VERARBEITUNGS_PFAD)
If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
If Not IO.Directory.Exists(ERROR_PFAD) Then IO.Directory.CreateDirectory(ERROR_PFAD)
@@ -5082,7 +5083,8 @@ Public Class frmDYNachrichtenVerarbeitung
Dim MailTo = "eu@verag.ag"
Select Case EZA_TMP.eza_firma
Case "IMEX" : MailTo = "info@imex-group.at"
Case "ATILLA" : MailTo = "info@imex-group.at"
Case "UNISPED" : MailTo = "office@unisped.at"
Case "ATILLA" : MailTo = "atilla@verag.ag"
Case "VERAG"
Select Case EZA_TMP.eza_niederlassung
Case "WAI" : MailTo = "waidhaus@verag.com"
@@ -5273,7 +5275,8 @@ Public Class frmDYNachrichtenVerarbeitung
Dim MailTo = "eu@verag.ag"
Select Case EZA_TMP.eza_firma
Case "IMEX" : MailTo = "info@imex-group.at"
Case "ATILLA" : MailTo = "info@imex-group.at"
Case "ATILLA" : MailTo = "atilla@verag.ag"
Case "UNISPED" : MailTo = "office@unisped.at"
Case "VERAG"
Select Case EZA_TMP.eza_niederlassung
Case "WAI" : MailTo = "waidhaus@verag.com"
@@ -5464,7 +5467,8 @@ Public Class frmDYNachrichtenVerarbeitung
Dim MailTo = "eu@verag.ag"
Select Case EZA_TMP.eza_firma
Case "IMEX" : MailTo = "info@imex-group.at"
Case "ATILLA" : MailTo = "info@imex-group.at"
Case "ATILLA" : MailTo = "atilla@verag.ag"
Case "UNISPED" : MailTo = "office@unisped.at"
Case "VERAG"
Select Case EZA_TMP.eza_niederlassung
Case "WAI" : MailTo = "waidhaus@verag.com"
@@ -5596,9 +5600,11 @@ Public Class frmDYNachrichtenVerarbeitung
Dim cn As New System.Data.SqlClient.SqlConnection()
cn.ConnectionString = "Data Source=BUCHHALTUNG\SQLEXPRESS;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;"
cn.Open()
Dim cn As System.Data.SqlClient.SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionADMIN
'Dim cn As New System.Data.SqlClient.SqlConnection()
'cn.ConnectionString = "Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;"
'cn.Open()
Using cn
Using cmd As New System.Data.SqlClient.SqlCommand(sql, cn)
cmd.Parameters.AddWithValue("@brgak_datum", brgak_datum)

2
initATLASAufschubkonten/frmRoutineManager.vb
View File

@@ -101,7 +101,7 @@ Public Class frmRoutineManager
setLabel(lblStatusEZOLL, "OK", "green")
' frmAtlasAufschub.lblStatusEZOLL.ForeColor = Color.Green
Catch ex As Exception
writeLog("ERROR", "Fehler EZollAufschub: " & ex.Message)
writeLog("ERROR", "Fehler EZollAufschub: " & ex.Message & ex.StackTrace)
setLabel(lblStatusEZOLL, "ERROR", "red")
' frmAtlasAufschub.lblStatusEZOLL.ForeColor = Color.Red
Finally

23
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -89,6 +89,20 @@ Public Class frmStartOptions
f.Show()
AddHandler f.FormClosed, AddressOf closeMe
Case "NCTSTR_EINARBEITUNG_TEST"
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
Dim f As New frmTRNCTS_NachrichtenVerarbeitung(True)
Me.Visible = False
f.Show()
AddHandler f.FormClosed, AddressOf closeMe
Case "NCTSTR_EINARBEITUNG_PROD"
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
Dim f As New frmTRNCTS_NachrichtenVerarbeitung(True)
Me.Visible = False
f.Show()
AddHandler f.FormClosed, AddressOf closeMe
Case "DY_EINARBEITUNG_UNISPED"
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED"
@@ -185,7 +199,7 @@ Public Class frmStartOptions
Sub importFileFromEZOLL(datum As Date)
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
Dim dt As DataTable = sql.loadDgvBySql("SELECT [zzAktivitaet].LizenzNr,[zzAktivitaet].Operatorid,[zzAktivitaet].AnmID,MsgTyp,[zzAktivitaet].ErstelltAm,pfad,LRN,CRN FROM [ezoll].[dbo].[zzAktivitaet] INNER JOIN zsAnmRefs On zsAnmrefs.AnmID=zzAktivitaet.AnmID
Dim dt As DataTable = sql.loadDgvBySql("SELECT [zzAktivitaet].LizenzNr,[zzAktivitaet].Operatorid,[zzAktivitaet].AnmID,MsgTyp,[zzAktivitaet].ErstelltAm,pfad,LRN,CRN FROM [zzAktivitaet] INNER JOIN zsAnmRefs On zsAnmrefs.AnmID=zzAktivitaet.AnmID
where MsgTyp IN ('EZ922','EZ923','TR109') and ErstelltAm>='" & datum.ToShortDateString & " 00:00:00' and pfad is not null", "EZOLL")
If dt IsNot Nothing Then
For Each row In dt.Rows
@@ -1197,4 +1211,11 @@ Public Class frmStartOptions
End Function
Private Sub LinkLabel29_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel29.LinkClicked
Me.Visible = False
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
Dim f As New frmTRNCTS_NachrichtenVerarbeitung
f.ShowDialog()
Me.Visible = True
End Sub
End Class

2
initATLASAufschubkonten/frmTCNachrichtenVerarbeitung.vb
View File

@@ -889,7 +889,7 @@ Public Class frmTCNachrichtenVerarbeitung
Dim cn As New System.Data.SqlClient.SqlConnection()
cn.ConnectionString = "Data Source=BUCHHALTUNG\SQLEXPRESS;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;"
cn.ConnectionString = "Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;"
cn.Open()
Using cn
Using cmd As New System.Data.SqlClient.SqlCommand(sql, cn)

195
initATLASAufschubkonten/frmTRNCTS_NachrichtenVerarbeitung.vb
View File

@@ -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