From e41229636b82ee8c55b6af1bd1eb368ccc97c5d5 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Tue, 16 Jan 2024 08:23:20 +0100 Subject: [PATCH] Syska Risiko --- SDL/My Project/AssemblyInfo.vb | 4 ++-- VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb | 4 +++- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index 8f304254..c5de8cfe 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb index 6b82dcac..31ada165 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb @@ -1455,7 +1455,9 @@ Public Class cSyska_Interface For Each r In dt.Rows If KdNr = -1 OrElse r("KundenNrZentrale") = KdNr Then 'TEST!! - Dim strRisiko = Format(CDbl(r("Risiko")), fmt).Replace(",", ".") + Dim strRisiko = 0 + If r("Risiko") Is DBNull.Value Then strRisiko = Format(CDbl(r("Risiko")), fmt).Replace(",", ".") + SQL.doSQL("UPDATE [FIBU2].[dbo].[fibu_konto] SET [dec_wert3] = '" & strRisiko & "' WHERE ([i_firm_refid]=1 Or [i_firm_refid]=19)