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

trdinvoice, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-04-10 11:27:58 +02:00
parent cacc212561
commit 456e14350a
2 changed files with 83 additions and 78 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
SDL/Fakturierung/frmFaktEmail.vb
View File

@@ -546,7 +546,7 @@ Public Class frmFaktEmail
Mail = outl.CreateItem(0) Mail = outl.CreateItem(0)
Mail.Subject = txtSubject.Text Mail.Subject = txtSubject.Text
If Firma_ID = 24 OrElse Firma_ID = 19 Then If Firma_ID = 24 OrElse Firma_ID = 19 OrElse Firma_ID = 1 OrElse Firma_ID = 7 Then
Try Try
Dim oAccount As Outlook.Account Dim oAccount As Outlook.Account
Dim accountToSent = "" Dim accountToSent = ""
@@ -554,8 +554,12 @@ Public Class frmFaktEmail
Select Case Firma_ID Select Case Firma_ID
Case 24 Case 24
accountToSent = SDL.cFakturierung.getDefaultMail("AMBAR",, True) accountToSent = SDL.cFakturierung.getDefaultMail("AMBAR",, True)
Case Else Case 19
accountToSent = "mmdabrechnung@verag.ag" 'bewusst falsch geschrieben!!!! accountToSent = "mmdabrechnung@verag.ag" 'bewusst falsch geschrieben!!!!
Case 7
accountToSent = "rechnung@atilla-spedition.com"
Case Else
accountToSent = "rechnungsversand@verag.ag"
End Select End Select
If accountToSent <> "" Then If accountToSent <> "" Then

1
VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb
View File

@@ -1,5 +1,6 @@
Imports System.Data.SqlClient Imports System.Data.SqlClient
Imports System.Reflection Imports System.Reflection
Imports com.sun.org.apache.xpath.internal.operations
Public Class cTrdInvoice Public Class cTrdInvoice