From c1345d67ec2e7b1078fd2f1ae411e19ec43260e5 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 19 May 2026 16:47:48 +0200 Subject: [PATCH] Statusfunctions, etc. --- Aviso/AvisoStatusFunctions.vb | 2 +- Aviso/My Project/AssemblyInfo.vb | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/Aviso/AvisoStatusFunctions.vb b/Aviso/AvisoStatusFunctions.vb index 68fce78..f2dbcb4 100644 --- a/Aviso/AvisoStatusFunctions.vb +++ b/Aviso/AvisoStatusFunctions.vb @@ -2265,7 +2265,7 @@ ELSE_ATILLA: Dim PathTmp = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(DsId)).GET_TOP1_PATH(False) If PathTmp <> "" Then anhaenge.Add(PathTmp) : found = True End If - If IsNumeric(DsId) Then + If IsNumeric(DsId2) Then Dim PathTmp2 = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(DsId2)).GET_TOP1_PATH(False) If PathTmp2 <> "" Then anhaenge.Add(PathTmp2) : found = True End If diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb index f6fdd06..b7853c3 100644 --- a/Aviso/My Project/AssemblyInfo.vb +++ b/Aviso/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + +