NCTS_TR CC015B, ATLAS Codelisten, BugFixes DY Nachrichtenverarbeitung, EZOLL: Zollbeleg versenden
This commit is contained in:
@@ -3,6 +3,7 @@ Imports System.Globalization
|
||||
Imports System.Xml
|
||||
Imports Renci.SshNet
|
||||
Imports System.Net.Mail
|
||||
Imports DocumentFormat.OpenXml.Drawing.Diagrams
|
||||
|
||||
Public Class frmTCNachrichtenVerarbeitung
|
||||
Dim cntDatenEingelesen As Integer = 0
|
||||
@@ -103,14 +104,14 @@ Public Class frmTCNachrichtenVerarbeitung
|
||||
Dim FI As New FileInfo(f)
|
||||
If Not FI.Name.StartsWith(".") Then
|
||||
'Temp. DownloadPfad
|
||||
Dim destFilenameTMP = VERARBEITUNGS_PFAD + "." & If(IO.File.Exists(VERARBEITUNGS_PFAD & "." & fi.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & fi.Name
|
||||
Dim destFilenameTMP = VERARBEITUNGS_PFAD + "." & If(IO.File.Exists(VERARBEITUNGS_PFAD & "." & FI.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & FI.Name
|
||||
|
||||
'Datei herunterladen
|
||||
IO.File.Copy(f, destFilenameTMP)
|
||||
If IO.File.Exists(destFilenameTMP) Then IO.File.Delete(f) 'Datei nach erfolgreichem Herunterladen vom Server löschen
|
||||
|
||||
'Gültiger Filename
|
||||
Dim destFilename = VERARBEITUNGS_PFAD & If(IO.File.Exists(VERARBEITUNGS_PFAD & fi.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & fi.Name
|
||||
Dim destFilename = VERARBEITUNGS_PFAD & If(IO.File.Exists(VERARBEITUNGS_PFAD & FI.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & FI.Name
|
||||
IO.File.Move(destFilenameTMP, destFilename) 'Datei umbenennen
|
||||
|
||||
Dim fi_dest As FileInfo = New FileInfo(destFilename)
|
||||
@@ -253,156 +254,223 @@ Public Class frmTCNachrichtenVerarbeitung
|
||||
Label6.Visible = True
|
||||
Exit Sub
|
||||
End If
|
||||
For i = 1 To 3
|
||||
|
||||
For Each d In getFilesInOrder() 'System.IO.Directory.GetFiles(VERARBEITUNGS_PFAD)
|
||||
For Each d In getFilesInOrder() '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)
|
||||
If Not fi.Name.StartsWith(".") Then
|
||||
|
||||
' EDIFACT
|
||||
' If fi.Extension = ".edi" Then
|
||||
Dim alreadyMoved = False
|
||||
If fi.Extension = ".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 = ""
|
||||
Try
|
||||
Dateiname = d
|
||||
cWorker_NCTS.Dateiname = d
|
||||
If IO.File.Exists(d) Then
|
||||
|
||||
|
||||
'------------------------------------------------------------------------------------------------------------------------------
|
||||
' eZOLL
|
||||
'------------------------------------------------------------------------------------------------------------------------------
|
||||
|
||||
Dim found = False
|
||||
Dim fi As FileInfo = New FileInfo(d)
|
||||
If Not fi.Name.StartsWith(".") Then
|
||||
|
||||
Dim alreadyMoved = False
|
||||
Select Case i
|
||||
Case 1
|
||||
If fi.Extension = ".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 = ""
|
||||
|
||||
|
||||
'------------------------------------------
|
||||
'------------------ Anmeldung ------------------
|
||||
'------------------------------------------
|
||||
'TC: Versandbestätigung
|
||||
If Not found And cGetMsgType.isTC_Anmeldung(doc) Then
|
||||
If readTC_Anmeldung(doc, d) <> "" Then found = True
|
||||
' If bezugsNr <> "" Then addDGVEinarbeitung("NCTS: Versandbestätigung", bezugsNr) : found = True
|
||||
End If
|
||||
'------------------------------------------------------------------------------------------------------------------------------
|
||||
' eZOLL
|
||||
'------------------------------------------------------------------------------------------------------------------------------
|
||||
|
||||
|
||||
ElseIf fi.Extension = ".pdf" AndAlso fi.Name.Contains("_") Then
|
||||
Dim split = fi.Name.ToString.Replace(".pdf", "").Split("_")
|
||||
Dim CRN = ""
|
||||
Dim tc_id = ""
|
||||
Dim Anm_id = ""
|
||||
Dim typeMsg = ""
|
||||
Dim BezugsNr = ""
|
||||
|
||||
If split.Length > 0 Then CRN = split(0)
|
||||
If split.Length > 1 Then Anm_id = split(1)
|
||||
If split.Length > 2 Then typeMsg = split(2)
|
||||
|
||||
Dim DS As VERAG_PROG_ALLGEMEIN.cDATENSERVER = Nothing
|
||||
|
||||
tc_id = SQL.DLookup("[telanm_id]", "tblTelotec_Anmeldung", "telanm_CRN='" & CRN & "'", "FMZOLL")
|
||||
BezugsNr = SQL.DLookup("Refs_LRN", "tblTelotec_Anmeldung", "telanm_CRN='" & CRN & "'", "FMZOLL")
|
||||
|
||||
If BezugsNr <> String.Empty Then
|
||||
|
||||
|
||||
Select Case typeMsg
|
||||
Case "EZ923" 'STB
|
||||
|
||||
DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "STEUERBESCHEID", tc_id, "", "", BezugsNr.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False)
|
||||
DS.da_vorlage = False
|
||||
|
||||
Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\NOT_IDENTIFIED\"
|
||||
If IsNumeric(tc_id) AndAlso tc_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
|
||||
If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
|
||||
|
||||
Dim destFull = ""
|
||||
frmStartOptions.moveFile(d, ZIEL_PFAD, destFull)
|
||||
|
||||
If DS.insertDataToDATENSERVER(destFull) Then
|
||||
If IsNumeric(tc_id) AndAlso tc_id > 0 Then
|
||||
SQL.doSQL("UPDATE [tblTelotec_Anmeldung] SET [telanm_Steuerbescheid_dsId]='" & DS.da_id & "' where telanm_CRN='" & CRN & "'", "FMZOLL")
|
||||
SQL.doSQL("UPDATE Speditionsbuch SET DokumentId_Steuerbeleg='" & DS.da_id & "' where AtlasBezNrEZA='" & BezugsNr.ToString.Trim & "' AND DokumentId_Steuerbeleg is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde!
|
||||
frmStartOptions.doMailZollbeleg(DS.GET_TOP1_PATH, "STEUERBESCHEID", tc_id)
|
||||
End If
|
||||
'------------------------------------------
|
||||
'------------------ Anmeldung ------------------
|
||||
'------------------------------------------
|
||||
'TC: Versandbestätigung
|
||||
If Not found And cGetMsgType.isTC_Anmeldung(doc) Then
|
||||
If readTC_Anmeldung(doc, d) <> "" Then found = True
|
||||
' If bezugsNr <> "" Then addDGVEinarbeitung("NCTS: Versandbestätigung", bezugsNr) : found = True
|
||||
End If
|
||||
found = True
|
||||
addDGVEinarbeitung("PDF: STEUERBESCHEID ", BezugsNr)
|
||||
End If
|
||||
Case 2
|
||||
If fi.Extension = ".pdf" AndAlso fi.Name.Contains("_") Then
|
||||
Dim split = fi.Name.ToString.Replace(".pdf", "").Split("_")
|
||||
Dim CRN = ""
|
||||
Dim tc_id = ""
|
||||
Dim Anm_id = ""
|
||||
Dim typeMsg = ""
|
||||
Dim BezugsNr = ""
|
||||
Dim dec_ProzessArt = ""
|
||||
|
||||
If split.Length > 0 Then CRN = split(0)
|
||||
If split.Length > 1 Then Anm_id = split(1)
|
||||
If split.Length > 2 Then typeMsg = split(2)
|
||||
|
||||
Dim DS As VERAG_PROG_ALLGEMEIN.cDATENSERVER = Nothing
|
||||
|
||||
tc_id = SQL.DLookup("[telanm_id]", "tblTelotec_Anmeldung", "telanm_CRN='" & CRN & "'", "FMZOLL")
|
||||
BezugsNr = SQL.DLookup("Refs_LRN", "tblTelotec_Anmeldung", "telanm_CRN='" & CRN & "' AND [telnam_aktuellsteNachricht]=1", "FMZOLL")
|
||||
dec_ProzessArt = SQL.DLookup("dec_ProzessArt", "tblTelotec_Anmeldung", "telanm_CRN='" & CRN & "' AND [telnam_aktuellsteNachricht]=1", "FMZOLL")
|
||||
|
||||
If BezugsNr <> String.Empty Then
|
||||
|
||||
|
||||
Case "EZ922" 'STB Mitteilung
|
||||
Select Case typeMsg
|
||||
Case "EZ923" 'STB
|
||||
|
||||
DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "STEUERBESCHEID_MITT", tc_id, "", "", BezugsNr.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False)
|
||||
DS.da_vorlage = False
|
||||
Select Case dec_ProzessArt
|
||||
Case "EX" 'ABD
|
||||
DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "ABD", tc_id, "", "", BezugsNr.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False)
|
||||
DS.da_vorlage = False
|
||||
|
||||
Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\NOT_IDENTIFIED\"
|
||||
If IsNumeric(tc_id) AndAlso tc_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
|
||||
If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
|
||||
Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\ABD\NOT_IDENTIFIED\"
|
||||
If IsNumeric(tc_id) AndAlso tc_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\ABD\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
|
||||
If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
|
||||
|
||||
Dim destFull = ""
|
||||
frmStartOptions.moveFile(d, ZIEL_PFAD, destFull)
|
||||
Dim destFull = ""
|
||||
frmStartOptions.moveFile(d, ZIEL_PFAD, destFull)
|
||||
|
||||
If DS.insertDataToDATENSERVER(destFull) Then
|
||||
If IsNumeric(tc_id) AndAlso tc_id > 0 Then
|
||||
SQL.doSQL("UPDATE [tblTelotec_Anmeldung] SET [telanm_Mitteilung_dsId]='" & DS.da_id & "' where telanm_CRN='" & CRN & "'", "FMZOLL")
|
||||
SQL.doSQL("UPDATE Speditionsbuch SET DokumentId_Mitteilung='" & DS.da_id & "' where AtlasBezNrEZA='" & BezugsNr.ToString.Trim & "' AND DokumentId_Mitteilung is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde!
|
||||
frmStartOptions.doMailZollbeleg(DS.GET_TOP1_PATH, "STEUERBESCHEID", tc_id)
|
||||
End If
|
||||
If DS.insertDataToDATENSERVER(destFull) Then
|
||||
If IsNumeric(tc_id) AndAlso tc_id > 0 Then
|
||||
' SQL.doSQL("UPDATE [tblTelotec_Anmeldung] SET [telanm_Steuerbescheid_dsId]='" & DS.da_id & "' where telanm_CRN='" & CRN & "'", "FMZOLL")
|
||||
SQL.doSQL("UPDATE Speditionsbuch SET DokumentId_ABD='" & DS.da_id & "' where AtlasBezNrAES='" & BezugsNr.ToString.Trim & "' AND DokumentId_ABD is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde!
|
||||
If DateDiff(DateInterval.Hour, fi.CreationTime, Now) < 24 Then frmStartOptions.doMailZollbeleg(DS.GET_TOP1_PATH, "ABD", tc_id)
|
||||
End If
|
||||
End If
|
||||
found = True
|
||||
addDGVEinarbeitung("PDF: AusfuhrBegleitDokument ", BezugsNr)
|
||||
|
||||
Case Else
|
||||
DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "STEUERBESCHEID", tc_id, "", "", BezugsNr.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False)
|
||||
DS.da_vorlage = False
|
||||
|
||||
Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\NOT_IDENTIFIED\"
|
||||
If IsNumeric(tc_id) AndAlso tc_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
|
||||
If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
|
||||
|
||||
Dim destFull = ""
|
||||
frmStartOptions.moveFile(d, ZIEL_PFAD, destFull)
|
||||
|
||||
If DS.insertDataToDATENSERVER(destFull) Then
|
||||
If IsNumeric(tc_id) AndAlso tc_id > 0 Then
|
||||
SQL.doSQL("UPDATE [tblTelotec_Anmeldung] SET [telanm_Steuerbescheid_dsId]='" & DS.da_id & "' where telanm_CRN='" & CRN & "'", "FMZOLL")
|
||||
SQL.doSQL("UPDATE Speditionsbuch SET DokumentId_Steuerbeleg='" & DS.da_id & "' where AtlasBezNrEZA='" & BezugsNr.ToString.Trim & "' AND DokumentId_Steuerbeleg is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde!
|
||||
If DateDiff(DateInterval.Hour, fi.CreationTime, Now) < 24 Then frmStartOptions.doMailZollbeleg(DS.GET_TOP1_PATH, "STEUERBESCHEID", tc_id)
|
||||
End If
|
||||
End If
|
||||
found = True
|
||||
addDGVEinarbeitung("PDF: STEUERBESCHEID ", BezugsNr)
|
||||
|
||||
End Select
|
||||
Case "EZ922" 'STB Mitteilung
|
||||
|
||||
DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "STEUERBESCHEID_MITT", tc_id, "", "", BezugsNr.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False)
|
||||
DS.da_vorlage = False
|
||||
|
||||
Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\NOT_IDENTIFIED\"
|
||||
If IsNumeric(tc_id) AndAlso tc_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
|
||||
If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
|
||||
|
||||
Dim destFull = ""
|
||||
frmStartOptions.moveFile(d, ZIEL_PFAD, destFull)
|
||||
|
||||
If DS.insertDataToDATENSERVER(destFull) Then
|
||||
If IsNumeric(tc_id) AndAlso tc_id > 0 Then
|
||||
SQL.doSQL("UPDATE [tblTelotec_Anmeldung] SET [telanm_Mitteilung_dsId]='" & DS.da_id & "' where telanm_CRN='" & CRN & "'", "FMZOLL")
|
||||
SQL.doSQL("UPDATE Speditionsbuch SET DokumentId_Mitteilung='" & DS.da_id & "' where AtlasBezNrEZA='" & BezugsNr.ToString.Trim & "' AND DokumentId_Mitteilung is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde!
|
||||
If DateDiff(DateInterval.Hour, fi.CreationTime, Now) < 24 Then frmStartOptions.doMailZollbeleg(DS.GET_TOP1_PATH, "STEUERBESCHEID", tc_id)
|
||||
End If
|
||||
End If
|
||||
found = True
|
||||
addDGVEinarbeitung("PDF: STEUERBESCHEID (Mittlg.) ", BezugsNr)
|
||||
|
||||
Case "TR109" 'VBD
|
||||
|
||||
DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "VBD", tc_id, "", "", BezugsNr.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False)
|
||||
DS.da_vorlage = False
|
||||
|
||||
Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\VBD\NOT_IDENTIFIED\"
|
||||
If IsNumeric(tc_id) AndAlso tc_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\VBD\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
|
||||
If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
|
||||
|
||||
Dim destFull = ""
|
||||
frmStartOptions.moveFile(d, ZIEL_PFAD, destFull)
|
||||
|
||||
If DS.insertDataToDATENSERVER(destFull) Then
|
||||
If IsNumeric(tc_id) AndAlso tc_id > 0 Then
|
||||
SQL.doSQL("UPDATE [tblTelotec_Anmeldung] SET [telanm_VBD_dsId]='" & DS.da_id & "' where telanm_CRN='" & CRN & "'", "FMZOLL")
|
||||
SQL.doSQL("UPDATE Speditionsbuch SET DokumentId_VBD='" & DS.da_id & "' where AtlasBezNrNCTS='" & BezugsNr.ToString.Trim & "' AND DokumentId_VBD is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde!
|
||||
If DateDiff(DateInterval.Hour, fi.CreationTime, Now) < 24 Then frmStartOptions.doMailZollbeleg(DS.GET_TOP1_PATH, "VBD", tc_id)
|
||||
End If
|
||||
End If
|
||||
found = True
|
||||
addDGVEinarbeitung("PDF: VBD ", BezugsNr)
|
||||
|
||||
Case "EX431" 'AVMEX431
|
||||
DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "AVM", tc_id, "", "", BezugsNr.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False)
|
||||
DS.da_vorlage = False
|
||||
|
||||
Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\AVM\NOT_IDENTIFIED\"
|
||||
If IsNumeric(tc_id) AndAlso tc_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\AVM\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
|
||||
If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
|
||||
|
||||
Dim destFull = ""
|
||||
frmStartOptions.moveFile(d, ZIEL_PFAD, destFull)
|
||||
|
||||
If DS.insertDataToDATENSERVER(destFull) Then
|
||||
If IsNumeric(tc_id) AndAlso tc_id > 0 Then
|
||||
' SQL.doSQL("UPDATE [tblTelotec_Anmeldung] SET [telanm_Steuerbescheid_dsId]='" & DS.da_id & "' where telanm_CRN='" & CRN & "'", "FMZOLL")
|
||||
SQL.doSQL("UPDATE Speditionsbuch SET DokumentId_AVM='" & DS.da_id & "' where AtlasBezNrAES='" & BezugsNr.ToString.Trim & "' AND DokumentId_AVM is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde!
|
||||
If DateDiff(DateInterval.Hour, fi.CreationTime, Now) < 24 Then frmStartOptions.doMailZollbeleg(DS.GET_TOP1_PATH, "AVM", tc_id)
|
||||
End If
|
||||
End If
|
||||
found = True
|
||||
addDGVEinarbeitung("PDF: AusgangsVermerk ", BezugsNr)
|
||||
|
||||
End Select
|
||||
End If
|
||||
found = True
|
||||
addDGVEinarbeitung("PDF: STEUERBESCHEID (Mittlg.) ", BezugsNr)
|
||||
End If
|
||||
Case 3 'NOT FOUND
|
||||
|
||||
Case "TR109" 'VBD
|
||||
|
||||
DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "VBD", tc_id, "", "", BezugsNr.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False)
|
||||
DS.da_vorlage = False
|
||||
|
||||
Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\VBD\NOT_IDENTIFIED\"
|
||||
If IsNumeric(tc_id) AndAlso tc_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\VBD\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
|
||||
If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
|
||||
|
||||
Dim destFull = ""
|
||||
frmStartOptions.moveFile(d, ZIEL_PFAD, destFull)
|
||||
|
||||
If DS.insertDataToDATENSERVER(destFull) Then
|
||||
If IsNumeric(tc_id) AndAlso tc_id > 0 Then
|
||||
SQL.doSQL("UPDATE [tblTelotec_Anmeldung] SET [telanm_VBD_dsId]='" & DS.da_id & "' where telanm_CRN='" & CRN & "'", "FMZOLL")
|
||||
SQL.doSQL("UPDATE Speditionsbuch SET DokumentId_VBD='" & DS.da_id & "' where AtlasBezNrNCTS='" & BezugsNr.ToString.Trim & "' AND DokumentId_VBD is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde!
|
||||
frmStartOptions.doMailZollbeleg(DS.GET_TOP1_PATH, "VBD", tc_id)
|
||||
End If
|
||||
If fi.Extension = ".pdf" Then ' -> PDFs dürfen länger leben.. (XML kommen oft später..)
|
||||
If DateDiff(DateInterval.Hour, fi.CreationTime, Now) > 2 Then ' .. aber nur wenn max. 2 h alt..
|
||||
frmStartOptions.moveFile(d, ERROR_PFAD)
|
||||
dsNichtErkannt += 1
|
||||
End If
|
||||
found = True
|
||||
addDGVEinarbeitung("PDF: VBD ", BezugsNr)
|
||||
Else
|
||||
frmStartOptions.moveFile(d, ERROR_PFAD) ' ..sonst weg damit!
|
||||
dsNichtErkannt += 1
|
||||
End If
|
||||
Me.Refresh()
|
||||
End Select
|
||||
|
||||
End Select
|
||||
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 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") & "\")
|
||||
cntDatenEingelesen += 1
|
||||
Me.Refresh()
|
||||
Else
|
||||
'--wir oben im SELECT CASE GEREGELT -- > zusätzlicher Durchgang
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
Me.Refresh()
|
||||
If found Then cntDatenEingelesen += 1 Else dsNichtErkannt += 1
|
||||
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)
|
||||
End Try
|
||||
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)
|
||||
End Try
|
||||
Next
|
||||
Next
|
||||
End Sub
|
||||
|
||||
@@ -668,7 +736,11 @@ Public Class frmTCNachrichtenVerarbeitung
|
||||
TC.telanm_Status = TELOTEC_Worker.cTC_Statusliste.S_60
|
||||
TC.telanm_Status_KEWILL_Equivalent = TELOTEC_Worker.cTC_Statusliste.S_60
|
||||
|
||||
Case "TT922" 'EZA / Abgabenbescheid
|
||||
Case "TT922" 'EZA / Mitteilung Zollschuld --> Abgabenbescheid
|
||||
TC.telanm_Status = TELOTEC_Worker.cTC_Statusliste.S_60
|
||||
TC.telanm_Status_KEWILL_Equivalent = TELOTEC_Worker.cTC_Statusliste.S_60
|
||||
|
||||
Case "TT923" ' Freigabe IMPORT + EXPORT
|
||||
TC.telanm_Status = TELOTEC_Worker.cTC_Statusliste.S_60
|
||||
TC.telanm_Status_KEWILL_Equivalent = TELOTEC_Worker.cTC_Statusliste.S_60
|
||||
Case Else
|
||||
@@ -901,7 +973,7 @@ Public Class frmTCNachrichtenVerarbeitung
|
||||
POS.ABGABEN.Add(ABG)
|
||||
Next
|
||||
End If
|
||||
TC.POSITIONSDATEN.Add(POS)
|
||||
TC.POSITIONSDATEN.Add(POS)
|
||||
Next
|
||||
End If
|
||||
|
||||
|
||||
Reference in New Issue
Block a user