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

MDM UST, MSE-API, API-Einstellungen

Browse Source
This commit is contained in:
d.breimaier
2024-08-20 09:27:26 +02:00
parent 1cd82d4a6f
commit 0bb8d59d97
3 changed files with 17 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
UID/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.2.3.1")> <Assembly: AssemblyVersion("1.2.3.2")>
<Assembly: AssemblyFileVersion("1.2.3.1")> <Assembly: AssemblyFileVersion("1.2.3.2")>

7
UID/frmAPIEinstellungen.vb
View File

@@ -231,9 +231,14 @@ Public Class frmAPIEinstellungen
Dim tmprowindex As Integer = e.RowIndex Dim tmprowindex As Integer = e.RowIndex
If DataGridView.Columns(e.ColumnIndex).Name = "pathToFile" Then If DataGridView.Columns(e.ColumnIndex).Name = "pathToFile" Then
If DataGridView.CurrentRow.Cells("api_debugpath").Value IsNot DBNull.Value AndAlso (DataGridView.CurrentRow.Cells("api_debugpath").Value.ToString.StartsWith("\\") Or DataGridView.CurrentRow.Cells("api_debugpath").Value.ToString.StartsWith("C:\")) Then If DataGridView.CurrentRow.Cells("api_debugpath").Value <> "" Then
Dim path As New System.IO.DirectoryInfo(DataGridView.CurrentRow.Cells("api_debugpath").Value)
If DataGridView.CurrentRow.Cells("api_debugpath").Value IsNot DBNull.Value AndAlso path.Exists Then
Process.Start(DataGridView.CurrentRow.Cells("api_debugpath").Value) Process.Start(DataGridView.CurrentRow.Cells("api_debugpath").Value)
End If End If
End If
Else Else
End If End If

8
UID/usrCntlDatenarchiv.vb
View File

@@ -156,10 +156,14 @@ Public Class usrCntlDatenarchiv
For Each r As DataGridViewRow In .Rows For Each r As DataGridViewRow In .Rows
If r.Cells("Param_value").Value IsNot DBNull.Value AndAlso r.Cells("Param_value").Value.ToString.StartsWith("\\") Then If r.Cells("Param_value").Value IsNot DBNull.Value AndAlso r.Cells("Param_value").Value <> "" Then
DirectCast(r.Cells("open"), DataGridViewImageCell).Value = My.Resources.search Dim path As New System.IO.DirectoryInfo(r.Cells("Param_value").Value)
If path.Exists Then
DirectCast(r.Cells("open"), DataGridViewImageCell).Value = My.Resources.search
End If End If
End If
Next Next