MS Referenz W-Laufwerk

This commit is contained in:
Digital Data - Marlon Schreiber
2018-12-19 17:09:23 +01:00
parent 0ccd050d4c
commit fb148c193c
24 changed files with 1364 additions and 819 deletions

View File

@@ -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
@@ -1052,7 +1052,7 @@ Public Class frmMassValidator
'####### WENN MOVE2FOLDER KONFIGURIERT IST#######
If MOVE2Folder <> "" Then
Dim idxerr_message = _allgFunk.Move2Folder(docrow.Item("FULL_PATH").ToString, MOVE2Folder, CURRENT_ProfilGUID)
Dim idxerr_message = _allgFunk.Move2Folder(docrow.Item("FULL_PATH").ToString, MOVE2Folder, CURRENT_ProfilGUID, _windream)
If idxerr_message <> "" Then
MsgBox("Error in Move2Folder - Check the log And inform Your sysadmin", MsgBoxStyle.Critical)