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

commit

Browse Source
This commit is contained in:
d.breimaier
2024-12-13 10:12:33 +01:00
parent b7509f8637
commit 47335be674
15 changed files with 2614 additions and 2549 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
VERAG_PROG_ALLGEMEIN/Classes/cEZB_Waehrungskurse.vb
View File

@@ -147,12 +147,17 @@ Public Class cEZB_Waehrungskurse
End Function
Shared Function GET_KURS(ezb_waehrungscode As String, datum As Date) As Double
Dim sqlstr = " SELECT TOP 1 [ezb_kurs] FROM [tblEZB_Waehrungskurse] where ezb_waehrungscode='" & ezb_waehrungscode & "' and ezb_datum<='" & datum.ToShortTimeString & "' order by ezb_datum desc"
Dim sqlstr = " SELECT TOP 1 [ezb_kurs] FROM [tblEZB_Waehrungskurse] where ezb_waehrungscode='" & ezb_waehrungscode & "' and ezb_datum<='" & datum.ToShortDateString & "' order by ezb_datum desc"
Return (New SQL).getValueTxtBySql(sqlstr, "FMZOLL",,, 0)
End Function
Shared Function EXCHANGE(betrag As Double, waehrungscode As String, datum As Date) As Double
Dim sqlstr = " SELECT TOP 1 [ezb_kurs] FROM [tblEZB_Waehrungskurse] where ezb_waehrungscode='" & waehrungscode & "' and ezb_datum<='" & datum.ToShortTimeString & "' order by ezb_datum desc"
Shared Function EXCHANGE_CURTOEUR(betrag As Double, waehrungscode As String, datum As Date) As Double
Dim sqlstr = " SELECT TOP 1 [ezb_kurs] FROM [tblEZB_Waehrungskurse] where ezb_waehrungscode='" & waehrungscode & "' and ezb_datum<='" & datum.ToShortDateString & "' order by ezb_datum desc"
Return betrag / (New SQL).getValueTxtBySql(sqlstr, "FMZOLL",,, 0)
End Function
Shared Function EXCHANGE_EURTOCUR(betrag As Double, waehrungscode As String, datum As Date) As Double
Dim sqlstr = " SELECT TOP 1 [ezb_kurs] FROM [tblEZB_Waehrungskurse] where ezb_waehrungscode='" & waehrungscode & "' and ezb_datum<='" & datum.ToShortDateString & "' order by ezb_datum desc"
Return (New SQL).getValueTxtBySql(sqlstr, "FMZOLL",,, 0) * betrag
End Function

5
VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb
View File

@@ -87,9 +87,7 @@ Public Class cKundenErweitert
Property kde_BankgarantielErhaltenAm As Object = Nothing
Property kde_WechselBlanko As Boolean = False
Property kde_UStV_SummeVorschaubetragEUR_PLOSE As Object = Nothing
Property kde_keineMWSt As Boolean = False
Dim SQL As New SQL
@@ -179,6 +177,7 @@ Public Class cKundenErweitert
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_BankgarantielErhaltenAm", kde_BankgarantielErhaltenAm))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_WechselBlanko", kde_WechselBlanko))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_UStV_SummeVorschaubetragEUR_PLOSE", kde_UStV_SummeVorschaubetragEUR_PLOSE))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_keineMWSt", kde_keineMWSt))
Return list
End Function

6
VERAG_PROG_ALLGEMEIN/Classes/cUTA.vb
View File

@@ -10,12 +10,6 @@ Public Class cUTA
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Public Function clearimporttable() As Boolean
Return SQL.doSQL("DELETE FROM tblUTAImportNew", "FMZOLL")
End Function
Public Function importUTALeistungen() As Boolean
'Einträge in tblUTALeistungen machen, wenn Fakturierwarenart und Lieferland noch nicht in der Tabelle enthalten sind.