RMC SFTP
This commit is contained in:
@@ -1,6 +1,8 @@
|
||||
Imports System.Data.OleDb
|
||||
Imports System.IO
|
||||
Imports System.Net
|
||||
Imports System.Net.Security
|
||||
Imports System.Security.Cryptography.X509Certificates
|
||||
Imports System.Text
|
||||
Imports System.Xml
|
||||
Imports Renci.SshNet
|
||||
@@ -3070,7 +3072,7 @@ Public Class frmStartOptions
|
||||
|
||||
End Function
|
||||
|
||||
Function sendWOELFL_USTVAntraege(Mail_To, Optional Mail_CC = "", Optional Mail_BCC = "")
|
||||
Function sendWOELFL_USTVAntraege(art As String, Optional Mail_To As String = "", Optional Mail_CC As String = "", Optional Mail_BCC As String = "")
|
||||
Try
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
@@ -3107,15 +3109,47 @@ Public Class frmStartOptions
|
||||
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
|
||||
Dim PDF = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genCSVFromDT(dt, False)
|
||||
If PDF <> "" Then
|
||||
Dim list As New List(Of String)
|
||||
list.Add(PDF)
|
||||
Dim Body = "Anbei befindet sich die Auflistung der USTV-Anträge.<br>"
|
||||
Select Case art
|
||||
Case "MAIL"
|
||||
Dim list As New List(Of String)
|
||||
list.Add(PDF)
|
||||
Dim Body = "Anbei befindet sich die Auflistung der USTV-Anträge.<br>"
|
||||
|
||||
Body &= "<br><br>Erstellt am: " & Now.ToShortDateString & ", um " & Now.ToShortTimeString
|
||||
Body &= "<br><br>Automatisch generiertes E-Mail."
|
||||
Dim Mail_betreff = "USTV-Anträge"
|
||||
Body &= "<br><br>Erstellt am: " & Now.ToShortDateString & ", um " & Now.ToShortTimeString
|
||||
Body &= "<br><br>Automatisch generiertes E-Mail."
|
||||
Dim Mail_betreff = "USTV-Anträge"
|
||||
|
||||
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(Mail_To, Mail_betreff, Body,,, False, Mail_CC, Mail_BCC, list)
|
||||
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(Mail_To, Mail_betreff, Body,,, False, Mail_CC, Mail_BCC, list)
|
||||
|
||||
|
||||
Case "FTP"
|
||||
|
||||
|
||||
Dim sftpHost As String = "195.70.110.195" ' Deine SFTP-Server-IP
|
||||
Dim sftpPort As Integer = 22 ' Standard-SFTP-Port (ändern, falls nötig)
|
||||
Dim sftpUsername As String = "verag"
|
||||
Dim sftpPassword As String = "Di1543V!r205"
|
||||
Dim localFilePath As String = PDF
|
||||
Dim remoteDirectory As String = "/verag2rmc/" ' Zielordner auf dem SFTP-Server
|
||||
|
||||
Try
|
||||
' Verbindung zum SFTP-Server herstellen
|
||||
Using sftpClient As New SftpClient(sftpHost, sftpPort, sftpUsername, sftpPassword)
|
||||
sftpClient.Connect()
|
||||
Console.WriteLine("SFTP-Verbindung hergestellt.")
|
||||
|
||||
' Datei hochladen
|
||||
Using fileStream As New FileStream(localFilePath, FileMode.Open)
|
||||
sftpClient.UploadFile(fileStream, remoteDirectory & Path.GetFileName(localFilePath))
|
||||
End Using
|
||||
|
||||
Console.WriteLine("Datei erfolgreich hochgeladen!")
|
||||
sftpClient.Disconnect()
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
Console.WriteLine("Fehler: " & ex.Message)
|
||||
End Try
|
||||
End Select
|
||||
|
||||
End If
|
||||
End If
|
||||
@@ -3125,7 +3159,9 @@ Public Class frmStartOptions
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Private Function ValidateServerCertificate(sender As Object, certificate As X509Certificate, chain As X509Chain, sslPolicyErrors As SslPolicyErrors) As Boolean
|
||||
Return True
|
||||
End Function
|
||||
Function getUID_Pruefung(maxAnz As Integer, Mail_FIMRA As String, Mail_betreff As String, Mail_To As String, Optional Mail_CC As String = "", Optional Mail_BCC As String = "", Optional TageZurueck As String = "", Optional setKundenvermerk As Boolean = False) As Boolean
|
||||
Dim firmatmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Try
|
||||
@@ -3891,18 +3927,17 @@ Public Class frmStartOptions
|
||||
End If
|
||||
SDL.Sachbearbeiter = "ASFINAG"
|
||||
|
||||
Dim Validto = SQl.checkNullStr(oRDR.GetValue("DatumVertragsabschluss"))
|
||||
Dim Validto = SQL.checkNullStr(oRDR.GetValue("DatumVertragsabschluss"))
|
||||
|
||||
SDL.KartenNr = SQl.checkNullStr(oRDR.GetValue("CardNumber"))
|
||||
SDL.KartenNr = SQL.checkNullStr(oRDR.GetValue("CardNumber"))
|
||||
If Validto <> "" Then
|
||||
SDL.GültigBis = DateAdd("d", -1, DateAdd("m", 1, DateSerial("20" & Mid(oRDR.GetValue("CardNumber"), 1, 2), Mid(Validto, 3, 2), 1)))
|
||||
End If
|
||||
|
||||
SDL.OBUID = SQl.checkNullStr(oRDR.GetValue("OBUID"))
|
||||
SDL.Vertragsabschlussdatum = SQl.checkNullStr(oRDR.GetValue("DatumVertragsabschluss"))
|
||||
SDL.Kategorie = SQl.checkNullStr(oRDR.GetValue("Kategorie"))
|
||||
SDL.Schadstoffklasse = SQl.checkNullStr(oRDR.GetValue("Schadstoffklasse"))
|
||||
SDL.Status = SQl.checkNullStr(oRDR.GetValue("Status"))
|
||||
SDL.OBUID = SQL.checkNullStr(oRDR.GetValue("OBUID"))
|
||||
SDL.Vertragsabschlussdatum = SQL.checkNullStr(oRDR.GetValue("DatumVertragsabschluss"))
|
||||
SDL.Kategorie = SQL.checkNullStr(oRDR.GetValue("Kategorie"))
|
||||
SDL.Schadstoffklasse = SQL.checkNullStr(oRDR.GetValue("Schadstoffklasse"))
|
||||
SDL.Status = SQL.checkNullStr(oRDR.GetValue("Status"))
|
||||
SDL.SAVE()
|
||||
End If
|
||||
|
||||
@@ -3948,21 +3983,21 @@ Public Class frmStartOptions
|
||||
End If
|
||||
SDL.Sachbearbeiter = "ASFINAG" & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "_TEST", "")
|
||||
|
||||
Dim Validto = SQl.checkNullStr(row.Item("contractDate"))
|
||||
Dim Validto = SQL.checkNullStr(row.Item("contractDate"))
|
||||
|
||||
SDL.KartenNr = SQl.checkNullStr(row.Item("cardNumber"))
|
||||
SDL.KartenNr = SQL.checkNullStr(row.Item("cardNumber"))
|
||||
If Validto <> "" Then
|
||||
'MsgBox(Mid(row.Item("ValidTo"), 1, 2) & " " & Mid(row.Item("ValidTo"), 3, 2))
|
||||
SDL.GültigBis = DateAdd("d", -1, DateAdd("m", 1, DateSerial("20" & Mid(row.Item("ValidTo"), 1, 2), Mid(row.Item("ValidTo"), 3, 2), 1))) 'noch im DETAIL checken!
|
||||
End If
|
||||
|
||||
SDL.OBUID = SQl.checkNullStr(row.Item("OBUID"))
|
||||
SDL.Vertragsabschlussdatum = SQl.checkNullStr(row.Item("contractDate"))
|
||||
SDL.Kategorie = SQl.checkNullStr(row.Item("vehicleCategory"))
|
||||
SDL.Schadstoffklasse = SQl.checkNullStr(row.Item("emissionCategory"))
|
||||
SDL.Status = SQl.checkNullStr(row.Item("status"))
|
||||
SDL.Nationalitaet = SQl.checkNullStr(row.Item("nationality"))
|
||||
SDL.CO2Kategorie = SQl.checkNullStr(row.Item("CO2EmissionsClass"))
|
||||
SDL.OBUID = SQL.checkNullStr(row.Item("OBUID"))
|
||||
SDL.Vertragsabschlussdatum = SQL.checkNullStr(row.Item("contractDate"))
|
||||
SDL.Kategorie = SQL.checkNullStr(row.Item("vehicleCategory"))
|
||||
SDL.Schadstoffklasse = SQL.checkNullStr(row.Item("emissionCategory"))
|
||||
SDL.Status = SQL.checkNullStr(row.Item("status"))
|
||||
SDL.Nationalitaet = SQL.checkNullStr(row.Item("nationality"))
|
||||
SDL.CO2Kategorie = SQL.checkNullStr(row.Item("CO2EmissionsClass"))
|
||||
SDL.SAVE()
|
||||
End If
|
||||
|
||||
@@ -4791,9 +4826,14 @@ Public Class frmStartOptions
|
||||
Me.Cursor = Cursors.Default
|
||||
End Sub
|
||||
|
||||
Private Sub LinkLabel50_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel50.LinkClicked
|
||||
Private Sub LinkLabel50_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel50.LinkClicked, LinkLabel71.LinkClicked
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
sendWOELFL_USTVAntraege("al@verag.ag")
|
||||
If sender Is LinkLabel50 Then
|
||||
sendWOELFL_USTVAntraege("MAIL", "al@verag.ag")
|
||||
ElseIf sender Is LinkLabel71 Then
|
||||
sendWOELFL_USTVAntraege("FTP")
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Function INSERT_Kundenumsaetze(insertLastYears As Integer) As Boolean
|
||||
|
||||
Reference in New Issue
Block a user