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

21
app/DD_PM_WINDREAM/frmValidator.vb
View File

@@ -25,7 +25,7 @@ Public Class frmValidator
Dim WD_Search As String
Dim finalProfile As Boolean
Dim Move2Folder As String
Private _windreamPM As New ClassPMWindream
'Private _windreamPM As New ClassPMWindream
'Private _windream As New ClassWindream_allgemein
Private allgFunk As New ClassAllgemeineFunktionen
Dim aktivesDokument As WMObject
@@ -264,9 +264,10 @@ Public Class frmValidator
End Sub
Private Function Init_windream()
Try
_windreamPM = New ClassPMWindream()
_windreamPM.Create_Session()
WINDREAM = New ClassPMWindream()
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)
@@ -700,7 +701,8 @@ Public Class frmValidator
Dim AListe As String = TBPM_PROFILE_CONTROLSTableAdapter.cmdGetChoiceListName(ControlID)
If LogErrorsOnly = False Then ClassLogger.Add(" >> In add_ComboBox - AListe: " & AListe, False)
If AListe Is Nothing = False Then
Dim liste = _windreamPM.GetValuesfromAuswahlliste(AListe)
'Dim liste = _windreamPM.GetValuesfromAuswahlliste(AListe)
Dim liste = WINDREAM.GetValuesfromAuswahlliste(AListe)
If liste IsNot Nothing Then
cmb.Items.Add("")
For Each index As String In liste
@@ -1334,7 +1336,8 @@ Public Class frmValidator
ClassLogger.Add(">> Validierung für Dokument '" & Document_Path & "' gestartet", False)
Try
aktivesDokument = _windreamPM.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
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)
@@ -1343,7 +1346,8 @@ Public Class frmValidator
'Nochmaliger Versuch windream zu initialiseren
If Init_windream() = True Then
Try
aktivesDokument = _windreamPM.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
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!"
@@ -2815,7 +2819,8 @@ Public Class frmValidator
arrValue(0) = idxvalue(0).ToString
End If
'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
allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "Fehler beim Indexieren der Datei: " & _dok.aName & " - ERROR: " & idxerr_message, Environment.UserName)
End If