mailsender, etc.
This commit is contained in:
@@ -6,6 +6,7 @@ Imports System.Security.Cryptography.X509Certificates
|
||||
Imports System.Text
|
||||
Imports System.Threading
|
||||
Imports System.Xml
|
||||
Imports com.sun.xml.internal.rngom.digested
|
||||
Imports iTextSharp.text
|
||||
Imports javax
|
||||
Imports MDM_Worker
|
||||
@@ -8203,12 +8204,13 @@ repeatRequest:
|
||||
'aktuell verwendet Verag360 kein Zugferd und Sammelrechnung 6 geht aktuell noch nicht - 29.04.2026 Start der neuen Funktion!
|
||||
|
||||
Dim DateString = "and CONVERT(DATE, GETDATE())"
|
||||
|
||||
Dim top As String = ""
|
||||
If InvoicesUntilYesterday Then
|
||||
top = " top(1000) "
|
||||
DateString = "CONVERT(DATE, DATEADD(DAY, -1, GETDATE()))"
|
||||
End If
|
||||
|
||||
Dim dt As DataTable = SQL.loadDgvBySql("SELECT RK_ID, dsId, Firma_ID, RechnungsNr FROM [Rechnungsausgang] where [zugferdcheck_daid] is null and [zugferdcheck_datetime] is null and dsId is not null and cast(RechnungsDatum as Date) between '29.04.2026' and " & DateString & " and Sammelrechnung <> 6 and Firma_ID <> 19 ", "FMZOLL", 100, False)
|
||||
Dim dt As DataTable = SQL.loadDgvBySql("SELECT " & top & " RK_ID, dsId, Firma_ID, RechnungsNr FROM [Rechnungsausgang] where [zugferdcheck_daid] is null and [zugferdcheck_datetime] is null and dsId is not null and cast(RechnungsDatum as Date) between '29.04.2026' and " & DateString & " and Sammelrechnung <> 6 and Firma_ID <> 19 order by ReErfZeitstempel desc", "FMZOLL", 100, False)
|
||||
|
||||
Dim sumTotal_IMEX As Integer = 0
|
||||
Dim sumTotal_VERAG As Integer = 0
|
||||
@@ -8273,12 +8275,21 @@ repeatRequest:
|
||||
|
||||
|
||||
Dim psi As New ProcessStartInfo()
|
||||
psi.FileName = fileName
|
||||
psi.Arguments = arguments & Path
|
||||
|
||||
'Workstation Daniel
|
||||
'psi.FileName = "C:\Program Files\Eclipse Adoptium\jre-11.0.28.6-hotspot\bin\java.exe"
|
||||
'psi.Arguments = "-jar ""C:\Users\d.breimaier\Downloads\Mustang-CLI-2.21.0.jar"" --no-notices --action validate --source " & Path & ""
|
||||
If Environment.MachineName = "H6CCWP3" Then
|
||||
'Workstation Daniel
|
||||
psi.FileName = "C:\Program Files\Eclipse Adoptium\jre-11.0.32.101-hotspot\bin\java.exe"
|
||||
psi.Arguments = "-jar ""C:\Users\d.breimaier\Downloads\Mustang-CLI-2.21.0.jar"" --no-notices --action validate --source " & Path
|
||||
|
||||
Else
|
||||
psi.FileName = fileName
|
||||
psi.Arguments = arguments & Path
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
psi.RedirectStandardOutput = True
|
||||
psi.RedirectStandardError = True
|
||||
@@ -8392,7 +8403,7 @@ repeatRequest:
|
||||
If dt.Rows.Count > 0 Then
|
||||
|
||||
If Not sendNotificationEmails Then
|
||||
'VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, True,,, True)
|
||||
If Environment.MachineName = "H6CCWP3" Then VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, True,,, True)
|
||||
Else
|
||||
|
||||
|
||||
@@ -8497,7 +8508,7 @@ repeatRequest:
|
||||
|
||||
Private Function createMailTextZugferd(total As Integer, valid As Integer, invalid As Integer, Firma As String) As String
|
||||
|
||||
Dim MailText = "Auflistung der gültigen/ungültigen ZUGFeRD-Prüfungen vom " & Today.AddDays(-1).ToShortDateString & " für " & Firma & " <br><br>"
|
||||
Dim MailText = "Auflistung der gültigen/ungültigen ZUGFeRD-Prüfungen vom " & Today.ToShortDateString & " für " & Firma & " <br><br>"
|
||||
MailText &= "<table border=1>"
|
||||
MailText &= "<tr><td>Gültig</td><td>Ungültig</td><td>Gesamt</td></tr>"
|
||||
MailText &= "<tr>"
|
||||
@@ -8655,9 +8666,9 @@ repeatRequest:
|
||||
bestellung.eb_gesendetVon = "AUTO"
|
||||
If IsDBNull(bestellung.eb_gesendetFirst_am) Then bestellung.eb_gesendetFirst_am = Now()
|
||||
bestellung.SAVE()
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
Next
|
||||
|
||||
|
||||
@@ -9016,5 +9027,57 @@ repeatRequest:
|
||||
Dim f As New frmMICNachrichtenVerarbeitung
|
||||
f.ShowDialog()
|
||||
Me.Visible = True
|
||||
End Sub
|
||||
|
||||
Private Sub Button36_Click(sender As Object, e As EventArgs) Handles Button36.Click
|
||||
|
||||
|
||||
|
||||
Dim input = InputBox("Bitte geben Sie die FilialNr für die zu prüfenden SPED-Einträge an:", "FilialNr angeben")
|
||||
If input <> "" AndAlso IsNumeric(input) AndAlso input.Length = 4 Then
|
||||
|
||||
Else
|
||||
Exit Sub
|
||||
|
||||
End If
|
||||
|
||||
|
||||
Dim sqlString = "SELECT count(*) FROM Speditionsbuch AS sb INNER JOIN [AVISO].dbo.tblSendungen AS s ON s.tblSnd_SendungID = sb.SendungID WHERE sb.PersonalnummerQS IS NULL AND s.tblSnd_QS_MA IS NOT NULL AND YEAR(sb.Abfertigungsdatum) = Year(GETDATE()) AND sb.FilialenNr = " & input
|
||||
|
||||
|
||||
Dim MissingEntries As Integer = CInt((New SQL).getValueTxtBySql(sqlString, "FMZOLL",,, "0"))
|
||||
|
||||
If MissingEntries > 0 Then
|
||||
|
||||
|
||||
If Not vbYes = MsgBox("Aktuell ist in " & MissingEntries & " Speditionsbucheinträgen des aktuellen Jahres der QS-Sachbearbeiter nicht gesetzt." & vbNewLine & "Sollen diese nachträglich vervollständigt werden?", vbYesNoCancel) Then
|
||||
Me.Visible = True
|
||||
Exit Sub
|
||||
|
||||
Else
|
||||
|
||||
Dim SQLStringUpdate = " UPDATE sb SET sb.PersonalnummerQS = s.tblSnd_QS_MA FROM Speditionsbuch AS sb INNER JOIN [AVISO].dbo.tblSendungen AS s ON s.tblSnd_SendungID = sb.SendungID WHERE sb.PersonalnummerQS IS NULL AND s.tblSnd_QS_MA IS NOT NULL AND YEAR(sb.Abfertigungsdatum) = Year(GETDATE()) AND sb.FilialenNr = " & input
|
||||
|
||||
Dim result = (New SQL).doSQL(SQLStringUpdate, "FMZOLL")
|
||||
|
||||
If result Then
|
||||
|
||||
Else
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
End If
|
||||
|
||||
Else
|
||||
|
||||
MsgBox("keine fehlenden Einträge für FilialenNr " & input & " gefunden")
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user