AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS SAP

Browse Source
This commit is contained in:
SchreiberM
2022-07-07 13:20:13 +02:00
parent 331611c9e8
commit 28254c99f7
125 changed files with 1796 additions and 1144 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
app/DD-Record-Organizer/frmDocRecordLink.vb
View File

@@ -40,6 +40,8 @@ Public Class frmDocRecordLink
For Each rowrecsdisplay As DataRow In DT_RECORDS.Rows
If rowrecsdisplay.Item("Record-ID") = recrow.Item("RECORD_ID") Then
rowrecsdisplay.Item("already linked") = True
Else
rowrecsdisplay.Item("already linked") = False
End If
Next
Next
@@ -164,11 +166,11 @@ Public Class frmDocRecordLink
End If
If Record_Index <> String.Empty Then
If clsWD_SET.IndexFile(DOC_PATH, Record_Index, SELECTED_RECORDID, _objecttype) = False Then
Dim msg = "Die Record-ID konnte nicht gesetzt werden! Bitte überprüfen Sie die Logfile"
If USER_LANGUAGE <> "de-DE" Then
msg = "Could not index Record-ID! Please check logfile!"
End If
MsgBox(msg, MsgBoxStyle.Exclamation)
'Dim msg = "Die Record-ID konnte nicht gesetzt werden! Bitte überprüfen Sie die Logfile"
'If USER_LANGUAGE <> "de-DE" Then
' msg = "Could not index Record-ID! Please check logfile!"
'End If
'MsgBox(msg, MsgBoxStyle.Exclamation)
End If
@@ -179,19 +181,20 @@ Public Class frmDocRecordLink
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error in Linking Record to file", ex.Message, ex.StackTrace)
End Try
Next
grvwGrid.ClearSelection()
End Sub
Private Sub grvwGrid_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles grvwGrid.FocusedRowChanged
'Try
' If Not IsNothing(dgEntityRecords.DataSource) Then
' Dim RecordId As Integer = grvwGrid.GetFocusedRowCellValue(grvwGrid.Columns("Record-ID"))
' SELECTED_RECORDID = RecordId
' tsslbl.Text = "Record (" & RecordId.ToString & ") selected!"
' End If
'Catch ex As Exception
' MsgBox("Could not get the RecordID: " & ex.Message, MsgBoxStyle.Exclamation)
' SELECTED_RECORDID = Nothing
'End Try
Try
If Not IsNothing(dgEntityRecords.DataSource) Then
Dim RecordId As Integer = grvwGrid.GetFocusedRowCellValue(grvwGrid.Columns("Record-ID"))
tsslbl.Text = "Record (" & RecordId.ToString & ") selected!"
End If
Catch ex As Exception
MsgBox("Could not get the RecordID: " & ex.Message, MsgBoxStyle.Exclamation)
End Try
End Sub
Sub Save_DocGrid_Layout()