Merge branch 'ADMIN' of https://dev.azure.com/VeragAG/_git/ADMIN into ADMIN
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
|
||||
|
||||
@@ -3105,17 +3107,49 @@ Public Class frmStartOptions
|
||||
", "FMZOLL")
|
||||
|
||||
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
|
||||
Dim PDF = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genCSVFromDT(dt, False)
|
||||
Dim PDF = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genCSVFromDT(dt, False,, "USTV_" & Now.ToString("ddMMyyyy"))
|
||||
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
|
||||
@@ -5405,7 +5445,7 @@ Public Class frmStartOptions
|
||||
|
||||
|
||||
For Each r In dtRE.Rows
|
||||
Dim mrnAlt = sql.DLookup("Weitere_Reg_Nr", "[AVISO].[dbo].[tbl_DY_Zollmeldungen_Import]", "[Weitere_Reg_Nr] is not null and [Registriernummer_MRN] = '" & r.Item("Belegdaten") & "'", "AVISO")
|
||||
Dim mrnAlt = sql.DLookup("Weitere_Reg_Nr", "[tbl_DY_Zollmeldungen_Import]", "[Weitere_Reg_Nr] is not null and [Registriernummer_MRN] = '" & r.Item("Belegdaten") & "'", "AVISO")
|
||||
If mrnAlt IsNot Nothing AndAlso mrnAlt <> "" Then
|
||||
|
||||
If sql.doSQL("update RechnungsausgangPositionen set Weitere_Reg_Nr ='" & mrnAlt & "' where RK_ID= " & r.Item("RK_ID") & " AND Belegdaten = '" & r.Item("Belegdaten") & "'", "FMZOLL") Then
|
||||
@@ -5436,7 +5476,7 @@ Public Class frmStartOptions
|
||||
End Sub
|
||||
|
||||
Private Sub Button27_Click(sender As Object, e As EventArgs) Handles btnTestATEZ.Click
|
||||
VERAG_PROG_ALLGEMEIN.cATEZ_ncts_api.get_ie015_xml_by_mrn("24TR34340000000145")
|
||||
VERAG_PROG_ALLGEMEIN.cATEZ_ncts_api.updateStatusByMRN(MyTextBox5.Text)
|
||||
|
||||
End Sub
|
||||
|
||||
@@ -5513,4 +5553,19 @@ Public Class frmStartOptions
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button28_Click(sender As Object, e As EventArgs) Handles Button28.Click
|
||||
|
||||
Dim dt = (New SQL).loadDgvBySql("SELECT TOP (200) ncts_MRN FROM [tblNCTS_FREMD] where ncts_Status between 50 and 59 and ncts_Partnersystem='ATEZ'", "FMZOLL")
|
||||
If dt IsNot Nothing Then
|
||||
Label49.Text = "-"
|
||||
Dim cnt = 1
|
||||
For Each r In dt.Rows
|
||||
Label49.Text = cnt & "/" & dt.Rows.Count
|
||||
Me.Refresh()
|
||||
VERAG_PROG_ALLGEMEIN.cATEZ_ncts_api.get_ie015_xml_by_mrn(r("ncts_MRN"))
|
||||
Next
|
||||
Label49.Text = dt.Rows.Count & "fin"
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user