From c4af248cb6529a06ca0629840a39f708f6169866 Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Fri, 20 Jun 2025 10:08:22 +0200
Subject: [PATCH] fix

---
 SDL/Fakturierung/frmFaktEmail.vb | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/SDL/Fakturierung/frmFaktEmail.vb b/SDL/Fakturierung/frmFaktEmail.vb
index 42375ee7..1dd81f84 100644
--- a/SDL/Fakturierung/frmFaktEmail.vb
+++ b/SDL/Fakturierung/frmFaktEmail.vb
@@ -517,12 +517,12 @@ Public Class frmFaktEmail
                     Mail = outl.CreateItem(0)
                     Mail.Subject = txtSubject.Text
 
-                    If RECHNUNG.Firma_ID = 24 OrElse RECHNUNG.Firma_ID = 19 Then
+                    If Firma_ID = 24 OrElse Firma_ID = 19 Then
                         Try
                             Dim oAccount As Outlook.Account
                             Dim accountToSent = ""
 
-                            Select Case RECHNUNG.Firma_ID
+                            Select Case Firma_ID
                                 Case 24
                                     accountToSent = SDL.cFakturierung.getDefaultMail("AMBAR",, True)
                                 Case Else
@@ -653,12 +653,12 @@ Public Class frmFaktEmail
                     Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
                     Mail = outl.CreateItem(0)
 
-                    If RECHNUNG.Firma_ID = 24 OrElse RECHNUNG.Firma_ID = 19 Then
+                    If Firma_ID = 24 OrElse Firma_ID = 19 Then
                         Try
                             Dim oAccount As Outlook.Account
                             Dim accountToSent = ""
 
-                            Select Case RECHNUNG.Firma_ID
+                            Select Case Firma_ID
                                 Case 24
                                     accountToSent = SDL.cFakturierung.getDefaultMail("AMBAR",, True)
                                 Case Else
@@ -718,10 +718,10 @@ Public Class frmFaktEmail
 
 
                     RichTextBox.Text = RichTextBox.Text.Replace("%RgNr%", RechnungsNr)
-                    txtSubject.Text = txtSubject.Text.Replace("%RgNr%", RechnungsNr) & IIf(RECHNUNG.Firma_ID <> 19, abfNr, "")
+                    txtSubject.Text = txtSubject.Text.Replace("%RgNr%", RechnungsNr) & IIf(Firma_ID <> 19, abfNr, "")
 
 
-                    Dim TextHTML = "<div style=""font-family:Calibri, Arial"">" & RichTextBox.Text.Replace(ControlChars.Lf, "<br>") & cFakturierung.getSignature(RECHNUNG.RechnungsLandKz, RECHNUNG.Firma_ID,,,, additionalLine,, IIf(Firma_ID = "24", True, False)) & "</div>"
+                    Dim TextHTML = "<div style=""font-family:Calibri, Arial"">" & RichTextBox.Text.Replace(ControlChars.Lf, "<br>") & cFakturierung.getSignature(RECHNUNG.RechnungsLandKz, Firma_ID,,,, additionalLine,, IIf(Firma_ID = "24", True, False)) & "</div>"
 
                     Mail.HTMLBody = TextHTML
                     Mail.Subject = txtSubject.Text
@@ -761,7 +761,7 @@ Public Class frmFaktEmail
 
                     Mail.Display()
 
-                    If RECHNUNG.FilialenNr = 4817 And RECHNUNG.Firma_ID = 19 And RECHNUNG.DruckDatumZeit IsNot Nothing Then
+                    If Firma_ID = 19 AndAlso RECHNUNG IsNot Nothing AndAlso RECHNUNG.FilialenNr = 4817 AndAlso RECHNUNG.DruckDatumZeit IsNot Nothing Then
 
                         Dim SPEDBUCH = New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(RECHNUNG.FilialenNr, RECHNUNG.AbfertigungsNr, RECHNUNG.UnterNr)