Verwahrung Fremdwährung

initATLASAufschubkonten/cWorker_Verwahrung.vb

@@ -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)
+                                            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,6 +976,7 @@ 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"))
@@ -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