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

MS11.01(2)

Browse Source
This commit is contained in:
SchreiberM
2017-01-12 11:47:43 +01:00
parent 03ae19ae3e
commit 2af5a0bc0d
18 changed files with 59308 additions and 1606 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -135,7 +135,14 @@ Public Class frmWD_IndexFile
indexierung_erfolgreich = ClassWindream.IndexFile(CURRENT_FILEIN_WD, indexname, CURRENT_RECORD_ID)
If indexierung_erfolgreich = False Then
err = True
MsgBox("Unexpected Error in indexing file Parent-ID - See log", MsgBoxStyle.Critical)
MsgBox("Unexpected Error in indexing file Record-ID - See log", MsgBoxStyle.Critical)
Return False
End If
indexname = DT.Rows(0).Item("IDXNAME_RELATION").ToString
indexierung_erfolgreich = ClassWindream.IndexFile(CURRENT_FILEIN_WD, indexname, "ADDI-RELATION")
If indexierung_erfolgreich = False Then
err = True
MsgBox("Unexpected Error in indexing file AddiRelation - See log", MsgBoxStyle.Critical)
Return False
End If
@@ -169,7 +176,6 @@ Public Class frmWD_IndexFile
'Die temporäre Datei löschen
File.Delete(aktFiledropped)
End If
'ClassDOC_SEARCH.REFRESH_DOC_TABLE_RESULTS()
sql = String.Format("SELECT DocID FROM VWPMO_DOC_SYNC WHERE UPPER(FULL_FILENAME) = UPPER('{0}') AND CONVERT(DATE,Change_DateTime) = CONVERT(DATE,GETDATE())", CURRENT_FILEIN_WD)
CURRENT_DOC_ID = ClassDatabase.Execute_Scalar(sql)
If Not IsNothing(CURRENT_DOC_ID) Then
@@ -177,6 +183,7 @@ Public Class frmWD_IndexFile
MsgBox("The rights for the new file could not be created! Please check the logfile!" & vbNewLine & _
"ADDI will try to give You at least reading rights!", MsgBoxStyle.Exclamation)
DD_Rights.ClassRights.SetRightExplicit(CURRENT_DOC_ID, CURRENT_FILEIN_WD, USER_USERNAME, 1)
ClassHelper.InsertEssential_Log(CURRENT_DOC_ID, "DOC-ID", "NEW FILE INDEXING - RIGHTS COULD NOT BE SET!!")
End If
'Create Session um Fehler bei windows Session icht zu erzeugen
FAU_AD_USER = ""
@@ -187,8 +194,6 @@ Public Class frmWD_IndexFile
ClassFileResult.DocID = CURRENT_DOC_ID
ClassFileResult.SET_DOCID_INDICES()
If ClassDOC_SEARCH.CREATE_DOC_RELATED_LINKS(CURRENT_DOC_ID, CURRENT_RECORD_ID) = False Then
'Dim vktIndex = ClassDatabase.Execute_Scalar(String.Format("SELECT IDXNAME_RECORDID FROM TBPMO_WD_OBJECTTYPE WHERE OBJECT_TYPE = '{0}'", ClassWindream._WDObjekttyp))
'indexierung_erfolgreich = ClassWindream.IndexFile(CURRENT_FILEIN_WD, vktIndex, CURRENT_RECORD_ID)
stg = "Unerwarteter Fehler: Der Record-Link konnte nicht erzeugt werden! Überprüfen Sie das Log."
If USER_LANGUAGE <> "de-DE" Then
stg = "Unexpected Error: Could not create the recordlink! Please check the log."
@@ -403,6 +408,8 @@ Public Class frmWD_IndexFile
If WORK_FILE(Me.txtFilepath.Text, Me.PATHTextBox.Text, doctype_id, My.Settings.WD_INDEXDOKART_SAVE, False) = True Then
NEW_FILES_ADDED = True
Me.Close()
Else
MessageBox.Show("Import to windream was not successful." & vbNewLine & "Check the log for further information!", "Unexpected Error in windream-Stream:", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
End If
Me.Cursor = Cursors.Default