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

Verwahrung Fremdwährung

Browse Source
This commit is contained in:
d.breimaier
2026-03-31 16:20:42 +02:00
parent bcbbf76d31
commit a4dee79338
1 changed files with 18 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
initATLASAufschubkonten/cWorker_Verwahrung.vb
View File

@@ -848,7 +848,7 @@ Anzeige:
If posErledigung IsNot Nothing AndAlso posErledigung.Rows.Count > 0 Then
For Each POS As DataRow In posErledigung.Rows
Dim vermerkFremdweahrung As String = ""
Dim isCompletelyFinished As Boolean = True
Dim MRN_SUMA As String = ""
Dim existingEntryID As Integer = 0
@@ -918,8 +918,13 @@ Anzeige:
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)
Dim kurs As New cFremdwaehrungskurse(Waehrung)
If kurs.hasEntry Then
WarenwertEUR = Math.Round(kurs.EXCHANGE_CURTOEUR(Warenwert_temp, Waehrung, Today()), 2)
Else
WarenwertEUR = Warenwert_temp 'wenn kein Eintrag, dann urspr. FW-Betrag inkl. Vermerk!
vermerkFremdweahrung = "FW-Kurs fehlt"
End If
Else
WarenwertEUR = Warenwert_temp
@@ -971,9 +976,10 @@ Anzeige:
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("verwahrung@verag.ag", IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & "Erledigungsmeldung-DAKOSY fehlende Positionen - " & Now().ToShortDateString, InfoText,,,,, "d.breimaier@verag.ag")
End If
End If
Dim SicherheitsPos As New cGesamtsicherheitsPositionen(gsrightRow("gs_gsId"), gsrightRow.Item("gs_posNr"))
Dim SicherheitsPos As New cGesamtsicherheitsPositionen(gsrightRow("gs_gsId"), gsrightRow.Item("gs_posNr"))
With SicherheitsPos
'.gsp_gsId = gsrightRow("gs_gsId")
'.gsp_gspPosId = gsrightRow.Item("gs_posNr")
@@ -986,8 +992,14 @@ Anzeige:
.gsp_ust = gsrightRow("gs_ust")
.gsp_EH_Anzahl += AnzahlStückErledigt
If Not IsDBNull(gsrightRow.Item("gs_EH_Anzahl")) Then
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)
Else
isCompletelyFinished = True
End If
.gsp_freitext = IIf(isCompletelyFinished, DAKOSY_STATUS.IMPORTED, DAKOSY_STATUS.NOTCOMPLETED) & vermerkFremdweahrung
.gsp_warenwert = IIf(isCompletelyFinished, WarenwertEUR, 0)
.gsp_sicherheitsbetrag = IIf(isCompletelyFinished, Sicherheitsbetrag, 0)
If isCompletelyFinished Then
@@ -1014,7 +1026,7 @@ Anzeige:
End If
End If
End If