AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Merge branch 'master' of http://172.24.11.74:90/scm/git/ProcessManagerClient

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber 2018-10-15 17:02:48 +02:00
commit 0ccd050d4c
10 changed files with 120 additions and 82 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
app/DD_PM_WINDREAM/ClassFinalizeDoc.vb
View File

@ -129,9 +129,9 @@
ReDim Preserve arrValue(0) ReDim Preserve arrValue(0)
arrValue(0) = idxvalue(0).ToString arrValue(0) = idxvalue(0).ToString
End If End If
Dim _windreamPM As New ClassPMWindream 'Dim _windreamPM As New ClassPMWindream
'Jetzt das eigentliche Indexieren der Datei 'Jetzt das eigentliche Indexieren der Datei
File_indexiert = _windreamPM.RunIndexing(CURRENT_WMFILE, arrIndex, arrValue) File_indexiert = WINDREAM.RunIndexing(CURRENT_WMFILE, arrIndex, arrValue)
Return File_indexiert Return File_indexiert
End If End If

52
app/DD_PM_WINDREAM/ClassPMWindream.vb
View File

@ -62,33 +62,33 @@ Public Class ClassPMWindream
End Function End Function
Public Function GetValuesfromAuswahlliste(ByVal listname As String) Public Function GetValuesfromAuswahlliste(ByVal listname As String)
Try Try
Dim oAttribute = Me.oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, listname) 'Dim oAttribute = Me.oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, listname)
Dim vType = oAttribute.getVariableValue("vItems") 'Dim vType = oAttribute.getVariableValue("vItems")
Return vType 'Return vType
'Dim oChoiceList = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityChoiceList, listname) Dim oChoiceList = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityChoiceList, listname)
'If Err.Number = 0 And TypeName(oChoiceList) <> "Nothing" Then If Err.Number = 0 And TypeName(oChoiceList) <> "Nothing" Then
' Dim Values = oChoiceList Dim Values = oChoiceList
' Values = oChoiceList.GetVariableValue("vItems") Values = oChoiceList.GetVariableValue("vItems")
' Dim anz As Integer = 0 Dim anz As Integer = 0
' For Each CLItem In Values For Each CLItem In Values
' If oChoiceList.aName IsNot Nothing Then If oChoiceList.aName IsNot Nothing Then
' anz += 1 anz += 1
' End If End If
' Next Next
' Dim strListe(anz - 1) Dim strListe(anz - 1)
' Dim zahl As Integer = 0 Dim zahl As Integer = 0
' For Each CLItem In Values For Each CLItem In Values
' If oChoiceList.aName IsNot Nothing Then If oChoiceList.aName IsNot Nothing Then
' strListe(zahl) = CLItem strListe(zahl) = CLItem
' zahl += 1 zahl += 1
' End If End If
' Next Next
' Return strListe Return strListe
'Else Else
' MsgBox("Auswahlliste: " & listname & " nicht gefunden!", MsgBoxStyle.Critical, "Fehler:") MsgBox("Auswahlliste: " & listname & " nicht gefunden!", MsgBoxStyle.Critical, "Fehler:")
' Return Nothing Return Nothing
'End If End If
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler in GetValuesfromAuswahlliste:") MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler in GetValuesfromAuswahlliste:")

24
app/DD_PM_WINDREAM/ClassWindream_allgemein.vb
View File

@ -131,7 +131,13 @@ Public Class ClassWindream_allgemein
End Function End Function
Public Function Start_WMCC_andCo() Public Function Start_WMCC_andCo()
Try Try
If WMSESSION_STARTSTOP_STARTUP = True Then ' 04.10.18: Überprüft, ob der Benutzer Mitglied der SERVER_USER Gruppe ist
Dim sql = "SELECT T.GUID FROM TBDD_GROUPS_USER T
INNER JOIN TBDD_GROUPS T1 on T1.GUID = T.GROUP_ID
WHERE T1.NAME = 'SERVER_USER' AND T.USER_ID = " & USER_ID
Dim userExistsInServerUserGroup = ClassDatabase.Execute_Scalar(sql, MyConnectionString)
If WMSESSION_STARTSTOP_STARTUP = True And userExistsInServerUserGroup Is Nothing Then
ClassLogger.Add(">> WINDREAM-Start on ApplicationStart is active!", False) ClassLogger.Add(">> WINDREAM-Start on ApplicationStart is active!", False)
Dim owindreamControlCenter = CreateObject("Wmcc.ControlCenter") Dim owindreamControlCenter = CreateObject("Wmcc.ControlCenter")
@ -148,13 +154,19 @@ Public Class ClassWindream_allgemein
End Function End Function
Public Function Stop_WMCC_andCo() Public Function Stop_WMCC_andCo()
Try Try
If WMSESSION_STARTSTOP_STARTUP = True Then ' 04.10.18: Überprüft, ob der Benutzer Mitglied der SERVER_USER Gruppe ist
Dim sql = "SELECT T.GUID FROM TBDD_GROUPS_USER T
INNER JOIN TBDD_GROUPS T1 on T1.GUID = T.GROUP_ID
WHERE T1.NAME = 'SERVER_USER' AND T.USER_ID = " & USER_ID
Dim userExistsInServerUserGroup = ClassDatabase.Execute_Scalar(sql, MyConnectionString)
If WMSESSION_STARTSTOP_STARTUP = True And userExistsInServerUserGroup Is Nothing Then
Dim owindreamControlCenter = CreateObject("Wmcc.ControlCenter") Dim owindreamControlCenter = CreateObject("Wmcc.ControlCenter")
Dim owindreamIndexService = CreateObject("WMIndexServer.WMIdxSvControl") Dim owindreamIndexService = CreateObject("WMIndexServer.WMIdxSvControl")
owindreamControlCenter.StartVFSService(0) owindreamControlCenter.StartVFSService(0)
owindreamIndexService.Shutdown() owindreamIndexService.Shutdown()
owindreamControlCenter.ExitCC(0) owindreamControlCenter.ExitCC(0)
End If End If
Catch ex As Exception Catch ex As Exception
ClassLogger.Add("Error while Stopping WMCC and IndexService: " & ex.Message, True) ClassLogger.Add("Error while Stopping WMCC and IndexService: " & ex.Message, True)
End Try End Try

2
app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb
View File

@ -63,4 +63,6 @@ Module ModuleRuntimeVariables
Public CURRENT_CONTROL_ID As Integer Public CURRENT_CONTROL_ID As Integer
Public errormessage As String Public errormessage As String
Public WINDREAM As ClassPMWindream
End Module End Module

2
app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb
View File

@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.9.5.0")> <Assembly: AssemblyVersion("1.9.5.2")>
<Assembly: AssemblyFileVersion("1.0.0.0")> <Assembly: AssemblyFileVersion("1.0.0.0")>

22
app/DD_PM_WINDREAM/frmAdministration.vb
View File

@ -6,7 +6,7 @@ Imports DevExpress.XtraGrid
Imports DevExpress.XtraGrid.Views.Grid Imports DevExpress.XtraGrid.Views.Grid
Public Class frmAdministration Public Class frmAdministration
Private _windreamPM As ClassPMWindream 'Private _windreamPM As ClassPMWindream
Private email As New ClassEmail Private email As New ClassEmail
Public profile_guid As Integer = 0 Public profile_guid As Integer = 0
Dim formloaded As Boolean Dim formloaded As Boolean
@ -59,9 +59,9 @@ Public Class frmAdministration
Try Try
' Windream instanziieren ' Windream instanziieren
_windreamPM = New ClassPMWindream() '_windreamPM = New ClassPMWindream()
'Windream initialisieren (Connection, Session, ... aufbauen) 'Windream initialisieren (Connection, Session, ... aufbauen)
_windreamPM.Create_Session() '_windreamPM.Create_Session()
Catch ex As Exception Catch ex As Exception
MsgBox("Fehler bei Initialisieren von windream: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:") MsgBox("Fehler bei Initialisieren von windream: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:")
End Try End Try
@ -70,11 +70,11 @@ Public Class frmAdministration
Try Try
If cmbObjekttypen.Text <> String.Empty Then If cmbObjekttypen.Text <> String.Empty Then
Windream_Indicies = _windreamPM.GetIndicesByObjecttype(cmbObjekttypen.Text).ToList() Windream_Indicies = WINDREAM.GetIndicesByObjecttype(cmbObjekttypen.Text).ToList()
Windream_Indicies_Types = New List(Of Integer) Windream_Indicies_Types = New List(Of Integer)
For Each i In Windream_Indicies For Each i In Windream_Indicies
Dim type = _windreamPM.GetTypeOfIndex(i) Dim type = WINDREAM.GetTypeOfIndex(i)
Windream_Indicies_Types.Add(type) Windream_Indicies_Types.Add(type)
Next Next
End If End If
@ -87,13 +87,13 @@ Public Class frmAdministration
Try Try
Me.PM_VEKTOR_INDEXComboBox.Items.Clear() Me.PM_VEKTOR_INDEXComboBox.Items.Clear()
Me.cmbLOGIndex.Items.Clear() Me.cmbLOGIndex.Items.Clear()
Dim indexe = _windreamPM.GetIndicesByObjecttype(cmbObjekttypen.Text) Dim indexe = WINDREAM.GetIndicesByObjecttype(cmbObjekttypen.Text)
Me.PM_VEKTOR_INDEXComboBox.Items.Add("") Me.PM_VEKTOR_INDEXComboBox.Items.Add("")
Me.cmbLOGIndex.Items.Add("") Me.cmbLOGIndex.Items.Add("")
If indexe IsNot Nothing Then If indexe IsNot Nothing Then
For Each index As String In indexe For Each index As String In indexe
Dim _vektorString As Boolean = False Dim _vektorString As Boolean = False
Select Case _windreamPM.GetTypeOfIndex(index) Select Case WINDREAM.GetTypeOfIndex(index)
Case 4097 Case 4097
_vektorString = True _vektorString = True
Case 36865 Case 36865
@ -152,7 +152,7 @@ Public Class frmAdministration
Private Sub ObjekttypenEintragen() Private Sub ObjekttypenEintragen()
Me.cmbObjekttypen.Items.Clear() Me.cmbObjekttypen.Items.Clear()
Try Try
Dim oDokumentTypen As WINDREAMLib.WMObjects = Me._windreamPM.GetObjecttypesAsObjects() Dim oDokumentTypen As WINDREAMLib.WMObjects = WINDREAM.GetObjecttypesAsObjects()
If oDokumentTypen Is Nothing Then Exit Sub If oDokumentTypen Is Nothing Then Exit Sub
For Each aType In oDokumentTypen For Each aType In oDokumentTypen
Me.cmbObjekttypen.Items.Add(aType.aName) Me.cmbObjekttypen.Items.Add(aType.aName)
@ -750,11 +750,11 @@ Public Class frmAdministration
End Sub End Sub
Private Sub Button3_Click_1(sender As Object, e As EventArgs) Private Sub Button3_Click_1(sender As Object, e As EventArgs)
Dim indexe = _windreamPM.GetIndicesByObjecttype(cmbObjekttypen.Text) Dim indexe = WINDREAM.GetIndicesByObjecttype(cmbObjekttypen.Text)
If indexe IsNot Nothing Then If indexe IsNot Nothing Then
For Each index As String In indexe For Each index As String In indexe
MsgBox(index & vbNewLine & _windreamPM.GetTypeOfIndex(index)) MsgBox(index & vbNewLine & WINDREAM.GetTypeOfIndex(index))
Select Case _windreamPM.GetTypeOfIndex(index) Select Case WINDREAM.GetTypeOfIndex(index)
Case 4107 'Vektor Zahl Case 4107 'Vektor Zahl
Case 4097 Case 4097

35
app/DD_PM_WINDREAM/frmMain.vb
View File

@ -9,7 +9,7 @@ Imports DevExpress.XtraGrid.Columns
Imports DevExpress.XtraCharts Imports DevExpress.XtraCharts
Public Class frmMain Public Class frmMain
Private _windreamPM As ClassPMWindream 'Private _windreamPM As ClassPMWindream
Private UserLoggedin As Integer = 0 Private UserLoggedin As Integer = 0
Private PROFILE_COUNT As Integer = 0 Private PROFILE_COUNT As Integer = 0
Private CURR_DT_VWPM_PROFILE_ACTIVE As DataTable Private CURR_DT_VWPM_PROFILE_ACTIVE As DataTable
@ -22,7 +22,7 @@ Public Class frmMain
Private GridCursorLocation As Point Private GridCursorLocation As Point
Private GRID_LOAD_TYPE As String = "OVERVIEW" Private GRID_LOAD_TYPE As String = "OVERVIEW"
Private GRID_INV_COL_REMOVED As Boolean = False Private GRID_INV_COL_REMOVED As Boolean = False
Private _windream As New ClassWindream_allgemein 'Private _windream As New ClassWindream_allgemein
Private Sub frmMain_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing Private Sub frmMain_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
Try Try
@ -34,9 +34,12 @@ Public Class frmMain
Catch ex As Exception Catch ex As Exception
ClassLogger.Add("Error in Save FormLayout: " & ex.Message) ClassLogger.Add("Error in Save FormLayout: " & ex.Message)
End Try End Try
If _windreamPM.oSession.aLoggedin = True Then If WINDREAM.oSession.aLoggedin = True Then
_windreamPM.Stop_WMCC_andCo() WINDREAM.Stop_WMCC_andCo()
End If End If
'If _windreamPM.oSession.aLoggedin = True Then
' _windreamPM.Stop_WMCC_andCo()
'End If
Try Try
ClassAllgemeineFunktionen.LoginOut("LOGOUT") ClassAllgemeineFunktionen.LoginOut("LOGOUT")
@ -138,9 +141,12 @@ Public Class frmMain
Check_Timer_Notification() Check_Timer_Notification()
Restore_Form_Position() Restore_Form_Position()
Try Try
_windreamPM = New ClassPMWindream WINDREAM = New ClassPMWindream
_windreamPM.Start_WMCC_andCo() WINDREAM.Start_WMCC_andCo()
If _windreamPM.oSession.aLoggedin = False Then
'_windreamPM = New ClassPMWindream
'_windreamPM.Start_WMCC_andCo()
If WINDREAM.oSession.aLoggedin = False Then
MsgBox("Login on windream was not possible. Please check the log." & vbNewLine & "Application will close now!", MsgBoxStyle.Critical) MsgBox("Login on windream was not possible. Please check the log." & vbNewLine & "Application will close now!", MsgBoxStyle.Critical)
Me.Close() Me.Close()
End If End If
@ -927,8 +933,13 @@ Public Class frmMain
End Sub End Sub
Private Function Init_windream() Private Function Init_windream()
Try Try
_windream = New ClassWindream_allgemein '_windream = New ClassWindream_allgemein
_windream.Create_Session() '_windream.Create_Session()
'_windreamPM = New ClassPMWindream()
'_windreamPM.Create_Session()
WINDREAM = New ClassPMWindream()
WINDREAM.Create_Session()
If LogErrorsOnly = False Then ClassLogger.Add(" >> windream initialized", False) If LogErrorsOnly = False Then ClassLogger.Add(" >> windream initialized", False)
Return True Return True
Catch ex As Exception Catch ex As Exception
@ -1125,6 +1136,9 @@ Public Class frmMain
RestoreLayout() RestoreLayout()
Try Try
GridView_Docs.OptionsBehavior.AutoExpandAllGroups = True
GridView_Docs.OptionsView.ShowGroupedColumns = False
GridView_Docs.Columns.Item("PROFILE_GROUP_TEXT").GroupIndex = 0 GridView_Docs.Columns.Item("PROFILE_GROUP_TEXT").GroupIndex = 0
GridView_Docs.Columns.Item("PROFILE_GROUP_TEXT").Visible = False GridView_Docs.Columns.Item("PROFILE_GROUP_TEXT").Visible = False
GridView_Docs.Columns.Item("PROFILE_GROUP_COLOR").Visible = False GridView_Docs.Columns.Item("PROFILE_GROUP_COLOR").Visible = False
@ -1144,9 +1158,6 @@ Public Class frmMain
GridView_Docs.Columns.Item("ICON").Fixed = DevExpress.XtraGrid.Columns.FixedStyle.Left GridView_Docs.Columns.Item("ICON").Fixed = DevExpress.XtraGrid.Columns.FixedStyle.Left
GridView_Docs.Columns("Last edited").DisplayFormat.FormatType = FormatType.DateTime GridView_Docs.Columns("Last edited").DisplayFormat.FormatType = FormatType.DateTime
GridView_Docs.Columns("Last edited").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss" GridView_Docs.Columns("Last edited").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
GridView_Docs.OptionsBehavior.AutoExpandAllGroups = True
GridView_Docs.OptionsView.ShowGroupedColumns = False
Catch ex As Exception Catch ex As Exception
ClassLogger.Add("Unexpected Error in Formatting Grid: " & ex.Message) ClassLogger.Add("Unexpected Error in Formatting Grid: " & ex.Message)
End Try End Try

29
app/DD_PM_WINDREAM/frmMassValidator.vb
View File

@ -18,8 +18,8 @@ Public Class frmMassValidator
Private _dependingControl_in_action As Boolean = False Private _dependingControl_in_action As Boolean = False
Private errmessage As String Private errmessage As String
Private _windream As New ClassWindream_allgemein 'Private _windream As New ClassWindream_allgemein
Private _windreamPM As New ClassPMWindream 'Private _windreamPM As New ClassPMWindream
Private _allgFunk As New ClassAllgemeineFunktionen Private _allgFunk As New ClassAllgemeineFunktionen
Dim viewer_string As String Dim viewer_string As String
Dim pdfxchange As Boolean = False Dim pdfxchange As Boolean = False
@ -28,8 +28,13 @@ Public Class frmMassValidator
Private Sub frmMassValidator_Load(sender As Object, e As EventArgs) Handles Me.Load Private Sub frmMassValidator_Load(sender As Object, e As EventArgs) Handles Me.Load
FORM_Shown = False FORM_Shown = False
Try Try
_windream = New ClassWindream_allgemein ' 05.10.18: Nutzung des Globalen Windream Objekts WINDREAM
_windream.Create_Session() '_windream = New ClassWindream_allgemein
'_windream.Create_Session()
'_windreamPM = New ClassPMWindream()
'_windreamPM.Create_Session()
If LogErrorsOnly = False Then ClassLogger.Add("windream initialized frmMassValidator", False) If LogErrorsOnly = False Then ClassLogger.Add("windream initialized frmMassValidator", False)
Catch ex As Exception Catch ex As Exception
@ -240,8 +245,8 @@ Public Class frmMassValidator
Else Else
If CURR_CHOICE_LIST <> "" Then If CURR_CHOICE_LIST <> "" Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> In add_ComboBox - AListe: " & CURR_CHOICE_LIST, False) If LogErrorsOnly = False Then ClassLogger.Add(" >> In add_ComboBox - AListe: " & CURR_CHOICE_LIST, False)
Dim liste = _windream.GetValuesfromAuswahlliste(CURR_CHOICE_LIST) Dim liste = WINDREAM.GetValuesfromAuswahlliste(CURR_CHOICE_LIST)
If liste IsNot Nothing Then If liste IsNot Nothing Then
cmb.Items.Add("") cmb.Items.Add("")
For Each index As String In liste For Each index As String In liste
cmb.Items.Add(index) cmb.Items.Add(index)
@ -581,7 +586,7 @@ Public Class frmMassValidator
For Each docrow As DataRow In CURRENT_DT_MASS_CHANGE_DOCS.Rows For Each docrow As DataRow In CURRENT_DT_MASS_CHANGE_DOCS.Rows
Dim WMDOC As WMObject Dim WMDOC As WMObject
Try Try
WMDOC = _windream.oSession.GetWMObjectByPath(WMEntity.WMEntityDocument, docrow.Item("FULL_PATH").ToString.Substring(2)) WMDOC = WINDREAM.oSession.GetWMObjectByPath(WMEntity.WMEntityDocument, docrow.Item("FULL_PATH").ToString.Substring(2))
Catch ex As Exception Catch ex As Exception
ClassLogger.Add("error while creating WMObject in (textCheckIndex): " & ex.Message) ClassLogger.Add("error while creating WMObject in (textCheckIndex): " & ex.Message)
Exit For Exit For
@ -917,7 +922,7 @@ Public Class frmMassValidator
CURRENT_DOC_GUID = docrow.Item("DOC_GUID") CURRENT_DOC_GUID = docrow.Item("DOC_GUID")
Dim WMDOC As WMObject Dim WMDOC As WMObject
Try Try
WMDOC = _windream.oSession.GetWMObjectByPath(WMEntity.WMEntityDocument, docrow.Item("FULL_PATH").ToString.Substring(2)) WMDOC = WINDREAM.oSession.GetWMObjectByPath(WMEntity.WMEntityDocument, docrow.Item("FULL_PATH").ToString.Substring(2))
Catch ex As Exception Catch ex As Exception
ClassLogger.Add("error while creating WMObject in (IndexVKTMultipleFiles): " & ex.Message) ClassLogger.Add("error while creating WMObject in (IndexVKTMultipleFiles): " & ex.Message)
Exit For Exit For
@ -1380,7 +1385,7 @@ Public Class frmMassValidator
For Each docrow As DataRow In CURRENT_DT_MASS_CHANGE_DOCS.Rows For Each docrow As DataRow In CURRENT_DT_MASS_CHANGE_DOCS.Rows
Dim WMDOC As WMObject Dim WMDOC As WMObject
Try Try
WMDOC = _windream.oSession.GetWMObjectByPath(WMEntity.WMEntityDocument, docrow.Item("FULL_PATH").ToString.Substring(2)) WMDOC = WINDREAM.oSession.GetWMObjectByPath(WMEntity.WMEntityDocument, docrow.Item("FULL_PATH").ToString.Substring(2))
Catch ex As Exception Catch ex As Exception
ClassLogger.Add("error while creating WMObject in (IndexMultipleFiles): " & ex.Message) ClassLogger.Add("error while creating WMObject in (IndexMultipleFiles): " & ex.Message)
_allfine = False _allfine = False
@ -1412,7 +1417,7 @@ Public Class frmMassValidator
arrValue(0) = idxvalue(0).ToString arrValue(0) = idxvalue(0).ToString
End If End If
'Jetzt das eigentliche Indexieren der Datei 'Jetzt das eigentliche Indexieren der Datei
If Me._windreamPM.RunIndexing(WMDOC, arrIndex, arrValue) = False Then If WINDREAM.RunIndexing(WMDOC, arrIndex, arrValue) = False Then
_allfine = False _allfine = False
Exit For Exit For
End If End If
@ -1432,7 +1437,7 @@ Public Class frmMassValidator
For Each docrow As DataRow In CURRENT_DT_MASS_CHANGE_DOCS.Rows For Each docrow As DataRow In CURRENT_DT_MASS_CHANGE_DOCS.Rows
Dim WMDOC As WMObject Dim WMDOC As WMObject
Try Try
WMDOC = _windream.oSession.GetWMObjectByPath(WMEntity.WMEntityDocument, docrow.Item("FULL_PATH").ToString.Substring(2)) WMDOC = WINDREAM.oSession.GetWMObjectByPath(WMEntity.WMEntityDocument, docrow.Item("FULL_PATH").ToString.Substring(2))
Catch ex As Exception Catch ex As Exception
ClassLogger.Add("error while creating WMObject in (IndexVKTMultipleFiles): " & ex.Message) ClassLogger.Add("error while creating WMObject in (IndexVKTMultipleFiles): " & ex.Message)
_allfine = False _allfine = False
@ -1506,7 +1511,7 @@ Public Class frmMassValidator
arrValue(0) = idxvalue(0).ToString arrValue(0) = idxvalue(0).ToString
End If End If
'Jetzt das eigentliche Indexieren der Datei 'Jetzt das eigentliche Indexieren der Datei
File_indexiert = Me._windreamPM.RunIndexing(_dok, arrIndex, arrValue) File_indexiert = WINDREAM.RunIndexing(_dok, arrIndex, arrValue)
Return File_indexiert Return File_indexiert
End If End If

8
app/DD_PM_WINDREAM/frmSQL_DESIGNER.vb
View File

@ -3,7 +3,7 @@ Imports Oracle.ManagedDataAccess.Client
Imports DD_LIB_Standards Imports DD_LIB_Standards
Public Class frmSQL_DESIGNER Public Class frmSQL_DESIGNER
Private _windreamPM As ClassPMWindream 'Private _windreamPM As ClassPMWindream
Dim CurrentPosition As Integer = 0 Dim CurrentPosition As Integer = 0
Dim CurrentPlaceholders As New Placeholders() Dim CurrentPlaceholders As New Placeholders()
@ -54,14 +54,14 @@ Public Class frmSQL_DESIGNER
Try Try
' Windream instanziieren ' Windream instanziieren
_windreamPM = New ClassPMWindream() '_windreamPM = New ClassPMWindream()
'Windream initialisieren (Connection, Session, ... aufbauen) 'Windream initialisieren (Connection, Session, ... aufbauen)
_windreamPM.Create_Session() '_windreamPM.Create_Session()
Catch ex As Exception Catch ex As Exception
MsgBox("Fehler bei Initialisieren von windream: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:") MsgBox("Fehler bei Initialisieren von windream: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:")
End Try End Try
cmbIndexe.Items.Clear() cmbIndexe.Items.Clear()
Dim indexe = _windreamPM.GetIndicesByObjecttype(CURRENT_OBJECTTYPE) Dim indexe = WINDREAM.GetIndicesByObjecttype(CURRENT_OBJECTTYPE)
If indexe IsNot Nothing Then If indexe IsNot Nothing Then
For Each index As String In indexe For Each index As String In indexe
Me.cmbIndexe.Items.Add(index) Me.cmbIndexe.Items.Add(index)

24
app/DD_PM_WINDREAM/frmValidator.vb
View File

@ -25,8 +25,8 @@ Public Class frmValidator
Dim WD_Search As String Dim WD_Search As String
Dim finalProfile As Boolean Dim finalProfile As Boolean
Dim Move2Folder As String Dim Move2Folder As String
Private _windreamPM As New ClassPMWindream 'Private _windreamPM As New ClassPMWindream
Private _windream As New ClassWindream_allgemein 'Private _windream As New ClassWindream_allgemein
Private allgFunk As New ClassAllgemeineFunktionen Private allgFunk As New ClassAllgemeineFunktionen
Dim aktivesDokument As WMObject Dim aktivesDokument As WMObject
'speichert die DocumentDaten 'speichert die DocumentDaten
@ -264,8 +264,12 @@ Public Class frmValidator
End Sub End Sub
Private Function Init_windream() Private Function Init_windream()
Try Try
_windream = New ClassWindream_allgemein WINDREAM = New ClassPMWindream()
_windream.Create_Session() WINDREAM.Create_Session()
'_windreamPM = New ClassPMWindream()
'_windreamPM.Create_Session()
'_windream = New ClassWindream_allgemein
'_windream.Create_Session()
If LogErrorsOnly = False Then ClassLogger.Add(" >> Windream initiiert", False) If LogErrorsOnly = False Then ClassLogger.Add(" >> Windream initiiert", False)
Return True Return True
Catch ex As Exception Catch ex As Exception
@ -697,7 +701,8 @@ Public Class frmValidator
Dim AListe As String = TBPM_PROFILE_CONTROLSTableAdapter.cmdGetChoiceListName(ControlID) Dim AListe As String = TBPM_PROFILE_CONTROLSTableAdapter.cmdGetChoiceListName(ControlID)
If LogErrorsOnly = False Then ClassLogger.Add(" >> In add_ComboBox - AListe: " & AListe, False) If LogErrorsOnly = False Then ClassLogger.Add(" >> In add_ComboBox - AListe: " & AListe, False)
If AListe Is Nothing = False Then If AListe Is Nothing = False Then
Dim liste = _windream.GetValuesfromAuswahlliste(AListe) 'Dim liste = _windreamPM.GetValuesfromAuswahlliste(AListe)
Dim liste = WINDREAM.GetValuesfromAuswahlliste(AListe)
If liste IsNot Nothing Then If liste IsNot Nothing Then
cmb.Items.Add("") cmb.Items.Add("")
For Each index As String In liste For Each index As String In liste
@ -1331,7 +1336,8 @@ Public Class frmValidator
ClassLogger.Add(">> Validierung für Dokument '" & Document_Path & "' gestartet", False) ClassLogger.Add(">> Validierung für Dokument '" & Document_Path & "' gestartet", False)
Try Try
aktivesDokument = _windream.oSession.GetWMObjectByPath(WMEntity.WMEntityDocument, Document_Path.Substring(2)) 'aktivesDokument = _windreamPM.oSession.GetWMObjectByPath(WMEntity.WMEntityDocument, Document_Path.Substring(2))
aktivesDokument = WINDREAM.oSession.GetWMObjectByPath(WMEntity.WMEntityDocument, Document_Path.Substring(2))
Catch ex As Exception Catch ex As Exception
allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "Fehler bei Erzeugen windream-Objekt - DocGUID: " & CURRENT_DOC_GUID & " - ERROR: " & ex.Message, Environment.UserName) allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "Fehler bei Erzeugen windream-Objekt - DocGUID: " & CURRENT_DOC_GUID & " - ERROR: " & ex.Message, Environment.UserName)
ClassLogger.Add("Fehler bei Erzeugen windream-Objekt in (LoadNextDokument): " & ex.Message) ClassLogger.Add("Fehler bei Erzeugen windream-Objekt in (LoadNextDokument): " & ex.Message)
@ -1340,7 +1346,8 @@ Public Class frmValidator
'Nochmaliger Versuch windream zu initialiseren 'Nochmaliger Versuch windream zu initialiseren
If Init_windream() = True Then If Init_windream() = True Then
Try Try
aktivesDokument = _windream.oSession.GetWMObjectByPath(WMEntity.WMEntityDocument, Document_Path.Substring(2)) 'aktivesDokument = _windreamPM.oSession.GetWMObjectByPath(WMEntity.WMEntityDocument, Document_Path.Substring(2))
aktivesDokument = WINDREAM.oSession.GetWMObjectByPath(WMEntity.WMEntityDocument, Document_Path.Substring(2))
Catch ex1 As Exception Catch ex1 As Exception
ClassLogger.Add("Fehler bei 2. Versuch windream-Objekt: " & ex1.Message) ClassLogger.Add("Fehler bei 2. Versuch windream-Objekt: " & ex1.Message)
errmessage = "1-Es besteht ein Problem beim Anmelden an windream - Bitte wenden Sie sich an Digital Data!" errmessage = "1-Es besteht ein Problem beim Anmelden an windream - Bitte wenden Sie sich an Digital Data!"
@ -2812,7 +2819,8 @@ Public Class frmValidator
arrValue(0) = idxvalue(0).ToString arrValue(0) = idxvalue(0).ToString
End If End If
'Jetzt das eigentliche Indexieren der Datei 'Jetzt das eigentliche Indexieren der Datei
File_indexiert = Me._windreamPM.RunIndexing(_dok, arrIndex, arrValue) 'File_indexiert = Me._windreamPM.RunIndexing(_dok, arrIndex, arrValue)
File_indexiert = WINDREAM.RunIndexing(_dok, arrIndex, arrValue)
If File_indexiert = False Then If File_indexiert = False Then
allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "Fehler beim Indexieren der Datei: " & _dok.aName & " - ERROR: " & idxerr_message, Environment.UserName) allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "Fehler beim Indexieren der Datei: " & _dok.aName & " - ERROR: " & idxerr_message, Environment.UserName)
End If End If