Personalakte und ComputerAppConfig Fehler
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user