Statusfunctions, etc.

This commit is contained in:
2026-05-19 16:47:48 +02:00
parent 8ff020bde4
commit c1345d67ec
2 changed files with 3 additions and 3 deletions

View File

@@ -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