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

Fremdwährungskurse, import umgebaut, damit nicht idente Kures (Kurswert, Kursstartdatum, Kursendatum und ISO2Code mit unterschiedlichen IDs) importiert werden.

Browse Source
This commit is contained in:
d.breimaier
2023-11-02 09:31:55 +01:00
parent 7b5c593bd8
commit 4e7805425d
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -3855,11 +3855,11 @@ Public Class frmStartOptions
wk_euro.fw_enddatum = lastDaycurrentMonth.ToShortDateString() wk_euro.fw_enddatum = lastDaycurrentMonth.ToShortDateString()
wk_euro.SAVE() wk_euro.SAVE()
Dim sqlCount = SQL.getValueTxtBySqlVarList("SELECT isnull(count(*),0) FROM tblZOLL_Wechselkurse WHERE [fw_startdatum]='" & startDatum & "' AND fw_enddatum='" & endDatum & "'", "FMZOLL") 'Dim sqlCount = SQL.getValueTxtBySqlVarList("SELECT isnull(count(*),0) FROM tblZOLL_Wechselkurse WHERE [fw_startdatum]='" & startDatum & "' AND fw_enddatum='" & endDatum & "'", "FMZOLL")
If count <> sqlCount Then 'If count <> sqlCount Then
MsgBox("Anzahl der Importierten Datensätze:" & sqlCount & vbNewLine & "Anzahl Datensätze in Datei: " & count) ' 'MsgBox("Anzahl der Importierten Datensätze:" & sqlCount & vbNewLine & "Anzahl Datensätze in Datei: " & count)
erg = False ' 'erg = False
End If 'End If
End If End If
End If End If