neu
This commit is contained in:
@@ -291,6 +291,97 @@ Public Class frmTCNachrichtenVerarbeitung
|
||||
' If bezugsNr <> "" Then addDGVEinarbeitung("NCTS: Versandbestätigung", bezugsNr) : found = True
|
||||
End If
|
||||
|
||||
|
||||
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
|
||||
End If
|
||||
found = True
|
||||
addDGVEinarbeitung("PDF: STEUERBESCHEID ", BezugsNr)
|
||||
|
||||
|
||||
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!
|
||||
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!
|
||||
frmStartOptions.doMailZollbeleg(DS.GET_TOP1_PATH, "VBD", tc_id)
|
||||
End If
|
||||
End If
|
||||
found = True
|
||||
addDGVEinarbeitung("PDF: VBD ", BezugsNr)
|
||||
|
||||
End Select
|
||||
End If
|
||||
End If
|
||||
|
||||
If True Then
|
||||
@@ -589,6 +680,9 @@ Public Class frmTCNachrichtenVerarbeitung
|
||||
If TC.telanm_BezugsNr.ToString.StartsWith("5501") Then
|
||||
TC.telanm_firma = "IMEX" 'VERAG WO
|
||||
End If
|
||||
If TC.telanm_BezugsNr.ToString.StartsWith("4801") Then
|
||||
TC.telanm_firma = "IMEX" 'VERAG WO
|
||||
End If
|
||||
TC.telanm_niederlassung = "SUB"
|
||||
|
||||
TC.telanm_Erstellung = Now
|
||||
@@ -946,12 +1040,12 @@ Public Class frmTCNachrichtenVerarbeitung
|
||||
Try
|
||||
cmd.ExecuteNonQuery()
|
||||
|
||||
'Lösche File:
|
||||
Try
|
||||
System.IO.File.Delete(frmRoutineManager.PathATLAS & "\" & brgak_filename)
|
||||
Catch ex As Exception
|
||||
writeLog("ERROR", "Fehler beim Löschen der Aufschub-Datei: " & ex.Message)
|
||||
End Try
|
||||
''Lösche File: --> vom ALTEN ATLAS
|
||||
'Try
|
||||
' System.IO.File.Delete(frmRoutineManager.PathATLAS & "\" & brgak_filename)
|
||||
'Catch ex As Exception
|
||||
' writeLog("ERROR", "Fehler beim Löschen der Aufschub-Datei: " & ex.Message)
|
||||
'End Try
|
||||
Return True
|
||||
Catch ex As System.Data.SqlClient.SqlException
|
||||
writeLog("ERROR", "Fehler beim Schreiben in die Datenbank: " & ex.Message)
|
||||
|
||||
Reference in New Issue
Block a user