From 4e7805425d143cd8daa87fb37f535d57b0cb246e Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Thu, 2 Nov 2023 09:31:55 +0100 Subject: [PATCH] =?UTF-8?q?Fremdw=C3=A4hrungskurse,=20import=20umgebaut,?= =?UTF-8?q?=20damit=20nicht=20idente=20Kures=20(Kurswert,=20Kursstartdatum?= =?UTF-8?q?,=20Kursendatum=20und=20ISO2Code=20mit=20unterschiedlichen=20ID?= =?UTF-8?q?s)=20importiert=20werden.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- initATLASAufschubkonten/frmStartOptions.vb | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb index 83e3ca8..950ed50 100644 --- a/initATLASAufschubkonten/frmStartOptions.vb +++ b/initATLASAufschubkonten/frmStartOptions.vb @@ -3855,11 +3855,11 @@ Public Class frmStartOptions wk_euro.fw_enddatum = lastDaycurrentMonth.ToShortDateString() wk_euro.SAVE() - Dim sqlCount = SQL.getValueTxtBySqlVarList("SELECT isnull(count(*),0) FROM tblZOLL_Wechselkurse WHERE [fw_startdatum]='" & startDatum & "' AND fw_enddatum='" & endDatum & "'", "FMZOLL") - If count <> sqlCount Then - MsgBox("Anzahl der Importierten Datensätze:" & sqlCount & vbNewLine & "Anzahl Datensätze in Datei: " & count) - erg = False - End If + 'Dim sqlCount = SQL.getValueTxtBySqlVarList("SELECT isnull(count(*),0) FROM tblZOLL_Wechselkurse WHERE [fw_startdatum]='" & startDatum & "' AND fw_enddatum='" & endDatum & "'", "FMZOLL") + 'If count <> sqlCount Then + ' 'MsgBox("Anzahl der Importierten Datensätze:" & sqlCount & vbNewLine & "Anzahl Datensätze in Datei: " & count) + ' 'erg = False + 'End If End If End If