edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge branch 'newMaster2024' of https://dev.azure.com/VeragAG/_git/SDL into newMaster2024

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-02-21 09:20:03 +01:00
parent 28540cbda0 4a72319b56
commit 44f746b1c5
1 changed files with 59 additions and 64 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
SDL/Fakturierung/frmSendEmail.vb
View File

@@ -224,7 +224,7 @@ Public Class frmSendEmail
' Setzt den Mail-Text ' Setzt den Mail-Text
Private Sub setMailText() Private Sub setMailText()
Dim abfNr As String = " Pos-Nr.: " & RECHNUNG.LKW_Kennzeichen & "/" & RECHNUNG.FilialenNr & "-" & RECHNUNG.AbfertigungsNr & "-" & RECHNUNG.SpeditionsbuchUnterNr Dim abfNr As String = " Pos-Nr.: " & RECHNUNG.FilialenNr & "-" & RECHNUNG.AbfertigungsNr & " LKW: " & RECHNUNG.LKW_Kennzeichen
txtSubject.Text = "Verzollungsunterlagen zu " & abfNr txtSubject.Text = "Verzollungsunterlagen zu " & abfNr
@@ -240,7 +240,7 @@ Public Class frmSendEmail
If SR Then If SR Then
Try Try
If RechnungsNr > 1 OrElse vbYes = MsgBox("Möchten Sie das PDF als Mail-Anhang erstellen?", vbYesNoCancel) Then
VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.clearTMPPath("Zusammenfassung") VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.clearTMPPath("Zusammenfassung")
Dim listPDFs As New List(Of String) Dim listPDFs As New List(Of String)
@@ -254,9 +254,6 @@ Public Class frmSendEmail
Dim Mail_StbFA As Microsoft.Office.Interop.Outlook.MailItem = outl.CreateItem(0) Dim Mail_StbFA As Microsoft.Office.Interop.Outlook.MailItem = outl.CreateItem(0)
Mail_StbFA.Subject = txtSubject.Text Mail_StbFA.Subject = txtSubject.Text
If Firma_ID = 24 Then
Mail_StbFA.SentOnBehalfOfName = SDL.cFakturierung.getDefaultMail("AMBAR", , True)
End If
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem = outl.CreateItem(0) Dim Mail As Microsoft.Office.Interop.Outlook.MailItem = outl.CreateItem(0)
Mail.Subject = txtSubject.Text Mail.Subject = txtSubject.Text
@@ -319,7 +316,7 @@ Public Class frmSendEmail
Next Next
End If End If
Next Next
End If
If SPEDBUCH.DokumentId_Steuerbeleg IsNot Nothing Then If SPEDBUCH.DokumentId_Steuerbeleg IsNot Nothing Then
ATTACHMENTS.Add(New cFakt_SendMailATTach(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(SPEDBUCH.DokumentId_Steuerbeleg), "Steuerbescheid.pdf")) ATTACHMENTS.Add(New cFakt_SendMailATTach(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(SPEDBUCH.DokumentId_Steuerbeleg), "Steuerbescheid.pdf"))
@@ -336,7 +333,6 @@ Public Class frmSendEmail
additionalLine = "Abrechnungsstelle: " & RECHNUNG.FakturierungsGruppe.Replace("WAI", "Waidhaus") additionalLine = "Abrechnungsstelle: " & RECHNUNG.FakturierungsGruppe.Replace("WAI", "Waidhaus")
End If End If
If RECHNUNG.Status <> 0 OrElse vbYes = MsgBox("Möchten Sie das PDF als Mail-Anhang erstellen?", vbYesNoCancel) Then
Try Try
Dim outl As New Outlook.Application Dim outl As New Outlook.Application
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem = outl.CreateItem(0) Dim Mail As Microsoft.Office.Interop.Outlook.MailItem = outl.CreateItem(0)
@@ -398,7 +394,6 @@ Public Class frmSendEmail
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Fehler beim Öffnen des Mail-Programmes." & ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Fehler beim Öffnen des Mail-Programmes." & ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try End Try
End If End If
End If
ATTACHMENTS.Clear() ATTACHMENTS.Clear()
End Sub End Sub