578 lines
27 KiB
VB.net
578 lines
27 KiB
VB.net
Imports System.IO
|
|
Imports System.Net
|
|
Imports System.Text
|
|
Imports System.Xml
|
|
Imports VERAG_PROG_ALLGEMEIN
|
|
|
|
Public Class frmRMCNachrichtenVerarbeitung
|
|
Dim cntDatenEingelesen As Integer = 0
|
|
Dim dsNichtErkannt As Integer = 0
|
|
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
|
Dim allowClose = False
|
|
Dim rmc As New cRMC
|
|
Dim Dateiname = ""
|
|
|
|
Sub New()
|
|
|
|
' Dieser Aufruf ist für den Designer erforderlich.
|
|
InitializeComponent()
|
|
|
|
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
|
|
|
End Sub
|
|
Sub New(allowClose) 'autostart
|
|
|
|
' Dieser Aufruf ist für den Designer erforderlich.
|
|
InitializeComponent()
|
|
Me.allowClose = allowClose
|
|
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
|
|
|
End Sub
|
|
|
|
Private Sub frmDYNachrichtenVerarbeitung_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
rmc.initImportPfade()
|
|
|
|
For Each d In System.IO.Directory.GetFiles(rmc.VERARBEITUNG_PFAD)
|
|
ListBox3.Items.Add(frmStartOptions.cut_file(d))
|
|
Me.Refresh()
|
|
Next
|
|
End Sub
|
|
|
|
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
|
Me.Enabled = False
|
|
Try
|
|
Label9.Visible = True
|
|
Dim cnt = getNachrichtenDatenFromRMCServices()
|
|
Label9.Text = cnt & " Datensätze empfangen."
|
|
|
|
Catch ex As Exception
|
|
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
|
End Try
|
|
Me.Enabled = True
|
|
|
|
End Sub
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
Me.Enabled = False
|
|
Try
|
|
Label5.Visible = True
|
|
DatenEinlesen()
|
|
If dsNichtErkannt > 0 Then
|
|
|
|
Label6.Text = dsNichtErkannt & " Datensätze nicht " & vbNewLine & "erkannt."
|
|
Label6.Visible = True
|
|
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
|
|
Me.Enabled = True
|
|
Label5.Text = cntDatenEingelesen & " Datensätze verarbeitet."
|
|
|
|
End Sub
|
|
|
|
|
|
Function getNachrichtenDatenFromRMCServices() As Integer
|
|
Dim cnt = 0
|
|
Try
|
|
|
|
DownloadFtpDirectory(rmc.API_STRING & "/"c & "out/", New NetworkCredential(rmc.API.Rows(0).Item("api_user").ToString, rmc.API.Rows(0).Item("api_pw").ToString), "", cnt, False)
|
|
|
|
Catch ex As Exception
|
|
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
|
End Try
|
|
|
|
Return cnt
|
|
End Function
|
|
|
|
|
|
Sub DownloadFtpDirectory(url As String, credentials As NetworkCredential, localPath As String, ByRef cnt As Integer, deleteAfterDownload As Boolean)
|
|
Dim listRequest As FtpWebRequest = WebRequest.Create(url)
|
|
listRequest.Method = WebRequestMethods.Ftp.ListDirectoryDetails
|
|
listRequest.Credentials = credentials
|
|
|
|
|
|
Dim lines As List(Of String) = New List(Of String)
|
|
|
|
Using listResponse As FtpWebResponse = listRequest.GetResponse(),
|
|
listStream As Stream = listResponse.GetResponseStream(),
|
|
listReader As StreamReader = New StreamReader(listStream)
|
|
While Not listReader.EndOfStream
|
|
lines.Add(listReader.ReadLine())
|
|
End While
|
|
End Using
|
|
|
|
For Each line As String In lines
|
|
Dim tokens As String() =
|
|
line.Split(New Char() {" "}, 9, StringSplitOptions.RemoveEmptyEntries)
|
|
Dim name As String = tokens(8)
|
|
Dim permissions As String = tokens(0)
|
|
|
|
Dim localFilePath As String = Path.Combine(localPath, name)
|
|
Dim fileUrl As String = url + name
|
|
|
|
If permissions(0) = "d" Then 'Ordner
|
|
If Not Directory.Exists(localFilePath) Then
|
|
Directory.CreateDirectory(localFilePath)
|
|
End If
|
|
|
|
DownloadFtpDirectory(fileUrl + "/", credentials, localFilePath, cnt, deleteAfterDownload)
|
|
|
|
Else
|
|
|
|
If True Then
|
|
|
|
Dim downloadRequest As FtpWebRequest = WebRequest.Create(fileUrl)
|
|
downloadRequest.Method = WebRequestMethods.Ftp.DownloadFile
|
|
downloadRequest.Credentials = credentials
|
|
|
|
Dim fileDateTmp As Date = ServerDateFile(credentials, fileUrl)
|
|
|
|
name = name.Replace(".csv", "_RGDAT_" & fileDateTmp.ToShortDateString & ".csv")
|
|
|
|
Dim destFilenameTMP = rmc.VERARBEITUNG_PFAD & "." & If(io.File.Exists(rmc.VERARBEITUNG_PFAD & "." & name), name.Replace(".csv", "_") & Now.ToString("yyMMdd_HHmmss.fff") & ".csv", name)
|
|
|
|
Using downloadResponse As FtpWebResponse = downloadRequest.GetResponse(),
|
|
sourceStream As Stream = downloadResponse.GetResponseStream(),
|
|
targetStream As Stream = File.OpenWrite(destFilenameTMP)
|
|
Dim buffer As Byte() = New Byte(10240 - 1) {}
|
|
Dim read As Integer
|
|
Do
|
|
read = sourceStream.Read(buffer, 0, buffer.Length)
|
|
If read > 0 Then
|
|
targetStream.Write(buffer, 0, read)
|
|
End If
|
|
Loop While read > 0
|
|
|
|
sourceStream.Dispose()
|
|
targetStream.Dispose()
|
|
downloadResponse.Dispose()
|
|
|
|
Dim destFilename = rmc.VERARBEITUNG_PFAD & If(io.File.Exists(rmc.VERARBEITUNG_PFAD & name), name.Replace(".csv", "_") & Now.ToString("yyMMdd_HHmmss.fff") & ".csv", name)
|
|
|
|
io.File.Move(destFilenameTMP, destFilename) 'Datei umbenennen
|
|
|
|
|
|
Dim fi As FileInfo = New FileInfo(destFilename)
|
|
ListBox3.Items.Add(frmStartOptions.cut_file(fi.Name)) 'zur Liste hinzufügen
|
|
cnt += 1
|
|
|
|
|
|
'Datei nach download löschen
|
|
If deleteAfterDownload Then
|
|
Dim ftpReq As FtpWebRequest = WebRequest.Create(fileUrl)
|
|
ftpReq.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftpReq.Credentials = credentials
|
|
Dim ftpResp As FtpWebResponse = ftpReq.GetResponse
|
|
ftpResp.Close()
|
|
End If
|
|
|
|
End Using
|
|
End If
|
|
End If
|
|
Next
|
|
End Sub
|
|
|
|
|
|
|
|
Private Function ServerDateFile(credentials As NetworkCredential, fileUrl As String) As Date
|
|
Dim ServerDate As DateTime
|
|
Try
|
|
Dim request As FtpWebRequest = WebRequest.Create(fileUrl)
|
|
request.Method = WebRequestMethods.Ftp.GetDateTimestamp
|
|
request.Credentials = credentials
|
|
|
|
Using response = CType(request.GetResponse(), Net.FtpWebResponse)
|
|
ServerDate = response.LastModified.ToShortDateString
|
|
End Using
|
|
|
|
Return ServerDate
|
|
Catch ex As WebException
|
|
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "PLOSE GET DATE FILE: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
|
End Try
|
|
|
|
Return ServerDate
|
|
End Function
|
|
|
|
Sub DatenEinlesen()
|
|
|
|
Exit Sub 'under development
|
|
|
|
VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL
|
|
|
|
If ListBox3.Items.Count = 0 Then
|
|
Label6.Text = "Keine Daten zum Einlesen vorhanden."
|
|
Label6.Visible = True
|
|
Exit Sub
|
|
End If
|
|
|
|
For i = 1 To 2
|
|
|
|
For Each d In System.IO.Directory.GetFiles(rmc.VERARBEITUNG_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 alreadyMoved = False
|
|
|
|
|
|
|
|
Select Case i
|
|
Case 1
|
|
'------------------------------------------
|
|
'------------------ CSV ------------------
|
|
'------------------------------------------
|
|
If fi.Extension.ToLower = ".csv" Then
|
|
|
|
If Not found Then
|
|
If readRMC(d) <> "" Then found = True
|
|
End If
|
|
If found Then cntDatenEingelesen += 1
|
|
End If
|
|
Case 2
|
|
|
|
'------------------------------------------
|
|
'------------------ PDF ------------------
|
|
'------------------------------------------
|
|
If fi.Extension.ToLower = ".pdf" Then
|
|
found = False
|
|
|
|
If Not IO.Directory.Exists(rmc.ZIEL_PFAD & "Invoice_PDF\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\") Then IO.Directory.CreateDirectory(rmc.ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
|
|
|
|
'File in Datenarchiv sichern:
|
|
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("MDM", "MDM_DATEN", "RMC", Now.Year, Now.ToString("yyyyMMdd"), frmStartOptions.getFileName(d))
|
|
|
|
DS.uploadDataToDATENSERVER(d)
|
|
|
|
'DatenArchiv-Id in tblPLOSE_Inv_Data Tabelle eintragen (über PDF-Name) :
|
|
SQL.doSQL("Update [tblPLOSE_Inv_Data] SET [plInv_daId]='" & DS.da_id & "' where [plInv_PdfFileName] = '" & DS.da_name & "' and [plInv_Einlesedatum] > DATEADD(DAY,-4,getdate()) ", "FMZOLL")
|
|
|
|
frmStartOptions.moveFile_DateBack(d, rmc.ZIEL_PFAD & "Invoice_PDF\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
|
|
|
|
addDGVEinarbeitung("PDF", DS.da_name)
|
|
|
|
dgvEinarbeitung.Refresh()
|
|
|
|
'Eintrag
|
|
End If
|
|
Case 5
|
|
frmStartOptions.moveFile_DateBack(d, rmc.ERROR_PFAD)
|
|
dsNichtErkannt += 1
|
|
End Select
|
|
|
|
If True Then
|
|
If Not alreadyMoved Then
|
|
If found Then
|
|
If Not IO.Directory.Exists(rmc.ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\") Then IO.Directory.CreateDirectory(rmc.ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
|
|
frmStartOptions.moveFile_DateBack(d, rmc.ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
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
|
|
Next
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
|
|
Me.Close()
|
|
End Sub
|
|
|
|
|
|
|
|
Sub addDGVEinarbeitung(art, BezugsNr)
|
|
dgvEinarbeitung.Rows.Add(art, BezugsNr)
|
|
Try
|
|
dgvEinarbeitung.FirstDisplayedScrollingRowIndex = dgvEinarbeitung.RowCount - 1
|
|
Catch ex As Exception
|
|
End Try
|
|
End Sub
|
|
|
|
|
|
Function readRMC(d As String) As String
|
|
Try
|
|
|
|
Dim KdnR = ""
|
|
|
|
Dim plose_RechnungsJahr = ""
|
|
Dim plose_RechnungsLieferantCode = ""
|
|
Dim plose_RechnungsNr = ""
|
|
|
|
Dim plose_RechnungsDat = Nothing
|
|
Dim plose_Lieferant = Nothing
|
|
|
|
Dim fi As FileInfo = New FileInfo(d)
|
|
If fi.Name.Length > 8 Then
|
|
''Dim plose_RechnungsNr = fi.Name.Substring(0, 8)
|
|
|
|
'plose_RechnungsJahr = fi.Name.Substring(0, 2)
|
|
'plose_RechnungsLieferantCode = fi.Name.Substring(2, 1)
|
|
'' plose_RechnungsNr = fi.Name.Substring(3, 5)
|
|
|
|
|
|
|
|
End If
|
|
|
|
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()
|
|
|
|
If True Then 'fi.Name.Length > 8 Then
|
|
|
|
|
|
Select Case currentRow(0)
|
|
Case "TR1"
|
|
'RECHNUGNSDATUM
|
|
If currentRow.Length > 1 AndAlso currentRow(1).ToString.Length = 8 Then
|
|
Dim datumParse = DateTime.ParseExact(currentRow(1), "yyyyMMdd", Nothing)
|
|
plose_RechnungsDat = datumParse 'Rechnungsdatum aus TR1 Datensatz, überschreibt den Wert aus der Dateierstellung
|
|
End If
|
|
'RECHNUGNSNR
|
|
If currentRow.Length > 2 Then 'AndAlso currentRow(1).ToString.Length = 8 Then
|
|
plose_RechnungsNr = SQL.isleernothing(currentRow(2)) 'Rechnungsdatum aus TR1 Datensatz, überschreibt den Wert aus der Dateierstellung
|
|
End If
|
|
|
|
Case "TR5"
|
|
If currentRow.Length > 24 AndAlso currentRow(12) <> "839160" Then 'KDNR <> VERAG --> Die Kosten bleiben uns
|
|
|
|
Dim RMC As New VERAG_PROG_ALLGEMEIN.cRMC
|
|
|
|
'PLOSE.plose_Dateiname = fi.Name
|
|
'PLOSE.plose_RechnungsNr = plose_RechnungsNr
|
|
'PLOSE.plose_Lieferant = plose_Lieferant
|
|
'PLOSE.plose_LieferantCode = plose_RechnungsLieferantCode
|
|
'PLOSE.plose_RechnungsJahr = plose_RechnungsJahr
|
|
'If plose_RechnungsDat IsNot Nothing Then PLOSE.plose_RechnungsDatum = plose_RechnungsDat
|
|
'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 RMC.SAVE() Then
|
|
|
|
End If
|
|
|
|
End If
|
|
End Select
|
|
|
|
cnt += 1
|
|
End If
|
|
|
|
|
|
'For Each currentField In currentRow
|
|
'Next
|
|
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
|
|
readRMC = "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: Detail" & KdnR, readRMC)
|
|
|
|
' 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)
|
|
readRMC = ""
|
|
End Try
|
|
End Function
|
|
|
|
|
|
'Function readPLOSE_INVData(d As String) As String
|
|
' Try
|
|
' Dim cnt = 0
|
|
' readPLOSE_INVData = ""
|
|
|
|
|
|
' Using MyReader As New Microsoft.VisualBasic.FileIO.TextFieldParser(d, Encoding.UTF8)
|
|
' MyReader.TextFieldType = FileIO.FieldType.Delimited
|
|
' MyReader.SetDelimiters(";")
|
|
' Dim currentRow As String()
|
|
|
|
|
|
' Dim fi As FileInfo = New FileInfo(d)
|
|
|
|
' While Not MyReader.EndOfData
|
|
' Try
|
|
' currentRow = MyReader.ReadFields()
|
|
|
|
' If currentRow(0) <> "PloseCode" Then ' Header
|
|
' If currentRow.Length >= 15 Then
|
|
' Dim PLOSE_INV As New MDM_Worker.cPLOSE_Inv_Data
|
|
' ' MsgBox(SQL.isleernothingDateFormatstring(currentRow(7)))
|
|
' ' MsgBox(currentRow(7))
|
|
' PLOSE_INV.plInv_SupplierRechnungsDatum = SQL.isleernothingDateFormatstring(currentRow(7))
|
|
' ' MsgBox(PLOSE_INV.plInv_SupplierRechnungsDatum)
|
|
' PLOSE_INV.plInv_SupplierRechnungsNr = SQL.isleernothing(currentRow(8))
|
|
' PLOSE_INV.plInv_SupplierCountry = SQL.isleernothing(currentRow(6))
|
|
' PLOSE_INV.plInv_Lieferant = SQL.isleernothing(currentRow(4))
|
|
' PLOSE_INV.plInv_LieferantCode = SQL.isleernothing(currentRow(3))
|
|
' PLOSE_INV.plInv_LieferantUID = SQL.isleernothing(currentRow(5))
|
|
' 'PLOSE_INV.plInv_RechnungsJahr = SQL.isleernothing(currentRow(7)) --> JAHR
|
|
' PLOSE_INV.plInv_PdfFileName = SQL.isleernothing(currentRow(14))
|
|
' If If(PLOSE_INV.plInv_PdfFileName, "") <> "" Then
|
|
' If Not PLOSE_INV.plInv_PdfFileName.ToString.ToLower.EndsWith(".pdf") Then PLOSE_INV.plInv_PdfFileName += ".pdf" ' Falls Endung nciht .pdf --> anfügen
|
|
' End If
|
|
' PLOSE_INV.plInv_Einlesedatum = Now.ToShortDateString
|
|
' PLOSE_INV.plInv_Datensatztyp = "PDF"
|
|
' PLOSE_INV.plInv_PLOSEKundennummer = SQL.isleernothing(currentRow(0))
|
|
' PLOSE_INV.plInv_Firmenname = SQL.isleernothing(currentRow(1))
|
|
' ' PLOSE_INV.plInv_DatumTransaktion = SQL.isleernothing(currentRow(0))
|
|
' ' PLOSE_INV.plInv_Produktbeschreibung = SQL.isleernothing(currentRow(0))
|
|
' PLOSE_INV.plInv_Services = SQL.isleernothing(currentRow(13))
|
|
|
|
' PLOSE_INV.plInv_Nettobetrag = CDbl(CDbl(SQL.isNullReturnValue(currentRow(9), 0).replace(".", ",")) + CDbl(SQL.isNullReturnValue(currentRow(11), 0).replace(".", ",")))
|
|
' PLOSE_INV.plInv_MWSTBetrag = CDbl(SQL.isNullReturnValue(currentRow(10), 0).replace(".", ","))
|
|
' PLOSE_INV.plInv_Bruttobetrag = CDbl(SQL.isNullReturnValue(currentRow(12), 0).replace(".", ","))
|
|
|
|
' ' [plInv_daId]
|
|
|
|
' 'If If(PLOSE_INV.plInv_PdfFileName, "") <> "" Then 'And PLOSE_INV.plInv_daId Is Nothing Then
|
|
' ' PLOSE_INV.plInv_daId = SQL.getValueTxtBySql("SELECT TOP (1) [da_id] FROM [tblDatenarchiv] where da_kategorie = 'MDM' AND da_ordner='MDM_DATEN' and da_name='" & PLOSE_INV.plInv_PdfFileName & "' order by da_id desc", "FMZOLL",,, Nothing)
|
|
' 'End If
|
|
|
|
|
|
' PLOSE_INV.plInv_Dateiname = fi.Name
|
|
|
|
' ''''''''''''
|
|
' If PLOSE_INV.SAVE() Then
|
|
|
|
' ' UPDATE tblPLOSE_Details:
|
|
' SQL.doSQL("UPDATE [tblPLOSE_Details] SET [plose_plInvId] ='" & PLOSE_INV.plInv_Id & "' where plose_SupplierRechnungsNr='" & PLOSE_INV.plInv_SupplierRechnungsNr & "' AND plose_SupplierRechnungsDatum='" & PLOSE_INV.plInv_SupplierRechnungsDatum & "'", "FMZOLL")
|
|
' End If
|
|
|
|
' End If
|
|
' End If
|
|
|
|
' cnt += 1
|
|
|
|
' 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
|
|
|
|
|
|
' readPLOSE_INVData = "Zeilen: " & cnt
|
|
|
|
' 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: INV_DATA (" & cnt & ")", readPLOSE_INVData)
|
|
|
|
' ' 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_INVData = ""
|
|
' End Try
|
|
'End Function
|
|
|
|
|
|
Private Sub dgvEinarbeitung_SelectionChanged(sender As Object, e As EventArgs) Handles dgvEinarbeitung.SelectionChanged
|
|
dgvEinarbeitung.ClearSelection()
|
|
|
|
End Sub
|
|
|
|
|
|
Private Sub frmTCNachrichtenVerarbeitung_Shown(sender As Object, e As EventArgs) Handles Me.Shown
|
|
If allowClose Then
|
|
Me.Refresh()
|
|
|
|
Button2.PerformClick()
|
|
Button1.PerformClick()
|
|
|
|
System.Threading.Thread.Sleep(2000)
|
|
|
|
Me.Close()
|
|
End If
|
|
End Sub
|
|
|
|
End Class
|
|
|