MS IDB und WINDREAM
This commit is contained in:
@@ -568,7 +568,7 @@ Public Class frmIndex
|
||||
Case "Username".ToUpper
|
||||
oNamenkonvention = oNamenkonvention.Replace(oElement.Value, Environment.UserName)
|
||||
Case "Usercode".ToUpper
|
||||
oNamenkonvention = oNamenkonvention.Replace(oElement.Value, USER_SHORT_NAME)
|
||||
oNamenkonvention = oNamenkonvention.Replace(oElement.Value, USER_SHORTNAME)
|
||||
Case ""
|
||||
End Select
|
||||
If datetemp <> "" Then
|
||||
@@ -697,13 +697,15 @@ Public Class frmIndex
|
||||
Count += 1
|
||||
|
||||
' den Typ des Zielindexes auslesen
|
||||
Dim indexType As Integer = ClassWindream.GetTypeOfIndexAsIntByName(indexname)
|
||||
Dim indexType As Integer = WINDREAM.GetIndexType(indexname)
|
||||
|
||||
If indexType < ClassWindream.WMObjectVariableValueTypeVector Then
|
||||
indexierung_erfolgreich = ClassWindream.DateiIndexieren(CURRENT_NEWFILENAME, indexname, idxvalue)
|
||||
If indexType < WINDREAM.WMObjectVariableValueTypeVector Then
|
||||
indexierung_erfolgreich = WINDREAM.SetFileIndex(CURRENT_NEWFILENAME, indexname, idxvalue, CURR_DOKART_OBJECTTYPE)
|
||||
Else
|
||||
Dim indexArray = Split(idxvalue, ClassConstants.VECTORSEPARATOR)
|
||||
indexierung_erfolgreich = ClassWindream.Indexiere(CURRENT_NEWFILENAME.Substring(2), indexname, indexArray)
|
||||
Dim oSplitArray = Split(idxvalue, ClassConstants.VECTORSEPARATOR)
|
||||
Dim oListofString As List(Of String)
|
||||
oListofString = (From o In oSplitArray Select 0.ToString.ToList)
|
||||
indexierung_erfolgreich = WINDREAM.SetFileIndex(CURRENT_NEWFILENAME, indexname, oListofString, CURR_DOKART_OBJECTTYPE)
|
||||
End If
|
||||
|
||||
'indexierung_erfolgreich = ClassWindream.DateiIndexieren(CURRENT_NEWFILENAME, indexname, idxvalue)
|
||||
@@ -739,16 +741,18 @@ Public Class frmIndex
|
||||
Count += 1
|
||||
|
||||
' den Typ des Zielindexes auslesen
|
||||
Dim indexType As Integer = ClassWindream.GetTypeOfIndexAsIntByName(indexname)
|
||||
Dim indexType As Integer = WINDREAM.GetIndexType(indexname)
|
||||
|
||||
If indexType < ClassWindream.WMObjectVariableValueTypeVector Then
|
||||
indexierung_erfolgreich = ClassWindream.DateiIndexieren(CURRENT_NEWFILENAME, indexname, Indexvalue)
|
||||
If indexType < WINDREAM.WMObjectVariableValueTypeVector Then
|
||||
indexierung_erfolgreich = WINDREAM.SetFileIndex(CURRENT_NEWFILENAME, indexname, Indexvalue, CURR_DOKART_OBJECTTYPE)
|
||||
Else
|
||||
Dim indexArray = Split(Indexvalue, ClassConstants.VECTORSEPARATOR)
|
||||
indexierung_erfolgreich = ClassWindream.Indexiere(CURRENT_NEWFILENAME.Substring(2), indexname, indexArray)
|
||||
Dim oSplitArray = Split(Indexvalue, ClassConstants.VECTORSEPARATOR)
|
||||
Dim oListofString As List(Of String)
|
||||
oListofString = (From o In oSplitArray Select 0.ToString.ToList)
|
||||
indexierung_erfolgreich = WINDREAM.SetFileIndex(CURRENT_NEWFILENAME, indexname, oListofString, CURR_DOKART_OBJECTTYPE)
|
||||
End If
|
||||
|
||||
indexierung_erfolgreich = ClassWindream.DateiIndexieren(CURRENT_NEWFILENAME, indexname, Indexvalue)
|
||||
indexierung_erfolgreich = WINDREAM.SetFileIndex(CURRENT_NEWFILENAME, indexname, Indexvalue, CURR_DOKART_OBJECTTYPE)
|
||||
If indexierung_erfolgreich = False Then
|
||||
MsgBox("Error in indexing file - See log", MsgBoxStyle.Critical)
|
||||
Return False
|
||||
@@ -782,7 +786,7 @@ Public Class frmIndex
|
||||
Private Function WriteIndex2File(indexname As String, indexvalue As String)
|
||||
Try
|
||||
LOGGER.Info(" >> Indexvalue: " & indexvalue.ToString)
|
||||
Return ClassWindream.DateiIndexieren(CURRENT_NEWFILENAME, indexname, indexvalue)
|
||||
Return WINDREAM.SetFileIndex(CURRENT_NEWFILENAME, indexname, indexvalue, CURR_DOKART_OBJECTTYPE)
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in WriteIndex2File:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
Return False
|
||||
@@ -838,9 +842,9 @@ Public Class frmIndex
|
||||
finalize_pattern = rowregex.Item("REGEX")
|
||||
End If
|
||||
Next
|
||||
Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBGI_OBJECTTYPE_EMAIL_INDEX WHERE OBJECTTYPE = '" & ClassWindream._WDObjekttyp & "'")
|
||||
Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBGI_OBJECTTYPE_EMAIL_INDEX WHERE OBJECTTYPE = '" & CURR_DOKART_OBJECTTYPE & "'")
|
||||
If IsNothing(DT) Then
|
||||
LOGGER.Info(" >> SELECT * FROM TBGI_OBJECTTYPE_EMAIL_INDEX WHERE OBJECTTYPE = '" & ClassWindream._WDObjekttyp & "' RESULTED in NOTHING")
|
||||
LOGGER.Info(" >> SELECT * FROM TBGI_OBJECTTYPE_EMAIL_INDEX WHERE OBJECTTYPE = '" & CURR_DOKART_OBJECTTYPE & "' RESULTED in NOTHING")
|
||||
Return False
|
||||
End If
|
||||
If DT.Rows.Count = 1 Then
|
||||
@@ -1127,7 +1131,7 @@ Public Class frmIndex
|
||||
Private Function SetAttachmentIndices()
|
||||
Dim indexierung_erfolgreich As Boolean = True
|
||||
Try
|
||||
Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBGI_OBJECTTYPE_EMAIL_INDEX WHERE OBJECTTYPE = '" & ClassWindream._WDObjekttyp & "'")
|
||||
Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBGI_OBJECTTYPE_EMAIL_INDEX WHERE OBJECTTYPE = '" & CURR_DOKART_OBJECTTYPE & "'")
|
||||
If DT.Rows.Count = 1 Then
|
||||
|
||||
If Not CURRENT_MESSAGEID Is Nothing Then
|
||||
@@ -1172,8 +1176,8 @@ Public Class frmIndex
|
||||
|
||||
Private Function SINGLEFILE_2_WINDREAM(_Objekttyp As String)
|
||||
Try
|
||||
ClassWindream._WDObjekttyp = _Objekttyp
|
||||
Dim streamresult = ClassWindream.Stream_File(CURRENT_WORKFILE, CURRENT_NEWFILENAME)
|
||||
CURR_DOKART_OBJECTTYPE = _Objekttyp
|
||||
Dim streamresult = WINDREAM.NewFileStream(CURRENT_WORKFILE, CURRENT_NEWFILENAME)
|
||||
|
||||
If CONFIG.Config.DeleteOriginalFile = True Then
|
||||
Try
|
||||
@@ -1751,7 +1755,7 @@ Public Class frmIndex
|
||||
Dim oPlaceholderResult As String
|
||||
Dim oValue As String = ClassHelper.NotNull(oAutoIndexRow.Item("VALUE"), "")
|
||||
|
||||
oPlaceholderResult = GetPlaceholderValue(oValue, CURRENT_WORKFILE, USER_SHORT_NAME)
|
||||
oPlaceholderResult = GetPlaceholderValue(oValue, CURRENT_WORKFILE, USER_SHORTNAME)
|
||||
|
||||
If Not IsNothing(oPlaceholderResult) Then
|
||||
oValue = oPlaceholderResult
|
||||
@@ -1774,7 +1778,7 @@ Public Class frmIndex
|
||||
Dim oManualIndexResult As String = Nothing
|
||||
|
||||
' Einfachen Platzhalter Wert erzeugen
|
||||
oPlaceholderResult = GetPlaceholderValue(oIndexValue, CURRENT_WORKFILE, USER_SHORT_NAME)
|
||||
oPlaceholderResult = GetPlaceholderValue(oIndexValue, CURRENT_WORKFILE, USER_SHORTNAME)
|
||||
|
||||
' Einfachen Platzhalter ersetzen
|
||||
If Not IsNothing(oPlaceholderResult) Then
|
||||
@@ -2241,10 +2245,6 @@ Public Class frmIndex
|
||||
exp2WD = SINGLEFILE_2_WINDREAM(CURR_DOKART_OBJECTTYPE)
|
||||
End If
|
||||
If exp2WD = True Then
|
||||
'Prüfen ob Session da ist - wenn nicht nochmal neu initiieren
|
||||
If ClassWindream._session Is Nothing Then
|
||||
ClassWindream.Init()
|
||||
End If
|
||||
'Kein Fehler in Export2windream
|
||||
err = False
|
||||
If Write_Indizes() = True Then
|
||||
|
||||
Reference in New Issue
Block a user