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

Timas, Fremdwährungen, Vorauskasse

Browse Source
This commit is contained in:
d.breimaier
2023-09-19 15:32:49 +02:00
parent 880509354a
commit df6223aaa2
4 changed files with 507 additions and 31 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
SDL/Formulare/KDFormulare/FormulareBaukasten/frmVorauskasse_FremdwaehrungBerechnen.vb
View File

@@ -24,8 +24,8 @@
Private Sub frmVorauskasse_FremdwaehrungBerechnen_Load(sender As Object, e As EventArgs) Handles Me.Load
'cboWaehrung.fillWithSQL(" SELECT Währungsschlüssel, Währungscode FROM Währungstabelle ORDER BY Währungscode,[Währungsschlüssel] DESC ", False, "FMZOLL", True)
cboWaehrung.fillWithSQL("SELECT Währungstabelle.Währungscode, Währungstabelle.Währungscode FROM Währungstabelle WHERE (((Währungstabelle.Eurokurs) Is Not Null And (Währungstabelle.Eurokurs)>0)) ORDER BY Währungstabelle.Währungscode; ", False, "FMZOLL", True)
cboWaehrungUmrechnung.fillWithSQL("SELECT Währungstabelle.Währungscode, Währungstabelle.Währungscode FROM Währungstabelle WHERE (((Währungstabelle.Eurokurs) Is Not Null And (Währungstabelle.Eurokurs)>0)) ORDER BY Währungstabelle.Währungscode; ", False, "FMZOLL", True)
cboWaehrung.fillWithSQL("SELECT tblZOLL_Wechselkurse.fw_iso3, tblZOLL_Wechselkurse.fw_iso3 FROM tblZOLL_Wechselkurse WHERE isnull(fw_kurswert,0)>0 AND CAST(GETDATE() AS DATE) BETWEEN cast(fw_startdatum as DATE) AND cast(fw_enddatum as DATE) ORDER BY tblZOLL_Wechselkurse.fw_iso3; ", False, "FMZOLL", True)
cboWaehrungUmrechnung.fillWithSQL("SELECT tblZOLL_Wechselkurse.fw_iso3, tblZOLL_Wechselkurse.fw_iso3 FROM tblZOLL_Wechselkurse WHERE isnull(fw_kurswert,0)>0 AND CAST(GETDATE() AS DATE) BETWEEN cast(fw_startdatum as DATE) AND cast(fw_enddatum as DATE) ORDER BY tblZOLL_Wechselkurse.fw_iso3; ", False, "FMZOLL", True)
If SND IsNot Nothing Then
If SND.tblSnd_Warenwert IsNot Nothing AndAlso IsNumeric(SND.tblSnd_Warenwert) AndAlso SND.tblSnd_Warenwert <> 0 Then
@@ -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([Eurokurs] ,0) FROM [Währungstabelle] where Währungscode='" & cboWaehrung._value & "' ORDER BY Währungsschlüssel 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", "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([Eurokurs] ,0) FROM [Währungstabelle] where Währungscode='" & cboWaehrungUmrechnung._value & "' ORDER BY Währungsschlüssel 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", "FMZOLL"))
umrechnung = CDbl(euro * kurs_Umrechnung)
rg_Umrechnung *= kurs_Umrechnung
End If