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:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.2.3.1")>
<Assembly: AssemblyFileVersion("1.2.3.1")>
<Assembly: AssemblyVersion("1.2.3.2")>
<Assembly: AssemblyFileVersion("1.2.3.2")>

13
UID/frmAPIEinstellungen.vb
View File

@@ -231,12 +231,17 @@ Public Class frmAPIEinstellungen
Dim tmprowindex As Integer = e.RowIndex
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
Process.Start(DataGridView.CurrentRow.Cells("api_debugpath").Value)
End If
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)
End If
End If
Else
End If
End If
Me.Cursor = Cursors.Default
End Sub

8
UID/usrCntlDatenarchiv.vb
View File

@@ -156,10 +156,14 @@ Public Class usrCntlDatenarchiv
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
DirectCast(r.Cells("open"), DataGridViewImageCell).Value = My.Resources.search
If r.Cells("Param_value").Value IsNot DBNull.Value AndAlso r.Cells("Param_value").Value <> "" Then
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
Next