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

ATEZ EZA

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-11-05 08:41:28 +01:00
parent e42c608853
commit cc4c8ab4cb
4 changed files with 93 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files

55
Aviso/AvisoStatusFunctions.vb
View File

@@ -2017,6 +2017,59 @@ ELSE_ATILLA:
hText = hText.Replace("%LKW%", hLKW)
'-------------- SIGNATUR --------------
Dim signatur = ""
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX"
' signatur = "
' Freundliche Grüße / Saygılarımızla / Best Regards<br>
' <b style=""color:#003680;"">IMEX Customs Service GmbH</b><br>
'Abteilung: EU Zollabfertigung<br>
'Tel.: +43 7711 2777 DW 200<br>
'Mail: <a href=""mailto:eu@verag.ag"" style=""color:#003680; text-decoration:none;"">eu@verag.ag</a><br>
' "
Case "UNISPED"
' signatur = "
' Freundliche Grüße / Saygılarımızla / Best Regards<br>
' <b style=""color:#003680;"">UNISPED Speditions GmbH</b><br>
'Abteilung: EU Zollabfertigung<br>
'Tel.: +43 7711 2777 DW 200<br>
'Mail: <a href=""mailto:eu@verag.ag"" style=""color:#003680; text-decoration:none;"">eu@verag.ag</a><br>
' "
Case "ATILLA"
' signatur = "
' Freundliche Grüße / Saygılarımızla / Best Regards<br>
' <b style=""color:#003680;"">ATILLA Spedition GmbH</b><br>
'Abteilung: EU Zollabfertigung<br>
'Tel.: +43 7711 2777 DW 200<br>
'Mail: <a href=""mailto:eu@verag.ag"" style=""color:#003680; text-decoration:none;"">eu@verag.ag</a><br>
' "
Case "AMBAR"
' signatur = "
' Freundliche Grüße / Saygılarımızla / Best Regards<br>
' <b style=""color:#003680;"">AMBAR</b><br>
'Abteilung: EU Zollabfertigung<br>
'Tel.: +43 7711 2777 DW 200<br>
'Mail: <a href=""mailto:eu@verag.ag"" style=""color:#003680; text-decoration:none;"">eu@verag.ag</a><br>
' "
Case Else
signatur = "
Freundliche Grüße / Saygılarımızla / Best Regards<br>
<b style=""color:#003680;"">VERAG Spedition AG</b><br>
Abteilung: EU Zollabfertigung<br>
Tel.: +43 7711 2777 DW 200<br>
Mail: <a href=""mailto:eu@verag.ag"" style=""color:#003680; text-decoration:none;"">eu@verag.ag</a><br>
"
End Select
hText = hText.Replace("%Signatur%", signatur)
'--------------------------------------------------------
Select Case art
Case "5"
Dim linkAviso = "https://status.app.verag.ag/aviso-status/" & VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(AVISO.AvisoID)
@@ -2028,6 +2081,7 @@ ELSE_ATILLA:
'hier werden alle möglichen Platzhalter ersetzt
hText = hText.Replace("%Standort%", getGrenzstelleZollstelle(hGrenzstelle, AVISO))
hText = hText.Replace("%Uhrzeit%", Format(Now, "dd.MM.yyyy HH:mm"))
hText = hText.Replace("&", "und")
@@ -2066,6 +2120,7 @@ ELSE_ATILLA:
hText = hText.Replace("%Firma_simple%", "VERAG")
hText = hText.Replace("%Firma%", "VERAG Spedition AG")
signatur = ""
End Select
hText = hText.Replace("%AbfertigungsNr%", abfertigungsNr)