Personalakte und ComputerAppConfig Fehler

This commit is contained in:
Developer01
2025-06-05 15:36:50 +02:00
parent b4631d8af8
commit 0159fa79c4
18 changed files with 356 additions and 368 deletions

View File

@@ -5,7 +5,7 @@ Imports DevExpress.XtraGrid.Columns
Public Class frmDocRecordLink
Public Property Documents As New List(Of ClassDocGrid.clsWMDoc)
Public Property myDocuments As New List(Of ClassDocGrid.clsWMDoc)
Private CURRENT_LINK_ENTITY_ID As Integer = 0
Private ENTITY_LOAD_ACTIVE As Boolean = False
@@ -75,7 +75,7 @@ Public Class frmDocRecordLink
End Sub
Private Sub frmDocRecordLink_Load(sender As Object, e As EventArgs) Handles Me.Load
' OLD WAY
If Documents.Count = 0 Then
If myDocuments.Count = 0 Then
ENTITY_LOAD_ACTIVE = True
If ClassDocGrid.DT_RESULTFILES.Rows.Count = 1 Then
txtFileInfo.Text = ClassDocGrid.DT_RESULTFILES.Rows(0).Item("DOC_PATH")
@@ -139,12 +139,12 @@ Public Class frmDocRecordLink
End If
If Documents.Count > 0 Then
If myDocuments.Count > 0 Then
ENTITY_LOAD_ACTIVE = True
If Documents.Count = 1 Then
txtFileInfo.Text = Documents.First.DocPath
If myDocuments.Count = 1 Then
txtFileInfo.Text = myDocuments.First.DocPath
Else
txtFileInfo.Text = String.Format("{0} files selected for linking to record", Documents.Count)
txtFileInfo.Text = String.Format("{0} files selected for linking to record", myDocuments.Count)
End If
Try
If IsNothing(CURRENT_DT_ENTITY_RECORDS) Then