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

MS

Browse Source
This commit is contained in:
SchreiberM
2016-09-21 16:15:47 +02:00
parent 2cc5835380
commit 7c9da92dcd
13 changed files with 1037 additions and 565 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
app/DD-Record-Organiser/frmWD_IndexFile.vb
View File

@@ -192,7 +192,16 @@ Public Class frmWD_IndexFile
ClassFileResult.DocID = CURRENT_DOC_ID
ClassFileResult.SET_DOCID_INDICES()
If ClassDOC_SEARCH.SET_RECORD_DOCID_LINK(CURRENT_DOC_ID, CURRENT_RECORD_ID) = True Then
Dim sel = String.Format("SELECT RECORD_ID FROM TBPMO_DOC_RECORD_LINK WHERE DOC_ID = {0} AND RECORD_ID <> {1}", CURRENT_DOC_ID, CURRENT_RECORD_ID
)
Dim DT_RECORD_LINK As DataTable = ClassDatabase.Return_Datatable(sel)
If DT_RECORD_LINK.Rows.Count > 0 Then
Dim vktIndex = ClassDatabase.Execute_Scalar(String.Format("SELECT IDXNAME_RECORDID FROM TBPMO_WD_OBJECTTYPE WHERE OBJECT_TYPE = '{0}'", ClassWindream._WDObjekttyp))
For Each recRow As DataRow In DT_RECORD_LINK.Rows
Dim recid = recRow.Item(0)
indexierung_erfolgreich = ClassWindream.IndexFile(CURRENT_FILEIN_WD, vktIndex, recid)
Next
End If
End If
End If
Else
@@ -463,6 +472,7 @@ Public Class frmWD_IndexFile
Me.Cursor = Cursors.WaitCursor
SaveMySettingsValue("WD_IndexDeleteDocs", WD_IndexDeleteDocs, "ConfigMain")
ClassWindream._WDObjekttyp = Me.OBJECT_TYPETextBox.Text
If chkMultiIndexer.Visible = True And chkMultiIndexer.Checked = True Then
'Die erste Datei indexieren
If WORK_FILE(Me.txtFilepath.Text, Me.PATHTextBox.Text, doctype_id, My.Settings.WD_INDEXDOKART_SAVE, True) = True Then