mailsender, etc.
This commit is contained in:
@@ -4,6 +4,7 @@ Imports System.Text
|
||||
Imports System.Text.RegularExpressions
|
||||
Imports System.Web
|
||||
Imports System.Xml
|
||||
Imports io.konik.zugferd
|
||||
Imports Renci.SshNet
|
||||
Imports Renci.SshNet.Sftp
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
@@ -599,7 +600,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
|
||||
|
||||
'File in Datenarchiv sichern:
|
||||
'd.breimaier: 2024-06-05 aktuell nur die RMC-Dateien! (später, wenn CSV vollständig, dann alle PDFs importieren!
|
||||
'd.breimaier: 2024-06-17 laut Christian Schuster von Comcore (EDV-BEtr. von RMC) nicht möglich CSV mit easytrip und sofico Datensätzen zu ergängen!
|
||||
'd.breimaier: 2024-06-17 laut Christian Schuster von Comcore (EDV-BEtr. von RMC) nicht möglich CSV mit easytrip und sofico Datensätzen zu ergänzen!
|
||||
'd.breimaier: 2025-09-15 laut Christian Schuster erhalten wir nun die Rechnungen mit folgenden Aufbau:
|
||||
|
||||
'• fixwert invoice
|
||||
@@ -629,11 +630,11 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
|
||||
|
||||
End If
|
||||
|
||||
If fi.Name.ToString.StartsWith("invoice_") OrElse (fi.Name.ToString.StartsWith("maut_") AndAlso fi.Name.ToString.Contains("EGR") AndAlso Not fi.Name.ToString.Contains("ALL")) Then 'RMC Eigenrechnungen
|
||||
If fi.Name.ToString.StartsWith("invoice_") OrElse (fi.Name.ToString.StartsWith("maut_") AndAlso fi.Name.ToString.Contains("EGR") AndAlso Not fi.Name.ToString.Contains("ALL")) Then
|
||||
|
||||
If fi.Name.ToString.StartsWith("invoice_") Then
|
||||
|
||||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("MDM", "MDM_DATEN", "RMC", Now.Year, Now.ToString("yyyyMMdd"), frmStartOptions.getFileName(fileNamePath))
|
||||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("MDM", "MDM_DATEN", "RMC", Now.Year, Now.ToString("yyyyMMdd"), frmStartOptions.getFileName(fileNamePath)) 'RMC Eigenrechnungen
|
||||
|
||||
DS.uploadDataToDATENSERVER(fileNamePath,,,,,, True)
|
||||
|
||||
@@ -643,7 +644,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
|
||||
If fi.Name.ToLower.Contains("pdf") Then addDGVEinarbeitung("PDF", fi.Name)
|
||||
dgvEinarbeitung.Refresh()
|
||||
found = True
|
||||
ElseIf (fi.Name.ToString.StartsWith("maut_") AndAlso fi.Name.ToString.Contains("EGR") AndAlso Not fi.Name.ToString.Contains("ALL")) Then 'EasyTrip IT Rechnungen
|
||||
ElseIf (fi.Name.ToString.StartsWith("maut_") AndAlso fi.Name.ToString.Contains("EGR") AndAlso Not fi.Name.ToString.Contains("ALL")) Then 'EasyTrip Italy Rechnungen
|
||||
|
||||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("MDM", "MDM_DATEN", "RMC", Now.Year, Now.ToString("yyyyMMdd"), frmStartOptions.getFileName(fileNamePath))
|
||||
|
||||
@@ -723,28 +724,15 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
|
||||
|
||||
End If
|
||||
|
||||
'copy file to lydia - nicht mehr notwendig!!!
|
||||
'If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
|
||||
' Dim filepathToLydia = IIf(rmc.PDFRECHNUNGEN <> "", rmc.PDFRECHNUNGEN, "\\share01\F\Juricevic Datensicherung\RMC_RECHNUNGEN\")
|
||||
' If fileNamePath.ToString.ToLower.Contains("nto") Then
|
||||
' frmStartOptions.copyFile(fileNamePath, filepathToLydia & "NETTO\")
|
||||
' Else
|
||||
' frmStartOptions.copyFile(fileNamePath, filepathToLydia & "BRUTTO\")
|
||||
' End If
|
||||
'End If
|
||||
|
||||
|
||||
|
||||
End If
|
||||
|
||||
Case 3
|
||||
|
||||
If (fi.Name.ToString.StartsWith("maut_") AndAlso fi.Name.ToString.Contains("EGR") AndAlso fi.Name.ToString.Contains("ALL")) Then
|
||||
|
||||
If (fi.Name.ToString.StartsWith("maut_") AndAlso fi.Name.ToString.Contains("EGR") AndAlso fi.Name.ToString.Contains("ALL")) Then 'bekommen wir diese PDFS noch??
|
||||
|
||||
Dim fileNamePath As String = d
|
||||
|
||||
|
||||
|
||||
Dim fileNameEasyTrip As String = fi.Name
|
||||
|
||||
fileNameEasyTrip = fileNameEasyTrip.Replace("maut_", "")
|
||||
@@ -773,6 +761,41 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
|
||||
If fi.Name.ToLower.Contains("pdf") Then addDGVEinarbeitung("PDF", fi.Name)
|
||||
dgvEinarbeitung.Refresh()
|
||||
found = True
|
||||
|
||||
ElseIf (fi.Name.ToString.StartsWith("mauteets_")) Then
|
||||
|
||||
Dim fileNamePath As String = d
|
||||
Dim fileNameMauteets As String = fi.Name
|
||||
fileNameMauteets = fileNameMauteets.Replace("mauteets_", "")
|
||||
|
||||
Dim kdNr As String = fileNameMauteets.Substring(0, 5)
|
||||
Dim mautteetsDate As String = ""
|
||||
Dim mauteetsCountry As String = ""
|
||||
|
||||
'22424_302753_20260808_IT_orig_bto.pdf
|
||||
|
||||
mautteetsDate = fileNameMauteets.Substring(13, 8)
|
||||
mauteetsCountry = fileNameMauteets.Substring(23, 2)
|
||||
|
||||
Dim parsedDate As DateTime = DateTime.ParseExact(fileNameMauteets, "yyyyMMdd", System.Globalization.CultureInfo.InvariantCulture)
|
||||
|
||||
Dim isBTO As Boolean = False
|
||||
If fileNameMauteets.ToString.ToLower.Contains("bto") Then
|
||||
isBTO = True
|
||||
End If
|
||||
|
||||
|
||||
|
||||
Dim RMC As New cRMC(kdNr, parsedDate.ToString("dd.MM.yyyy"), mauteetsCountry, isBTO)
|
||||
If RMC.hasEntry AndAlso RMC.rmc_daId_InvAtt Is Nothing Then
|
||||
|
||||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("MDM", "MDM_DATEN", "RMC_ATT", Now.Year, Now.ToString("yyyyMMdd"), frmStartOptions.getFileName(fileNamePath))
|
||||
DS.uploadDataToDATENSERVER(fileNamePath,,,,,, True)
|
||||
RMC.rmc_daId_InvAtt = DS.da_id
|
||||
RMC.SAVE()
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
|
||||
|
||||
@@ -1441,6 +1464,12 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
|
||||
RMC.rmc_betragMWST = SQL.isleernothing(currentRow(10))
|
||||
RMC.rmc_betragBrutto = SQL.isleernothing(currentRow(11))
|
||||
|
||||
If fileType = "brutto" Then
|
||||
RMC.rmc_isBTO = True
|
||||
Else
|
||||
RMC.rmc_isBTO = False
|
||||
End If
|
||||
|
||||
Dim waherung = SQL.isleernothing(currentRow(12))
|
||||
If waherung IsNot Nothing Then
|
||||
RMC.rmc_waehrung = IIf(waherung.ToString.Length > 3, waherung.ToString.Substring(0, 3), waherung)
|
||||
|
||||
Reference in New Issue
Block a user