diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/frmVorauskasse_FremdwaehrungBerechnen.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/frmVorauskasse_FremdwaehrungBerechnen.vb index 50ab1d19..69fd8de2 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/frmVorauskasse_FremdwaehrungBerechnen.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/frmVorauskasse_FremdwaehrungBerechnen.vb @@ -49,7 +49,7 @@ Dim rg_Umrechnung As Double = 1 Dim euro As Double = txtWarenwert._value If cboWaehrung._value <> "EUR" Then - Dim kurs = CDbl(SQL.getValueTxtBySql("SELECT TOP 1 isnull([fw_kurswert] ,0) FROM [tblZOLL_Wechselkurse] where fw_iso3='" & cboWaehrung._value & "' ORDER BY fw_startdatum DESC", "FMZOLL")) + Dim kurs = CDbl(SQL.getValueTxtBySql("SELECT TOP 1 isnull([fw_kurswert] ,0) FROM [tblZOLL_Wechselkurse] where fw_iso3='" & cboWaehrung._value & "' ORDER BY fw_startdatum DESC, fw_importdatum DESC", "FMZOLL")) If IsNumeric(kurs) AndAlso kurs > 0 Then euro = CDbl(txtWarenwert._value / kurs) rg_Umrechnung /= kurs @@ -58,7 +58,7 @@ Dim umrechnung As Double = euro If cboWaehrungUmrechnung._value <> "EUR" Then - Dim kurs_Umrechnung = CDbl(SQL.getValueTxtBySql("SELECT TOP 1 isnull([fw_kurswert] ,0) FROM [tblZOLL_Wechselkurse] where fw_iso3='" & cboWaehrungUmrechnung._value & "' ORDER BY fw_startdatum DESC", "FMZOLL")) + Dim kurs_Umrechnung = CDbl(SQL.getValueTxtBySql("SELECT TOP 1 isnull([fw_kurswert] ,0) FROM [tblZOLL_Wechselkurse] where fw_iso3='" & cboWaehrungUmrechnung._value & "' ORDER BY fw_startdatum DESC, fw_importdatum DESC", "FMZOLL")) umrechnung = CDbl(euro * kurs_Umrechnung) rg_Umrechnung *= kurs_Umrechnung End If