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

gesamtsicherheiten, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-03-31 14:13:17 +02:00
parent ee2f39d9a8
commit 457265b739
6 changed files with 586 additions and 534 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Aviso/usrCntlSND_ATBGestellung.vb
View File

@@ -47,8 +47,14 @@ Public Class usrCntlSND_ATBGestellung
If (SND.tblSnd_WarenwertWaehrung) Is Nothing Then MsgBox("Währungseinheit angeben!") : Exit Sub
If SND.tblSnd_WarenwertWaehrung <> "EUR" Then
Dim kurs As New cEZB_Waehrungskurse(SND.tblSnd_WarenwertWaehrung)
WarenwertEUR = Math.Round(kurs.EXCHANGE_CURTOEUR(SND.tblSnd_Warenwert, SND.tblSnd_WarenwertWaehrung, CDate(Today)), 2)
Dim kurs As New cFremdwaehrungskurse(SND.tblSnd_WarenwertWaehrung)
If kurs.hasEntry Then
WarenwertEUR = Math.Round(kurs.EXCHANGE_CURTOEUR(SND.tblSnd_Warenwert, SND.tblSnd_WarenwertWaehrung, CDate(Today)), 2)
Else
MsgBox("Umrechnungskurs kann nicht ermittelt werden, bitte EUR-Betrag eingeben!")
Exit Sub
End If
Else
WarenwertEUR = SND.tblSnd_Warenwert
End If