diff --git a/app/DD_PM_WINDREAM/frmMain.vb b/app/DD_PM_WINDREAM/frmMain.vb index 461861c..9921531 100644 --- a/app/DD_PM_WINDREAM/frmMain.vb +++ b/app/DD_PM_WINDREAM/frmMain.vb @@ -22,7 +22,7 @@ Public Class frmMain Private GridCursorLocation As Point Private GRID_LOAD_TYPE As String = "OVERVIEW" 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 Try @@ -927,8 +927,11 @@ Public Class frmMain End Sub Private Function Init_windream() Try - _windream = New ClassWindream_allgemein - _windream.Create_Session() + '_windream = New ClassWindream_allgemein + '_windream.Create_Session() + _windreamPM = New ClassPMWindream() + _windreamPM.Create_Session() + If LogErrorsOnly = False Then ClassLogger.Add(" >> windream initialized", False) Return True Catch ex As Exception diff --git a/app/DD_PM_WINDREAM/frmMassValidator.vb b/app/DD_PM_WINDREAM/frmMassValidator.vb index 4a01014..2e43b98 100644 --- a/app/DD_PM_WINDREAM/frmMassValidator.vb +++ b/app/DD_PM_WINDREAM/frmMassValidator.vb @@ -18,7 +18,7 @@ Public Class frmMassValidator Private _dependingControl_in_action As Boolean = False Private errmessage As String - Private _windream As New ClassWindream_allgemein + 'Private _windream As New ClassWindream_allgemein Private _windreamPM As New ClassPMWindream Private _allgFunk As New ClassAllgemeineFunktionen Dim viewer_string As String @@ -28,8 +28,11 @@ Public Class frmMassValidator Private Sub frmMassValidator_Load(sender As Object, e As EventArgs) Handles Me.Load FORM_Shown = False Try - _windream = New ClassWindream_allgemein - _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) Catch ex As Exception @@ -240,8 +243,8 @@ 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 = _windream.GetValuesfromAuswahlliste(CURR_CHOICE_LIST) - If liste IsNot Nothing Then + Dim liste = _windreamPM.GetValuesfromAuswahlliste(CURR_CHOICE_LIST) + If liste IsNot Nothing Then cmb.Items.Add("") For Each index As String In liste cmb.Items.Add(index) @@ -581,7 +584,7 @@ Public Class frmMassValidator For Each docrow As DataRow In CURRENT_DT_MASS_CHANGE_DOCS.Rows Dim WMDOC As WMObject Try - WMDOC = _windream.oSession.GetWMObjectByPath(WMEntity.WMEntityDocument, docrow.Item("FULL_PATH").ToString.Substring(2)) + WMDOC = _windreamPM.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 @@ -917,7 +920,7 @@ Public Class frmMassValidator CURRENT_DOC_GUID = docrow.Item("DOC_GUID") Dim WMDOC As WMObject Try - WMDOC = _windream.oSession.GetWMObjectByPath(WMEntity.WMEntityDocument, docrow.Item("FULL_PATH").ToString.Substring(2)) + WMDOC = _windreamPM.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 @@ -1380,7 +1383,7 @@ Public Class frmMassValidator For Each docrow As DataRow In CURRENT_DT_MASS_CHANGE_DOCS.Rows Dim WMDOC As WMObject Try - WMDOC = _windream.oSession.GetWMObjectByPath(WMEntity.WMEntityDocument, docrow.Item("FULL_PATH").ToString.Substring(2)) + WMDOC = _windreamPM.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 @@ -1432,7 +1435,7 @@ Public Class frmMassValidator For Each docrow As DataRow In CURRENT_DT_MASS_CHANGE_DOCS.Rows Dim WMDOC As WMObject Try - WMDOC = _windream.oSession.GetWMObjectByPath(WMEntity.WMEntityDocument, docrow.Item("FULL_PATH").ToString.Substring(2)) + WMDOC = _windreamPM.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 diff --git a/app/DD_PM_WINDREAM/frmValidator.vb b/app/DD_PM_WINDREAM/frmValidator.vb index b7f3fe6..19f7c09 100644 --- a/app/DD_PM_WINDREAM/frmValidator.vb +++ b/app/DD_PM_WINDREAM/frmValidator.vb @@ -26,7 +26,7 @@ Public Class frmValidator Dim finalProfile As Boolean Dim Move2Folder As String Private _windreamPM As New ClassPMWindream - Private _windream As New ClassWindream_allgemein + 'Private _windream As New ClassWindream_allgemein Private allgFunk As New ClassAllgemeineFunktionen Dim aktivesDokument As WMObject 'speichert die DocumentDaten @@ -264,8 +264,11 @@ Public Class frmValidator End Sub Private Function Init_windream() Try - _windream = New ClassWindream_allgemein - _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) Return True Catch ex As Exception @@ -697,7 +700,7 @@ 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 = _windream.GetValuesfromAuswahlliste(AListe) + Dim liste = _windreamPM.GetValuesfromAuswahlliste(AListe) If liste IsNot Nothing Then cmb.Items.Add("") For Each index As String In liste @@ -1331,7 +1334,7 @@ Public Class frmValidator ClassLogger.Add(">> Validierung für Dokument '" & Document_Path & "' gestartet", False) Try - aktivesDokument = _windream.oSession.GetWMObjectByPath(WMEntity.WMEntityDocument, Document_Path.Substring(2)) + aktivesDokument = _windreamPM.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) @@ -1340,7 +1343,7 @@ Public Class frmValidator 'Nochmaliger Versuch windream zu initialiseren If Init_windream() = True Then Try - aktivesDokument = _windream.oSession.GetWMObjectByPath(WMEntity.WMEntityDocument, Document_Path.Substring(2)) + aktivesDokument = _windreamPM.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!"