neu
This commit is contained in:
@@ -418,8 +418,8 @@
|
||||
Select Case GRN
|
||||
Case "15TR0004000020917", "12TR0004000004665", "17TR0004000032349", "17TR0004000029518"
|
||||
If cVERAG_Interface_Settings.acticeInterface_TOBB Then IF_Obj.Add(New cVERAG_InterfaceSharedObjects("\\ftps.verag.ag\FTP\TOBB\OUT\", "TOBB"))
|
||||
Case "18DE0000000073276", "19DE0000000075520", "18DE0000000075520"
|
||||
If cVERAG_Interface_Settings.acticeInterface_OREGON Then IF_Obj.Add(New cVERAG_InterfaceSharedObjects("\\ftps.verag.ag\FTP\OREGON\OUT\", "OREGON"))
|
||||
Case "18DE0000000073276", "19DE0000000075520", "18DE0000000075520", "15TR0004000020500"
|
||||
If cVERAG_Interface_Settings.acticeInterface_OREGON Then IF_Obj.Add(New cVERAG_InterfaceSharedObjects("\\ftps.verag.ag\FTP\OREGON\OUT\", " "))
|
||||
Case "17DE0000000071678", "05AT510000G000FP7" 'VERAG
|
||||
If cVERAG_Interface_Settings.acticeInterface_VERAG Then IF_Obj.Add(New cVERAG_InterfaceSharedObjects(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\FTP\VERAG\", "VERAG"))
|
||||
Case "16AT520000G000VA6" 'IMEX
|
||||
|
||||
@@ -505,6 +505,13 @@ Public Class cGetMsgType
|
||||
End If
|
||||
Return False
|
||||
End Function
|
||||
Shared Function isPLOSE_Header(doc As String) As Boolean
|
||||
Dim lines() As String = IO.File.ReadAllLines(doc)
|
||||
If lines(0).ToString.StartsWith("TR6") Then
|
||||
Return True
|
||||
End If
|
||||
Return False
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
@@ -5584,22 +5584,29 @@ Public Class frmDYNachrichtenVerarbeitung
|
||||
ABGABEN.Übernahmedatum = Now
|
||||
ABGABEN.Eingabedatum = regDat
|
||||
|
||||
|
||||
If If(ABGABEN.Bezugsnummer, "").ToString.Length > 35 Then ABGABEN.Bezugsnummer = ABGABEN.Bezugsnummer.ToString.Substring(0, 35)
|
||||
If If(ABGABEN.Registriernummer, "").ToString.Length > 21 Then ABGABEN.Registriernummer = ABGABEN.Registriernummer.ToString.Substring(0, 21)
|
||||
|
||||
Dim errHInweis = "ATC: " & ABGABEN.Registriernummer & " - BezugsNr: " & ABGABEN.Bezugsnummer
|
||||
ABGABEN.SAVE(errHInweis)
|
||||
|
||||
Select Case CInt(A.AufschubkontoNr)
|
||||
Case 6128 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 1, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0)
|
||||
Case 2718 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 8, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0)
|
||||
If Not VERAG_PROG_ALLGEMEIN.cAbgaben.EXISTS(ABGABEN.LeistungsNr, ABGABEN.Betrag, ABGABEN.Registriernummer, ABGABEN.AOFD, ABGABEN.AKTO, ABGABEN.Fälligkeitsdatum) Then
|
||||
|
||||
'Case 2718 : VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMailTEST("al@verag.ag", "AUFSCHUB IMEX: " & ABGABEN.Betrag, "AUFSCHUB IMEX: " & ABGABEN.Betrag & vbNewLine & ABGABEN.Bezugsnummer)
|
||||
End Select
|
||||
Dim errHInweis = "ATC: " & ABGABEN.Registriernummer & " - BezugsNr: " & ABGABEN.Bezugsnummer
|
||||
ABGABEN.SAVE(errHInweis)
|
||||
|
||||
'Aufschub - Überwachung:
|
||||
Select Case CInt(A.AufschubkontoNr)
|
||||
Case 6128 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 1, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0)
|
||||
Case 2718 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 8, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0)
|
||||
|
||||
'Case 2718 : VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMailTEST("al@verag.ag", "AUFSCHUB IMEX: " & ABGABEN.Betrag, "AUFSCHUB IMEX: " & ABGABEN.Betrag & vbNewLine & ABGABEN.Bezugsnummer)
|
||||
End Select
|
||||
|
||||
|
||||
If CInt(A.AufschubkontoNr) = 6128 Then 'Nur bei ZOLL ' --> TEST: Or CInt(A.AufschubkontoNr) = 678010
|
||||
AtlasAufschubDatenEinlesen.tryToInsertProgramm(regDat, A.Abgabenbetrag, "1", "DY", regNr, "")
|
||||
If CInt(A.AufschubkontoNr) = 6128 Then 'Nur bei ZOLL ' --> TEST: Or CInt(A.AufschubkontoNr) = 678010
|
||||
AtlasAufschubDatenEinlesen.tryToInsertProgramm(regDat, A.Abgabenbetrag, "1", "DY", regNr, "")
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
@@ -269,7 +269,7 @@ Public Class frmMDMNachrichtenVerarbeitung
|
||||
|
||||
If True Then
|
||||
' Temp.DownloadPfad
|
||||
Dim destFilenameTMP = VERARBEITUNGS_PFAD + "." & If(IO.File.Exists(VERARBEITUNGS_PFAD & "." & name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & name
|
||||
Dim destFilenameTMP = VERARBEITUNGS_PFAD & "." & If(IO.File.Exists(VERARBEITUNGS_PFAD & "." & name), name.Replace(".csv", "_") & Now.ToString("yyMMdd_HHmmss.fff") & ".csv", name)
|
||||
|
||||
Dim downloadRequest As FtpWebRequest = WebRequest.Create(fileUrl)
|
||||
downloadRequest.Method = WebRequestMethods.Ftp.DownloadFile
|
||||
@@ -291,7 +291,7 @@ Public Class frmMDMNachrichtenVerarbeitung
|
||||
targetStream.Dispose()
|
||||
downloadResponse.Dispose()
|
||||
|
||||
Dim destFilename = VERARBEITUNGS_PFAD & If(IO.File.Exists(VERARBEITUNGS_PFAD & name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & name
|
||||
Dim destFilename = VERARBEITUNGS_PFAD & "." & If(IO.File.Exists(VERARBEITUNGS_PFAD & "." & name), name.Replace(".csv", "_") & Now.ToString("yyMMdd_HHmmss.fff") & ".csv", name)
|
||||
IO.File.Move(destFilenameTMP, destFilename) 'Datei umbenennen
|
||||
|
||||
|
||||
@@ -442,77 +442,70 @@ Public Class frmMDMNachrichtenVerarbeitung
|
||||
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)
|
||||
For i = 1 To 3
|
||||
|
||||
' 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 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)
|
||||
|
||||
Dim doc As New XmlDocument()
|
||||
Dim XML_Code = System.IO.File.ReadAllText(d, System.Text.UTF8Encoding.Default)
|
||||
' EDIFACT
|
||||
' If fi.Extension = ".edi" Then
|
||||
Dim alreadyMoved = False
|
||||
|
||||
doc.LoadXml(SanitizeXmlString(XML_Code))
|
||||
Dim VERSION As String = ""
|
||||
If fi.Extension.ToLower = ".csv" Then
|
||||
|
||||
'------------------------------------------------------------------------------------------------------------------------------
|
||||
' PLOSE
|
||||
'------------------------------------------------------------------------------------------------------------------------------
|
||||
|
||||
|
||||
'------------------------------------------------------------------------------------------------------------------------------
|
||||
' eZOLL
|
||||
'------------------------------------------------------------------------------------------------------------------------------
|
||||
'------------------------------------------
|
||||
'------------------ DETAIL ------------------
|
||||
'------------------------------------------
|
||||
|
||||
Select Case i
|
||||
Case 1
|
||||
'TC: Versandbestätigung
|
||||
If Not found And cGetMsgType.isPLOSE_Detail(d) Then
|
||||
If readPLOSE_Detail(d) <> "" Then found = True
|
||||
' If bezugsNr <> "" Then addDGVEinarbeitung("NCTS: Versandbestätigung", bezugsNr) : found = True
|
||||
End If
|
||||
If found Then cntDatenEingelesen += 1
|
||||
Case 2
|
||||
'TC: Versandbestätigung
|
||||
If Not found And cGetMsgType.isPLOSE_Header(d) Then
|
||||
If readPLOSE_Header(d) <> "" Then found = True
|
||||
' If bezugsNr <> "" Then addDGVEinarbeitung("NCTS: Versandbestätigung", bezugsNr) : found = True
|
||||
End If
|
||||
If found Then cntDatenEingelesen += 1
|
||||
Case 3
|
||||
frmStartOptions.moveFile_DateBack(d, ERROR_PFAD)
|
||||
dsNichtErkannt += 1
|
||||
End Select
|
||||
|
||||
'------------------------------------------
|
||||
'------------------ 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
|
||||
ElseIf fi.Extension.ToLower = ".csv" Then
|
||||
|
||||
'------------------------------------------------------------------------------------------------------------------------------
|
||||
' PLOSE
|
||||
'------------------------------------------------------------------------------------------------------------------------------
|
||||
|
||||
|
||||
'------------------------------------------
|
||||
'------------------ DETAIL ------------------
|
||||
'------------------------------------------
|
||||
'TC: Versandbestätigung
|
||||
If Not found And cGetMsgType.isPLOSE_Detail(d) Then
|
||||
If readPLOSE_Detail(d) <> "" Then found = True
|
||||
' If bezugsNr <> "" Then addDGVEinarbeitung("NCTS: Versandbestätigung", bezugsNr) : 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 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_DateBack(d, ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
Me.Refresh()
|
||||
|
||||
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
|
||||
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
|
||||
|
||||
@@ -572,55 +565,62 @@ Public Class frmMDMNachrichtenVerarbeitung
|
||||
Try
|
||||
currentRow = MyReader.ReadFields()
|
||||
|
||||
Dim fi As FileInfo = New FileInfo(d)
|
||||
If fi.Name.Length > 8 Then
|
||||
Dim plose_RechnungsNr = fi.Name.Substring(0, 8)
|
||||
|
||||
If currentRow.Length > 24 AndAlso currentRow(12) <> "839160" Then 'KDNR <> VERAG --> Die Kosten bleiben uns
|
||||
Dim PLOSE As New MDM_Worker.cPLOSE
|
||||
|
||||
PLOSE.plose_Datensatztyp = SQL.isleernothing(currentRow(0))
|
||||
PLOSE.plose_KodexMautTankstelle = SQL.isleernothing(currentRow(1))
|
||||
PLOSE.plose_BeschreibungMautTankstelle = SQL.isleernothing(currentRow(2))
|
||||
PLOSE.plose_KodexEinfahrt = SQL.isleernothing(currentRow(3))
|
||||
PLOSE.plose_BeschreibungEinfahrt = SQL.isleernothing(currentRow(4))
|
||||
PLOSE.plose_KodexAusfahrt = SQL.isleernothing(currentRow(5))
|
||||
PLOSE.plose_BeschreibungAusfahrt = SQL.isleernothing(currentRow(6))
|
||||
PLOSE.plose_Kartenkodex = SQL.isleernothing(currentRow(7))
|
||||
PLOSE.plose_Kontonummer = SQL.isleernothing(currentRow(8))
|
||||
PLOSE.plose_NummerKarteGeraet = SQL.isleernothing(currentRow(9))
|
||||
PLOSE.plose_Kennzeichen = SQL.isleernothing(currentRow(10))
|
||||
PLOSE.plose_InterneNrFahrzeug = SQL.isleernothing(currentRow(11))
|
||||
PLOSE.plose_POLSEKundennummer = SQL.isleernothing(currentRow(12))
|
||||
PLOSE.plose_Firmenname = SQL.isleernothing(currentRow(13))
|
||||
PLOSE.plose_DatumTransaktion = SQL.isleernothingDateFormatstring(currentRow(14))
|
||||
PLOSE.plose_Produktbeschreibung = SQL.isleernothing(currentRow(15))
|
||||
PLOSE.plose_Menge = SQL.isNullNothingDbl(currentRow(16))
|
||||
PLOSE.plose_Preis = SQL.isNullNothingDbl(currentRow(17))
|
||||
PLOSE.Einheitsrabatt = SQL.isleernothing(currentRow(18))
|
||||
PLOSE.plose_NettobetragTransaktion = SQL.isNullNothingDbl(currentRow(19))
|
||||
PLOSE.plose_MWSTBetrag = SQL.isNullNothingDbl(currentRow(20))
|
||||
PLOSE.plose_BruttobetragTransaktion = SQL.isNullNothingDbl(currentRow(21))
|
||||
PLOSE.plose_NettobetragWaehrungAbbuchung = SQL.isNullNothingDbl(currentRow(22))
|
||||
PLOSE.plose_MWSTBetragWaehrungAbbuchung = SQL.isNullNothingDbl(currentRow(23))
|
||||
PLOSE.plose_BruttobetragWaehrungAbbuchung = SQL.isNullNothingDbl(currentRow(24))
|
||||
PLOSE.plose_WaehrungLandDiesntleistung = SQL.isleernothing(currentRow(25))
|
||||
PLOSE.plose_WaehrungAbbuchung = SQL.isleernothing(currentRow(26))
|
||||
PLOSE.plose_DokumentNrQuittungUhrzeit = SQL.isleernothing(currentRow(27))
|
||||
PLOSE.plose_ArtTransaktion = SQL.isleernothing(currentRow(28))
|
||||
PLOSE.plose_Fahrzeugklasse = SQL.isleernothing(currentRow(29))
|
||||
PLOSE.plose_KlassenidentifikationEURO = SQL.isleernothing(currentRow(30))
|
||||
PLOSE.plose_ProduktbeschreibungShort = SQL.isleernothing(currentRow(31))
|
||||
PLOSE.plose_DokumentNrQuittungUhrzeit = SQL.isleernothing(currentRow(32))
|
||||
PLOSE.plose_Geraetetyp = SQL.isleernothing(currentRow(33))
|
||||
PLOSE.plose_ProduktCode = SQL.isleernothing(currentRow(34))
|
||||
PLOSE.plose_ReferenzenBuchungMaut = SQL.isleernothing(currentRow(35))
|
||||
If currentRow.Length > 24 AndAlso currentRow(12) <> "839160" Then 'KDNR <> VERAG --> Die Kosten bleiben uns
|
||||
Dim PLOSE As New MDM_Worker.cPLOSE
|
||||
|
||||
''''''''''''
|
||||
If PLOSE.SAVE() Then
|
||||
PLOSE.plose_Dateiname = fi.Name
|
||||
PLOSE.plose_RechnungsNr = plose_RechnungsNr
|
||||
PLOSE.plose_Datensatztyp = SQL.isleernothing(currentRow(0))
|
||||
PLOSE.plose_KodexMautTankstelle = SQL.isleernothing(currentRow(1))
|
||||
PLOSE.plose_BeschreibungMautTankstelle = SQL.isleernothing(currentRow(2))
|
||||
PLOSE.plose_KodexEinfahrt = SQL.isleernothing(currentRow(3))
|
||||
PLOSE.plose_BeschreibungEinfahrt = SQL.isleernothing(currentRow(4))
|
||||
PLOSE.plose_KodexAusfahrt = SQL.isleernothing(currentRow(5))
|
||||
PLOSE.plose_BeschreibungAusfahrt = SQL.isleernothing(currentRow(6))
|
||||
PLOSE.plose_Kartenkodex = SQL.isleernothing(currentRow(7))
|
||||
PLOSE.plose_Kontonummer = SQL.isleernothing(currentRow(8))
|
||||
PLOSE.plose_NummerKarteGeraet = SQL.isleernothing(currentRow(9))
|
||||
PLOSE.plose_Kennzeichen = SQL.isleernothing(currentRow(10))
|
||||
PLOSE.plose_InterneNrFahrzeug = SQL.isleernothing(currentRow(11))
|
||||
PLOSE.plose_POLSEKundennummer = SQL.isleernothing(currentRow(12))
|
||||
PLOSE.plose_Firmenname = SQL.isleernothing(currentRow(13))
|
||||
PLOSE.plose_DatumTransaktion = SQL.isleernothingDateFormatstring(currentRow(14))
|
||||
PLOSE.plose_Produktbeschreibung = SQL.isleernothing(currentRow(15))
|
||||
PLOSE.plose_Menge = SQL.isNullNothingDbl(currentRow(16))
|
||||
PLOSE.plose_Preis = SQL.isNullNothingDbl(currentRow(17))
|
||||
PLOSE.Einheitsrabatt = SQL.isleernothing(currentRow(18))
|
||||
PLOSE.plose_NettobetragTransaktion = SQL.isNullNothingDbl(currentRow(19))
|
||||
PLOSE.plose_MWSTBetrag = SQL.isNullNothingDbl(currentRow(20))
|
||||
PLOSE.plose_BruttobetragTransaktion = SQL.isNullNothingDbl(currentRow(21))
|
||||
PLOSE.plose_NettobetragWaehrungAbbuchung = SQL.isNullNothingDbl(currentRow(22))
|
||||
PLOSE.plose_MWSTBetragWaehrungAbbuchung = SQL.isNullNothingDbl(currentRow(23))
|
||||
PLOSE.plose_BruttobetragWaehrungAbbuchung = SQL.isNullNothingDbl(currentRow(24))
|
||||
PLOSE.plose_WaehrungLandDiesntleistung = SQL.isleernothing(currentRow(25))
|
||||
PLOSE.plose_WaehrungAbbuchung = SQL.isleernothing(currentRow(26))
|
||||
PLOSE.plose_DokumentNrQuittungUhrzeit = SQL.isleernothing(currentRow(27))
|
||||
PLOSE.plose_ArtTransaktion = SQL.isleernothing(currentRow(28))
|
||||
PLOSE.plose_Fahrzeugklasse = SQL.isleernothing(currentRow(29))
|
||||
PLOSE.plose_KlassenidentifikationEURO = SQL.isleernothing(currentRow(30))
|
||||
PLOSE.plose_ProduktbeschreibungShort = SQL.isleernothing(currentRow(31))
|
||||
PLOSE.plose_DokumentNrQuittungUhrzeit = SQL.isleernothing(currentRow(32))
|
||||
PLOSE.plose_Geraetetyp = SQL.isleernothing(currentRow(33))
|
||||
PLOSE.plose_ProduktCode = SQL.isleernothing(currentRow(34))
|
||||
PLOSE.plose_ReferenzenBuchungMaut = SQL.isleernothing(currentRow(35))
|
||||
|
||||
''''''''''''
|
||||
If PLOSE.SAVE() Then
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
cnt += 1
|
||||
End If
|
||||
|
||||
cnt += 1
|
||||
|
||||
'For Each currentField In currentRow
|
||||
'Next
|
||||
@@ -661,6 +661,77 @@ Public Class frmMDMNachrichtenVerarbeitung
|
||||
End Function
|
||||
|
||||
|
||||
Function readPLOSE_Header(d As String) As String
|
||||
Try
|
||||
readPLOSE_Header = ""
|
||||
Dim KdnR = ""
|
||||
|
||||
Using MyReader As New Microsoft.VisualBasic.FileIO.TextFieldParser(d, Encoding.UTF8)
|
||||
MyReader.TextFieldType = FileIO.FieldType.Delimited
|
||||
MyReader.SetDelimiters(";")
|
||||
Dim currentRow As String()
|
||||
|
||||
Dim cnt = 0
|
||||
If True Then
|
||||
|
||||
While Not MyReader.EndOfData
|
||||
Try
|
||||
currentRow = MyReader.ReadFields()
|
||||
|
||||
Dim fi As FileInfo = New FileInfo(d)
|
||||
If fi.Name.Length > 8 Then
|
||||
Dim plose_RechnungsNr = fi.Name.Substring(0, 8)
|
||||
If IsNumeric(plose_RechnungsNr) AndAlso IsNumeric(currentRow(12)) Then
|
||||
If currentRow.Length > 24 AndAlso currentRow(12) <> "839160" Then 'KDNR <> VERAG --> Die Kosten bleiben uns
|
||||
Dim plose_RechnungsDatum = SQL.isleernothingDateFormatstring(currentRow(14))
|
||||
|
||||
If plose_RechnungsDatum IsNot Nothing AndAlso IsDate(plose_RechnungsDatum) Then
|
||||
MDM_Worker.cPLOSE.UPDATE_RGDatum(plose_RechnungsDatum, plose_RechnungsNr, currentRow(12))
|
||||
cnt += 1
|
||||
End If
|
||||
End If
|
||||
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 While
|
||||
|
||||
|
||||
'Label30.Text = (cnt + 1) & " / " & LineCount
|
||||
'Label31.Visible = True
|
||||
readPLOSE_Header = "Zeilen: " & cnt
|
||||
Else
|
||||
MsgBox("FEHLER beim Löschen der vorhandenen OP-Liste.")
|
||||
End If
|
||||
End Using
|
||||
|
||||
|
||||
|
||||
|
||||
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
|
||||
|
||||
addDGVEinarbeitung("PLOSE: Header" & KdnR, readPLOSE_Header)
|
||||
|
||||
' 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)
|
||||
MsgBox(ex.StackTrace & ex.Message)
|
||||
readPLOSE_Header = ""
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
Private Sub dgvEinarbeitung_SelectionChanged(sender As Object, e As EventArgs) Handles dgvEinarbeitung.SelectionChanged
|
||||
dgvEinarbeitung.ClearSelection()
|
||||
|
||||
|
||||
@@ -277,6 +277,127 @@ Public Class frmStartOptions
|
||||
Next
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub doMailZollbeleg(pfad, art, dy_id)
|
||||
Try
|
||||
|
||||
Dim DY As New DAKOSY_Worker.cDakosy_Zollanmeldungen(dy_id)
|
||||
If DY.dy_SendungsId IsNot Nothing AndAlso CInt(DY.dy_SendungsId) > 0 Then
|
||||
Dim SND As New VERAG_PROG_ALLGEMEIN.cSendungen(DY.dy_SendungsId)
|
||||
Dim list As New List(Of Integer)
|
||||
|
||||
sendMailZollbeleg(pfad, SND.tblSnd_EmpfaengerKdNr, art, list, DY, SND)
|
||||
sendMailZollbeleg(pfad, SND.tblSnd_AbsenderKdNr, art, list, DY, SND)
|
||||
sendMailZollbeleg(pfad, SND.tblSnd_FrachtfuehrerKdNr, art, list, DY, SND)
|
||||
sendMailZollbeleg(pfad, SND.tblSnd_AvisiererKdNr, art, list, DY, SND)
|
||||
sendMailZollbeleg(pfad, SND.tblSnd_AuftraggeberKdNr, art, list, DY, SND)
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
|
||||
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Sub sendMailZollbeleg(pfad As String, KundenNr As Integer, art As String, ByRef list As List(Of Integer), DY As DAKOSY_Worker.cDakosy_Zollanmeldungen, SND As VERAG_PROG_ALLGEMEIN.cSendungen)
|
||||
Try
|
||||
If KundenNr > 0 Then
|
||||
If Not list.Find(Function(x) x = KundenNr) Then 'nicht bereits verarbeitet
|
||||
list.Add(KundenNr)
|
||||
Dim pfadList As New List(Of String)
|
||||
pfadList.Add(pfad)
|
||||
Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(KundenNr)
|
||||
Dim KD_ERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(KundenNr)
|
||||
If KD_ERW IsNot Nothing AndAlso KD IsNot Nothing AndAlso KD.EmailFreigabe Then
|
||||
If KD_ERW.EmailFreigabe_Art = "BLG" Then
|
||||
|
||||
Dim Standort = "SUB"
|
||||
Select Case SND.FilialenNr
|
||||
Case "5501" : Standort = "IMX"
|
||||
Case "5601" : Standort = "UNI"
|
||||
Case "5701" : Standort = "FO"
|
||||
Case "5801" : Standort = "AMB"
|
||||
Case "4801" : Standort = "ATL"
|
||||
Case "5003" : Standort = "SBG"
|
||||
Case "5103" : Standort = "WAI"
|
||||
Case "5303" : Standort = "NKD"
|
||||
Case Else
|
||||
Standort = "SUB"
|
||||
End Select
|
||||
|
||||
Dim cStandorteDAL As New VERAG_PROG_ALLGEMEIN.cStandorteDAL
|
||||
|
||||
'Dim gst = ""
|
||||
'Dim AVISO = VERAG_PROG_ALLGEMEIN.cAviso.getAvisoById(DY.dy_AvisoId)
|
||||
'If AVISO IsNot Nothing Then
|
||||
' gst = AVISO.Grenzstelle.Replace("???", "")
|
||||
'End If
|
||||
|
||||
Dim cStandort = cStandorteDAL.LesenStandort(-1, "", "SELECT * FROM Standorte WHERE Standort = '" & Standort & "'")
|
||||
Dim FirmaTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(SND.FilialenNr)
|
||||
|
||||
Dim betreff = cStandort.eMail_Zollbeleg_Betreff '"Zollbeleg"
|
||||
betreff = betreff.Replace("%LKW%", "")
|
||||
betreff = betreff.Replace("%Standort%", "")
|
||||
betreff = betreff.Replace("%Uhrzeit%", "")
|
||||
|
||||
Dim body = cStandort.eMail_Zollbeleg_Text
|
||||
|
||||
|
||||
Dim EMails As String = ""
|
||||
Dim EMails_CC As String = ""
|
||||
Dim EMails_BCC As String = ""
|
||||
|
||||
Dim Emails_list_sent As New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList
|
||||
VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(KundenNr, 2, EMails, EMails_CC, EMails_BCC, Emails_list_sent)
|
||||
body = body.Replace("%Platzhalter%", "E-Mails: " & EMails & " CC: " & EMails_CC & " BCC:" & EMails_BCC)
|
||||
|
||||
EMails = "al@verag.ag"
|
||||
EMails_CC = ""
|
||||
EMails_BCC = ""
|
||||
|
||||
Select Case art
|
||||
Case "STB"
|
||||
If KD_ERW.EmailFreigabe_SteuerbescheidPDF Then
|
||||
betreff = betreff.Replace("%Zollbeleg%", "Abgabenbescheid " & DY.dy_BezugsNr)
|
||||
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList)
|
||||
End If
|
||||
Case "VBD"
|
||||
If KD_ERW.EmailFreigabe_VBDPDF Then
|
||||
betreff = betreff.Replace("%Zollbeleg%", "Versandbegleitdokument " & DY.dy_BezugsNr)
|
||||
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList)
|
||||
End If
|
||||
Case "ABD"
|
||||
If KD_ERW.EmailFreigabe_SteuerbescheidPDF Then
|
||||
betreff = betreff.Replace("%Zollbeleg%", "Ausfuhrbegleitdokument " & DY.dy_BezugsNr)
|
||||
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList)
|
||||
End If
|
||||
Case "AVM"
|
||||
If KD_ERW.EmailFreigabe_SteuerbescheidPDF Then
|
||||
betreff = betreff.Replace("%Zollbeleg%", "Ausgangsvermerk " & DY.dy_BezugsNr)
|
||||
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList)
|
||||
End If
|
||||
End Select
|
||||
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
|
||||
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Public Shared Function getAbsenderEmail(Optional FirmaTmp = "") As String
|
||||
Select Case If(FirmaTmp = "", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, FirmaTmp)
|
||||
Case "IMEX" : Return "noreply@imex-group.at"
|
||||
Case "ATILLA" : Return "noreply@verag.ag"
|
||||
Case "UNISPED" : Return "No-Reply@unisped.at"
|
||||
Case "FRONTOFFICE" : Return "noreply@front-office.eu"
|
||||
Case Else : Return "noreply@verag.ag"
|
||||
End Select
|
||||
End Function
|
||||
Sub importFileFromDyMailAnhang(pfad, betreff)
|
||||
|
||||
|
||||
@@ -318,6 +439,7 @@ Public Class frmStartOptions
|
||||
If IsNumeric(dy_id) AndAlso dy_id > 0 Then
|
||||
sql.doSQL("UPDATE tblDakosy_Zollanmeldungen SET dy_VBD_dsId='" & DS.da_id & "' where dy_id='" & dy_id & "'", "FMZOLL")
|
||||
sql.doSQL("UPDATE Speditionsbuch SET DokumentId_VBD='" & DS.da_id & "' where AtlasBezNrNCTS='" & betreff.ToString.Trim & "' AND DokumentId_VBD is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde!
|
||||
doMailZollbeleg(DS.GET_TOP1_PATH, "VBD", dy_id)
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -351,6 +473,7 @@ Public Class frmStartOptions
|
||||
If IsNumeric(dy_id) AndAlso dy_id > 0 Then
|
||||
sql.doSQL("UPDATE tblDakosy_Zollanmeldungen SET dy_STEUERBESCHEID_dsId='" & DS.da_id & "' where dy_id='" & dy_id & "'", "FMZOLL")
|
||||
sql.doSQL("UPDATE Speditionsbuch SET DokumentId_Steuerbeleg='" & DS.da_id & "' where AtlasBezNrEZA='" & betreff.ToString.Trim & "' AND DokumentId_Steuerbeleg is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde!
|
||||
doMailZollbeleg(DS.GET_TOP1_PATH, "STB", dy_id)
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -373,8 +496,6 @@ Public Class frmStartOptions
|
||||
End If
|
||||
' IO.Directory.CreateDirectory(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\TEST3\")
|
||||
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("TEST: " & dy_id, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
|
||||
|
||||
DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "ABD", dy_id, "", "", betreff.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False)
|
||||
DS.da_vorlage = False
|
||||
|
||||
@@ -389,6 +510,7 @@ Public Class frmStartOptions
|
||||
If IsNumeric(dy_id) AndAlso dy_id > 0 Then
|
||||
sql.doSQL("UPDATE tblDakosy_Zollanmeldungen SET dy_ABD_dsId='" & DS.da_id & "' where dy_id='" & dy_id & "'", "FMZOLL")
|
||||
sql.doSQL("UPDATE Speditionsbuch SET DokumentId_ABD='" & DS.da_id & "' where AtlasBezNrEZA='" & betreff.ToString.Trim & "' AND DokumentId_ABD is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde!
|
||||
doMailZollbeleg(DS.GET_TOP1_PATH, "ABD", dy_id)
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -425,6 +547,7 @@ Public Class frmStartOptions
|
||||
If IsNumeric(dy_id) AndAlso dy_id > 0 Then
|
||||
sql.doSQL("UPDATE tblDakosy_Zollanmeldungen SET dy_AVM_dsId='" & DS.da_id & "' where dy_id='" & dy_id & "'", "FMZOLL")
|
||||
sql.doSQL("UPDATE Speditionsbuch SET DokumentId_AVM='" & DS.da_id & "' where AtlasBezNrEZA='" & betreff.ToString.Trim & "' AND DokumentId_AVM is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde!
|
||||
doMailZollbeleg(DS.GET_TOP1_PATH, "AVM", dy_id)
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -626,6 +749,19 @@ Public Class frmStartOptions
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Public Function moveFile_DateBack(file, toDirectory, Optional ByRef dest = "")
|
||||
If Not IO.File.Exists(file) Then Return False
|
||||
If Not IO.Directory.Exists(toDirectory) Then IO.Directory.CreateDirectory(toDirectory)
|
||||
dest = toDirectory & cut_file(file)
|
||||
Dim fio As IO.FileInfo = New FileInfo(file)
|
||||
Dim ext = fio.Extension
|
||||
If IO.File.Exists(dest) Then
|
||||
dest = toDirectory & cut_file(file).Replace(ext, Now.ToString("_yyMMdd_HHmmss.fff")) & ext
|
||||
End If
|
||||
IO.File.Move(file, dest) ' Verschiebt die Datei
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Public Function copyFile(file, toDirectory, Optional ByRef dest = "")
|
||||
If Not IO.File.Exists(file) Then Return False
|
||||
If Not IO.Directory.Exists(toDirectory) Then IO.Directory.CreateDirectory(toDirectory)
|
||||
|
||||
Reference in New Issue
Block a user