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

jj: Revert ChoiceList Method, Add WMCC Start Check, Only use a single instance of ClassPMWindream in Application

Browse Source
This commit is contained in:
Jonathan Jenne
2018-10-05 11:15:30 +02:00
parent 819c340745
commit 9ed2d35d17
9 changed files with 93 additions and 70 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
app/DD_PM_WINDREAM/frmMassValidator.vb
View File

@@ -19,7 +19,7 @@ Public Class frmMassValidator
Private errmessage As String
'Private _windream As New ClassWindream_allgemein
Private _windreamPM As New ClassPMWindream
'Private _windreamPM As New ClassPMWindream
Private _allgFunk As New ClassAllgemeineFunktionen
Dim viewer_string As String
Dim pdfxchange As Boolean = False
@@ -28,10 +28,12 @@ Public Class frmMassValidator
Private Sub frmMassValidator_Load(sender As Object, e As EventArgs) Handles Me.Load
FORM_Shown = False
Try
' 05.10.18: Nutzung des Globalen Windream Objekts WINDREAM
'_windream = New ClassWindream_allgemein
'_windream.Create_Session()
_windreamPM = New ClassPMWindream()
_windreamPM.Create_Session()
'_windreamPM = New ClassPMWindream()
'_windreamPM.Create_Session()
If LogErrorsOnly = False Then ClassLogger.Add("windream initialized frmMassValidator", False)
@@ -243,7 +245,7 @@ Public Class frmMassValidator
Else
If CURR_CHOICE_LIST <> "" Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> In add_ComboBox - AListe: " & CURR_CHOICE_LIST, False)
Dim liste = _windreamPM.GetValuesfromAuswahlliste(CURR_CHOICE_LIST)
Dim liste = WINDREAM.GetValuesfromAuswahlliste(CURR_CHOICE_LIST)
If liste IsNot Nothing Then
cmb.Items.Add("")
For Each index As String In liste
@@ -584,7 +586,7 @@ Public Class frmMassValidator
For Each docrow As DataRow In CURRENT_DT_MASS_CHANGE_DOCS.Rows
Dim WMDOC As WMObject
Try
WMDOC = _windreamPM.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
ClassLogger.Add("error while creating WMObject in (textCheckIndex): " & ex.Message)
Exit For
@@ -920,7 +922,7 @@ Public Class frmMassValidator
CURRENT_DOC_GUID = docrow.Item("DOC_GUID")
Dim WMDOC As WMObject
Try
WMDOC = _windreamPM.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
ClassLogger.Add("error while creating WMObject in (IndexVKTMultipleFiles): " & ex.Message)
Exit For
@@ -1383,7 +1385,7 @@ Public Class frmMassValidator
For Each docrow As DataRow In CURRENT_DT_MASS_CHANGE_DOCS.Rows
Dim WMDOC As WMObject
Try
WMDOC = _windreamPM.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
ClassLogger.Add("error while creating WMObject in (IndexMultipleFiles): " & ex.Message)
_allfine = False
@@ -1415,7 +1417,7 @@ Public Class frmMassValidator
arrValue(0) = idxvalue(0).ToString
End If
'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
Exit For
End If
@@ -1435,7 +1437,7 @@ Public Class frmMassValidator
For Each docrow As DataRow In CURRENT_DT_MASS_CHANGE_DOCS.Rows
Dim WMDOC As WMObject
Try
WMDOC = _windreamPM.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
ClassLogger.Add("error while creating WMObject in (IndexVKTMultipleFiles): " & ex.Message)
_allfine = False
@@ -1509,7 +1511,7 @@ Public Class frmMassValidator
arrValue(0) = idxvalue(0).ToString
End If
'Jetzt das eigentliche Indexieren der Datei
File_indexiert = Me._windreamPM.RunIndexing(_dok, arrIndex, arrValue)
File_indexiert = WINDREAM.RunIndexing(_dok, arrIndex, arrValue)
Return File_indexiert
End If