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

Aviso-Status

Browse Source
This commit is contained in:
d.breimaier
2026-05-19 17:01:53 +02:00
parent c1345d67ec
commit 6e0422120d
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Aviso/AvisoStatusFunctions.vb
View File

@@ -2174,7 +2174,7 @@ ELSE_ATILLA:
Dim DsId = "" Dim DsId = ""
Dim DsId2 = "" Dim DsId2 = ""
Dim frist = "" Dim frist = ""
Dim gestellungsadresse = "<td><td/>" Dim gestellungsadresse = "<td></td>"
Dim found = False Dim found = False
Select Case s.tblSnd_Abfertigungsart_ID Select Case s.tblSnd_Abfertigungsart_ID
Case 5, 6, 18, 24, 32, 33, 34, 37, 40 'Versand Case 5, 6, 18, 24, 32, 33, 34, 37, 40 'Versand
@@ -2294,7 +2294,7 @@ ELSE_ATILLA:
If cnt = 1 Then ' wurde nicht erhöht -> keine Einträge If cnt = 1 Then ' wurde nicht erhöht -> keine Einträge
SendungslistTXT = "" SendungslistTXT = ""
End If End If
If KUNDE_ERW.EmailFreigabeSendungsListe Then hText = hText.Replace("%Platzhalter%", SendungslistTXT) If KUNDE_ERW IsNot Nothing AndAlso KUNDE_ERW.EmailFreigabeSendungsListe Then hText = hText.Replace("%Platzhalter%", SendungslistTXT)
End If End If
End If End If
End Select End Select