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

MS-Changes

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2017-11-07 10:11:01 +01:00
parent 020bd7a390
commit fb6204abbc
5 changed files with 23 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
app/DD-Record-Organizer/frmWD_IndexFile.vb
View File

@@ -89,11 +89,11 @@ Public Class frmWD_IndexFile
Dim indexierung_erfolgreich As Boolean = True
'Erst die Objekttyp-Indices indexieren
'den Entity-Key auslesen
Dim DT As DataTable
Dim DTTBPMO_WD_OBJECTTYPE As DataTable
sql = "Select Top 1 * from TBPMO_WD_OBJECTTYPE where Upper(object_type) = Upper('" & clsWindream.MY_WDOBJECTTYPE & "')"
DT = ClassDatabase.Return_Datatable(sql, True)
If Not DT Is Nothing Then
If DT.Rows.Count = 1 Then
DTTBPMO_WD_OBJECTTYPE = ClassDatabase.Return_Datatable(sql, True)
If Not DTTBPMO_WD_OBJECTTYPE Is Nothing Then
If DTTBPMO_WD_OBJECTTYPE.Rows.Count = 1 Then
Dim indexname
''den Record_Key auslesen
'Dim indexname = DT.Rows(0).Item("IDXNAME_RECORDID").ToString
@@ -119,7 +119,7 @@ Public Class frmWD_IndexFile
' indexierung_erfolgreich = clsWD_SET.IndexFile(CURRENT_FILEIN_WD, indexname, CURRENT_REDUNDANT_FORM_ID, clsWindream.MY_WDOBJECTTYPE)
'End If
'den Doctype auslesen
indexname = DT.Rows(0).Item("IDXNAME_DOCTYPE").ToString
indexname = DTTBPMO_WD_OBJECTTYPE.Rows(0).Item("IDXNAME_DOCTYPE").ToString
If LogErrorsOnly = False Then ClassLogger.Add(" >> Doctype: " & vDokart.ToString, False)
indexierung_erfolgreich = clsWD_SET.IndexFile(CURRENT_FILEIN_WD, indexname, vDokart, clsWindream.MY_WDOBJECTTYPE)
If indexierung_erfolgreich = False Then
@@ -129,7 +129,7 @@ Public Class frmWD_IndexFile
Return False
End If
indexname = DT.Rows(0).Item("IDXNAME_RELATION").ToString
indexname = DTTBPMO_WD_OBJECTTYPE.Rows(0).Item("IDXNAME_RELATION").ToString
indexierung_erfolgreich = clsWD_SET.IndexFile(CURRENT_FILEIN_WD, indexname, "ADDI-RELATION", clsWindream.MY_WDOBJECTTYPE)
If indexierung_erfolgreich = False Then
err = True
@@ -224,7 +224,6 @@ Public Class frmWD_IndexFile
End If
'Nun alles aufrüumen und die neue DocID holen
If indexierung_erfolgreich = True Then
ClassLogger.Add(">> File was correctly imported and indexed: " & CURRENT_FILEIN_WD, False)
Dim stg As String = "Datei erfolgreich nach windream übertragen"
@@ -249,6 +248,7 @@ Public Class frmWD_IndexFile
sw.Done()
If Not IsNothing(CURRENT_DOC_ID) Then
ClassHelper.InsertEssential_Log(CURRENT_DOC_ID, "DOC_ID", "File was imported and indexed!")
ClassLogger.Add(String.Format(">> File-Import was finished - DocID: {0} ", CURRENT_DOC_ID), False)
Dim delete = False
'Die Originaldatei löschen