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

Verwahrungen -> Fremdwährungen

Browse Source
This commit is contained in:
d.breimaier
2026-03-30 13:33:28 +02:00
parent 7ec27cb8b6
commit 525148be30
1 changed files with 15 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
initATLASAufschubkonten/cWorker_Verwahrung.vb
View File

@@ -892,7 +892,8 @@ Anzeige:
Dim saldo As Double = GesSichRef.CalcSaldo()
Dim Warenwert As Double = 0
Dim WarenwertEUR As Double = 0
Dim Warenwert_temp As Double = 0
Dim Sicherheitsbetrag As Double = 0
'Berechnung Warenwert und Sicherheitsbetrag aus Sendung -> immer aus den Produktivdaten!
@@ -913,10 +914,19 @@ Anzeige:
If rowsVorp.Length > 0 Then
Dim row = rowsVorp(0)
Warenwert = CDbl(row("tblSnd_Warenwert"))
Sicherheitsbetrag = Math.Round(Warenwert * (GesSichRef.gsr_zollsatz / 100), 2)
Warenwert_temp = CDbl(row("tblSnd_Warenwert"))
Dim Waehrung = row("tblSnd_WarenwertWaehrung")
If Waehrung <> "EUR" Then
Dim kurs As New cEZB_Waehrungskurse(Waehrung)
WarenwertEUR = Math.Round(kurs.EXCHANGE_CURTOEUR(Warenwert_temp, Waehrung, Today()), 2)
Else
WarenwertEUR = Warenwert_temp
End If
Sicherheitsbetrag = Math.Round(WarenwertEUR * (GesSichRef.gsr_zollsatz / 100), 2)
End If
End If
End If
Dim anzahlPackstuecke As Integer = -1
@@ -978,7 +988,7 @@ Anzeige:
If .gsp_EH_Anzahl = CInt(gsrightRow.Item("gs_EH_Anzahl")) Then isCompletelyFinished = True 'wenn alle Teile da sind, dann komplett!
.gsp_freitext = IIf(isCompletelyFinished, DAKOSY_STATUS.IMPORTED, DAKOSY_STATUS.NOTCOMPLETED)
.gsp_warenwert = IIf(isCompletelyFinished, Warenwert, 0)
.gsp_warenwert = IIf(isCompletelyFinished, WarenwertEUR, 0)
.gsp_sicherheitsbetrag = IIf(isCompletelyFinished, Sicherheitsbetrag, 0)
If isCompletelyFinished Then
If Not isNCTS Then