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

TetraPak

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-10-23 23:24:29 +02:00
parent ed2e63a004
commit b51ec8adc9
5 changed files with 561 additions and 97 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -1439,7 +1439,25 @@ Public Class frmStartOptions
End If
'---------------------------------------------------------
'---------------------------------------------------------
' BrokerManagementFile immer zusätzlich anhängen
'---------------------------------------------------------
If SND.tblSnd_SendungID > 0 Then
Dim ANH_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge)
VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.LOAD_LIST_BySendung(ANH_LIST, SND.tblSnd_SendungID)
For Each l In ANH_LIST
If String.Equals(Convert.ToString(l.anh_Art), "BrokerManagementFile", StringComparison.OrdinalIgnoreCase) Then
If l.anh_docId > 0 Then
Dim PathTmpANH = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(l.anh_docId)).GET_TOP1_PATH(False)
If Not String.IsNullOrWhiteSpace(PathTmpANH) AndAlso Not pfadList.Contains(PathTmpANH) Then
pfadList.Add(PathTmpANH)
End If
End If
End If
Next
End If
'---------------------------------------------------------
VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(KundenNr, Mail_Art, EMails, EMails_CC, EMails_BCC, Emails_list_sent)
' body = body.Replace("%Platzhalter%", "E-Mails: " & EMails & " CC: " & EMails_CC & " BCC:" & EMails_BCC)