From 4106abe754fdf898dfd5bc000fb04699d913c90b Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Thu, 2 Nov 2023 09:45:29 +0100 Subject: [PATCH] =?UTF-8?q?Fremdw=C3=A4hrungsrechner?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- .../frmVorauskasse_FremdwaehrungBerechnen.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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