DAtabase integriert
This commit is contained in:
@@ -3,7 +3,7 @@ Imports System.Security.AccessControl
|
||||
Imports System.Security.Principal
|
||||
Imports System.Data.SqlClient
|
||||
Imports Oracle.ManagedDataAccess.Client
|
||||
Imports DD_LIB_Standards
|
||||
'Imports DD_LIB_Standards
|
||||
Imports DigitalData.Modules.Windream
|
||||
|
||||
Public Class frmWM_IndexFile
|
||||
@@ -29,7 +29,7 @@ Public Class frmWM_IndexFile
|
||||
stopwatch.Stop()
|
||||
Dim message = String.Format("{0, 5}ms || {1}", stopwatch.ElapsedMilliseconds, label)
|
||||
Console.WriteLine(message)
|
||||
LOGGER.Debug(message, False)
|
||||
LOGGER.Debug(message)
|
||||
Return stopwatch.ElapsedMilliseconds
|
||||
End Function
|
||||
|
||||
@@ -55,7 +55,7 @@ Public Class frmWM_IndexFile
|
||||
sw = New SW("CheckFileExists")
|
||||
Dim existsonlyasMaster = False
|
||||
|
||||
If _wm.TestFileExists(CURRENT_NEWFILENAME) = True Then ' clsWM_GET.WDFile_exists(CURRENT_NEWFILENAME.Substring(2), clsDatabase.DB_PROXY_INITIALIZED, ClassProxy.MyLinkedServer) = True Then
|
||||
If _wm.TestFileExists(CURRENT_NEWFILENAME) = True Then
|
||||
Dim msg = "Eine Datei mit identischem Namen existiert bereits! Wollen Sie die bestehende Datei ersetzen?"
|
||||
If USER_LANGUAGE <> "de-DE" Then
|
||||
msg = "There is already a file with the same name! Would You like to replace the file?"
|
||||
@@ -72,7 +72,7 @@ Public Class frmWM_IndexFile
|
||||
End If
|
||||
|
||||
Else
|
||||
If _wm.TestFileExists(CURRENT_NEWFILENAME) = True Then ' clsWM_GET.WDFile_exists(CURRENT_NEWFILENAME.Substring(2), clsDatabase.DB_PROXY_INITIALIZED, ClassProxy.MyLinkedServer, True)
|
||||
If _wm.TestFileExists(CURRENT_NEWFILENAME) = True Then
|
||||
ClassHelper.InsertEssential_Log(CURRENT_RECORD_ID, "RECORD-ID", "FILE ALREADY EXISTED WITH NON-USER RIGHTS: " & CURRENT_NEWFILENAME)
|
||||
CURRENT_NEWFILENAME = ClassHelper.Versionierung_Datei(CURRENT_NEWFILENAME)
|
||||
existsonlyasMaster = True
|
||||
@@ -107,10 +107,10 @@ Public Class frmWM_IndexFile
|
||||
End If
|
||||
|
||||
Dim sql = "SELECT * FROM TBDD_INDEX_AUTOM WHERE ACTIVE = 1 AND UPPER(INDEXNAME) NOT LIKE UPPER('%ONLY %') AND SQL_ACTIVE = 0 AND DOCTYPE_ID = " & vDokart_ID
|
||||
Dim DT_AUTO_INDEXE As DataTable = ClassDatabase.Return_Datatable(sql, True)
|
||||
Dim DT_AUTO_INDEXE As DataTable = MYDB_ECM.GetDatatable(sql)
|
||||
Try
|
||||
sql = "SELECT * FROM VWCUST_DOCTYPE_CONFIG WHERE DOCTYPE_ID = " & vDokart_ID
|
||||
Dim DTVWCUST_DOCTYPE_CONFIG As DataTable = ClassDatabase.Return_Datatable(sql, True)
|
||||
Dim DTVWCUST_DOCTYPE_CONFIG As DataTable = MYDB_ECM.GetDatatable(sql)
|
||||
If Not IsNothing(DTVWCUST_DOCTYPE_CONFIG) Then
|
||||
For Each oRow As DataRow In DTVWCUST_DOCTYPE_CONFIG.Rows
|
||||
If oRow.Item(0) = "DELETE_RIGHTS" Then
|
||||
@@ -128,14 +128,14 @@ Public Class frmWM_IndexFile
|
||||
'den Entity-Key auslesen
|
||||
Dim DTTBPMO_WD_OBJECTTYPE As DataTable
|
||||
sql = "Select Top 1 * from TBPMO_WD_OBJECTTYPE" ' where Upper(object_type) = Upper('" & clsWM.MY_WDOBJECTTYPE & "')"
|
||||
DTTBPMO_WD_OBJECTTYPE = ClassDatabase.Return_Datatable(sql, True)
|
||||
DTTBPMO_WD_OBJECTTYPE = MYDB_ECM.GetDatatable(sql)
|
||||
If Not DTTBPMO_WD_OBJECTTYPE Is Nothing Then
|
||||
If DTTBPMO_WD_OBJECTTYPE.Rows.Count = 1 Then
|
||||
oWMObjecttype = DTTBPMO_WD_OBJECTTYPE.Rows(0).Item("OBJECT_TYPE").ToString
|
||||
Dim indexname
|
||||
'den Doctype auslesen
|
||||
indexname = DTTBPMO_WD_OBJECTTYPE.Rows(0).Item("IDXNAME_DOCTYPE").ToString
|
||||
LOGGER.Debug("Doctype: " & vDokart.ToString, False)
|
||||
LOGGER.Debug("Doctype: " & vDokart.ToString)
|
||||
indexierung_erfolgreich = _wm.SetFileIndex(CURRENT_FILEIN_WD, indexname, vDokart, oWMObjecttype) ' clsWM_SET.IndexFile(CURRENT_FILEIN_WD, indexname, vDokart, oWMObjecttype) 'clsWM.MY_WDOBJECTTYPE)
|
||||
If indexierung_erfolgreich = False Then
|
||||
err = True
|
||||
@@ -182,27 +182,27 @@ Public Class frmWM_IndexFile
|
||||
' alle Vorkommen innerhalbd er Namenkonvention durchlaufen
|
||||
For Each element As System.Text.RegularExpressions.Match In elemente
|
||||
|
||||
LOGGER.Debug("element in RegeX: " & element.Value, False)
|
||||
Select Case element.Value.Substring(2, 1).ToUpper
|
||||
LOGGER.Debug("element in RegeX: " & element.Value)
|
||||
Select Case element.Value.Substring(2, 1).ToUpper
|
||||
'Nur automatische Indizes auswerten
|
||||
Case "A"
|
||||
Dim APattern = element.Value.Substring(3, element.Value.Length - 4)
|
||||
If APattern.Contains("#") Then
|
||||
LOGGER.Debug("element filled with Record-Data.......: ", False)
|
||||
Dim split() As String = APattern.Split("#")
|
||||
LOGGER.Debug("element filled with Record-Data.......: ")
|
||||
Dim split() As String = APattern.Split("#")
|
||||
If split.Length = 2 Then
|
||||
Dim CONTROL_ID = split(1)
|
||||
LOGGER.Debug("CONTROL_ID: " & CONTROL_ID, False)
|
||||
If IsNumeric(CONTROL_ID) Then
|
||||
LOGGER.Debug("CONTROL_ID: " & CONTROL_ID)
|
||||
If IsNumeric(CONTROL_ID) Then
|
||||
Dim CONTROLVALUE = ClassControlValues.Get_Control_Value_for_ID(CONTROL_ID, CURRENT_RECORD_ID)
|
||||
If IsNothing(CONTROLVALUE) Then
|
||||
LOGGER.Warn("Index should be filled with value of Control-ID '" & CONTROL_ID & "', but result was nothing.", False)
|
||||
LOGGER.Warn("SQL-Command: " & CURRENT_LAST_SQL)
|
||||
LOGGER.Warn("Index should be filled with value of Control-ID '" & CONTROL_ID & "', but result was nothing.")
|
||||
LOGGER.Warn("SQL-Command: " & CURRENT_LAST_SQL)
|
||||
idxvalue = ""
|
||||
Else
|
||||
If IsDBNull(CONTROLVALUE) Then
|
||||
LOGGER.Warn("Index should be filled with value of Control-ID '" & CONTROL_ID & "', but result was DBNULL.", False)
|
||||
LOGGER.Warn("SQL-Command: " & CURRENT_LAST_SQL)
|
||||
LOGGER.Warn("Index should be filled with value of Control-ID '" & CONTROL_ID & "', but result was DBNULL.")
|
||||
LOGGER.Warn("SQL-Command: " & CURRENT_LAST_SQL)
|
||||
idxvalue = ""
|
||||
Else
|
||||
idxvalue = CONTROLVALUE
|
||||
@@ -217,8 +217,8 @@ Public Class frmWM_IndexFile
|
||||
|
||||
Next
|
||||
End If
|
||||
LOGGER.Debug("Value for Indexing : '" & idxvalue.ToString & "'", False)
|
||||
Count += 1
|
||||
LOGGER.Debug("Value for Indexing : '" & idxvalue.ToString & "'")
|
||||
Count += 1
|
||||
indexierung_erfolgreich = _wm.SetFileIndex(CURRENT_FILEIN_WD, indexname, idxvalue, oWMObjecttype) 'clsWM_SET.IndexFile(CURRENT_FILEIN_WD, indexname, idxvalue, oWMObjecttype) 'clsWM.MY_WDOBJECTTYPE)
|
||||
If indexierung_erfolgreich = False Then
|
||||
MsgBox("Unexpected Error in indexing file - See log", MsgBoxStyle.Critical)
|
||||
@@ -245,16 +245,16 @@ Public Class frmWM_IndexFile
|
||||
'Nun alles aufrüumen und die neue DocID holen
|
||||
|
||||
If indexierung_erfolgreich = True Then
|
||||
LOGGER.Info("File was correctly imported and indexed: " & CURRENT_FILEIN_WD, False)
|
||||
Dim stg As String = "Datei erfolgreich nach windream übertragen"
|
||||
LOGGER.Info("File was correctly imported and indexed: " & CURRENT_FILEIN_WD)
|
||||
Dim stg As String = "Datei erfolgreich nach windream übertragen"
|
||||
Dim stg1 As String = "Erfolgsmeldung"
|
||||
If USER_LANGUAGE <> "de-DE" Then
|
||||
stg = "File was successfully transfered to windream"
|
||||
stg1 = "Success:"
|
||||
End If
|
||||
If multiindex = False Then CURRENT_NOTIFICATION_MSG = stg
|
||||
ClassDatabase.Execute_Scalar("UPDATE TBPMO_FILES_USER SET WORKED = 1 WHERE GUID = " & CURRENT_FILEID, True)
|
||||
For Each row As DataRow In CURRENT_TBPMO_FILES_USER.Rows
|
||||
MYDB_ECM.GetScalarValue("UPDATE TBPMO_FILES_USER SET WORKED = 1 WHERE GUID = " & CURRENT_FILEID)
|
||||
For Each row As DataRow In CURRENT_TBPMO_FILES_USER.Rows
|
||||
If row.Item("GUID") = CURRENT_FILEID Then
|
||||
row.Item("WORKED") = 1
|
||||
If IsNothing(droptype) Then
|
||||
@@ -265,15 +265,15 @@ Public Class frmWM_IndexFile
|
||||
If IsNothing(CURRENT_DOC_ID) Then
|
||||
sw = New SW("GettingDocID")
|
||||
sql = String.Format("SELECT DocID FROM VWPMO_DOC_SYNC WHERE FULL_FILENAME = '{0}' AND CONVERT(DATE,Change_DateTime) = CONVERT(DATE,GETDATE())", CURRENT_FILEIN_WD)
|
||||
CURRENT_DOC_ID = ClassDatabase.Execute_Scalar(sql)
|
||||
CURRENT_DOC_ID = MYDB_ECM.GetScalarValue(SQL)
|
||||
sw.Done()
|
||||
End If
|
||||
|
||||
|
||||
If Not IsNothing(CURRENT_DOC_ID) Then
|
||||
ClassHelper.InsertEssential_Log(CURRENT_DOC_ID, "DOC_ID", "File was imported and indexed!")
|
||||
LOGGER.Info(String.Format("File-Import was finished - DocID: {0} ", CURRENT_DOC_ID), False)
|
||||
Dim delete = False
|
||||
LOGGER.Info(String.Format("File-Import was finished - DocID: {0} ", CURRENT_DOC_ID))
|
||||
Dim delete = False
|
||||
'Die Originaldatei löschen
|
||||
If droptype = "dragdrop file" And indexierung_erfolgreich = True Then
|
||||
If chkdelete_origin.Checked = True Then
|
||||
@@ -298,18 +298,16 @@ Public Class frmWM_IndexFile
|
||||
If _wm.SessionLoggedin = False Then 'clsWM.Create_Session() = False Then
|
||||
MsgBox("Could not create a windream-session!", MsgBoxStyle.Critical)
|
||||
Else
|
||||
'Create Session um Fehler bei windows Session nicht zu erzeugen
|
||||
FAU_AD_USER = ""
|
||||
ClassFileResult.DocID = CURRENT_DOC_ID
|
||||
ClassFileResult.SET_DOCID_INDICES()
|
||||
If ClassDOC_SEARCH.CREATE_DOC_RELATED_LINKS(CURRENT_DOC_ID, CURRENT_RECORD_ID) = False Then
|
||||
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."
|
||||
End If
|
||||
MsgBox(stg, MsgBoxStyle.Critical, stg1)
|
||||
Else
|
||||
|
||||
ClassFileResult.DocID = CURRENT_DOC_ID
|
||||
ClassFileResult.SET_DOCID_INDICES()
|
||||
If ClassDOC_SEARCH.CREATE_DOC_RELATED_LINKS(CURRENT_DOC_ID, CURRENT_RECORD_ID) = False Then
|
||||
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."
|
||||
End If
|
||||
MsgBox(stg, MsgBoxStyle.Critical, stg1)
|
||||
Else
|
||||
sw = New SW("Setting_Rights")
|
||||
If ClassDOC_SEARCH.SET_WD_RIGHTS(CURRENT_DOC_ID, CURRENT_FILEIN_WD, odeleteRights) = False Then
|
||||
MsgBox("The rights for the new file could not be created! Please check the logfile!" & vbNewLine &
|
||||
@@ -357,7 +355,7 @@ Public Class frmWM_IndexFile
|
||||
' ' MsgBox(DT.Rows.Count.ToString)
|
||||
' For Each DR_AUTOINDEX As DataRow In DD_DMSDataSet.VWDDINDEX_AUTOM.Rows
|
||||
' Dim indexname As String = DR_AUTOINDEX.Item("INDEXNAME")
|
||||
' LOGGER.Debug("Build Automatischer Index '" & indexname & "'", False)
|
||||
' LOGGER.Debug("Build Automatischer Index '" & indexname & "'")
|
||||
' If DR_AUTOINDEX.Item("SQL_RESULT").ToString <> String.Empty And CBool(DR_AUTOINDEX.Item("SQL_ACTIVE")) = True Then
|
||||
' ' Regulären Ausdruck zum Auslesen der windream-Indexe definieren
|
||||
' Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
|
||||
@@ -370,32 +368,32 @@ Public Class frmWM_IndexFile
|
||||
' ' alle Vorkommen der Indexe im SQL-String durchlaufen
|
||||
' For Each element As System.Text.RegularExpressions.Match In elemente
|
||||
' ' MsgBox(element.Value.ToUpper)
|
||||
' LOGGER.Debug("Element: '" & element.Value & "'", False)
|
||||
' LOGGER.Debug("Element: '" & element.Value & "'")
|
||||
' '' wenn es sich nicht um dedizeirte Werte handelt (es sollen ja nur die Indexe ausgelesen werden)
|
||||
' 'If Not element.Value.ToUpper = "[%SPALTE]" And Not element.Value.ToUpper = "[%VIEW]" Then
|
||||
' 'die Zeichen [% und ] entfernen (liefert den wirklichen windream-Index)
|
||||
' Dim elementOhneSonderzeichen As String = element.Value.Substring(2, element.Value.Length - 3)
|
||||
' LOGGER.Debug("elementOhneSonderzeichen: '" & elementOhneSonderzeichen & "'", False)
|
||||
' LOGGER.Debug("elementOhneSonderzeichen: '" & elementOhneSonderzeichen & "'")
|
||||
' 'den Platzhalter im SQL-String durch den Wert ersetzen
|
||||
' Dim manIndexwert As String = GetManIndex_Value(elementOhneSonderzeichen, "IDX_AUTO")
|
||||
' If manIndexwert <> "" Then
|
||||
' SqlString = SqlString.Replace(element.Value, manIndexwert)
|
||||
' LOGGER.Debug("zusammengesetzter SQL-String: " & SqlString, False)
|
||||
' LOGGER.Debug("zusammengesetzter SQL-String: " & SqlString)
|
||||
' Else
|
||||
' Logger.Warn(" - ACHTUNG: manIndexwert = String.Empty - Funktion: FillIndexe_Autom", False)
|
||||
' Logger.Warn(" - ACHTUNG: manIndexwert = String.Empty - Funktion: FillIndexe_Autom")
|
||||
' Return False
|
||||
' End If
|
||||
' Next
|
||||
' LOGGER.Debug("Ausführen SQL....", False)
|
||||
' LOGGER.Debug("Ausführen SQL....")
|
||||
' Dim automatischerValue As String = ""
|
||||
' automatischerValue = Get_AutomatischerIndex_SQL(SqlString, DR_AUTOINDEX.Item("CONNECTION_ID"), DR_AUTOINDEX.Item("SQL_PROVIDER"))
|
||||
' LOGGER.Debug("Ergebnis SQL: '" & automatischerValue & "'", False)
|
||||
' LOGGER.Debug("Ergebnis SQL: '" & automatischerValue & "'")
|
||||
' If automatischerValue <> String.Empty Then
|
||||
' DR_AUTOINDEX.Item("Indexiert") = True
|
||||
' DR_AUTOINDEX.Item("Indexwert") = automatischerValue
|
||||
' Else
|
||||
' Logger.Warn(" - ACHTUNG: automatischerValue = String.Empty - Funktion: FillIndexe_Autom", False)
|
||||
' Logger.Warn(" - SqlString: " & SqlString, False)
|
||||
' Logger.Warn(" - ACHTUNG: automatischerValue = String.Empty - Funktion: FillIndexe_Autom")
|
||||
' Logger.Warn(" - SqlString: " & SqlString)
|
||||
' Return False
|
||||
' End If
|
||||
' Else
|
||||
@@ -404,7 +402,7 @@ Public Class frmWM_IndexFile
|
||||
' Dim DEFAULTVALUE As String = DR_AUTOINDEX.Item("VALUE")
|
||||
' 'Indexierung mit WindowsVariable
|
||||
' If DEFAULTVALUE.StartsWith("$") Then
|
||||
' LOGGER.Debug("Indexierung mit einer Windowsvariable: '" & DEFAULTVALUE & "'", False)
|
||||
' LOGGER.Debug("Indexierung mit einer Windowsvariable: '" & DEFAULTVALUE & "'")
|
||||
' Select Case DEFAULTVALUE.ToUpper
|
||||
' Case "$filename_ext".ToUpper
|
||||
' DEFAULTVALUE = Path.GetFileName(CURRENT_WORKFILE)
|
||||
@@ -423,9 +421,9 @@ Public Class frmWM_IndexFile
|
||||
' Case "$DateDDMMYYY".ToUpper
|
||||
' DEFAULTVALUE = System.DateTime.Now.ToShortDateString
|
||||
' End Select
|
||||
' LOGGER.Debug("Ergebnis der Windowsvariable: '" & DEFAULTVALUE & "'", False)
|
||||
' LOGGER.Debug("Ergebnis der Windowsvariable: '" & DEFAULTVALUE & "'")
|
||||
' Else
|
||||
' LOGGER.Debug("Indexierung mit einem Festen Wert: '" & DEFAULTVALUE & "'", False)
|
||||
' LOGGER.Debug("Indexierung mit einem Festen Wert: '" & DEFAULTVALUE & "'")
|
||||
' End If
|
||||
' 'Den Wert in der Zwischentabelle speichern
|
||||
' DR_AUTOINDEX.Item("Indexiert") = True
|
||||
@@ -490,7 +488,8 @@ Public Class frmWM_IndexFile
|
||||
'Die erste Datei indexieren
|
||||
If WORK_FILE(Me.txtFilepath.Text, Me.PATHTextBox.Text, doctype_id, My.Settings.WD_INDEXDOKART_SAVE, True) = True Then
|
||||
'Und nun die folgenden
|
||||
Dim DTFiles2Work As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_FILES_USER WHERE WORKED = 0 AND GUID <> " & CURRENT_FILEID & " AND UPPER(USER_WORK) = UPPER('" & USER_USERNAME & "')", True)
|
||||
Dim DTFiles2Work As DataTable = MYDB_ECM.GetDatatable("SELECT * FROM TBPMO_FILES_USER WHERE WORKED = 0
|
||||
AND GUID <> " & CURRENT_FILEID & " AND UPPER(USER_WORK) = UPPER('" & USER_USERNAME & "')")
|
||||
If Not DTFiles2Work Is Nothing Then
|
||||
Dim err = False
|
||||
For Each filerow As DataRow In DTFiles2Work.Rows
|
||||
@@ -640,7 +639,7 @@ Public Class frmWM_IndexFile
|
||||
Else
|
||||
sel = "select MANUAL_SUBFOLDER FROM TBPMO_WD_FORMVIEW_DOKTYPES WHERE FORMVIEW_ID = (SELECT GUID FROM TBPMO_FORM_VIEW WHERE FORM_ID = " & CURRENT_ENTITY_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID & ")"
|
||||
End If
|
||||
Dim chk = ClassDatabase.Execute_Scalar(sel, True)
|
||||
Dim chk = MYDB_ECM.GetScalarValue(sel)
|
||||
If Not IsNothing(chk) Then
|
||||
If CBool(chk) = True Then
|
||||
lblSubfolder.Visible = True
|
||||
@@ -830,7 +829,7 @@ Public Class frmWM_IndexFile
|
||||
Try
|
||||
Dim indexname = cmb.Name.Replace("cmb", "")
|
||||
Dim sql = "SELECT GUID,NAME,SQL_RESULT FROM TBPMO_INDEX_MAN where ACTIVE = 1 AND SUGGESTION = 1 AND SQL_RESULT like '%@" & indexname & "%' and DOCTYPE_ID = " & CURRENT_DOKARTID & " ORDER BY SEQUENCE"
|
||||
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
|
||||
Dim DT As DataTable = MYDB_ECM.GetDatatable(sql)
|
||||
If Not IsNothing(DT) Then
|
||||
If DT.Rows.Count > 0 Then
|
||||
Dim cmbname = "cmb" & DT.Rows(0).Item("NAME")
|
||||
@@ -857,21 +856,18 @@ Public Class frmWM_IndexFile
|
||||
Dim NewDataset As New DataSet
|
||||
Dim i As Integer
|
||||
|
||||
'Dim DT_INDEX As DataTable = ClassDatabase.Return_Datatable("select * FROM TBPMO_INDEX_MAN WHERE GUID = " & INDEX_GUID, True)
|
||||
'If IsNothing(DT_INDEX) Then
|
||||
' Exit Sub
|
||||
'End If
|
||||
|
||||
Dim conid = ClassMoreMetadata.Return_CURRENT_TBPMO_INDEX_MAN_VALUE(INDEX_GUID, "CONNECTION_ID") ' DT_INDEX.Rows(0).Item("CONNECTION_ID")
|
||||
Dim sql_result = ClassMoreMetadata.Return_CURRENT_TBPMO_INDEX_MAN_VALUE(INDEX_GUID, "SQL_RESULT") 'DT_INDEX.Rows(0).Item("SQL_RESULT")
|
||||
Dim NAME = ClassMoreMetadata.Return_CURRENT_TBPMO_INDEX_MAN_VALUE(INDEX_GUID, "NAME") 'DT_INDEX.Rows(0).Item("NAME")
|
||||
|
||||
Dim conid = ClassMoreMetadata.Return_CURRENT_TBPMO_INDEX_MAN_VALUE(INDEX_GUID, "CONNECTION_ID")
|
||||
Dim sql_result = ClassMoreMetadata.Return_CURRENT_TBPMO_INDEX_MAN_VALUE(INDEX_GUID, "SQL_RESULT")
|
||||
Dim NAME = ClassMoreMetadata.Return_CURRENT_TBPMO_INDEX_MAN_VALUE(INDEX_GUID, "NAME")
|
||||
If Not IsNothing(conid) And Not IsNothing(sql_result) And Not IsNothing(NAME) Then
|
||||
For Each ctrl As Control In Me.grbxControls.Controls
|
||||
If ctrl.Name = "cmb" & NAME.ToString Then
|
||||
Dim cmb As ComboBox = ctrl
|
||||
Dim sql As String = sql_result.ToString.ToUpper.Replace("@" & SearchString.ToUpper, Resultvalue)
|
||||
|
||||
connectionString = ClassDatabase.GetConnectionString(conid)
|
||||
connectionString = MYDB_ECM.CurrentConnectionString
|
||||
If connectionString Is Nothing = False Then
|
||||
'SQL Befehl füllt die Auswahlliste
|
||||
If connectionString.Contains("Server=") And connectionString.Contains("Database=") Then
|
||||
@@ -958,7 +954,7 @@ Public Class frmWM_IndexFile
|
||||
Dim sql As String
|
||||
Dim runinLZ As Boolean = False
|
||||
|
||||
connectionString = ClassDatabase.GetConnectionString(conid)
|
||||
connectionString = MYDB_ECM.CurrentConnectionString ' ClassDatabase.GetConnectionString(conid)
|
||||
If connectionString Is Nothing = False Then
|
||||
'SQL Befehl füllt die Auswahlliste
|
||||
sql = sql_Vorschlag
|
||||
@@ -979,7 +975,7 @@ Public Class frmWM_IndexFile
|
||||
End If
|
||||
Else
|
||||
runinLZ = True
|
||||
LOGGER.Debug(" >>sql enthält Platzhalter und wird erst während der Laufzeit gefüllt!", False)
|
||||
LOGGER.Debug(" >>sql enthält Platzhalter und wird erst während der Laufzeit gefüllt!")
|
||||
End If
|
||||
|
||||
|
||||
@@ -1058,14 +1054,14 @@ Public Class frmWM_IndexFile
|
||||
Try
|
||||
If CURRENT_DOKARTID > 0 Then
|
||||
Dim sql = "SELECT * FROM TBDD_DOKUMENTART WHERE GUID = " & CURRENT_DOKARTID
|
||||
Dim DTDOKART As DataTable = clsDatabase.Return_Datatable(sql)
|
||||
Dim DTDOKART As DataTable = MYDB_ECM.GetDatatable(sql)
|
||||
If DTDOKART.Rows.Count = 1 Then
|
||||
OBJECT_TYPETextBox.Text = DTDOKART.Rows(0).Item("OBJEKTTYP")
|
||||
DOCTYPE_IDTextBox.Text = CURRENT_DOKARTID
|
||||
PATHTextBox.Text = DTDOKART.Rows(0).Item("ZIEL_PFAD")
|
||||
Dim dt As DataTable
|
||||
'sql = "SELECT * FROM TBDD_INDEX_AUTOM WHERE DOCTYPE_ID = " & CURRENT_DOKARTID
|
||||
'Dim dt As DataTable = ClassDatabase.Return_Datatable(sql, True)
|
||||
'Dim dt As DataTable = MYDB_ECM.GetDatatable(sql)
|
||||
'Dim Count As Integer = 0
|
||||
'lvwIndices.Items.Clear()
|
||||
'If dt.Rows.Count > 0 Then
|
||||
@@ -1086,7 +1082,7 @@ Public Class frmWM_IndexFile
|
||||
'End If
|
||||
'den Entity-Key auslesen
|
||||
sql = "Select Top 1 * from TBPMO_WD_OBJECTTYPE where Upper(object_type) = Upper('" & OBJECT_TYPETextBox.Text & "')"
|
||||
dt = ClassDatabase.Return_Datatable(sql, True)
|
||||
dt = MYDB_ECM.GetDatatable(sql)
|
||||
If Not dt Is Nothing Then
|
||||
If dt.Rows.Count = 1 Then
|
||||
'lvwIndices.Items.Add(dt.Rows(0).Item("IDXNAME_ENTITYID").ToString)
|
||||
@@ -1098,7 +1094,7 @@ Public Class frmWM_IndexFile
|
||||
'Else
|
||||
' sql = "SELECT TOP 1 PARENT_ID FROM TBPMO_FORM WHERE GUID = " & CURRENT_ENTITY_ID
|
||||
'End If
|
||||
'Dim ParentID = ClassDatabase.Execute_Scalar(sql, True)
|
||||
'Dim ParentID = MYDB_ECM.GetScalarValue(sql)
|
||||
'Try
|
||||
' If IsNumeric(ParentID) And ParentID > 0 Then
|
||||
' lvwIndices.Items(Count).SubItems.Add(ParentID)
|
||||
@@ -1132,7 +1128,7 @@ Public Class frmWM_IndexFile
|
||||
CURRENT_FILENAME = ""
|
||||
Me.VWDDINDEX_AUTOMTableAdapter.Connection.ConnectionString = MyConnectionString
|
||||
chkMultiIndexer.Checked = False
|
||||
LOGGER.Debug("frmWD_Index_Dokart_Load", False)
|
||||
LOGGER.Debug("frmWD_Index_Dokart_Load")
|
||||
chkdelete_origin.Checked = False
|
||||
chkdelete_origin.Visible = False
|
||||
_wm = New Windream(LOGCONFIG, False, WMDriveLetter, WMPATH_PREFIX, True, "", "", "", "")
|
||||
@@ -1178,7 +1174,7 @@ Public Class frmWM_IndexFile
|
||||
End If
|
||||
Dim sql = String.Format("SELECT FORMVIEW_ID, FORM_ID, FORM_TITLE, DOKUMENTTYPE_ID, DOKUMENTTYPE, PATH, SHORTNAME, OBJECT_TYPE, FW_DOCTYPE_ID FROM VWPMO_DOKUMENTTYPES WHERE (FORMVIEW_ID = {0}) " & _
|
||||
"ORDER BY SEQUENCE, DOKUMENTTYPE", CURRENT_FORMVIEW_ID)
|
||||
DTVWPMO_DOKUMENTTYPES = ClassDatabase.Return_Datatable(sql, True)
|
||||
DTVWPMO_DOKUMENTTYPES = MYDB_ECM.GetDatatable(sql)
|
||||
|
||||
'VWPMO_DOKUMENTTYPESTableAdapter.Connection.ConnectionString = MyConnectionString
|
||||
'Me.VWPMO_DOKUMENTTYPESTableAdapter.Fill(Me.DD_DMSDataSet.VWPMO_DOKUMENTTYPES, CURRENT_FORMVIEW_ID)
|
||||
@@ -1187,7 +1183,7 @@ Public Class frmWM_IndexFile
|
||||
CURRENT_REDUNDANT_FORMVIEW_ID = 0
|
||||
If DTVWPMO_DOKUMENTTYPES.Rows.Count = 0 Then ' DD_DMSDataSet.VWPMO_DOKUMENTTYPES.Rows.Count = 0 Then
|
||||
If CURRENT_ENTITY_REDUNDANT_ID <> 0 Then
|
||||
Dim FVID = ClassDatabase.Execute_Scalar(String.Format("SELECT GUID FROM TBPMO_FORM_VIEW WHERE FORM_ID = {0} and SCREEN_ID = 1", CURRENT_ENTITY_REDUNDANT_ID), True)
|
||||
Dim FVID = MYDB_ECM.GetScalarValue(String.Format("SELECT GUID FROM TBPMO_FORM_VIEW WHERE FORM_ID = {0} and SCREEN_ID = 1", CURRENT_ENTITY_REDUNDANT_ID), True)
|
||||
'Me.VWPMO_DOKUMENTTYPESTableAdapter.Fill(Me.DD_DMSDataSet.VWPMO_DOKUMENTTYPES, FVID)
|
||||
If DTVWPMO_DOKUMENTTYPES.Rows.Count = 0 Then 'DD_DMSDataSet.VWPMO_DOKUMENTTYPES.Rows.Count = 0 Then
|
||||
MsgBox("No documenttypes for the redundant entity configured either! Indexing is not possible!" & vbNewLine & "Please check the configuration!", MsgBoxStyle.Exclamation)
|
||||
|
||||
Reference in New Issue
Block a user