AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS clswindream entfernt Umstieg auf Modulwindream

Browse Source
This commit is contained in:
Developer01
2024-11-21 18:02:41 +01:00
parent b5ab9c5e1f
commit f05f6d46f8
85 changed files with 416997 additions and 1790 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
app/DD-Record-Organizer/App.config
View File

@@ -1,21 +1,19 @@
<?xml version="1.0" encoding="utf-8"?>
<?xml version="1.0" encoding="utf-8"?>
<configuration>
<configSections>
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<section name="DD_Record_Organizer.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false"/>
<section name="DD_Record_Organizer.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
</sectionGroup>
<sectionGroup name="applicationSettings" type="System.Configuration.ApplicationSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<section name="DD_Record_Organizer.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false"/>
<section name="DevExpress.LookAndFeel.Design.AppSettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false"/>
<section name="DD_Record_Organizer.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false" />
<section name="DevExpress.LookAndFeel.Design.AppSettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false" />
</sectionGroup>
</configSections>
<connectionStrings>
<add name="DD_Record_Organizer.My.MySettings.DD_DMSConnectionString"
connectionString="Data Source=172.24.12.44\MERCER;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd;Encrypt=True;TrustServerCertificate=True"
providerName="System.Data.SqlClient" />
<add name="DD_Record_Organizer.My.MySettings.DD_DMSConnectionString" connectionString="Data Source=172.24.12.44\MERCER;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd;Encrypt=True;TrustServerCertificate=True" providerName="System.Data.SqlClient" />
</connectionStrings>
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.2"/>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.2" />
</startup>
<userSettings>
<DD_Record_Organizer.My.MySettings>
@@ -113,15 +111,19 @@
<value></value>
</setting>
<setting name="CustomPaletteCollection" serializeAs="Xml">
<value/>
<value />
</setting>
</DevExpress.LookAndFeel.Design.AppSettings>
</applicationSettings>
<runtime>
<assemblyBinding xmlns="urn:schemas-microsoft-com:asm.v1">
<dependentAssembly>
<assemblyIdentity name="NLog" publicKeyToken="5120e14c03d0593c" culture="neutral"/>
<bindingRedirect oldVersion="0.0.0.0-5.0.0.0" newVersion="5.0.0.0"/>
<assemblyIdentity name="NLog" publicKeyToken="5120e14c03d0593c" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-5.0.0.0" newVersion="5.0.0.0" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="GdPicture.NET.14" publicKeyToken="f52a2e60ad468dbb" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-14.2.90.0" newVersion="14.2.90.0" />
</dependentAssembly>
</assemblyBinding>
</runtime>

8
app/DD-Record-Organizer/Classes/ClassDOC_SEARCH.vb
View File

@@ -1,5 +1,5 @@
Imports System.IO
Imports DD_LIB_Standards
'Imports DD_LIB_Standards
Public Class ClassDOC_SEARCH
Private Shared DT_RESULTLIST_OPTIONS As DataTable
Private Shared DT_RESULTLIST_SEL_VALUES As DataTable
@@ -518,10 +518,6 @@ Public Class ClassDOC_SEARCH
Try
Dim execute = String.Format("EXEC [dbo].[PRPMO_DOC_CREATE_NEW_DOC] {0},{1},'{2}'", DOC_ID, RECORD_ID, USER_USERNAME)
If MYDB_ECM.ExecuteNonQuery(execute) = True Then
If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
execute = String.Format("EXEC [dbo].[PRPROXY_DOC_CREATE_NEW_DOC] {0},{1},'{2}'", DOC_ID, RECORD_ID, USER_USERNAME)
MYDB_ECM.ExecuteNonQuery(execute)
End If
Return True
Else
Return False
@@ -602,7 +598,7 @@ Public Class ClassDOC_SEARCH
End Select
Catch ex As Exception
clsLogger.Add("Unexpected Error in Get_File_Rights: " & ex.Message)
LOGGER.Warn("Unexpected Error in Get_File_Rights: " & ex.Message)
Return Nothing
End Try
End Function

16
app/DD-Record-Organizer/Classes/ClassWindreamDocGrid.vb → app/DD-Record-Organizer/Classes/ClassDocGrid.vb
View File

@@ -7,10 +7,10 @@ Imports DevExpress.XtraEditors.Repository
Imports DevExpress.XtraGrid.Views.Base
Imports DevExpress.XtraEditors.Controls
Public Class ClassWindreamDocGrid
Public Class ClassDocGrid
' === BEGIN CLASS PART ===
Public Class WindreamDoc
Public Class clsWMDoc
Public Property DocId As Integer
Public Property DocPath As String
Public Property Filename As String
@@ -20,7 +20,7 @@ Public Class ClassWindreamDocGrid
Private ReadOnly GridView As GridView
Public ReadOnly Property SelectedDocuments As List(Of WindreamDoc)
Public ReadOnly Property SelectedDocuments As List(Of clsWMDoc)
Get
Return GetSelectedDocuments(GridView)
End Get
@@ -51,7 +51,7 @@ Public Class ClassWindreamDocGrid
' This should replace DT_RESULTFILES and also
' SELECTED_INWORK, SELECTED_DOC_ID, SELECTED_DOC_RIGHT, SELECTED_DOC_PATH
Public Shared SELECTED_DOCUMENTS As New List(Of WindreamDoc)
Public Shared SELECTED_DOCUMENTS As New List(Of clsWMDoc)
Public Shared DT_RESULTFILES As DataTable
Private Shared DT_DROPDOWN_ITEMS As DataTable
@@ -89,9 +89,9 @@ Public Class ClassWindreamDocGrid
Return oSelectedRows.Count = 0
End Function
Public Shared Function GetSelectedDocuments(pGridView As GridView) As List(Of WindreamDoc)
Public Shared Function GetSelectedDocuments(pGridView As GridView) As List(Of clsWMDoc)
Dim oSelectedRows As List(Of Integer) = pGridView.GetSelectedRows().ToList()
Dim oDocuments As New List(Of WindreamDoc)
Dim oDocuments As New List(Of clsWMDoc)
For Each oRowHandle In oSelectedRows
Dim oDocId = pGridView.GetRowCellValue(oRowHandle, "DocID")
@@ -100,7 +100,7 @@ Public Class ClassWindreamDocGrid
Dim oObjecttype = pGridView.GetRowCellValue(oRowHandle, "OBJECTTYPE")
Dim oFilename = pGridView.GetRowCellValue(oRowHandle, "Dateiname")
oDocuments.Add(New WindreamDoc With {
oDocuments.Add(New clsWMDoc With {
.DocId = oDocId,
.DocPath = oDocPath,
.DocType = oObjecttype,
@@ -560,7 +560,7 @@ Public Class ClassWindreamDocGrid
Public Shared Sub gridView_MasterRowExpanded(sender As GridView, e As DevExpress.XtraGrid.Views.Grid.CustomMasterRowEventArgs)
Try
ClassWindreamDocGrid.GetDocItems(sender)
ClassDocGrid.GetDocItems(sender)
Dim GW As GridView = sender
If SELECTED_DOC_ID = 0 Then
MsgBox("Sorry no document was selected! Please try again!", MsgBoxStyle.Exclamation)

25
app/DD-Record-Organizer/Classes/ClassFileResult.vb
View File

@@ -1,4 +1,5 @@
Public Class ClassFileResult
'Imports DD_LIB_Standards
Public Class ClassFileResult
Public Shared Property DocID As Integer
Public Shared Property OldDisplayName As String
Public Shared Property DocumentPath As String
@@ -13,9 +14,9 @@
upd = String.Format("UPDATE TBPMO_DOCRESULT_LIST SET Change_DateTime = GETDATE(), IN_WORK = {0}, IN_WORK_USER = '{1}', IN_WORK_COMMENT = '{2}' WHERE DocID = {3}", state, USER_USERNAME, comment, DocID)
End If
If MYDB_ECM.ExecuteNonQuery(upd) = True Then
If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
MYDB_ECM.ExecuteNonQuery(upd)
End If
'If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
' MYDB_ECM.ExecuteNonQuery(upd)
'End If
InWork = True
Return True
Else
@@ -31,9 +32,9 @@
Dim upd As String
upd = String.Format("UPDATE TBPMO_DOCRESULT_LIST SET DISPLAY_NAME = '{0}',CHANGED_WHO = '{2}',Change_DateTime = GETDATE() WHERE DocID = {1}", Displayname, DocID, USER_USERNAME)
If MYDB_ECM.ExecuteNonQuery(upd) = True Then
If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
MYDB_ECM.ExecuteNonQuery(upd)
End If
'If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
' MYDB_ECM.ExecuteNonQuery(upd)
'End If
Return True
Else
Return False
@@ -65,7 +66,7 @@
Dim insert As String = String.Format("INSERT INTO TBPMO_DOC_INDICES (DocID,INDEX_ID,VALUE,ADDED_WHO) VALUES ({0},{1},'{2}','{3}')", DocID, MAN_INDEX_ID, row.Item("MAN_VALUE"), USER_USERNAME)
MYDB_ECM.ExecuteNonQuery(insert)
End If
Next
End If
Return True
@@ -90,10 +91,10 @@
End If
Dim proc = String.Format("EXEC PRPMO_DELETE_RESULTFILE {0},{1},{2}", RESULT_DOC_ID, RECORD_ID, DELETE_FILE)
If MYDB_ECM.ExecuteNonQuery(proc) = True Then
If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
proc = String.Format("EXEC PRPROXY_DOC_CHECK_DELETE {0}", RESULT_DOC_ID)
MYDB_ECM.ExecuteNonQuery(proc)
End If
'If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
' proc = String.Format("EXEC PRPROXY_DOC_CHECK_DELETE {0}", RESULT_DOC_ID)
' MYDB_ECM.ExecuteNonQuery(proc)
'End If
Return True
Else
Return False

3
app/DD-Record-Organizer/Classes/ClassHelper.vb
View File

@@ -335,8 +335,7 @@ Public Class ClassHelper
msg = "The record '" & SELECTED_RECORD_ID & "' could not be deleted. Check the log"
End If
MsgBox(msg, MsgBoxStyle.Exclamation)
Else
ClassProxy.PRPROXY_RECORD_DEL(SELECTED_RECORD_ID, CURRENT_ENTITY_ID)
End If
LOGGER.Info($"Deleted Record [{SELECTED_RECORD_ID}] Result was [{result}]: ")
Return result

66
app/DD-Record-Organizer/Classes/ClassImport_Windream.vb
View File

@@ -1,8 +1,6 @@
Imports System.IO
Imports System.Globalization
Imports WINDREAMLib
Imports DD_LIB_Standards
Imports DD_Record_Organizer.frmChangeDocType
'Imports Microsoft.Office.Interop.Word
Public Class ClassImport_Windream
Public Shared Function Import_File(QuellDatei_Path As String, DOCTYPE_ID As Integer)
@@ -13,7 +11,7 @@ Public Class ClassImport_Windream
If Not IsNothing(DT_DOCTYPE) Then
Dim Targetpath As String = DT_DOCTYPE.Rows(0).Item("ZIEL_PFAD")
Dim Dokart As String = DT_DOCTYPE.Rows(0).Item("BEZEICHNUNG")
clsWindream.MY_WDOBJECTTYPE = DT_DOCTYPE.Rows(0).Item("OBJEKTTYP")
WMOBJECTTYPE = DT_DOCTYPE.Rows(0).Item("OBJEKTTYP")
'Den Namen der Dokumentart generieren
If ClassImport_Windream.Name_Generieren(DOCTYPE_ID) = False Then
@@ -22,7 +20,7 @@ Public Class ClassImport_Windream
End If
'Die Datei nach windream importieren
Dim streamresult = clsWD_SET.Stream_File(QuellDatei_Path, Targetpath)
Dim streamresult = WMMOD.NewFileStream(QuellDatei_Path, Targetpath, WMOBJECTTYPE)
If streamresult = True Then
Dim sql As String = String.Format("SELECT DocID FROM VWPMO_DOC_SYNC WHERE UPPER(FULL_FILENAME) = UPPER('{0}') AND CONVERT(DATE,Change_DateTime) = CONVERT(DATE,GETDATE())", CURRENT_FILEIN_WD)
CURRENT_DOC_ID = MYDB_ECM.GetScalarValue(sql)
@@ -45,7 +43,7 @@ Public Class ClassImport_Windream
End If
LOGGER.Debug("Indexvalue: " & idxvalue.ToString)
Count += 1
indexierung_erfolgreich = clsWD_SET.IndexFile(CURRENT_FILEIN_WD, indexname, idxvalue, clsWindream.MY_WDOBJECTTYPE)
indexierung_erfolgreich = WMMOD.SetFileIndex(CURRENT_FILEIN_WD, indexname, idxvalue, WMOBJECTTYPE)
If indexierung_erfolgreich = False Then
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error: ", "Unexpected Error in indexing '" & indexname & "') - Check logfile!")
err = True
@@ -57,14 +55,14 @@ Public Class ClassImport_Windream
Return False
End If
''den Entity-Key auslesen
'sql = "Select Top 1 * from TBPMO_WD_OBJECTTYPE where Upper(object_type) = Upper('" & clsWindream.MY_WDOBJECTTYPE & "')"
'sql = "Select Top 1 * from TBPMO_WD_OBJECTTYPE where Upper(object_type) = Upper('" & WMOBJECTTYPE & "')"
'dt = MYDB_ECM.GetDatatable(sql)
'If Not dt Is Nothing Then
' If dt.Rows.Count = 1 Then
' Dim indexname = dt.Rows(0).Item("IDXNAME_ENTITYID").ToString
' Dim idxvalue = CURRENT_ENTITY_ID
' LOGGER.Debug("Entity-ID: " & idxvalue.ToString)
' indexierung_erfolgreich = clsWD_SET.IndexFile(CURRENT_FILEIN_WD, indexname, idxvalue, clsWindream.MY_WDOBJECTTYPE)
' indexierung_erfolgreich = clsWD_SET.IndexFile(CURRENT_FILEIN_WD, indexname, idxvalue, WMOBJECTTYPE)
' If indexierung_erfolgreich = False Then
' err = True
' ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error: ", "Unexpected Error in indexing Entity-ID '" & indexname & "') - Check logfile!")
@@ -73,7 +71,7 @@ Public Class ClassImport_Windream
' indexname = dt.Rows(0).Item("IDXNAME_PARENTID").ToString
' idxvalue = CURRENT_PARENT_ENTITY_ID
' LOGGER.Debug("Parent-ID: " & idxvalue.ToString)
' indexierung_erfolgreich = clsWD_SET.IndexFile(CURRENT_FILEIN_WD, indexname, idxvalue, clsWindream.MY_WDOBJECTTYPE)
' indexierung_erfolgreich = clsWD_SET.IndexFile(CURRENT_FILEIN_WD, indexname, idxvalue, WMOBJECTTYPE)
' If indexierung_erfolgreich = False Then
' err = True
' ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error: ", "Unexpected Error in indexing Parent-ID '" & indexname & "') - Check logfile!")
@@ -150,6 +148,9 @@ Public Class ClassImport_Windream
LOGGER.Debug("After CREATE_FOLDER_INDEX - CURRENT_VARIABLE_FOLDER: " & CURRENT_VARIABLE_FOLDER)
If oWMTARGET_FOLDER <> CURRENT_VARIABLE_FOLDER Then
If CURRENT_VARIABLE_FOLDER.StartsWith("\") Then
CURRENT_VARIABLE_FOLDER = CURRENT_VARIABLE_FOLDER.Substring(1)
End If
oWMTARGET_FOLDER = oWMTARGET_FOLDER & "\" & CURRENT_VARIABLE_FOLDER.Replace(oWMTARGET_FOLDER, "")
Else
oWMTARGET_FOLDER = CURRENT_VARIABLE_FOLDER
@@ -172,7 +173,6 @@ Public Class ClassImport_Windream
If CURRENT_CHECK_SUBFOLDER = True And CURRENT_SUBFOLDER <> "" Then
oWMTARGET_FOLDER = oWMTARGET_FOLDER & "\" & CURRENT_SUBFOLDER
End If
oWMTARGET_FOLDER = oWMTARGET_FOLDER.Replace("\\", "\")
If oWMTARGET_FOLDER.Contains("/") Then
LOGGER.Info(String.Format("Targetpath contains /-sign. / will be replaced with _"))
oWMTARGET_FOLDER = oWMTARGET_FOLDER.Replace("/", "_")
@@ -180,46 +180,20 @@ Public Class ClassImport_Windream
Try
Select Case clsWD_GET.WD_PATH_EXISTS(oWMTARGET_FOLDER.Substring(2))
Case False
LOGGER.Info(String.Format("Targetpath ({0}) is not existing or result of WD_PATH_EXISTS was false.", oWMTARGET_FOLDER.Substring(2)))
Dim split() As String = oWMTARGET_FOLDER.Split("\")
Dim Path_Combined As String = ""
For Each s As String In split
Path_Combined &= s & "\"
If Path_Combined <> "W:\" Then
If WMMOD.TestFolderExists(oWMTARGET_FOLDER) = False Then
oWMTARGET_FOLDER = oWMTARGET_FOLDER.Replace("W:", "\\windream\objects")
oWMTARGET_FOLDER = WMMOD.GetNormalizedPath(oWMTARGET_FOLDER, 0)
LOGGER.Info(String.Format("Targetpath ({0}) is not existing or result of WD_PATH_EXISTS was false.", oWMTARGET_FOLDER.Substring(2)))
Dim temppath = Path_Combined.Substring(2)
Try
temppath = Path_Combined.Substring(2).Substring(0, temppath.Length)
Select Case clsWD_GET.WD_PATH_EXISTS(temppath)
Case False
LOGGER.Debug("Trying to create folder-part: " & temppath)
clsWindream.MY_WDSESSION.GetNewWMObjectFS(2, temppath, 0) 'WMEntityFolder,WMObjectEditModeNoEdit)
Case -10
LOGGER.Warn("WD_PATH_EXISTS returned -10 for: " & temppath)
Return False
End Select
Catch ex As Exception
If Not ex.Message.Contains("Filename exists!") Then
LOGGER.Warn(String.Format("Could not create folder-part: {0} - Complete path is: ({1})", temppath, oWMTARGET_FOLDER.Substring(2)))
LOGGER.Warn(String.Format("ErrorMessage: {0}: ", ex.Message))
Return False
End If
End Try
End If
Next
Case -10
MsgBox("Attention: the folder of the doctype does not exist or there was an error while checking....", MsgBoxStyle.Critical)
If WMMOD.NewFolder(oWMTARGET_FOLDER) = False Then
LOGGER.Warn(String.Format("Could not create folder-part: {0} - Complete path is: ({1})", oWMTARGET_FOLDER, oWMTARGET_FOLDER.Substring(2)))
Return False
End Select
End If
End If
Catch ex As Exception
If Not ex.Message.Contains("Filename exists!") Then
LOGGER.Warn(String.Format("Could not create folder ({0}): " & ex.Message, oWMTARGET_FOLDER.Substring(2)))
LOGGER.Warn(String.Format("Could not create folder ({0}): " & ex.Message, oWMTARGET_FOLDER))
Return False
End If
End Try

63
app/DD-Record-Organizer/Classes/ClassInit.vb
View File

@@ -1,7 +1,4 @@
Imports System.IO
Imports DD_LIB_Standards
Imports DevExpress.DataAccess.Native
Imports DevExpress.XtraRichEdit.API.Native
Imports DigitalData.Modules.Config
Imports DigitalData.Modules.Database
Imports DigitalData.Modules.Logging
@@ -74,7 +71,6 @@ Public Class ClassInit
If LoadFileExclusion() = False Then
MsgBox("The Exclude File Structure for files in Folderwatch could not be initialized!", MsgBoxStyle.Information)
End If
clsDatabase.GUI = True
If CONFIG.Config.ConnectionString <> String.Empty Then
LOGGER.Debug("Connection String from CONFIG")
MyConnectionString = DecryptConnectionString(CONFIG.Config.ConnectionString)
@@ -89,23 +85,18 @@ Public Class ClassInit
frmConfig_Basic.ShowDialog()
' dbResult = clsDatabase.Init(MyConnectionString)
End If
If ClassProxy.MyPROXYConnectionString <> String.Empty Then
If clsDatabase.Init(ClassProxy.MyPROXYConnectionString, True) = False Then
ClassHelper.MSGBOX_Handler("ERROR", "", "Error while Initializing proxyserver - Check logfile")
Else
Dim csb As New SqlClient.SqlConnectionStringBuilder
csb.ConnectionString = ClassProxy.MyPROXYConnectionString
ClassHelper.InsertEssential_Log(USER_GUID, "USER-ID", String.Format("Proxy-Server {0} - Database {1} is used", csb.DataSource, csb.InitialCatalog))
End If
End If
'If ClassProxy.MyPROXYConnectionString <> String.Empty Then
' If clsDatabase.Init(ClassProxy.MyPROXYConnectionString, True) = False Then
' ClassHelper.MSGBOX_Handler("ERROR", "", "Error while Initializing proxyserver - Check logfile")
' Else
' Dim csb As New SqlClient.SqlConnectionStringBuilder
' csb.ConnectionString = ClassProxy.MyPROXYConnectionString
' ClassHelper.InsertEssential_Log(USER_GUID, "USER-ID", String.Format("Proxy-Server {0} - Database {1} is used", csb.DataSource, csb.InitialCatalog))
' End If
'End If
If Not IsNothing(MYDB_ECM) Then
If MYDB_ECM.DBInitialized = False Then
If clsLogger.LOGG_MSG <> String.Empty Then
Throw New Exception("Error while Initializing database:" & vbNewLine & clsLogger.LOGG_MSG)
Else
Throw New Exception("Find more information in the logfile.")
End If
Throw New Exception("Find more information in the logfile.")
End If
Else
Return False
@@ -232,7 +223,7 @@ Public Class ClassInit
CURRENT_TBPMO_FORM_VIEW = MYDB_ECM.GetDatatable(oSql)
oSql = String.Format("select T.*, T1.HEADER_CAPTION,T1.TYPE_ID ,T1.ENTITY_ID,T1.LANGUAGE from TBPMO_DOCRESULT_DROPDOWN_ITEMS T, TBPMO_DOCSEARCH_RESULTLIST_CONFIG T1 WHERE T.CONFIG_ID = T1.GUID")
CURRENT_TBPMO_DOCRESULT_DROPDOWN_ITEMS = MYDB_ECM.GetDatatable(oSql)
clsCURRENT.LOG_ERRORS_ONLY = DEBUG
'clsCURRENT.LOG_ERRORS_ONLY = DEBUG
oSql = String.Format("select* from TBPMO_FILE_FORMATS_CHANGE")
Dim oDTFF_CHANGE As DataTable = MYDB_ECM.GetDatatable(oSql)
@@ -312,7 +303,7 @@ Public Class ClassInit
LOGGER.Debug($"USERID_FK_INT_ECM: {USERID_FK_INT_ECM}")
USER_IS_ADMIN = USER_DT.Rows(0).Item("IS_ADMIN")
USER_LANGUAGE = USER_DT.Rows(0).Item("USER_LANGUAGE")
clsCURRENT.USER_LANGUAGE = USER_LANGUAGE
'clsCURRENT.USER_LANGUAGE = USER_LANGUAGE
USER_DATE_FORMAT = USER_DT.Rows(0).Item("USER_DATE_FORMAT")
oMODULE_ACCES = USER_DT.Rows(0).Item("MODULE_ACCESS")
Dim oWORKING_MODE = USER_DT.Rows(0).Item("WORKING_MODE")
@@ -342,6 +333,9 @@ Public Class ClassInit
SHARE_DRIVE_ACTIVE = True
LOGGER.Info($"WM SHARE_DRIVE [{WMPATH_PREFIX}] via WORKING_MODE is active")
End If
ElseIf oMode = "WM_USER_LOGIN" Then
LOGGER.Info($"WM_IMPERSONATE_LOGIN WILL BE SET TO False via WORKING_MODE!")
WM_IMPERSONATE_LOGIN = False
Else
If oMode <> "0" Then
LOGGER.Info($"Wrong oMode: {oMode}")
@@ -404,11 +398,9 @@ Public Class ClassInit
End If
Dim ConStringMain As String
If clsDatabase.DB_PROXY_INITIALIZED = True Then
ConStringMain = "PROXY: " & ClassProxy.MyPROXYConnectionString & " # MAIN: " & MyConnectionString
Else
ConStringMain = "Main: " & MyConnectionString
End If
ConStringMain = "Main: " & MyConnectionString
oFNSQL = String.Format("INSERT INTO TBDD_USER_MODULE_LOG_IN (USER_ID,CLIENT_ID,MODULE,VERSION_CLIENT,MACHINE_NAME,CONNECTION_STRING) VALUES ({0},{1},'Record-Organizer','{2}','{3}','{4}')", USER_GUID, CLIENT_SELECTED, My.Application.Info.Version.ToString, Environment.MachineName, ConStringMain)
MYDB_ECM.ExecuteNonQuery(oFNSQL)
@@ -430,7 +422,12 @@ Public Class ClassInit
If WM_READ_ONLY = False Then
Try
LOGGER.Debug($"Connecting to windream-Server via DigitalData.Modules.Windream.Windream...")
WMMOD = New DigitalData.Modules.Windream.Windream(LOGCONFIG, False, WMDriveLetter, WMPATH_PREFIX, True, WM_SERVER, WM_USER, WM_USER_PW, WM_DOMAIN)
If WM_IMPERSONATE_LOGIN = False Then
WMMOD = New DigitalData.Modules.Windream.Windream(LOGCONFIG, False, WMDriveLetter, WMPATH_PREFIX, True, WM_SERVER, "", "", WM_DOMAIN)
Else
WMMOD = New DigitalData.Modules.Windream.Windream(LOGCONFIG, False, WMDriveLetter, WMPATH_PREFIX, True, WM_SERVER, WM_USER, WM_USER_PW, WM_DOMAIN)
End If
If IsNothing(WMMOD) Then
MsgBox("Could not connect to windream! Check Your configuration", MsgBoxStyle.Exclamation)
Else
@@ -445,13 +442,13 @@ Public Class ClassInit
WM_READ_ONLY = True
End Try
If clsWindream.Create_Session = False Then
If WMMOD.SessionLoggedin = False Then
LOGGER.Warn("Could not create the login for windream - No session created!")
ClassHelper.MSGBOX_Handler("ERROR", "windream-login Error:", "Could not create the login/session!", "OrgFlow will start anyway but be aware that searching and importing won't be possible!")
ClassHelper.MSGBOX_Handler("ERROR", "windream-login Error:", "Could not create the login/session!", "orgFLOW will start anyway but be aware that searching and importing won't be possible!")
End If
End If
Catch ex As Exception
LOGGER.Warn("Unexpected Error in clswindream.Init: " & ex.Message)
LOGGER.Warn("Unexpected Error in WINDREAM MOD.Init: " & ex.Message)
MsgBox("Unexpected Error in Creating windream-Session: " & ex.Message & vbNewLine & "Please inform Your sysadmin!", MsgBoxStyle.Critical)
End Try
@@ -496,9 +493,9 @@ Public Class ClassInit
End Try
End If
If LICENSE_PROXY = True And clsDatabase.DB_PROXY_INITIALIZED Then
SQL_FULLTEXT = "SELECT DISTINCT [dwDocID] FROM [dbo].FullText WHERE CONTAINS([Text], '""*@FULLTEXT*""') "
End If
'If LICENSE_PROXY = True And clsDatabase.DB_PROXY_INITIALIZED Then
' SQL_FULLTEXT = "SELECT DISTINCT [dwDocID] FROM [dbo].FullText WHERE CONTAINS([Text], '""*@FULLTEXT*""') "
'End If
Dim oSQL = $"SELECT COUNT(GU.GUID) FROM TBDD_GROUPS_USER GU INNER JOIN TBDD_GROUPS G ON GU.GROUP_ID = G.GUID WHERE G.NAME = 'ORGFLOW-Supervisor' AND GU.USER_ID = {USER_GUID}"
USER_IS_SUPERVISOR = MYDB_ECM.GetScalarValue(oSQL)
Return True

2
app/DD-Record-Organizer/Classes/ClassLicence.vb
View File

@@ -78,7 +78,7 @@ Public Class ClassLicence
If license_Row.Item("NAME") = "Proxy-Server" Then
If expired = False Then
LICENSE_PROXY = True
End If
ElseIf license_Row.Item("NAME") = "Site-AddOn" Then
If expired = False Then

85
app/DD-Record-Organizer/Classes/ClassProxy.vb
View File

@@ -20,42 +20,42 @@ Public Class ClassProxy
Return False
End If
End Function
Public Shared Function PRPROXY_SYNC_DOC_OBJECTS()
If LICENSE_PROXY = False Or clsDatabase.DB_PROXY_INITIALIZED = False Then
Return False
End If
Dim sel = "DECLARE @return_value int" & vbNewLine &
"EXEC @return_value = [dbo].[PRPROXY_SYNC_DOC_OBJECTS]" & vbNewLine &
"SELECT 'Return Value' = @return_value"
Dim Result As DataTable = MYDB_ECM.GetDatatable(sel)
If Not IsNothing(Result) Then
If Result.Rows(0).Item(0) = 0 Then
Return True
Else
Return False
End If
Else
Return False
End If
End Function
Public Shared Function PRPROXY_RECORD_DEL(RECID As Integer, ENTITY_ID As Integer)
If LICENSE_PROXY = False Or clsDatabase.DB_PROXY_INITIALIZED = False Then
Return False
End If
Dim sel = String.Format("DECLARE @return_value int" & vbNewLine &
"EXEC @return_value = [dbo].[PRPROXY_RECORD_DEL] {0},{1} " & vbNewLine &
"SELECT 'Return Value' = @return_value", RECID, ENTITY_ID)
Dim Result As DataTable = MYDB_ECM.GetDatatable(sel)
If Not IsNothing(Result) Then
If Result.Rows(0).Item(0) = 0 Then
Return True
Else
Return False
End If
Else
Return False
End If
End Function
'Public Shared Function PRPROXY_SYNC_DOC_OBJECTS()
' If LICENSE_PROXY = False Or clsDatabase.DB_PROXY_INITIALIZED = False Then
' Return False
' End If
' Dim sel = "DECLARE @return_value int" & vbNewLine &
' "EXEC @return_value = [dbo].[PRPROXY_SYNC_DOC_OBJECTS]" & vbNewLine &
' "SELECT 'Return Value' = @return_value"
' Dim Result As DataTable = MYDB_ECM.GetDatatable(sel)
' If Not IsNothing(Result) Then
' If Result.Rows(0).Item(0) = 0 Then
' Return True
' Else
' Return False
' End If
' Else
' Return False
' End If
'End Function
'Public Shared Function PRPROXY_RECORD_DEL(RECID As Integer, ENTITY_ID As Integer)
' If LICENSE_PROXY = False Or clsDatabase.DB_PROXY_INITIALIZED = False Then
' Return False
' End If
' Dim sel = String.Format("DECLARE @return_value int" & vbNewLine &
' "EXEC @return_value = [dbo].[PRPROXY_RECORD_DEL] {0},{1} " & vbNewLine &
' "SELECT 'Return Value' = @return_value", RECID, ENTITY_ID)
' Dim Result As DataTable = MYDB_ECM.GetDatatable(sel)
' If Not IsNothing(Result) Then
' If Result.Rows(0).Item(0) = 0 Then
' Return True
' Else
' Return False
' End If
' Else
' Return False
' End If
'End Function
Public Shared Function PRPROXY_RECORD_UPD_INS(ENT_ID As Integer, RECID As Integer)
If LICENSE_PROXY = False Or clsDatabase.DB_PROXY_INITIALIZED = False Then
Return False
@@ -182,19 +182,6 @@ Public Class ClassProxy
Return False
End If
End Function
Public Shared Function IS_PROXY_BUSY()
If LICENSE_PROXY = False Or clsDatabase.DB_PROXY_INITIALIZED = False Then
Return False
End If
Dim sql = "SELECT SYNC_RUNNING FROM TBPROXY_CONFIG WHERE GUID = 1"
Dim BUSY
BUSY = MYDB_ECM.GetScalarValue(sql)
If IsNothing(BUSY) Then
Return True
Else
Return BUSY
End If
End Function
Public Shared Function PRPROXY_DOC_VALUES_UPD(DocID As Integer, RecId As Integer)
If LICENSE_PROXY = False Or clsDatabase.DB_PROXY_INITIALIZED = False Then
Return False

10
app/DD-Record-Organizer/Classes/ClassRecordState.vb
View File

@@ -6,10 +6,7 @@
Exit Sub
End If
Dim SQL As String = String.Format("UPDATE TBPMO_RECORD SET IN_WORK = 1, IN_WORK_WHO = '{0}' WHERE GUID = {1}", USER_USERNAME, RecordId)
If DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
MYDB_ECM.ExecuteNonQuery(SQL)
End If
MYDB_ECM.ExecuteNonQuery(Sql)
MYDB_ECM.ExecuteNonQuery(SQL)
Catch ex As Exception
MsgBox("Error in LockRecord: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
@@ -25,10 +22,7 @@
Exit Sub
End If
Dim SQL As String = String.Format("UPDATE TBPMO_RECORD SET IN_WORK = 0, IN_WORK_WHO = NULL WHERE GUID = {0}", RecordId)
If DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
MYDB_ECM.ExecuteNonQuery(SQL)
End If
MYDB_ECM.ExecuteNonQuery(Sql)
MYDB_ECM.ExecuteNonQuery(SQL)
Catch ex As Exception
MsgBox("Error in UnlockRecord: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try

30
app/DD-Record-Organizer/Classes/ClassWDRights.vb
View File

@@ -1,5 +1,5 @@
Imports WINDREAMLib
Imports DD_LIB_Standards
'Imports DD_LIB_Standards
Public Class ClassWDRights
#Region "+++++ Konstanten +++++"
Const REL_Document_AccessRight = "AccessRight"
@@ -42,12 +42,9 @@ Public Class ClassWDRights
AD_DOMAIN = DT_KONFIG.Rows(0).Item("AD_DOMAIN")
AD_USER = DT_KONFIG.Rows(0).Item("AD_USER")
WD_RIGHT_ADMIN = DT_KONFIG.Rows(0).Item("WD_RIGHT")
If clsDatabase.DB_PROXY_INITIALIZED = True And ClassProxy.MyLinkedServer <> String.Empty Then
LOGGER.Info("User configured a proxy: " & ClassProxy.MyLinkedServer)
AD_SERVER = ClassProxy.MyLinkedServer
Else
AD_SERVER = DT_KONFIG.Rows(0).Item("AD_SERVER")
End If
AD_SERVER = DT_KONFIG.Rows(0).Item("AD_SERVER")
Dim PWplainText As String
Dim wrapper As New ClassEncryption("!35452didalog=")
@@ -95,23 +92,12 @@ Public Class ClassWDRights
DT_GROUP_RIGHT = MYDB_ECM.GetDatatable(sql)
If IsNothing(DT_USER_RIGHT) Then
Dim msg = "Error while receiving rights for DocID"
clsLogger.Add(msg)
LOGGER.Warn(msg)
Return False
Else
LOGGER.Debug(String.Format("Amount of Userrights: {0}", DT_USER_RIGHT.Rows.Count))
End If
LOGGER.Debug(String.Format("Amount of Grouprights: {0}", DT_GROUP_RIGHT.Rows.Count))
'Try
' 'Object definieren
' oWMObject = WMCLASS.GetFileByPath(reldocpath) ' oSession.GetWMObjectByPath(1, reldocpath)
' LOGGER.Debug("oWMObject created.")
'Catch ex As Exception
' Dim msg = "ClassWDRights - Error GetWMObjectByPath: " & reldocpath & vbNewLine & Err.Description
' LOGGER.Warn(msg)
' LOGGER.Error(ex)
' Return False
'End Try
Dim lret
Try
' Objekt muss zur Rechteänderung gelockt werden
@@ -257,7 +243,7 @@ Public Class ClassWDRights
LOGGER.Debug("got Group...")
Catch ex As Exception
Dim msg = String.Format("Could not create windream-Usersession for group '{0}' - check whether group exists in windream!", StringGroupRight)
clsLogger.Add(msg)
LOGGER.Warn(msg)
MSG_RESULT &= msg & vbNewLine
Continue For
End Try
@@ -267,7 +253,7 @@ Public Class ClassWDRights
LOGGER.Debug("Right was set...")
Catch ex As Exception
Dim msg = String.Format("Could not set right for docID: {0} group {1} - AccessRights.Insert2: {2}", doc_id, StringGroupRight, ex.Message)
clsLogger.Add(msg)
LOGGER.Warn(msg)
Continue For
End Try
End If
@@ -287,7 +273,7 @@ Public Class ClassWDRights
_right = "READ WRITE"
End Select
MSG_RESULT &= String.Format("Error while working on RightChange2:" & vbNewLine & "Fileright: {0}" & vbNewLine & "Group: {1} " & vbNewLine & "File: {2}", _right, StringGroupRight, reldocpath) & vbNewLine
clsLogger.Add(ex.Message)
LOGGER.Warn(ex.Message)
End Try
Next

12
app/DD-Record-Organizer/Classes/Commands/ClassRecordCommands.vb
View File

@@ -1,5 +1,5 @@
Imports System.Data.SqlClient
Imports DD_LIB_Standards
'Imports DD_LIB_Standards'
Public Class ClassRecordCommands
Public Shared Function CreateRecordProcedure(formId As Integer)
@@ -21,12 +21,12 @@ Public Class ClassRecordCommands
connection.Close()
Dim GUID As Integer = cmd.Parameters("@pRESULT").Value
If GUID > 0 And clsDatabase.DB_PROXY_INITIALIZED = True Then
If ClassProxy.PRPROXY_RECORD_UPD_INS(formId, GUID) = True Then
ClassProxy.PRPROXY_CONTROL_VALUE_RENEW(GUID)
End If
'If GUID > 0 And clsDatabase.DB_PROXY_INITIALIZED = True Then
' If ClassProxy.PRPROXY_RECORD_UPD_INS(formId, GUID) = True Then
' ClassProxy.PRPROXY_CONTROL_VALUE_RENEW(GUID)
' End If
End If
'End If
Return GUID
End Using
Catch ex As Exception

40
app/DD-Record-Organizer/Classes/Controls/ClassControlCommandsUI.vb
View File

@@ -1,6 +1,6 @@
Imports DD_Record_Organizer.ClassControlBuilder
Imports DD_LIB_Standards
'Imports DD_LIB_Standards
Imports System.Data.SqlClient
Public Class ClassControlCommandsUI
@@ -578,9 +578,7 @@ Public Class ClassControlCommandsUI
Dim sql As String = $"DELETE FROM TBPMO_CONTROL_VALUE WHERE RECORD_ID = {RecordID} AND CONTROL_ID = {CONTROL_ID}"
If MYDB_ECM.ExecuteNonQuery(sql) = True Then
If LICENSE_PROXY = True Or clsDatabase.DB_PROXY_INITIALIZED = True Then
MYDB_ECM.ExecuteNonQuery(sql, True)
End If
End If
Else
@@ -647,7 +645,7 @@ Public Class ClassControlCommandsUI
MYDB_ECM.ExecuteNonQuery(String.Format("DELETE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {0} AND RECORD_ID = {1} AND VALUE = '{2}'", ControlId, RecordId, v))
' ClassProxy.PRPROXY_CONTROL_DEL(RecordId, CURRENT_ENTITY_ID, ControlId)
Next
ClassProxy.PRPROXY_CONTROL_VALUE_UPD_INS(CURRENT_ENTITY_ID, ControlId, RecordId, "")
'ClassProxy.PRPROXY_CONTROL_VALUE_UPD_INS(CURRENT_ENTITY_ID, ControlId, RecordId, "")
Catch ex As Exception
MsgBox("Error in UpdateMultipleValues:" & vbNewLine & ex.Message)
End Try
@@ -904,9 +902,6 @@ Public Class ClassControlCommandsUI
cmd.ExecuteNonQuery()
connection.Close()
_result = cmd.Parameters("@pRESULT").Value
If _result = 1 And clsDatabase.DB_PROXY_INITIALIZED = True Then
ClassProxy.PRPROXY_CONTROL_VALUE_UPD_INS(ENTITY_ID, ControlID, RecordID, converted_value)
End If
Return _result
End Using
Else
@@ -926,15 +921,15 @@ Public Class ClassControlCommandsUI
If Not IsNothing(converted_value) Then
converted_value = converted_value.Replace("'", "´")
Dim ins As String = String.Format("INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID, RECORD_ID, VALUE, ADDED_WHO) VALUES ({0}, {1}, '{2}', '{3}')", ControlID, RecordID, converted_value, AddedWho)
If LICENSE_PROXY = True Or clsDatabase.DB_PROXY_INITIALIZED = True Then
If MYDB_ECM.ExecuteNonQuery(ins) = True Then
Return ClassProxy.PRPROXY_CONTROL_VALUE_UPD_INS(ENTITY_ID, ControlID, RecordID, converted_value)
Else
Return False
End If
Else
Return MYDB_ECM.ExecuteNonQuery(ins)
End If
'If LICENSE_PROXY = True Or clsDatabase.DB_PROXY_INITIALIZED = True Then
' If MYDB_ECM.ExecuteNonQuery(ins) = True Then
' Return ClassProxy.PRPROXY_CONTROL_VALUE_UPD_INS(ENTITY_ID, ControlID, RecordID, converted_value)
' Else
' Return False
' End If
'Else
Return MYDB_ECM.ExecuteNonQuery(ins)
'End If
Else
Return False
End If
@@ -956,15 +951,8 @@ Public Class ClassControlCommandsUI
If ControlID = 279 Or ControlID = 745 Then
LOGGER.Warn(upd)
End If
If LICENSE_PROXY = True Or clsDatabase.DB_PROXY_INITIALIZED = True Then
If MYDB_ECM.ExecuteNonQuery(upd) = True Then
Return ClassProxy.PRPROXY_CONTROL_VALUE_UPD_INS(ENTITY_ID, ControlID, RecordID, converted_value)
Else
Return False
End If
Else
Return MYDB_ECM.ExecuteNonQuery(upd)
End If
Return MYDB_ECM.ExecuteNonQuery(upd)
Catch ex As Exception
LOGGER.Warn("Unerwarteter Fehler in UpdateControlValue: " & ex.Message)
Return False

6
app/DD-Record-Organizer/Classes/NodeNavigation/ClassDoctypeChange.vb
View File

@@ -1,8 +1,8 @@
Imports DD_LIB_Standards
'mports DD_LIB_Standards
Imports DigitalData.Modules.Base
Imports DigitalData.Modules.Logging
Public Class ClassDoctypeChange
Public Class ClassDoctypeChangeDEL
Inherits BaseClass
Public Sub New(pLogConfig As LogConfig)
@@ -12,7 +12,7 @@ Public Class ClassDoctypeChange
Public Function ChangeDocType(pFilePaths As List(Of String), pNewDocTypeName As String, pObjectType As String) As Boolean
Try
For Each oPath As String In pFilePaths
Dim oResult As Boolean = clsWD_SET.IndexFile(oPath, "String 37", pNewDocTypeName, pObjectType)
Dim oResult As Boolean = WMMOD.SetFileIndex(oPath, "String 37", pNewDocTypeName, pObjectType)
If oResult = True Then
Logger.Debug("Successfully set doctype of file [{0}] to [{1}]", oPath, pNewDocTypeName)
Else

2
app/DD-Record-Organizer/Classes/NodeNavigation/ClassNodeCreator.vb
View File

@@ -32,7 +32,7 @@ Public Class ClassNodeCreator
End If
' Update the proxy?
ClassProxy.PRPROXY_RECORD_UPD_INS(pEntityId, oRecordId)
'ClassProxy.PRPROXY_RECORD_UPD_INS(pEntityId, oRecordId)
' Create the Node in the Database
Dim oNodeIdentifier = $"CONFIG {oRecordId}-{pNodeConfigId}"

18
app/DD-Record-Organizer/ModuleHelperMethods.vb
View File

@@ -285,8 +285,8 @@ Module ModuleHelperMethods
CURRENT_OPEN_CONSTRUCTOR_FORMS.Add(id)
If NodeNav Then
Dim frmNN As New frmNodeNavigation(EntityID, CURRENT_CONSTRUCTOR_ID)
frmNN.Tag = id
Dim frmNodeNav As New frmNodeNavigation(EntityID, CURRENT_CONSTRUCTOR_ID)
frmNodeNav.Tag = id
If My.Settings.EntFormsChild = True Then
Dim activeChild1 As Form = MAIN_FORM.ActiveMdiChild
If activeChild1 IsNot Nothing Then
@@ -300,10 +300,10 @@ Module ModuleHelperMethods
JUMP_RECORD_ID = recordId
End If
If My.Settings.EntFormsChild = True Then
frmNN.MdiParent = MAIN_FORM
frmNodeNav.MdiParent = MAIN_FORM
End If
frmNN.Show()
frmNodeNav.Show()
Else
Dim frm As New frmConstructor_Main()
frm.Tag = id
@@ -427,17 +427,7 @@ Module ModuleHelperMethods
End Try
End Sub
Public Sub OpenWindream_Files()
Dim frm As New frmWM_Import_Doc_Record
frm.MdiParent = MAIN_FORM
Dim activeChild As Form = MAIN_FORM.ActiveMdiChild
If activeChild IsNot Nothing Then
activeChild.WindowState = FormWindowState.Normal
End If
frm.Show()
End Sub
Public Sub OpenWiedervorlage()
Dim frm As New frmFollowUp
frm.MdiParent = MAIN_FORM

11
app/DD-Record-Organizer/ModuleMySettings.vb
View File

@@ -1,6 +1,5 @@
Imports System.IO
Imports System.Xml
Imports DD_LIB_Standards
Imports DevExpress.LookAndFeel
Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.Windream
@@ -37,6 +36,7 @@ Module ModuleMySettings
Public WM_DOMAIN As String = ""
Public WM_USER As String = ""
Public WM_USER_PW As String = ""
Public WM_IMPERSONATE_LOGIN As Boolean = True
Public GridDocResult_BestFitColumns As Boolean = True
Public SQL_FULLTEXT As String
Public CAPTION_CONFIRMATION As String = "Bestätigung"
@@ -75,6 +75,8 @@ Module ModuleMySettings
Public LOGCONFIG As LogConfig
Public LOGGER As Logger
Public WM_RWA As String = ""
Dim rowresult As String = ""
Public Function LoadFileExclusion()
Dim rowresult As String = ""
@@ -201,15 +203,12 @@ Module ModuleMySettings
connstring = Row.Item("Value").ToString
End If
ClassProxy.MyPROXYConnectionString = connstring
Else
ClassProxy.MyPROXYConnectionString = ""
End If
Case "MyLinkedServer"
ClassProxy.MyLinkedServer = Row.Item("Value")
'ClassProxy.MyLinkedServer = Row.Item("Value")
Case "LogErrorsOnly"
DEBUG = CBool(Row.Item("Value"))
clsCURRENT.LOG_ERRORS_ONLY = DEBUG
'DD_LIB_Standards.clsCURRENT.LOG_ERRORS_ONLY = DEBUG
LOGCONFIG.Debug = DEBUG
Case "Sett_TaskOverviewKeepInFront"
Sett_TaskOverviewKeepInFront = CBool(Row.Item("Value"))

5
app/DD-Record-Organizer/ModuleRuntimeVariables.vb
View File

@@ -94,7 +94,7 @@ Module ModuleRuntimeVariables
Public LICENSE_COUNT As Integer = 0
Public LICENSE_DOSSIER_COUNT As Integer = 0
Public LICENSE_SAP_Connect As Boolean = False
Public LICENSE_PROXY As Boolean = False
'Public LICENSE_PROXY As Boolean = False
Public LICENSE_SITE As Boolean = False
Public LICENSE_DATE As Date
Public DT_LICENSE_ADDONS As DataTable
@@ -199,7 +199,8 @@ Module ModuleRuntimeVariables
Public SQL_GLOBAL_SEARCH As String = ""
Public SQL_OF_NODE_SEARCH As String = ""
Public CONF_SUPPORTPORTAL As String = "https://www.digitaldata.works/Support'"
Public WM_RWA As String = ""
Public CURRENT_DT_TBPMO_DOC_RECORD_LINK As DataTable
Public Property MYDB_ECM As MSSQLServer

2
app/DD-Record-Organizer/My Project/AssemblyInfo.vb
View File

@@ -33,7 +33,7 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("3.1.6.0")>
<Assembly: AssemblyVersion("3.2.0.0")>
<Assembly: AssemblyFileVersion("1.0.0.0")>
<Assembly: NeutralResourcesLanguageAttribute("")>

60
app/DD-Record-Organizer/OrgFlow.vbproj
View File

@@ -29,6 +29,8 @@
<UseApplicationTrust>false</UseApplicationTrust>
<BootstrapperEnabled>true</BootstrapperEnabled>
<TargetFrameworkProfile />
<NuGetPackageImportStamp>
</NuGetPackageImportStamp>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
@@ -72,10 +74,6 @@
<Reference Include="CommandLine">
<HintPath>..\..\3rdparty\lib\Commandline\CommandLine.dll</HintPath>
</Reference>
<Reference Include="DD_LIB_Standards, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\DDLibStandards\DD_LIB_Standards\bin\Debug\DD_LIB_Standards.dll</HintPath>
</Reference>
<Reference Include="DD_Rights">
<HintPath>..\..\..\DDLibraries\app\DD_Libraries\bin\Debug\DD_Rights.dll</HintPath>
</Reference>
@@ -169,8 +167,9 @@
<Reference Include="DevExpress.XtraWizard.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DigitalData.Controls.DocumentViewer">
<HintPath>..\..\..\DDMonorepo\Controls.DocumentViewer\bin\Debug\DigitalData.Controls.DocumentViewer.dll</HintPath>
<Reference Include="DigitalData.Controls.DocumentViewer, Version=1.9.4.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\..\2_DLL Projekte\DDMonorepo\Controls.DocumentViewer\bin\Debug\DigitalData.Controls.DocumentViewer.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.Base">
<HintPath>..\..\..\DDModules\Base\bin\Debug\DigitalData.Modules.Base.dll</HintPath>
@@ -178,16 +177,20 @@
<Reference Include="DigitalData.Modules.Config">
<HintPath>..\..\..\DDModules\Config\bin\Debug\DigitalData.Modules.Config.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.Database">
<HintPath>..\..\..\DDModules\Database\bin\Debug\DigitalData.Modules.Database.dll</HintPath>
<Reference Include="DigitalData.Modules.Database, Version=2.3.5.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\..\2_DLL Projekte\DDModules\Database\bin\Debug\DigitalData.Modules.Database.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.Encryption">
<HintPath>..\..\..\..\2_DLL Projekte\DDModules\Encryption\bin\Debug\DigitalData.Modules.Encryption.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.Logging, Version=2.5.4.2, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\DDModules\Logging\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.Windream, Version=1.9.0.0, Culture=neutral, processorArchitecture=MSIL">
<Reference Include="DigitalData.Modules.Windream, Version=1.9.4.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\DDModules\Windream\bin\Debug\DigitalData.Modules.Windream.dll</HintPath>
<HintPath>..\..\..\..\2_DLL Projekte\DDModules\Windream\bin\Debug\DigitalData.Modules.Windream.dll</HintPath>
</Reference>
<Reference Include="DLLLicenseManager">
<HintPath>..\..\lib\DLLLicenseManager.dll</HintPath>
@@ -195,6 +198,9 @@
<Reference Include="ERPConnect35">
<HintPath>P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\DLL_Bibliotheken\ERPConnect35.dll</HintPath>
</Reference>
<Reference Include="GdPicture.NET.14, Version=14.2.90.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
<HintPath>..\packages\GdPicture.14.2.90\lib\net462\GdPicture.NET.14.dll</HintPath>
</Reference>
<Reference Include="Independentsoft.Msg">
<HintPath>..\..\3rdparty\lib\MSG.NET\Independentsoft.Msg.dll</HintPath>
</Reference>
@@ -295,7 +301,6 @@
<Compile Include="Classes\ClassMoreMetadata.vb" />
<Compile Include="Classes\ClassNodeNavigation.vb" />
<Compile Include="Classes\ClassPosGrid.vb" />
<Compile Include="Classes\ClassProxy.vb" />
<Compile Include="Classes\Commands\ClassRecordCommands.vb" />
<Compile Include="Classes\ClassRecordState.vb" />
<Compile Include="Classes\ClassRecordView.vb" />
@@ -304,7 +309,7 @@
<Compile Include="Classes\ClassDOC_SEARCH.vb" />
<Compile Include="Classes\ClassUser.vb" />
<Compile Include="Classes\ClassWDRights.vb" />
<Compile Include="Classes\ClassWindreamDocGrid.vb" />
<Compile Include="Classes\ClassDocGrid.vb" />
<Compile Include="Classes\ClassWorkflow.vb" />
<Compile Include="Classes\NodeNavigation\ClassDoctypeChange.vb" />
<Compile Include="Classes\NodeNavigation\ClassNodeCreator.vb" />
@@ -496,12 +501,6 @@
<Compile Include="frmWM_FulltextChoice.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmWM_Import_Doc_Record.Designer.vb">
<DependentUpon>frmWM_Import_Doc_Record.vb</DependentUpon>
</Compile>
<Compile Include="frmWM_Import_Doc_Record.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Classes\ClassStaticListEditor.vb" />
<Compile Include="frmRecordView.Designer.vb">
<DependentUpon>frmRecordView.vb</DependentUpon>
@@ -761,12 +760,6 @@
<Compile Include="frmUserKonfig.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmWM_EntityImport.Designer.vb">
<DependentUpon>frmWM_EntityImport.vb</DependentUpon>
</Compile>
<Compile Include="frmWM_EntityImport.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmWM_IndexFile.Designer.vb">
<DependentUpon>frmWM_IndexFile.vb</DependentUpon>
</Compile>
@@ -869,9 +862,11 @@
</EmbeddedResource>
<EmbeddedResource Include="frmLicense.en-US.resx">
<DependentUpon>frmLicense.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="frmLicense_User.en-US.resx">
<DependentUpon>frmLicense_User.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="frmLicense_User.resx">
<DependentUpon>frmLicense_User.vb</DependentUpon>
@@ -881,6 +876,7 @@
</EmbeddedResource>
<EmbeddedResource Include="frmMain.de-DE.resx">
<DependentUpon>frmMain.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="frmMass_Change.en-US.resx">
<DependentUpon>frmMass_Change.vb</DependentUpon>
@@ -959,9 +955,6 @@
<EmbeddedResource Include="frmWM_FulltextChoice.resx">
<DependentUpon>frmWM_FulltextChoice.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmWM_Import_Doc_Record.resx">
<DependentUpon>frmWM_Import_Doc_Record.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmRecordView.resx">
<DependentUpon>frmRecordView.vb</DependentUpon>
<SubType>Designer</SubType>
@@ -1184,12 +1177,6 @@
<DependentUpon>frmUserKonfig.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="frmWM_EntityImport.en-US.resx">
<DependentUpon>frmWM_EntityImport.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmWM_EntityImport.resx">
<DependentUpon>frmWM_EntityImport.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmWM_IndexFile.en-US.resx">
<DependentUpon>frmWM_IndexFile.vb</DependentUpon>
</EmbeddedResource>
@@ -1662,6 +1649,13 @@
<WCFMetadata Include="Service References\" />
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<Import Project="..\packages\GdPicture.runtimes.windows.14.2.90\build\net462\GdPicture.runtimes.windows.targets" Condition="Exists('..\packages\GdPicture.runtimes.windows.14.2.90\build\net462\GdPicture.runtimes.windows.targets')" />
<Target Name="EnsureNuGetPackageBuildImports" BeforeTargets="PrepareForBuild">
<PropertyGroup>
<ErrorText>Dieses Projekt verweist auf mindestens ein NuGet-Paket, das auf diesem Computer fehlt. Verwenden Sie die Wiederherstellung von NuGet-Paketen, um die fehlenden Dateien herunterzuladen. Weitere Informationen finden Sie unter "http://go.microsoft.com/fwlink/?LinkID=322105". Die fehlende Datei ist "{0}".</ErrorText>
</PropertyGroup>
<Error Condition="!Exists('..\packages\GdPicture.runtimes.windows.14.2.90\build\net462\GdPicture.runtimes.windows.targets')" Text="$([System.String]::Format('$(ErrorText)', '..\packages\GdPicture.runtimes.windows.14.2.90\build\net462\GdPicture.runtimes.windows.targets'))" />
</Target>
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
Other similar extension points exist, see Microsoft.Common.targets.
<Target Name="BeforeBuild">

89
app/DD-Record-Organizer/frmConfig_Basic.Designer.vb generated
View File

@@ -26,11 +26,6 @@ Partial Class frmConfig_Basic
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.TabControl1 = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.lblLinkedServer = New System.Windows.Forms.Label()
Me.txtLinkedServer = New System.Windows.Forms.TextBox()
Me.btndeleteProxy = New System.Windows.Forms.Button()
Me.rbConn_Proxy = New System.Windows.Forms.RadioButton()
Me.rbConnDefault = New System.Windows.Forms.RadioButton()
Me.chkbxUserAut = New System.Windows.Forms.CheckBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.cmbDatenbank = New System.Windows.Forms.ComboBox()
@@ -74,8 +69,6 @@ Partial Class frmConfig_Basic
Me.btnstartstop2 = New System.Windows.Forms.Button()
Me.TabPage4 = New System.Windows.Forms.TabPage()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.Button7 = New System.Windows.Forms.Button()
Me.RadioButton3 = New System.Windows.Forms.RadioButton()
Me.rbGruppe = New System.Windows.Forms.RadioButton()
Me.rbUser = New System.Windows.Forms.RadioButton()
Me.txtObjectExists = New System.Windows.Forms.TextBox()
@@ -83,6 +76,9 @@ Partial Class frmConfig_Basic
Me.btncheckWDFolderexists = New System.Windows.Forms.Button()
Me.txtwdFolder = New System.Windows.Forms.TextBox()
Me.Label12 = New System.Windows.Forms.Label()
Me.Button4 = New System.Windows.Forms.Button()
Me.txtCreateWMFolder = New System.Windows.Forms.TextBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.TabControl1.SuspendLayout()
Me.TabPage1.SuspendLayout()
Me.TabPage2.SuspendLayout()
@@ -108,11 +104,6 @@ Partial Class frmConfig_Basic
'
'TabPage1
'
Me.TabPage1.Controls.Add(Me.lblLinkedServer)
Me.TabPage1.Controls.Add(Me.txtLinkedServer)
Me.TabPage1.Controls.Add(Me.btndeleteProxy)
Me.TabPage1.Controls.Add(Me.rbConn_Proxy)
Me.TabPage1.Controls.Add(Me.rbConnDefault)
Me.TabPage1.Controls.Add(Me.chkbxUserAut)
Me.TabPage1.Controls.Add(Me.Label5)
Me.TabPage1.Controls.Add(Me.cmbDatenbank)
@@ -129,36 +120,6 @@ Partial Class frmConfig_Basic
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.UseVisualStyleBackColor = True
'
'lblLinkedServer
'
resources.ApplyResources(Me.lblLinkedServer, "lblLinkedServer")
Me.lblLinkedServer.Name = "lblLinkedServer"
'
'txtLinkedServer
'
resources.ApplyResources(Me.txtLinkedServer, "txtLinkedServer")
Me.txtLinkedServer.Name = "txtLinkedServer"
'
'btndeleteProxy
'
resources.ApplyResources(Me.btndeleteProxy, "btndeleteProxy")
Me.btndeleteProxy.Name = "btndeleteProxy"
Me.btndeleteProxy.UseVisualStyleBackColor = True
'
'rbConn_Proxy
'
resources.ApplyResources(Me.rbConn_Proxy, "rbConn_Proxy")
Me.rbConn_Proxy.Name = "rbConn_Proxy"
Me.rbConn_Proxy.UseVisualStyleBackColor = True
'
'rbConnDefault
'
resources.ApplyResources(Me.rbConnDefault, "rbConnDefault")
Me.rbConnDefault.Checked = True
Me.rbConnDefault.Name = "rbConnDefault"
Me.rbConnDefault.TabStop = True
Me.rbConnDefault.UseVisualStyleBackColor = True
'
'chkbxUserAut
'
resources.ApplyResources(Me.chkbxUserAut, "chkbxUserAut")
@@ -439,6 +400,9 @@ Partial Class frmConfig_Basic
'
'TabPage4
'
Me.TabPage4.Controls.Add(Me.Label6)
Me.TabPage4.Controls.Add(Me.Button4)
Me.TabPage4.Controls.Add(Me.txtCreateWMFolder)
Me.TabPage4.Controls.Add(Me.GroupBox2)
Me.TabPage4.Controls.Add(Me.btncheckWDFolderexists)
Me.TabPage4.Controls.Add(Me.txtwdFolder)
@@ -449,8 +413,6 @@ Partial Class frmConfig_Basic
'
'GroupBox2
'
Me.GroupBox2.Controls.Add(Me.Button7)
Me.GroupBox2.Controls.Add(Me.RadioButton3)
Me.GroupBox2.Controls.Add(Me.rbGruppe)
Me.GroupBox2.Controls.Add(Me.rbUser)
Me.GroupBox2.Controls.Add(Me.txtObjectExists)
@@ -459,19 +421,6 @@ Partial Class frmConfig_Basic
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.TabStop = False
'
'Button7
'
resources.ApplyResources(Me.Button7, "Button7")
Me.Button7.Name = "Button7"
Me.Button7.UseVisualStyleBackColor = True
'
'RadioButton3
'
resources.ApplyResources(Me.RadioButton3, "RadioButton3")
Me.RadioButton3.Name = "RadioButton3"
Me.RadioButton3.TabStop = True
Me.RadioButton3.UseVisualStyleBackColor = True
'
'rbGruppe
'
resources.ApplyResources(Me.rbGruppe, "rbGruppe")
@@ -513,6 +462,22 @@ Partial Class frmConfig_Basic
resources.ApplyResources(Me.Label12, "Label12")
Me.Label12.Name = "Label12"
'
'Button4
'
resources.ApplyResources(Me.Button4, "Button4")
Me.Button4.Name = "Button4"
Me.Button4.UseVisualStyleBackColor = True
'
'txtCreateWMFolder
'
resources.ApplyResources(Me.txtCreateWMFolder, "txtCreateWMFolder")
Me.txtCreateWMFolder.Name = "txtCreateWMFolder"
'
'Label6
'
resources.ApplyResources(Me.Label6, "Label6")
Me.Label6.Name = "Label6"
'
'frmConfig_Basic
'
resources.ApplyResources(Me, "$this")
@@ -581,11 +546,6 @@ Partial Class frmConfig_Basic
Friend WithEvents Label10 As System.Windows.Forms.Label
Friend WithEvents txtTask_Popup As System.Windows.Forms.TextBox
Friend WithEvents chkSubfolder As System.Windows.Forms.CheckBox
Friend WithEvents rbConn_Proxy As System.Windows.Forms.RadioButton
Friend WithEvents rbConnDefault As System.Windows.Forms.RadioButton
Friend WithEvents btndeleteProxy As System.Windows.Forms.Button
Friend WithEvents lblLinkedServer As System.Windows.Forms.Label
Friend WithEvents txtLinkedServer As System.Windows.Forms.TextBox
Friend WithEvents TabPage4 As System.Windows.Forms.TabPage
Friend WithEvents btncheckWDFolderexists As System.Windows.Forms.Button
Friend WithEvents txtwdFolder As System.Windows.Forms.TextBox
@@ -594,11 +554,12 @@ Partial Class frmConfig_Basic
Friend WithEvents Button5 As Button
Friend WithEvents cmbDesign As ComboBox
Friend WithEvents GroupBox2 As GroupBox
Friend WithEvents RadioButton3 As RadioButton
Friend WithEvents rbGruppe As RadioButton
Friend WithEvents rbUser As RadioButton
Friend WithEvents txtObjectExists As TextBox
Friend WithEvents Button6 As Button
Friend WithEvents Button7 As Button
Friend WithEvents CheckBox2 As CheckBox
Friend WithEvents Label6 As Label
Friend WithEvents Button4 As Button
Friend WithEvents txtCreateWMFolder As TextBox
End Class

335
app/DD-Record-Organizer/frmConfig_Basic.resx
View File

@@ -118,176 +118,16 @@
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="lblLinkedServer.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="lblLinkedServer.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="lblLinkedServer.Location" type="System.Drawing.Point, System.Drawing">
<value>6, 168</value>
</data>
<data name="lblLinkedServer.Size" type="System.Drawing.Size, System.Drawing">
<value>117, 13</value>
</data>
<data name="lblLinkedServer.TabIndex" type="System.Int32, mscorlib">
<value>52</value>
</data>
<data name="lblLinkedServer.Text" xml:space="preserve">
<value>Name/IP Proxy-Server:</value>
</data>
<data name="lblLinkedServer.Visible" type="System.Boolean, mscorlib">
<value>False</value>
</data>
<data name="&gt;&gt;lblLinkedServer.Name" xml:space="preserve">
<value>lblLinkedServer</value>
</data>
<data name="&gt;&gt;lblLinkedServer.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;lblLinkedServer.Parent" xml:space="preserve">
<value>TabPage1</value>
</data>
<data name="&gt;&gt;lblLinkedServer.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="txtLinkedServer.Location" type="System.Drawing.Point, System.Drawing">
<value>9, 184</value>
</data>
<data name="txtLinkedServer.Size" type="System.Drawing.Size, System.Drawing">
<value>288, 22</value>
</data>
<data name="txtLinkedServer.TabIndex" type="System.Int32, mscorlib">
<value>51</value>
</data>
<data name="txtLinkedServer.Visible" type="System.Boolean, mscorlib">
<value>False</value>
</data>
<data name="&gt;&gt;txtLinkedServer.Name" xml:space="preserve">
<value>txtLinkedServer</value>
</data>
<data name="&gt;&gt;txtLinkedServer.Type" xml:space="preserve">
<value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;txtLinkedServer.Parent" xml:space="preserve">
<value>TabPage1</value>
</data>
<data name="&gt;&gt;txtLinkedServer.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="btndeleteProxy.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGOfPtRkwAAACBjSFJNAAB6
JQAAgIMAAPn/AACA6QAAdTAAAOpgAAA6mAAAF2+SX8VGAAAACXBIWXMAAAsQAAALEAGtI711AAACLUlE
QVQ4T52TvY/ScBjHuVIRKHA9JAgnL+VoC7TX0kLLS6EvFBTa0uj5J7gYF+PsfpOTMrg4ORgHY+LCYJwc
TYyJiYuDLu7GxHgxd/Hnr5fA8TZcrsmnzfN9nufTNPnVBwDw2ZYljGzr3ciyTNu2EC87L75eb+DvD67f
hU9g9vt/HNs5cMaOf9Owohro7YNbe8PhjfuzzBOgkDuabk6bbRXoxuBkNLIeus6yhKyIwY5umo5tHxmG
+Wwu8G5QkIa0jN5gqnR1oOkGuOk6b1x3jHl9uaWGhpb1UtXNY1luPmJ4KbIkmAElAcgD3egfa5oJxq77
oq3ovKJoE7XbBbwoTWhG2F7cWRJ4dFR1S9fNCvykT41mB9TqjSOxXvtJM9zrYokLrc4vFYtUBcngq9Lf
tqICvlr7RhQr8U1za4FHXZIIurT/mePFf1AEJLkFGJb7uml2LRBrcp4us1+g4KRcYV8lkmkplyenglgH
VIm9tzq/VJRZLpUlih9yBQrAt79Pp3bjkVgM244nsPwe/VQQ6r8pRsgu7pwtC61grkA/T10r/NrnxB8s
V2VmvQiOB0MhLMZVxY/pDPEkU6DnZ2Qu2M0STjJFAIpmAUmXD0NY9PQMzEBRPwJzkiSp71F8J1/ipNMj
f9rE8XggkUgexq9cBXmi+DYYjtCRGL72T+D4jr/RaE+waFgu8c0zgUcmT9UuBS4/9m0hmh9Fo7N8FXih
CIKE5/Vi8yJsDM8P8P0HLGwR4Wl3ICYAAAAASUVORK5CYII=
</value>
</data>
<data name="btndeleteProxy.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleLeft</value>
</data>
<data name="btndeleteProxy.Location" type="System.Drawing.Point, System.Drawing">
<value>559, 141</value>
</data>
<data name="btndeleteProxy.Size" type="System.Drawing.Size, System.Drawing">
<value>97, 23</value>
</data>
<data name="btndeleteProxy.TabIndex" type="System.Int32, mscorlib">
<value>50</value>
</data>
<data name="btndeleteProxy.Text" xml:space="preserve">
<value>Lösche Proxy</value>
</data>
<data name="btndeleteProxy.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleRight</value>
</data>
<data name="btndeleteProxy.Visible" type="System.Boolean, mscorlib">
<value>False</value>
</data>
<data name="&gt;&gt;btndeleteProxy.Name" xml:space="preserve">
<value>btndeleteProxy</value>
</data>
<data name="&gt;&gt;btndeleteProxy.Type" xml:space="preserve">
<value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;btndeleteProxy.Parent" xml:space="preserve">
<value>TabPage1</value>
</data>
<data name="&gt;&gt;btndeleteProxy.ZOrder" xml:space="preserve">
<value>2</value>
</data>
<data name="rbConn_Proxy.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="rbConn_Proxy.Location" type="System.Drawing.Point, System.Drawing">
<value>141, 6</value>
</data>
<data name="rbConn_Proxy.Size" type="System.Drawing.Size, System.Drawing">
<value>115, 17</value>
</data>
<data name="rbConn_Proxy.TabIndex" type="System.Int32, mscorlib">
<value>49</value>
</data>
<data name="rbConn_Proxy.Text" xml:space="preserve">
<value>Proxy Connection</value>
</data>
<data name="&gt;&gt;rbConn_Proxy.Name" xml:space="preserve">
<value>rbConn_Proxy</value>
</data>
<data name="&gt;&gt;rbConn_Proxy.Type" xml:space="preserve">
<value>System.Windows.Forms.RadioButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;rbConn_Proxy.Parent" xml:space="preserve">
<value>TabPage1</value>
</data>
<data name="&gt;&gt;rbConn_Proxy.ZOrder" xml:space="preserve">
<value>3</value>
</data>
<data name="rbConnDefault.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="rbConnDefault.Location" type="System.Drawing.Point, System.Drawing">
<value>9, 6</value>
</data>
<data name="rbConnDefault.Size" type="System.Drawing.Size, System.Drawing">
<value>126, 17</value>
</data>
<data name="rbConnDefault.TabIndex" type="System.Int32, mscorlib">
<value>48</value>
</data>
<data name="rbConnDefault.Text" xml:space="preserve">
<value>Default Connection</value>
</data>
<data name="&gt;&gt;rbConnDefault.Name" xml:space="preserve">
<value>rbConnDefault</value>
</data>
<data name="&gt;&gt;rbConnDefault.Type" xml:space="preserve">
<value>System.Windows.Forms.RadioButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;rbConnDefault.Parent" xml:space="preserve">
<value>TabPage1</value>
</data>
<data name="&gt;&gt;rbConnDefault.ZOrder" xml:space="preserve">
<value>4</value>
</data>
<data name="chkbxUserAut.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="chkbxUserAut.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="chkbxUserAut.Location" type="System.Drawing.Point, System.Drawing">
<value>511, 48</value>
<value>511, 34</value>
</data>
<data name="chkbxUserAut.Size" type="System.Drawing.Size, System.Drawing">
<value>170, 17</value>
@@ -308,7 +148,7 @@
<value>TabPage1</value>
</data>
<data name="&gt;&gt;chkbxUserAut.ZOrder" xml:space="preserve">
<value>5</value>
<value>0</value>
</data>
<data name="Label5.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
@@ -317,7 +157,7 @@
<value>NoControl</value>
</data>
<data name="Label5.Location" type="System.Drawing.Point, System.Drawing">
<value>6, 127</value>
<value>6, 113</value>
</data>
<data name="Label5.Size" type="System.Drawing.Size, System.Drawing">
<value>150, 13</value>
@@ -338,10 +178,10 @@
<value>TabPage1</value>
</data>
<data name="&gt;&gt;Label5.ZOrder" xml:space="preserve">
<value>6</value>
<value>1</value>
</data>
<data name="cmbDatenbank.Location" type="System.Drawing.Point, System.Drawing">
<value>9, 94</value>
<value>9, 80</value>
</data>
<data name="cmbDatenbank.Size" type="System.Drawing.Size, System.Drawing">
<value>288, 21</value>
@@ -359,7 +199,7 @@
<value>TabPage1</value>
</data>
<data name="&gt;&gt;cmbDatenbank.ZOrder" xml:space="preserve">
<value>7</value>
<value>2</value>
</data>
<data name="Label4.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
@@ -368,7 +208,7 @@
<value>NoControl</value>
</data>
<data name="Label4.Location" type="System.Drawing.Point, System.Drawing">
<value>6, 74</value>
<value>6, 60</value>
</data>
<data name="Label4.Size" type="System.Drawing.Size, System.Drawing">
<value>67, 13</value>
@@ -389,7 +229,7 @@
<value>TabPage1</value>
</data>
<data name="&gt;&gt;Label4.ZOrder" xml:space="preserve">
<value>8</value>
<value>3</value>
</data>
<data name="Label1.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
@@ -398,7 +238,7 @@
<value>NoControl</value>
</data>
<data name="Label1.Location" type="System.Drawing.Point, System.Drawing">
<value>6, 26</value>
<value>6, 12</value>
</data>
<data name="Label1.Size" type="System.Drawing.Size, System.Drawing">
<value>74, 13</value>
@@ -419,7 +259,7 @@
<value>TabPage1</value>
</data>
<data name="&gt;&gt;Label1.ZOrder" xml:space="preserve">
<value>9</value>
<value>4</value>
</data>
<data name="Label2.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
@@ -428,7 +268,7 @@
<value>NoControl</value>
</data>
<data name="Label2.Location" type="System.Drawing.Point, System.Drawing">
<value>300, 26</value>
<value>300, 12</value>
</data>
<data name="Label2.Size" type="System.Drawing.Size, System.Drawing">
<value>83, 13</value>
@@ -449,7 +289,7 @@
<value>TabPage1</value>
</data>
<data name="&gt;&gt;Label2.ZOrder" xml:space="preserve">
<value>10</value>
<value>5</value>
</data>
<data name="Label3.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
@@ -458,7 +298,7 @@
<value>NoControl</value>
</data>
<data name="Label3.Location" type="System.Drawing.Point, System.Drawing">
<value>424, 26</value>
<value>424, 12</value>
</data>
<data name="Label3.Size" type="System.Drawing.Size, System.Drawing">
<value>56, 13</value>
@@ -479,13 +319,13 @@
<value>TabPage1</value>
</data>
<data name="&gt;&gt;Label3.ZOrder" xml:space="preserve">
<value>11</value>
<value>6</value>
</data>
<data name="txtActualConnection.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left, Right</value>
</data>
<data name="txtActualConnection.Location" type="System.Drawing.Point, System.Drawing">
<value>9, 143</value>
<value>9, 129</value>
</data>
<data name="txtActualConnection.Size" type="System.Drawing.Size, System.Drawing">
<value>547, 22</value>
@@ -503,10 +343,10 @@
<value>TabPage1</value>
</data>
<data name="&gt;&gt;txtActualConnection.ZOrder" xml:space="preserve">
<value>12</value>
<value>7</value>
</data>
<data name="txtServer.Location" type="System.Drawing.Point, System.Drawing">
<value>9, 46</value>
<value>9, 32</value>
</data>
<data name="txtServer.Size" type="System.Drawing.Size, System.Drawing">
<value>288, 22</value>
@@ -524,10 +364,10 @@
<value>TabPage1</value>
</data>
<data name="&gt;&gt;txtServer.ZOrder" xml:space="preserve">
<value>13</value>
<value>8</value>
</data>
<data name="txtUser.Location" type="System.Drawing.Point, System.Drawing">
<value>303, 46</value>
<value>303, 32</value>
</data>
<data name="txtUser.Size" type="System.Drawing.Size, System.Drawing">
<value>118, 22</value>
@@ -545,10 +385,10 @@
<value>TabPage1</value>
</data>
<data name="&gt;&gt;txtUser.ZOrder" xml:space="preserve">
<value>14</value>
<value>9</value>
</data>
<data name="txtPasswort.Location" type="System.Drawing.Point, System.Drawing">
<value>427, 46</value>
<value>427, 32</value>
</data>
<data name="txtPasswort.Size" type="System.Drawing.Size, System.Drawing">
<value>64, 22</value>
@@ -566,7 +406,7 @@
<value>TabPage1</value>
</data>
<data name="&gt;&gt;txtPasswort.ZOrder" xml:space="preserve">
<value>15</value>
<value>10</value>
</data>
<data name="BtnConnect.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleLeft</value>
@@ -575,7 +415,7 @@
<value>NoControl</value>
</data>
<data name="BtnConnect.Location" type="System.Drawing.Point, System.Drawing">
<value>303, 90</value>
<value>303, 76</value>
</data>
<data name="BtnConnect.Size" type="System.Drawing.Size, System.Drawing">
<value>253, 25</value>
@@ -599,7 +439,7 @@
<value>TabPage1</value>
</data>
<data name="&gt;&gt;BtnConnect.ZOrder" xml:space="preserve">
<value>16</value>
<value>11</value>
</data>
<data name="TabPage1.Location" type="System.Drawing.Point, System.Drawing">
<value>4, 22</value>
@@ -1494,63 +1334,84 @@ in Hauptform aufrufen</value>
<data name="&gt;&gt;TabPage3.ZOrder" xml:space="preserve">
<value>2</value>
</data>
<data name="Button7.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data>
<data name="Button7.Location" type="System.Drawing.Point, System.Drawing">
<value>320, 71</value>
</data>
<data name="Button7.Size" type="System.Drawing.Size, System.Drawing">
<value>75, 23</value>
</data>
<data name="Button7.TabIndex" type="System.Int32, mscorlib">
<value>9</value>
</data>
<data name="Button7.Text" xml:space="preserve">
<value>GetObject</value>
</data>
<data name="&gt;&gt;Button7.Name" xml:space="preserve">
<value>Button7</value>
</data>
<data name="&gt;&gt;Button7.Type" xml:space="preserve">
<value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Button7.Parent" xml:space="preserve">
<value>GroupBox2</value>
</data>
<data name="&gt;&gt;Button7.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="RadioButton3.AutoSize" type="System.Boolean, mscorlib">
<data name="Label6.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="RadioButton3.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<data name="Label6.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data>
<data name="RadioButton3.Location" type="System.Drawing.Point, System.Drawing">
<value>217, 24</value>
<data name="Label6.Location" type="System.Drawing.Point, System.Drawing">
<value>19, 153</value>
</data>
<data name="RadioButton3.Size" type="System.Drawing.Size, System.Drawing">
<value>96, 17</value>
<data name="Label6.Size" type="System.Drawing.Size, System.Drawing">
<value>97, 13</value>
</data>
<data name="RadioButton3.TabIndex" type="System.Int32, mscorlib">
<data name="Label6.TabIndex" type="System.Int32, mscorlib">
<value>9</value>
</data>
<data name="Label6.Text" xml:space="preserve">
<value>Create WMFolder</value>
</data>
<data name="&gt;&gt;Label6.Name" xml:space="preserve">
<value>Label6</value>
</data>
<data name="&gt;&gt;Label6.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Label6.Parent" xml:space="preserve">
<value>TabPage4</value>
</data>
<data name="&gt;&gt;Label6.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="Button4.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data>
<data name="Button4.Location" type="System.Drawing.Point, System.Drawing">
<value>466, 169</value>
</data>
<data name="Button4.Size" type="System.Drawing.Size, System.Drawing">
<value>75, 23</value>
</data>
<data name="Button4.TabIndex" type="System.Int32, mscorlib">
<value>8</value>
</data>
<data name="RadioButton3.Text" xml:space="preserve">
<value>RadioButton3</value>
<data name="Button4.Text" xml:space="preserve">
<value>Create</value>
</data>
<data name="&gt;&gt;RadioButton3.Name" xml:space="preserve">
<value>RadioButton3</value>
<data name="&gt;&gt;Button4.Name" xml:space="preserve">
<value>Button4</value>
</data>
<data name="&gt;&gt;RadioButton3.Type" xml:space="preserve">
<value>System.Windows.Forms.RadioButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
<data name="&gt;&gt;Button4.Type" xml:space="preserve">
<value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;RadioButton3.Parent" xml:space="preserve">
<value>GroupBox2</value>
<data name="&gt;&gt;Button4.Parent" xml:space="preserve">
<value>TabPage4</value>
</data>
<data name="&gt;&gt;RadioButton3.ZOrder" xml:space="preserve">
<data name="&gt;&gt;Button4.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="txtCreateWMFolder.Location" type="System.Drawing.Point, System.Drawing">
<value>22, 171</value>
</data>
<data name="txtCreateWMFolder.Size" type="System.Drawing.Size, System.Drawing">
<value>438, 22</value>
</data>
<data name="txtCreateWMFolder.TabIndex" type="System.Int32, mscorlib">
<value>7</value>
</data>
<data name="&gt;&gt;txtCreateWMFolder.Name" xml:space="preserve">
<value>txtCreateWMFolder</value>
</data>
<data name="&gt;&gt;txtCreateWMFolder.Type" xml:space="preserve">
<value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;txtCreateWMFolder.Parent" xml:space="preserve">
<value>TabPage4</value>
</data>
<data name="&gt;&gt;txtCreateWMFolder.ZOrder" xml:space="preserve">
<value>2</value>
</data>
<data name="rbGruppe.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
@@ -1579,7 +1440,7 @@ in Hauptform aufrufen</value>
<value>GroupBox2</value>
</data>
<data name="&gt;&gt;rbGruppe.ZOrder" xml:space="preserve">
<value>2</value>
<value>0</value>
</data>
<data name="rbUser.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
@@ -1606,7 +1467,7 @@ in Hauptform aufrufen</value>
<value>GroupBox2</value>
</data>
<data name="&gt;&gt;rbUser.ZOrder" xml:space="preserve">
<value>3</value>
<value>1</value>
</data>
<data name="txtObjectExists.Location" type="System.Drawing.Point, System.Drawing">
<value>6, 47</value>
@@ -1627,7 +1488,7 @@ in Hauptform aufrufen</value>
<value>GroupBox2</value>
</data>
<data name="&gt;&gt;txtObjectExists.ZOrder" xml:space="preserve">
<value>4</value>
<value>2</value>
</data>
<data name="Button6.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
@@ -1654,7 +1515,7 @@ in Hauptform aufrufen</value>
<value>GroupBox2</value>
</data>
<data name="&gt;&gt;Button6.ZOrder" xml:space="preserve">
<value>5</value>
<value>3</value>
</data>
<data name="GroupBox2.Location" type="System.Drawing.Point, System.Drawing">
<value>22, 47</value>
@@ -1678,7 +1539,7 @@ in Hauptform aufrufen</value>
<value>TabPage4</value>
</data>
<data name="&gt;&gt;GroupBox2.ZOrder" xml:space="preserve">
<value>0</value>
<value>3</value>
</data>
<data name="btncheckWDFolderexists.Location" type="System.Drawing.Point, System.Drawing">
<value>466, 19</value>
@@ -1702,7 +1563,7 @@ in Hauptform aufrufen</value>
<value>TabPage4</value>
</data>
<data name="&gt;&gt;btncheckWDFolderexists.ZOrder" xml:space="preserve">
<value>1</value>
<value>4</value>
</data>
<data name="txtwdFolder.Location" type="System.Drawing.Point, System.Drawing">
<value>22, 19</value>
@@ -1723,7 +1584,7 @@ in Hauptform aufrufen</value>
<value>TabPage4</value>
</data>
<data name="&gt;&gt;txtwdFolder.ZOrder" xml:space="preserve">
<value>2</value>
<value>5</value>
</data>
<data name="Label12.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
@@ -1750,7 +1611,7 @@ in Hauptform aufrufen</value>
<value>TabPage4</value>
</data>
<data name="&gt;&gt;Label12.ZOrder" xml:space="preserve">
<value>3</value>
<value>6</value>
</data>
<data name="TabPage4.Location" type="System.Drawing.Point, System.Drawing">
<value>4, 22</value>

182
app/DD-Record-Organizer/frmConfig_Basic.vb
View File

@@ -1,10 +1,8 @@
Imports System.Threading
Imports System.Globalization
Imports DevExpress.LookAndFeel
Imports DD_LIB_Standards
Imports System.IO
Imports DevExpress.XtraCharts.Native
Imports DigitalData.Modules.Database
Imports Microsoft.Office.Interop.Word
Public Class frmConfig_Basic
Private _Helper As New ClassHelper
@@ -35,14 +33,11 @@ Public Class frmConfig_Basic
If result = MsgBoxResult.Yes Then
CONNECTION_CHANGED = True
'Set the construction string
If rbConnDefault.Checked Then
MyConnectionString = con
MYDB_ECM = New MSSQLServer(LOGCONFIG, MyConnectionString)
Else
ClassProxy.MyPROXYConnectionString = con
clsDatabase.Init(MyConnectionString, True)
End If
MyConnectionString = con
MYDB_ECM = New MSSQLServer(LOGCONFIG, MyConnectionString)
My.Settings.Save()
If chkbxUserAut.Checked = False Then
@@ -51,13 +46,10 @@ Public Class frmConfig_Basic
Dim pw As String = cipherText
con = "Server=" & Me.txtServer.Text & ";Database=" & Me.cmbDatenbank.Text & ";User Id=" & Me.txtUser.Text & ";Password=" & pw & ";"
End If
If rbConnDefault.Checked Then
CONFIG.Config.ConnectionString = con
CONFIG.Save(ForceAll:=True)
' SaveMySettingsValue("MyConnectionString", con, "ConfigMain")
Else
SaveMySettingsValue("MyProxyConnectionString", con, "ConfigMain")
End If
CONFIG.Config.ConnectionString = con
CONFIG.Save(ForceAll:=True)
' SaveMySettingsValue("MyConnectionString", con, "ConfigMain")
Dim csb As New SqlClient.SqlConnectionStringBuilder
csb.ConnectionString = MYDB_ECM.CurrentConnectionString
Dim constr = connection.ConnectionString
@@ -117,11 +109,7 @@ Public Class frmConfig_Basic
End Sub
Private Sub frmConfig_Basic_Load(sender As Object, e As EventArgs) Handles MyBase.Load
_Helper = New ClassHelper
If LICENSE_PROXY = True Then
Me.rbConn_Proxy.Visible = True
Else
Me.rbConn_Proxy.Visible = False
End If
If Not MyConnectionString = String.Empty Then
CONNECTION_CHANGED = False
'Try
@@ -151,12 +139,12 @@ Public Class frmConfig_Basic
Dim sql As String = "SELECT 0,'' UNION ALL SELECT T.GUID, T.FORM_TITLE FROM TBPMO_FORM_CONSTRUCTOR T"
Dim DT As DataTable = MYDB_ECM.GetDatatable(sql)
If DT.Rows.Count > 0 Then
Dim oDT As Data.DataTable = MYDB_ECM.GetDatatable(sql)
If oDT.Rows.Count > 0 Then
cmbConstructor.Enabled = True
cmbConstructor.DataSource = DT
cmbConstructor.DisplayMember = DT.Columns(1).ColumnName
cmbConstructor.ValueMember = DT.Columns(0).ColumnName
cmbConstructor.DataSource = oDT
cmbConstructor.DisplayMember = oDT.Columns(1).ColumnName
cmbConstructor.ValueMember = oDT.Columns(0).ColumnName
If Sett_ConstructorStart <> 0 Then
cmbConstructor.SelectedValue = Sett_ConstructorStart
End If
@@ -189,7 +177,7 @@ Public Class frmConfig_Basic
End Sub
Private Sub btnApplicationFolder_Click(sender As Object, e As EventArgs) Handles btnApplicationFolder.Click
Process.Start(Application.UserAppDataPath())
Process.Start(System.Windows.Forms.Application.UserAppDataPath())
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
@@ -200,7 +188,6 @@ Public Class frmConfig_Basic
Private Sub chkLogErrorsOnly_CheckedChanged(sender As Object, e As EventArgs) Handles chkLogErrorsOnly.CheckedChanged
DEBUG = chkLogErrorsOnly.Checked
SaveMySettingsValue("LogErrorsOnly", DEBUG, "ConfigMain")
clsCURRENT.LOG_ERRORS_ONLY = DEBUG
LOGCONFIG.Debug = DEBUG
End Sub
@@ -227,7 +214,7 @@ Public Class frmConfig_Basic
Case 1
cmbLanguage.SelectedIndex = cmbLanguage.FindStringExact(USER_LANGUAGE)
Case 2
Dim DTSCAN_folderwatch As DataTable = MYDB_ECM.GetDatatable("SELECT FOLDER_PATH,SUBDIRECTORIES FROM TBPMO_FOLDERWATCH_USER WHERE FOLDER_TYPE = 'SCAN' AND USER_ID = " & USER_GUID)
Dim DTSCAN_folderwatch As Data.DataTable = MYDB_ECM.GetDatatable("SELECT FOLDER_PATH,SUBDIRECTORIES FROM TBPMO_FOLDERWATCH_USER WHERE FOLDER_TYPE = 'SCAN' AND USER_ID = " & USER_GUID)
If Not DTSCAN_folderwatch Is Nothing Then
If DTSCAN_folderwatch.Rows.Count = 1 Then
CURRENT_SCAN_FOLDERWATCH = DTSCAN_folderwatch.Rows(0).Item(0)
@@ -301,14 +288,14 @@ Public Class frmConfig_Basic
End If
Dim folderwatch = MYDB_ECM.GetScalarValue("SELECT GUID FROM TBPMO_FOLDERWATCH_USER WHERE USER_ID = " & USER_GUID & " AND FOLDER_TYPE = 'SCAN'")
Dim sql As String
Dim oSql As String
If folderwatch Is Nothing And mypath <> "" Then
sql = "INSERT INTO TBPMO_FOLDERWATCH_USER (USER_ID, FOLDER_PATH, FOLDER_TYPE,SUBDIRECTORIES, ADDED_WHO) VALUES (" & USER_GUID & ",'" & mypath & "','SCAN', " & _SUBDIRECTORIES & ",'" & USER_USERNAME & "')"
oSql = "INSERT INTO TBPMO_FOLDERWATCH_USER (USER_ID, FOLDER_PATH, FOLDER_TYPE,SUBDIRECTORIES, ADDED_WHO) VALUES (" & USER_GUID & ",'" & mypath & "','SCAN', " & _SUBDIRECTORIES & ",'" & USER_USERNAME & "')"
Else
sql = "UPDATE TBPMO_FOLDERWATCH_USER SET FOLDER_PATH = '" & mypath & "', SUBDIRECTORIES = " & _SUBDIRECTORIES & ", CHANGED_WHO = '" & USER_USERNAME & "' where GUID = " & folderwatch
oSql = "UPDATE TBPMO_FOLDERWATCH_USER SET FOLDER_PATH = '" & mypath & "', SUBDIRECTORIES = " & _SUBDIRECTORIES & ", CHANGED_WHO = '" & USER_USERNAME & "' where GUID = " & folderwatch
End If
If MYDB_ECM.ExecuteNonQuery(sql) Then
Dim DT As DataTable = MYDB_ECM.GetDatatable("SELECT FOLDER_PATH, SUBDIRECTORIES FROM TBPMO_FOLDERWATCH_USER WHERE USER_ID = " & USER_GUID & " AND FOLDER_TYPE = 'SCAN'")
If MYDB_ECM.ExecuteNonQuery(oSql) Then
Dim DT As Data.DataTable = MYDB_ECM.GetDatatable("SELECT FOLDER_PATH, SUBDIRECTORIES FROM TBPMO_FOLDERWATCH_USER WHERE USER_ID = " & USER_GUID & " AND FOLDER_TYPE = 'SCAN'")
CURRENT_SCAN_FOLDERWATCH = DT.Rows(0).Item(0)
CURRENT_SCAN_FOLDERWATCH_SD = DT.Rows(0).Item(1)
@@ -439,23 +426,41 @@ Public Class frmConfig_Basic
End Sub
Private Sub rbConn_Proxy_CheckedChanged(sender As Object, e As EventArgs) Handles rbConn_Proxy.CheckedChanged
If rbConn_Proxy.Checked Then
Display_Proxy_String()
Me.lblLinkedServer.Visible = True
Me.txtLinkedServer.Visible = True
txtLinkedServer.Text = ClassProxy.MyLinkedServer
Else
Me.lblLinkedServer.Visible = False
Me.txtLinkedServer.Visible = False
End If
End Sub
Sub Display_Proxy_String()
If clsDatabase.DB_PROXY_INITIALIZED And ClassProxy.MyPROXYConnectionString <> String.Empty Then
Dim csb As New SqlClient.SqlConnectionStringBuilder
csb.ConnectionString = ClassProxy.MyPROXYConnectionString
Dim constr = ClassProxy.MyPROXYConnectionString
'Sub Display_Proxy_String()
' If clsDatabase.DB_PROXY_INITIALIZED And ClassProxy.MyPROXYConnectionString <> String.Empty Then
' Dim csb As New SqlClient.SqlConnectionStringBuilder
' csb.ConnectionString = ClassProxy.MyPROXYConnectionString
' Dim constr = ClassProxy.MyPROXYConnectionString
' If Not constr.Contains("Trusted") Then
' constr = constr.Replace(csb.Password, "XXXXX")
' txtUser.Text = csb.UserID
' chkbxUserAut.Checked = False
' Else
' chkbxUserAut.Checked = True
' End If
' Try
' txtServer.Text = csb.DataSource
' cmbDatenbank.Text = csb.InitialCatalog
' Catch ex As Exception
' End Try
' Me.txtActualConnection.Text = constr
' btndeleteProxy.Visible = True
' Else
' Me.txtActualConnection.Text = ""
' btndeleteProxy.Visible = False
' End If
'End Sub
Private Sub rbConnDefault_CheckedChanged(sender As Object, e As EventArgs)
If MyConnectionString <> String.Empty Then
Dim csb As New SqlClient.SqlConnectionStringBuilder
csb.ConnectionString = MYDB_ECM.CurrentConnectionString
Dim constr = MYDB_ECM.CurrentConnectionString
If Not constr.Contains("Trusted") Then
constr = constr.Replace(csb.Password, "XXXXX")
txtUser.Text = csb.UserID
@@ -472,57 +477,15 @@ Public Class frmConfig_Basic
End Try
Me.txtActualConnection.Text = constr
btndeleteProxy.Visible = True
Else
Me.txtActualConnection.Text = ""
btndeleteProxy.Visible = False
End If
End Sub
Private Sub rbConnDefault_CheckedChanged(sender As Object, e As EventArgs) Handles rbConnDefault.CheckedChanged
If rbConnDefault.Checked Then
If MyConnectionString <> String.Empty Then
Dim csb As New SqlClient.SqlConnectionStringBuilder
csb.ConnectionString = MYDB_ECM.CurrentConnectionString
Dim constr = MYDB_ECM.CurrentConnectionString
If Not constr.Contains("Trusted") Then
constr = constr.Replace(csb.Password, "XXXXX")
txtUser.Text = csb.UserID
chkbxUserAut.Checked = False
Else
chkbxUserAut.Checked = True
End If
Try
txtServer.Text = csb.DataSource
cmbDatenbank.Text = csb.InitialCatalog
Catch ex As Exception
End Try
Me.txtActualConnection.Text = constr
End If
End If
End Sub
Private Sub btndeleteProxy_Click(sender As Object, e As EventArgs) Handles btndeleteProxy.Click
SaveMySettingsValue("MyProxyConnectionString", "", "ConfigMain")
ClassProxy.MyPROXYConnectionString = ""
clsDatabase.DB_PROXY_INITIALIZED = False
Me.txtActualConnection.Text = ""
CONNECTION_CHANGED = True
End Sub
Private Sub txtLinkedServer_Leave(sender As Object, e As EventArgs) Handles txtLinkedServer.Leave
SaveMySettingsValue("MyLinkedServer", txtLinkedServer.Text, "ConfigMain")
ClassProxy.MyLinkedServer = txtLinkedServer.Text
End Sub
Private Sub btncheckWDFolderexists_Click(sender As Object, e As EventArgs) Handles btncheckWDFolderexists.Click
If txtwdFolder.Text <> String.Empty And clsWindream.SESSION_CREATED = True Then
Dim folderpath = _Helper.FORMAT_WM_PATH(txtwdFolder.Text)
If txtwdFolder.Text <> String.Empty And WMMOD.SessionLoggedin Then
Dim folderpath = txtwdFolder.Text '_Helper.FORMAT_WM_PATH(txtwdFolder.Text)
If clsWD_GET.WD_PATH_EXISTS(folderpath) Then
If WMMOD.TestFolderExists(folderpath) Then
MsgBox("Folder exists in windream!")
Else
MsgBox("Folder is not existing in windream!", MsgBoxStyle.Critical)
@@ -545,9 +508,9 @@ Public Class frmConfig_Basic
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
Dim oExists = False
If rbUser.Checked Then
oExists = clsWD_GET.WM_USER_EXISTS(txtObjectExists.Text)
oExists = WMMOD.TestUserExists(txtObjectExists.Text)
ElseIf rbGruppe.Checked Then
oExists = clsWD_GET.WM_GROUP_EXISTS(txtObjectExists.Text)
oExists = WMMOD.TestGroupExists(txtObjectExists.Text)
End If
If oExists = True Then
MsgBox("Object exists in windream!")
@@ -556,15 +519,7 @@ Public Class frmConfig_Basic
End If
End Sub
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
Dim group
If rbGruppe.Checked Then
group = clsWD_GET.GET_WM_GROUP_OBJECT(txtObjectExists.Text)
If Not IsNothing(group) Then
MsgBox("GROUP.NAME: " & group.aname)
End If
End If
End Sub
Private Sub CheckBoxGridDocResult_BestFitColumns_CheckedChanged(sender As Object, e As EventArgs)
If formloaded = False Then Exit Sub
@@ -575,4 +530,17 @@ Public Class frmConfig_Basic
Private Sub frmConfig_Basic_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
My.Settings.Save()
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
If txtCreateWMFolder.Text <> String.Empty And WMMOD.SessionLoggedin Then
Dim folderpath = txtCreateWMFolder.Text
If WMMOD.NewFolder(folderpath) Then
MsgBox("Folder Created in windream!")
Else
MsgBox("Folder could not be created!", MsgBoxStyle.Critical)
End If
End If
End Sub
End Class

306
app/DD-Record-Organizer/frmConstructor_Main.vb
View File

@@ -9,11 +9,11 @@ Imports DevExpress.XtraScheduler
Imports System.Text
Imports System.IO
Imports WINDREAMLib
'Imports WINDREAMLib
Imports System.Runtime.InteropServices
Imports DD_Rights
Imports DD_LIB_Standards
Imports DevExpress.LookAndFeel
'Imports DD_Rights
'Imports DD_LIB_Standards
'Imports DevExpress.LookAndFeel
Imports System.ComponentModel
Imports System.Threading
Imports DevExpress.XtraTreeList
@@ -312,10 +312,10 @@ Public Class frmConstructor_Main
FormDesignerToolStripMenuItem.Visible = False
End If
If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
SQL = "SELECT * FROM TBPROXY_SYNC_ENTITY"
DT_PROXY_ENTITY = MYDB_ECM.GetDatatable(SQL)
End If
'If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
' SQL = "SELECT * FROM TBPROXY_SYNC_ENTITY"
' DT_PROXY_ENTITY = MYDB_ECM.GetDatatable(SQL)
'End If
ClassWindowLocation.LoadFormLocationSize(Me, CONSTRUCTORID, CURRENT_SCREEN_ID, "CONSTRUCTOR_MAIN")
' VWPMO_WF_USER_ACTIVETableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
@@ -328,37 +328,37 @@ Public Class frmConstructor_Main
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, "Error in Loading Form part 1")
End Try
Try
If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
If DT_VWPMO_CONSTRUCTOR_FORMS.Rows.Count = 0 Then
ClassHelper.MSGBOX_Handler("ERROR", "Missing Proxy-Configuration", String.Format("Attention: You are using Proxy-Server with synchronized data:" & vbNewLine &
"Actually there is no data for this view synchronized or configured! Please inform Digital Data!" & vbNewLine &
"View will now be terminated!"))
ERROR_FORM_LOAD = True
Exit Sub
Else
Dim Entity_Exists As Boolean = False
Dim Entity_Name As String
For Each Constr_row As DataRow In DT_VWPMO_CONSTRUCTOR_FORMS.Rows
Entity_Name = Constr_row.Item("FORM_TITLE")
Dim Constr_FORM = Constr_row.Item("FORM_ID")
ENTITY_ID = Constr_row.Item("FORM_ID")
CURRENT_ENTITY_ID = ENTITY_ID
Dim expression As String = String.Format("ENTITY_ID = {0}", Constr_FORM)
Dim matchingRows() As DataRow = DT_PROXY_ENTITY.Select(expression)
'Prüfen ob Form in Config Proxy vorhanden
For Each matchingRow As DataRow In matchingRows
Entity_Exists = True
Next
If Entity_Exists = False Then
ClassHelper.MSGBOX_Handler("ERROR", "Missing Proxy-Configuration", String.Format("Attention: You are using Proxy-Server with synchronized data:" &
"The entity '{0}' used in this view is not configured for Your proxy-server! Please inform Digital Data!" &
"View will now be terminated!", Entity_Name))
ERROR_FORM_LOAD = True
Exit Sub
End If
Next
End If
End If
'If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
' If DT_VWPMO_CONSTRUCTOR_FORMS.Rows.Count = 0 Then
' ClassHelper.MSGBOX_Handler("ERROR", "Missing Proxy-Configuration", String.Format("Attention: You are using Proxy-Server with synchronized data:" & vbNewLine &
' "Actually there is no data for this view synchronized or configured! Please inform Digital Data!" & vbNewLine &
' "View will now be terminated!"))
' ERROR_FORM_LOAD = True
' Exit Sub
' Else
' Dim Entity_Exists As Boolean = False
' Dim Entity_Name As String
' For Each Constr_row As DataRow In DT_VWPMO_CONSTRUCTOR_FORMS.Rows
' Entity_Name = Constr_row.Item("FORM_TITLE")
' Dim Constr_FORM = Constr_row.Item("FORM_ID")
' ENTITY_ID = Constr_row.Item("FORM_ID")
' CURRENT_ENTITY_ID = ENTITY_ID
' Dim expression As String = String.Format("ENTITY_ID = {0}", Constr_FORM)
' Dim matchingRows() As DataRow = DT_PROXY_ENTITY.Select(expression)
' 'Prüfen ob Form in Config Proxy vorhanden
' For Each matchingRow As DataRow In matchingRows
' Entity_Exists = True
' Next
' If Entity_Exists = False Then
' ClassHelper.MSGBOX_Handler("ERROR", "Missing Proxy-Configuration", String.Format("Attention: You are using Proxy-Server with synchronized data:" &
' "The entity '{0}' used in this view is not configured for Your proxy-server! Please inform Digital Data!" &
' "View will now be terminated!", Entity_Name))
' ERROR_FORM_LOAD = True
' Exit Sub
' End If
' Next
' End If
'End If
CURRENT_DT_TBPMO_ENTITY_RIGHT_CONTROLS = MYDB_ECM.GetDatatable(String.Format("SELECT T.* FROM TBPMO_ENTITY_RIGHT_CONTROLS T INNER JOIN VWPMO_CONSTRUCTOR_FORMS T1 ON T.ENTITY_ID = T1.FORM_ID where T1.CONSTRUCT_ID = {0}", CONSTRUCTORID))
@@ -1417,7 +1417,7 @@ Public Class frmConstructor_Main
LOGGER.Debug($"NODES: StructureNodes-Count (asyn.newTreeviewc): {async.newTreeview.Nodes.Count}")
MyTreeview = async.newTreeview
Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error in Async NodeBuild", ex.Message & vbNewLine & "ADDI will try an alternative method!", ex.StackTrace)
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error in Async NodeBuild", ex.Message & vbNewLine & "orgFLOW will try an alternative method!", ex.StackTrace)
MyTreeview = ClassNodeNavigation.CreateTreeViewNodes(DT_TREEVIEW_NODES_ALL, TREEVIEW_IMAGELIST)
End Try
@@ -1919,7 +1919,7 @@ Public Class frmConstructor_Main
Private Sub tsButtonAdd_Click(sender As Object, e As EventArgs) Handles tsButtonAdd.Click
If USER_PERSONIFIED_TEST = True Then
ClassHelper.MSGBOX_Handler("INFO", "Attention", "You are using ADDI in personified mode! Adding records is not allowed!")
ClassHelper.MSGBOX_Handler("INFO", "Attention", "You are using orgFLOW in personified mode! Adding records is not allowed!")
Exit Sub
End If
'If ClassProxy.IS_PROXY_BUSY = True Then
@@ -1987,12 +1987,12 @@ Public Class frmConstructor_Main
CURRENT_RECORD_ID = NEW_RECORD_ID
RECORD_ID = NEW_RECORD_ID
SELECTED_RECORD_ID = NEW_RECORD_ID
ClassProxy.PRPROXY_RECORD_UPD_INS(ENTITY_ID, SELECTED_RECORD_ID)
If PARENT_ENTITYID > 0 And PARENT_RECORDID > 0 Then
If ClassRecordCommands.ConnectRecord(PARENT_RECORDID, CURRENT_RECORD_ID, "INSERT RECORD") = False Then
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "In Connecting Record - Check the log!")
Else
ClassProxy.PRPROXY_RECORD_CONNECT(PARENT_RECORDID, CURRENT_RECORD_ID)
'Else
' ClassProxy.PRPROXY_RECORD_CONNECT(PARENT_RECORDID, CURRENT_RECORD_ID)
End If
End If
@@ -2089,7 +2089,7 @@ Public Class frmConstructor_Main
ActivateAllTabs()
End If
ClassProxy.PRPROXY_RECORD_UPD_INS(CURRENT_ENTITY_ID, CURRENT_RECORD_ID)
'ClassProxy.PRPROXY_RECORD_UPD_INS(CURRENT_ENTITY_ID, CURRENT_RECORD_ID)
End If
Dim recid As Integer
@@ -2219,7 +2219,7 @@ Public Class frmConstructor_Main
Sub Delete_Record()
RECORD_ID = SELECTED_RECORD_ID
If USER_PERSONIFIED_TEST = True Then
ClassHelper.MSGBOX_Handler("INFO", "Attention", "You are using ADDI in personified mode! Deleting records is not allowed!")
ClassHelper.MSGBOX_Handler("INFO", "Attention", "You are using orgFLOW in personified mode! Deleting records is not allowed!")
Exit Sub
End If
'If ClassProxy.IS_PROXY_BUSY = True Then
@@ -3158,12 +3158,12 @@ Public Class frmConstructor_Main
'Die neue Record-ID setzen
RECORD_ID = GRP_SINGLE_REC
SELECTED_RECORD_ID = RECORD_ID
ClassProxy.PRPROXY_RECORD_UPD_INS(CURRENT_ENTITY_ID, SELECTED_RECORD_ID)
' ClassProxy.PRPROXY_RECORD_UPD_INS(CURRENT_ENTITY_ID, SELECTED_RECORD_ID)
If ClassRecordCommands.ConnectRecord(PARENT_RECORD_ID, RECORD_ID, "PARENT_LINK (Group/Single-Record) for Entity " & ENTITY_ID.ToString) = False Then
MsgBox("Unexpected Error in Connecting Record. Check log", MsgBoxStyle.Critical)
Return False
Else
ClassProxy.PRPROXY_RECORD_CONNECT(PARENT_RECORDID, RECORD_ID)
'Else
' ClassProxy.PRPROXY_RECORD_CONNECT(PARENT_RECORDID, RECORD_ID)
End If
Else
Return False
@@ -3528,7 +3528,7 @@ Public Class frmConstructor_Main
If USER_LANGUAGE = "de-DE" Then
stg = "Es gab ein unerwartetes Problem beim Laden der Control-Values! Wollen Sie versuchen die Daten erneut zu laden?" & vbNewLine & "'Nein' beendet die Sicht für einen manuellen Neustart!"
Else
stg = "ADDI encountered an unexpected error while loading the control values for the record! Do You want to try to relaod the entity data?" & vbNewLine & "No is terminating the entity-form to restart it manually!"
stg = "orgFLOW encountered an unexpected error while loading the control values for the record! Do You want to try to relaod the entity data?" & vbNewLine & "No is terminating the entity-form to restart it manually!"
End If
result = MessageBox.Show(stg, "Confirmation needed:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
@@ -3708,7 +3708,7 @@ Public Class frmConstructor_Main
Dim sw As New SW("Check_windream_Show")
Try
If clsWindream.Create_Session = True Then
If WMMOD.SessionReconnect = True Then
windream_inited = True
End If
Catch ex As Exception
@@ -3766,7 +3766,7 @@ Public Class frmConstructor_Main
End If
MsgBox(msg, MsgBoxStyle.Critical, "Attention:")
Else
If clsWD_SET.Delete_WDFile(path) Then
If WMMOD.RemoveFile(path) Then
ClassHelper.InsertEssential_Log(DOC_ID, "DOC-ID", "FILE DELETED BY USER")
End If
End If
@@ -3939,7 +3939,7 @@ Public Class frmConstructor_Main
LOGGER.Info($"RUN_WDSEARCH_GRID - DT_DOCRESULT_DROPDOWN_ITEMS [{DT_DOCRESULT_DROPDOWN_ITEMS.Rows.Count}]!")
End If
ClassWindreamDocGrid.FillColumns(
ClassDocGrid.FillColumns(
GridViewDoc_Search,
DT_RESULT,
DT_WINDREAM_COLUMNS_GRID,
@@ -4018,7 +4018,7 @@ Public Class frmConstructor_Main
End Function
Private Sub OnCBSelectedValueChanged(sender As Object, e As EventArgs)
Try
Dim docId As Integer = ClassWindreamDocGrid.SELECTED_DOC_ID
Dim docId As Integer = ClassDocGrid.SELECTED_DOC_ID
If docId = 0 Then
MsgBox("Sorry no document was selected! Please try again!", MsgBoxStyle.Exclamation)
Exit Sub
@@ -4027,7 +4027,7 @@ Public Class frmConstructor_Main
Dim ComboBox As ComboBoxEdit = sender
'Dim ItemComboBox As RepositoryItemComboBox
'ItemComboBox = sender
Dim item As ClassWindreamDocGrid.WindreamDocGridComboboxItem = ComboBox.SelectedItem
Dim item As ClassDocGrid.WindreamDocGridComboboxItem = ComboBox.SelectedItem
Dim value As String = item.Value
If value.ToUpper = "Not displayable in Group-Search".ToUpper Then
Exit Sub
@@ -4039,8 +4039,8 @@ Public Class frmConstructor_Main
Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE_UPD_INS {0}, {1}, {2}, '{3}', '{4}'", docId, RECORD_ID, configId, value, user)
If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
MsgBox("The Update-Command was not successful! Check the log!",, MsgBoxStyle.Critical)
Else
ClassProxy.PRPROXY_DOC_VALUES_UPD(docId, RECORD_ID)
'Else
' ClassProxy.PRPROXY_DOC_VALUES_UPD(docId, RECORD_ID)
End If
Catch ex As Exception
@@ -4077,7 +4077,7 @@ Public Class frmConstructor_Main
Dim detailRow As DataRowView = detailView.GetRow(detailView.FocusedRowHandle)
Dim configid = detailRow.Item("CONFIG_ID")
Dim docId As Integer = ClassWindreamDocGrid.SELECTED_DOC_ID
Dim docId As Integer = ClassDocGrid.SELECTED_DOC_ID
If docId = 0 Then
MsgBox("Sorry no document was selected! Please try again!", MsgBoxStyle.Exclamation)
Exit Sub
@@ -4088,8 +4088,8 @@ Public Class frmConstructor_Main
If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
ClassHelper.MSGBOX_Handler("ERROR", "UnexpectedError:", "Error updating doc-metadata (date): " & vbNewLine & "Check the log for further information!")
Else
ClassProxy.PRPROXY_DOC_VALUES_UPD(docId, RECORD_ID)
'Else
' ClassProxy.PRPROXY_DOC_VALUES_UPD(docId, RECORD_ID)
End If
Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in OnDateSelectedValueChanged: ", ex.Message)
@@ -4112,7 +4112,7 @@ Public Class frmConstructor_Main
Dim detailRow As DataRowView = detailView.GetRow(detailView.FocusedRowHandle)
Dim configid = detailRow.Item("CONFIG_ID")
Dim docId As Integer = ClassWindreamDocGrid.SELECTED_DOC_ID
Dim docId As Integer = ClassDocGrid.SELECTED_DOC_ID
If docId = 0 Then
MsgBox("Sorry no document was selected! Please try again!", MsgBoxStyle.Exclamation)
Exit Sub
@@ -4122,8 +4122,8 @@ Public Class frmConstructor_Main
Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE_UPD_INS {0}, {1}, {2},'{3}','{4}'", docId, RECORD_ID, configid, value, user)
If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
ClassHelper.MSGBOX_Handler("ERROR", "UnexpectedError:", "Error updating doc-metadata (textbox): " & vbNewLine & "Check the log for further information!")
Else
ClassProxy.PRPROXY_DOC_VALUES_UPD(docId, RECORD_ID)
'Else
' ClassProxy.PRPROXY_DOC_VALUES_UPD(docId, RECORD_ID)
End If
Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in OnTextSelectedValueChanged: ", ex.Message)
@@ -4142,7 +4142,7 @@ Public Class frmConstructor_Main
Dim detailRow As DataRowView = detailView.GetRow(detailView.FocusedRowHandle)
Dim configid = detailRow.Item("CONFIG_ID")
Dim docId As Integer = ClassWindreamDocGrid.SELECTED_DOC_ID
Dim docId As Integer = ClassDocGrid.SELECTED_DOC_ID
If docId = 0 Then
MsgBox("Sorry no document was selected! Please try again!", MsgBoxStyle.Exclamation)
Exit Sub
@@ -4152,8 +4152,8 @@ Public Class frmConstructor_Main
Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE_UPD_INS {0}, {1}, {2},'{3}','{4}'", docId, RECORD_ID, configid, value, user)
If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
ClassHelper.MSGBOX_Handler("ERROR", "UnexpectedError:", "Error updating doc-metadata (checkbox): " & vbNewLine & "Check the log for further information!")
Else
ClassProxy.PRPROXY_DOC_VALUES_UPD(docId, RECORD_ID)
'Else
' ClassProxy.PRPROXY_DOC_VALUES_UPD(docId, RECORD_ID)
End If
Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in OnCheckboxValueChanged: ", ex.Message)
@@ -4493,11 +4493,11 @@ Public Class frmConstructor_Main
Exit Sub
End If
If USER_PERSONIFIED_TEST = True Then
ClassHelper.MSGBOX_Handler("INFO", "Attention", "You are using ADDI in personified mode! Adding files is not allowed!")
ClassHelper.MSGBOX_Handler("INFO", "Attention", "You are using orgFLOW in personified mode! Adding files is not allowed!")
Exit Sub
End If
If clsWindream.Create_Session = False Then
ClassHelper.MSGBOX_Handler("INFO", "Attention", "Check Your windream-connection and restart ADDI afterwards.", "Could not create a windream session!")
If WMMOD.SessionLoggedin = False Then
ClassHelper.MSGBOX_Handler("INFO", "Attention", "Check Your windream-connection and restart orgFLOW afterwards.", "Could not create a windream session!")
Exit Sub
End If
If act_FormViewID <> 0 And (RIGHT_READ_ONLY_DOC = False And GridControlDocSearch.ContextMenuStrip.Name = "ContextMenuStripResultFiles") Or RIGHT_ADD_DOC = True Then
@@ -4915,14 +4915,6 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
Load_Tree_View()
End Sub
Private Sub DateiimportEntitätToolStripMenuItem_Click(sender As Object, e As EventArgs)
If PARENT_ENTITYID = 0 Then
Exit Sub
End If
CURRENT_ENTITYSTRING = _ENTITYSTRING
CURRENT_ENTITY_ID = ENTITY_ID
frmWM_EntityImport.ShowDialog()
End Sub
Private Sub FormDesignerToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles FormDesignerToolStripMenuItem.Click
Try
Dim SelectedNode As TreeNode = TryCast(TreeViewMain.SelectedNode, TreeNode)
@@ -5140,9 +5132,9 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
If recordId > 0 Then
'Die neue Record-ID setzen
POS_RECORD_ID = recordId
ClassProxy.PRPROXY_RECORD_UPD_INS(POS_ENTITY, POS_RECORD_ID)
'ClassProxy.PRPROXY_RECORD_UPD_INS(POS_ENTITY, POS_RECORD_ID)
If ClassRecordCommands.ConnectRecord(PARENT_RECORDID, POS_RECORD_ID, "POS_LINK for Entity " & POS_ENTITY.ToString) = True Then
ClassProxy.PRPROXY_RECORD_CONNECT(PARENT_RECORDID, POS_RECORD_ID)
'ClassProxy.PRPROXY_RECORD_CONNECT(PARENT_RECORDID, POS_RECORD_ID)
End If
Else
MsgBox("Unexpected Error in Creating POS", MsgBoxStyle.Exclamation)
@@ -5405,12 +5397,12 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
End Sub
Private Sub KopierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles docCM_Copy.Click
If ClassWindreamDocGrid.SELECTED_DOC_PATH <> "" Then
If ClassDocGrid.SELECTED_DOC_PATH <> "" Then
Try
Dim selectedfile(0) As String
selectedfile(0) = ClassWindreamDocGrid.SELECTED_DOC_PATH
selectedfile(0) = ClassHelper.FORMAT_WM_PATH(ClassWindreamDocGrid.SELECTED_DOC_PATH)
selectedfile(0) = ClassDocGrid.SELECTED_DOC_PATH
selectedfile(0) = ClassHelper.FORMAT_WM_PATH(ClassDocGrid.SELECTED_DOC_PATH)
Dim dataobj As New DataObject
@@ -5427,18 +5419,18 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
Private Sub GridViewDoc_Search_FocusedColumnChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedColumnChangedEventArgs) Handles GridViewDoc_Search.FocusedColumnChanged
ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search)
ClassDocGrid.GetDocItems(GridViewDoc_Search)
Refresh_DocID()
End Sub
Private Sub GridViewDoc_Search_FocusedRowChanged(sender As Object, e As FocusedRowChangedEventArgs) Handles GridViewDoc_Search.FocusedRowChanged
ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search)
ClassDocGrid.GetDocItems(GridViewDoc_Search)
Refresh_DocID()
End Sub
Sub Refresh_DocID()
If ClassWindreamDocGrid.SELECTED_DOC_ID <> 0 Then
Dim msg = "Doc-ID: " & ClassWindreamDocGrid.SELECTED_DOC_ID.ToString
If ClassDocGrid.SELECTED_DOC_ID <> 0 Then
Dim msg = "Doc-ID: " & ClassDocGrid.SELECTED_DOC_ID.ToString
bsitmDocID.Caption = msg
tslblDocIDTab1.Text = msg
Else
@@ -5458,10 +5450,10 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
ClassHelper.MSGBOX_Handler("INFO", "Attention", "Missing Selection:", "Please select a record!")
Exit Sub
End If
If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then
If IsNothing(ClassDocGrid.DT_RESULTFILES) Then
Exit Sub
End If
If ClassWindreamDocGrid.DT_RESULTFILES.Rows.Count > 0 Then
If ClassDocGrid.DT_RESULTFILES.Rows.Count > 0 Then
Dim msg = "Wollen Sie die Verknüpfung der gewählten Datei/en wirklich entfernen?" & vbNewLine & "Datei/en bleibt/bleiben im DMS/Archiv/Explorer erhalten!"
If USER_LANGUAGE <> "de-DE" Then
msg = "Would You like to delete only the references?" & vbNewLine & "File(s) will stay in ECM/Archive/Explorer!"
@@ -5470,7 +5462,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
result = MessageBox.Show(msg, CAPTION_CONFIRMATION, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
Try
For Each row As DataRow In ClassWindreamDocGrid.DT_RESULTFILES.Rows
For Each row As DataRow In ClassDocGrid.DT_RESULTFILES.Rows
If ClassFileResult.Delete_ResultFile(row.Item("DOC_ID"), RECORD_ID, 0) = True Then
ClassHelper.InsertEssential_Log(row.Item("DOC_ID"), "DOC-ID", "RECORD LINK REMOVED FROM DOC-SEARCH")
Cursor = Cursors.WaitCursor
@@ -5491,11 +5483,11 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
Show_File_Properties()
End Sub
Sub Show_File_Properties()
If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then
If IsNothing(ClassDocGrid.DT_RESULTFILES) Then
MsgBox("Could not read File Parameters(4)!", MsgBoxStyle.Exclamation)
Exit Sub
End If
For Each row As DataRow In ClassWindreamDocGrid.DT_RESULTFILES.Rows
For Each row As DataRow In ClassDocGrid.DT_RESULTFILES.Rows
If row.Item("DOC_PATH") <> "" Then
Dim oFileFullPath = ClassHelper.FORMAT_WM_PATH(row.Item("DOC_PATH"))
Cursor = Cursors.WaitCursor
@@ -5780,7 +5772,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
LOGGER.Warn("Attention: Could not set DocVariable RENAME_DOC_PATH: " & ex.Message)
RENAME_DOC_PATH = Nothing
End Try
If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then
If IsNothing(ClassDocGrid.DT_RESULTFILES) Then
MsgBox("Could not read File Parameters!", MsgBoxStyle.Exclamation)
Exit Sub
End If
@@ -5799,8 +5791,8 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
Private Sub DateiMitDatensatzVerknüpfenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles docCM_linkRecord.Click
Try
ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search)
If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then
ClassDocGrid.GetDocItems(GridViewDoc_Search)
If IsNothing(ClassDocGrid.DT_RESULTFILES) Then
MsgBox("Could not read File Parameters (LinkRecord)!", MsgBoxStyle.Exclamation)
Exit Sub
End If
@@ -5915,24 +5907,24 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
End Sub
Private Sub ContextMenuStripResultFiles_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStripResultFiles.Opening
Try
If clsWindream.SESSION_CREATED = False Then
ClassHelper.MSGBOX_Handler("INFO", "Attention", "Check Your windream-connection and restart ADDI afterwards.", "Could not create a windream session!")
If WMMOD.SessionLoggedin Then
ClassHelper.MSGBOX_Handler("INFO", "Attention", "Check Your windream-connection and restart orgFLOW afterwards.", "Could not create a windream session!")
e.Cancel = True
End If
Me.Cursor = Cursors.WaitCursor
ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search)
If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then
ClassDocGrid.GetDocItems(GridViewDoc_Search)
If IsNothing(ClassDocGrid.DT_RESULTFILES) Then
e.Cancel = True
End If
Refresh_DocID()
If ClassWindreamDocGrid.DT_RESULTFILES.Rows.Count = 1 Then
If ClassWindreamDocGrid.DT_RESULTFILES.Rows(0).Item("DOC_ID") = 0 Then
If ClassDocGrid.DT_RESULTFILES.Rows.Count = 1 Then
If ClassDocGrid.DT_RESULTFILES.Rows(0).Item("DOC_ID") = 0 Then
e.Cancel = True
End If
End If
File_in_Work()
Dim Result = ClassDOC_SEARCH.Get_File_Rights(ClassWindreamDocGrid.SELECTED_DOC_ID)
Dim Result = ClassDOC_SEARCH.Get_File_Rights(ClassDocGrid.SELECTED_DOC_ID)
If Not IsNothing(Result) Then
ROW_READ_ONLY = False
Select Case Result.ToString
@@ -5965,8 +5957,8 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
End If
End If
End If
If ClassWindreamDocGrid.DT_RESULTFILES.Rows.Count = 1 Then
If ClassWindreamDocGrid.DT_RESULTFILES.Rows(0).Item("DISPLAYNAME") <> "" Then
If ClassDocGrid.DT_RESULTFILES.Rows.Count = 1 Then
If ClassDocGrid.DT_RESULTFILES.Rows(0).Item("DISPLAYNAME") <> "" Then
DisplaynameUmbenennenToolStripMenuItem.Visible = True
Set_Displayname()
Else
@@ -5992,13 +5984,13 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
docCM_InWork.Enabled = True
Try
Dim expression As String
expression = "DocID = " & ClassWindreamDocGrid.SELECTED_DOC_ID
expression = "DocID = " & ClassDocGrid.SELECTED_DOC_ID
Dim foundRowsLevel0() As DataRow
' Use the Select method to find all rows matching the filter.
foundRowsLevel0 = CURRENT_DOC_RESULTS.Select(expression)
Try
Dim oSQLDRList = $"Select COALESCE(IN_WORK_USER,'') IN_WORK_USER, COALESCE(IN_WORK_COMMENT,'') IN_WORK_COMMENT,IN_WORK FROM TBPMO_DOCRESULT_LIST where DocID = {ClassWindreamDocGrid.SELECTED_DOC_ID}"
Dim oSQLDRList = $"Select COALESCE(IN_WORK_USER,'') IN_WORK_USER, COALESCE(IN_WORK_COMMENT,'') IN_WORK_COMMENT,IN_WORK FROM TBPMO_DOCRESULT_LIST where DocID = {ClassDocGrid.SELECTED_DOC_ID}"
Dim oDT As DataTable = MYDB_ECM.GetDatatable(oSQLDRList)
If Not IsNothing(oDT) Then
If oDT.Rows.Count = 1 Then
@@ -6040,11 +6032,11 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
End Try
End Sub
Private Sub TSMI_inWork_Click(sender As Object, e As EventArgs) Handles docCM_InWork.Click
If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then
If IsNothing(ClassDocGrid.DT_RESULTFILES) Then
MsgBox("Could not read File Parameters (3)!", MsgBoxStyle.Exclamation)
Exit Sub
End If
ClassFileResult.DocID = ClassWindreamDocGrid.SELECTED_DOC_ID
ClassFileResult.DocID = ClassDocGrid.SELECTED_DOC_ID
If INWORK_FILE = True Then ' Datei ist in Bearbeitung
Dim msglbl As String
Dim msg1 As String
@@ -6062,16 +6054,16 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
End If
Else
frmFileInWork.ShowDialog()
ClassWindreamDocGrid.SELECTED_INWORK = ClassFileResult.InWork
ClassDocGrid.SELECTED_INWORK = ClassFileResult.InWork
RUN_WDSEARCH_GRID(True)
End If
End Sub
Sub Set_Displayname()
Try
If ClassWindreamDocGrid.DT_RESULTFILES.Rows.Count = 1 Then
If ClassWindreamDocGrid.DT_RESULTFILES.Rows(0).Item("DISPLAYNAME") <> "" Then
CMDoc_TextBoxRenameDisplay.Text = ClassWindreamDocGrid.DT_RESULTFILES.Rows(0).Item("DISPLAYNAME")
If ClassDocGrid.DT_RESULTFILES.Rows.Count = 1 Then
If ClassDocGrid.DT_RESULTFILES.Rows(0).Item("DISPLAYNAME") <> "" Then
CMDoc_TextBoxRenameDisplay.Text = ClassDocGrid.DT_RESULTFILES.Rows(0).Item("DISPLAYNAME")
CMDoc_TextBoxRenameDisplay.Enabled = True
End If
Else
@@ -6084,13 +6076,13 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
Private Sub TestToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles docCM_CheckRights.Click
Dim msg = "Die Rechte wurden erfolgreich überprüft und aktualisiert!"
CURRENT_RECORD_ID = RECORD_ID
If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then
If IsNothing(ClassDocGrid.DT_RESULTFILES) Then
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Could not read file Parameters: ", "Could not read file Parameters (6)")
Exit Sub
End If
Dim err As Boolean = False
Cursor = Cursors.WaitCursor
For Each row As DataRow In ClassWindreamDocGrid.DT_RESULTFILES.Rows
For Each row As DataRow In ClassDocGrid.DT_RESULTFILES.Rows
Dim oWMObject As WINDREAMLib.WMObject
Dim oReldocpath = ClassHelper.GetRelPath(row.Item("DOC_PATH"))
LOGGER.Info("oReldocpath: " & oReldocpath)
@@ -6107,7 +6099,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
End If
'Create Session um Fehler bei windows Session icht zu erzeugen
FAU_AD_USER = ""
clsWindream.Create_Session()
Dim OConnect = WMMOD.SessionReconnect()
Next
Cursor = Cursors.Default
If err = False Then
@@ -6154,11 +6146,11 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
MsgBox("Please select a record!", MsgBoxStyle.Exclamation)
Exit Sub
End If
If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then
If IsNothing(ClassDocGrid.DT_RESULTFILES) Then
MsgBox("Could not read File Parameters (DELETE FILES)!", MsgBoxStyle.Exclamation)
Exit Sub
End If
If ClassWindreamDocGrid.DT_RESULTFILES.Rows.Count = 0 Then
If ClassDocGrid.DT_RESULTFILES.Rows.Count = 0 Then
MsgBox("Please choose a file!", MsgBoxStyle.Exclamation)
Exit Sub
End If
@@ -6169,7 +6161,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
Dim result1 As MsgBoxResult
result1 = MessageBox.Show(msg, CAPTION_CONFIRMATION, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result1 = MsgBoxResult.Yes Then
For Each row As DataRow In ClassWindreamDocGrid.DT_RESULTFILES.Rows
For Each row As DataRow In ClassDocGrid.DT_RESULTFILES.Rows
If row.Item("DOC_PATH") <> "" Then
Try
If Not IsNothing(row.Item("DOC_ID")) Then
@@ -6199,7 +6191,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
RECORD_ID = 0
End If
If ClassFileResult.Delete_ResultFile(row.Item("DOC_ID"), RECORD_ID, 1) = True Then
If clsWD_SET.Delete_WDFile(row.Item("DOC_PATH")) = True Then
If WMMOD.RemoveFile(row.Item("DOC_PATH")) = True Then
ClassHelper.InsertEssential_Log(row.Item("DOC_ID"), "DOC-ID", "FILE DELETED BY USER")
End If
@@ -6214,10 +6206,10 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
End If
End If
If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
Dim proc = String.Format("EXEC PRPROXY_DOC_CHECK_DELETE {0}", row.Item("DOC_ID"))
MYDB_ECM.ExecuteNonQuery(proc)
End If
'If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
' Dim proc = String.Format("EXEC PRPROXY_DOC_CHECK_DELETE {0}", row.Item("DOC_ID"))
' MYDB_ECM.ExecuteNonQuery(proc)
'End If
Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in delete file: ", ex.Message)
End Try
@@ -6296,12 +6288,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
Dim upd = String.Format("UPDATE TBPMO_RECORD SET FORM_ID = {0} where GUID = {1}", node_tag, _RECORD)
If MYDB_ECM.ExecuteNonQuery(upd) = True Then
If DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED = True Then
MYDB_ECM.ExecuteNonQuery(upd)
Dim del = String.Format("DELETE FROM TBPMO_ENTITY_TABLE{1} WHERE [Record-ID] = {0}", _RECORD, ENTITY_ID)
MYDB_ECM.ExecuteNonQuery(del)
End If
msg = String.Format("ENTITY WAS CHANGED TO {0}-{1} by User: {2}", ENTITY_STRING, node_tag, USER_USERNAME)
ClassHelper.InsertEssential_Log(_RECORD, "RECORD-ID", msg)
sql = "SELECT T.* FROM VWPMO_DOC_SEARCH T, TBPMO_DOC_RECORD_LINK T1 WHERE T.DocID = T1.DOC_ID AND T1.RECORD_ID = " & _RECORD
@@ -6314,15 +6301,10 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
For Each row As DataRow In DT_CHANGE_CTR.Rows
upd = String.Format("UPDATE TBPMO_CONTROL_VALUE SET CONTROL_ID = {0}, CHANGED_WHO = '{3}' WHERE CONTROL_ID = {1} AND RECORD_ID = {2}", row.Item("LINKED_CTRL_ID"), row.Item("ORIGIN_CTRL_ID"), _RECORD, USER_USERNAME)
MYDB_ECM.ExecuteNonQuery(upd)
If DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED = True Then
MYDB_ECM.ExecuteNonQuery(upd)
End If
Next
Dim execsql = String.Format("EXEC PRPMO_DELETE_RECORD_PMO_TABLE {0},{1}", ENTITY_ID, _RECORD)
If MYDB_ECM.ExecuteNonQuery(execsql) = True Then
If DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED = True Then
MYDB_ECM.ExecuteNonQuery(execsql)
End If
End If
execsql = String.Format("EXEC PRPMO_ENTITY_TABLE_RENEW_RECORD {0},{1}", node_tag, _RECORD)
If MYDB_ECM.ExecuteNonQuery(execsql) = True Then
@@ -6336,13 +6318,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
msg = String.Format("The record/s was/were successfully relinked with entity {0} (if criteria matched)", ENTITY_STRING.ToString)
End If
MsgBox(msg, MsgBoxStyle.Information)
If DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED = True Then
msg = "Sie benutzen einen Proxyserver. Die Daten des neu verlinkten Datensatzes werden Sie evtl. erst nach vollständiger Proxysynchronisation einsehen können!"
If USER_LANGUAGE <> "de-DE" Then
msg = String.Format("You are using a proxy-Server. The new linked record in entity '{0}' might only be displayed after a full synchronisation!", ENTITY_STRING)
End If
MsgBox(msg, MessageBoxIcon.Information)
End If
Load_Datafor_Entity(True)
End If
End If
@@ -6382,7 +6358,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
End Try
End Sub
Private Sub DateirechteFürUserToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles docCM_GetRights.Click
Dim result = ClassDOC_SEARCH.Get_File_Rights(ClassWindreamDocGrid.SELECTED_DOC_ID)
Dim result = ClassDOC_SEARCH.Get_File_Rights(ClassDocGrid.SELECTED_DOC_ID)
If Not IsNothing(result) Then
Dim msg = "Das aktuelle Recht für Sie (" & USER_USERNAME & ") ist: "
If USER_LANGUAGE <> "de-DE" Then
@@ -6412,11 +6388,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
Private Sub Load_Variants()
Try
If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
Me.TBPMO_RECORD_VARIANTTableAdapter.Connection.ConnectionString = ClassProxy.MyPROXYConnectionString
Else
Me.TBPMO_RECORD_VARIANTTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
End If
Me.TBPMO_RECORD_VARIANTTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
Me.TBPMO_RECORD_VARIANTTableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_RECORD_VARIANT, ENTITY_ID, RECORD_ID)
Catch ex As System.Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error while loading variants: ", ex.Message)
@@ -6553,7 +6525,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
table.Columns.Add("FILEPATH", GetType(System.String))
table.Columns.Add("DOC_ID", GetType(System.Int32))
table.Columns.Add("OBJECTTYPE", GetType(System.String))
For Each row As DataRow In ClassWindreamDocGrid.DT_RESULTFILES.Rows
For Each row As DataRow In ClassDocGrid.DT_RESULTFILES.Rows
If row.Item("DOC_PATH") <> String.Empty Then
'Set the ID column as the primary key column.
Dim newRow As DataRow = table.NewRow()
@@ -6581,11 +6553,11 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
Try
If CMDoc_TextBoxRenameFile.Text <> "" Then
Dim OldName, NewName, OnlyFilename As String
OldName = ClassWindreamDocGrid.SELECTED_DOC_PATH
OldName = ClassDocGrid.SELECTED_DOC_PATH
' Define file names.
NewName = CMDoc_TextBoxRenameFile.Text
OnlyFilename = NewName
Dim oFullFilename = ClassHelper.FORMAT_WM_PATH(ClassWindreamDocGrid.SELECTED_DOC_PATH)
Dim oFullFilename = ClassHelper.FORMAT_WM_PATH(ClassDocGrid.SELECTED_DOC_PATH)
Dim name1 = Path.Combine(Path.GetDirectoryName(oFullFilename), NewName)
NewName = NewName & Path.GetExtension(oFullFilename)
OnlyFilename &= Path.GetExtension(oFullFilename)
@@ -6595,12 +6567,10 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
My.Computer.FileSystem.RenameFile(OldName, NewName)
LOGGER.Info($"Renaming FileSystem done!")
Cursor = Cursors.WaitCursor
Dim oEXEC As String = $"EXEC PRPMO_DOC_CREATE_NEW_DOC {ClassWindreamDocGrid.SELECTED_DOC_ID}, {CURRENT_RECORD_ID},'{USER_USERNAME}'"
Dim oEXEC As String = $"EXEC PRPMO_DOC_CREATE_NEW_DOC {ClassDocGrid.SELECTED_DOC_ID}, {CURRENT_RECORD_ID},'{USER_USERNAME}'"
If MYDB_ECM.ExecuteNonQuery(oEXEC) Then
LOGGER.Info($"Exec PRPMO_DOC_CREATE_NEW_DOC done!")
If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
MYDB_ECM.ExecuteNonQuery(oEXEC, True)
End If
End If
Dim oRowHandle As Integer = GridViewDoc_Search.FocusedRowHandle
@@ -6629,7 +6599,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
Private Sub SToolStripMenuItem_KeyUp(sender As Object, e As KeyEventArgs) Handles CMDoc_TextBoxRenameDisplay.KeyUp
If e.KeyCode = Keys.Return Then
Try
ClassFileResult.DocID = ClassWindreamDocGrid.SELECTED_DOC_ID
ClassFileResult.DocID = ClassDocGrid.SELECTED_DOC_ID
If CMDoc_TextBoxRenameDisplay.Text <> "" Then
If ClassFileResult.Set_Displayname(CMDoc_TextBoxRenameDisplay.Text) Then
Cursor = Cursors.WaitCursor
@@ -6703,7 +6673,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
'Dim NEWRECORD As Integer = ClassControlCommandsUI.GetLastRecord(ENTITY_ID)
Dim NEWNODE = New TreeNode(tsmINewText.Text)
If Not IsNothing(NEWRECORD) Then
ClassProxy.PRPROXY_RECORD_UPD_INS(ENTITY_ID, NEWRECORD)
'ClassProxy.PRPROXY_RECORD_UPD_INS(ENTITY_ID, NEWRECORD)
If Not IsNothing(CURRENT_NODE_CONFIGURABLE_ID) And CURRENT_NODE_CONFIGURABLE_ID > 0 Then
Dim index As Integer = 0
@@ -6786,8 +6756,8 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
Sub Open_File()
Me.Cursor = Cursors.WaitCursor
Dim allow_Open As Boolean = False
ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search)
Dim Result = ClassDOC_SEARCH.Get_File_Rights(ClassWindreamDocGrid.SELECTED_DOC_ID)
ClassDocGrid.GetDocItems(GridViewDoc_Search)
Dim Result = ClassDOC_SEARCH.Get_File_Rights(ClassDocGrid.SELECTED_DOC_ID)
If Not IsNothing(Result) Then
Select Case Result.ToString
Case "R"
@@ -6799,11 +6769,11 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
End Select
End If
If allow_Open = True Then
If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then
If IsNothing(ClassDocGrid.DT_RESULTFILES) Then
MsgBox("Could not read File Parameters(5)!", MsgBoxStyle.Exclamation)
Exit Sub
End If
For Each row As DataRow In ClassWindreamDocGrid.DT_RESULTFILES.Rows
For Each row As DataRow In ClassDocGrid.DT_RESULTFILES.Rows
If ClassHelper.File_open(row.Item("DOC_PATH"), row.Item("DOC_ID")) = True Then
TimerFileHandle.Enabled = True
End If
@@ -6811,8 +6781,8 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
Next
Else
If clsWD_GET.WDFile_exists(ClassWindreamDocGrid.SELECTED_DOC_PATH, DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED, ClassProxy.MyLinkedServer, True) = True Then
ClassHelper.MSGBOX_Handler("ERROR", "Right-Management", "File is existing, but you do not have the rights to open this file! " & vbNewLine & "Please contact your admin!" & vbNewLine & "DOC-ID: " & ClassWindreamDocGrid.SELECTED_DOC_ID.ToString)
If WMMOD.TestFileExists(ClassDocGrid.SELECTED_DOC_PATH) = True Then
ClassHelper.MSGBOX_Handler("ERROR", "Right-Management", "File is existing, but you do not have the rights to open this file! " & vbNewLine & "Please contact your admin!" & vbNewLine & "DOC-ID: " & ClassDocGrid.SELECTED_DOC_ID.ToString)
Else
ClassHelper.MSGBOX_Handler("ERROR", "", "File does not exist! Please contact your admin!")
End If
@@ -6904,12 +6874,12 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
Private Sub cmsResultFilesBasic_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles cmsResultFilesBasic.Opening
Try
If clsWindream.SESSION_CREATED = False Then
ClassHelper.MSGBOX_Handler("INFO", "Attention", "Check Your windream-connection and restart ADDI afterwards.", "Could not create a windream session!")
If WMMOD.SessionLoggedin = False Then
ClassHelper.MSGBOX_Handler("INFO", "Attention", "Check Your windream-connection and restart orgFLOW afterwards.", "Could not create a windream session!")
e.Cancel = True
End If
Me.Cursor = Cursors.WaitCursor
Dim Result = ClassDOC_SEARCH.Get_File_Rights(ClassWindreamDocGrid.SELECTED_DOC_ID)
Dim Result = ClassDOC_SEARCH.Get_File_Rights(ClassDocGrid.SELECTED_DOC_ID)
If Not IsNothing(Result) Then
Select Case Result.ToString
Case "R"
@@ -6929,11 +6899,11 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
End Sub
Private Sub OrdnerÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OrdnerÖffnenToolStripMenuItem.Click
If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then
If IsNothing(ClassDocGrid.DT_RESULTFILES) Then
MsgBox("Could not read File Parameters(5)!", MsgBoxStyle.Exclamation)
Exit Sub
End If
For Each row As DataRow In ClassWindreamDocGrid.DT_RESULTFILES.Rows
For Each row As DataRow In ClassDocGrid.DT_RESULTFILES.Rows
ClassHelper.Open_Folder(row.Item("DOC_PATH"), row.Item("DOC_ID"))
Next
End Sub
@@ -7305,8 +7275,8 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
frmNewVariant.ShowDialog()
If recid <> CURRENT_RECORD_ID Then
Me.Cursor = Cursors.WaitCursor
ClassProxy.PRPROXY_SYNC_DETAIL_OBJECT("TBPMO_RECORD_VARIANT")
ClassProxy.PRPROXY_SYNC_DETAIL_OBJECT("TBPMO_RECORD")
'ClassProxy.PRPROXY_SYNC_DETAIL_OBJECT("TBPMO_RECORD_VARIANT")
'ClassProxy.PRPROXY_SYNC_DETAIL_OBJECT("TBPMO_RECORD")
Me.Cursor = Cursors.Default
Load_Datafor_Entity(True)
LocateRecordinGridById(CURRENT_RECORD_ID)

30
app/DD-Record-Organizer/frmDocRecordLink.vb
View File

@@ -1,11 +1,11 @@
Imports System.IO
Imports System.Text
Imports DD_LIB_Standards
'Imports System.Text
'Imports DD_LIB_Standards
Imports DevExpress.XtraGrid.Columns
Public Class frmDocRecordLink
Public Property Documents As New List(Of ClassWindreamDocGrid.WindreamDoc)
Public Property Documents As New List(Of ClassDocGrid.clsWMDoc)
Private CURRENT_LINK_ENTITY_ID As Integer = 0
Private ENTITY_LOAD_ACTIVE As Boolean = False
@@ -32,7 +32,7 @@ Public Class frmDocRecordLink
If CURRENT_LINK_ENTITY_ID = 0 Then
CURRENT_LINK_ENTITY_ID = CURRENT_ENTITY_ID
End If
Try
Try
' DT_RECORDS.Columns.Add("already linked", Type.GetType("System.Boolean")).SetOrdinal(0)
' DT_RECORDS.Columns("already linked").DefaultValue = False
Catch ex As Exception
@@ -77,10 +77,10 @@ Public Class frmDocRecordLink
' OLD WAY
If Documents.Count = 0 Then
ENTITY_LOAD_ACTIVE = True
If ClassWindreamDocGrid.DT_RESULTFILES.Rows.Count = 1 Then
txtFileInfo.Text = ClassWindreamDocGrid.DT_RESULTFILES.Rows(0).Item("DOC_PATH")
If ClassDocGrid.DT_RESULTFILES.Rows.Count = 1 Then
txtFileInfo.Text = ClassDocGrid.DT_RESULTFILES.Rows(0).Item("DOC_PATH")
Else
txtFileInfo.Text = String.Format("{0} files selected for linking to record", ClassWindreamDocGrid.DT_RESULTFILES.Rows.Count)
txtFileInfo.Text = String.Format("{0} files selected for linking to record", ClassDocGrid.DT_RESULTFILES.Rows.Count)
End If
Try
If IsNothing(CURRENT_DT_ENTITY_RECORDS) Then
@@ -286,7 +286,7 @@ Public Class frmDocRecordLink
End Function
Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
If clsWindream.Create_Session = False Then
If WMMOD.SessionLoggedin = False Then
MsgBox("No session to windream created! Check Your connection!", MsgBoxStyle.Critical)
Exit Sub
End If
@@ -304,16 +304,16 @@ Public Class frmDocRecordLink
CURRENT_DOC_ID = row.Item("DOC_ID")
Dim DOC_PATH = row.Item("FILEPATH")
Dim _objecttype = row.Item("OBJECTTYPE")
clsWindream.MY_WDOBJECTTYPE = _objecttype
WMOBJECTTYPE = _objecttype
Dim sql_Exec = String.Format("EXEC PRPMO_CHECK_DOC_RECORD_LINK {0},{1},'{2}','{3}'", SELECTED_RECORDID, CURRENT_DOC_ID, "MANUAL RECORD-LINK", USER_USERNAME)
'Dim ins = String.Format("INSERT INTO TBPMO_DOC_RECORD_LINK (RECORD_ID,DOC_ID,COMMENT,ADDED_WHO) VALUES ({0},{1},'{2}','{3}')", SELECTED_RECORDID, CURRENT_DOC_ID, "MANUAL RECORD-LINK", USER_USERNAME)
If MYDB_ECM.ExecuteNonQuery(sql_Exec) = False Then
MsgBox("Unexpected Error in Inserting Record-Doc Link. Please check logfile!", MsgBoxStyle.Critical)
Else
If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
Dim proc = String.Format("EXEC PRPROXY_DOC_CHECK_DOC_REC_LINK {0},{1}", CURRENT_DOC_ID, SELECTED_RECORDID)
MYDB_ECM.ExecuteNonQuery(proc)
End If
'If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
' Dim proc = String.Format("EXEC PRPROXY_DOC_CHECK_DOC_REC_LINK {0},{1}", CURRENT_DOC_ID, SELECTED_RECORDID)
' MYDB_ECM.ExecuteNonQuery(proc)
'End If
Dim msg = String.Format("Der Datensatz wurde erfolgreich verknüpft!")
If USER_LANGUAGE <> "de-DE" Then
msg = "The record was successfully linked"
@@ -329,10 +329,10 @@ Public Class frmDocRecordLink
Dim Record_Index = DT_OBJTYPE.Rows(0).Item("IDXNAME_RECORDID")
Dim ENT_ID = MYDB_ECM.GetScalarValue(String.Format("SELECT FORM_ID FROM TBPMO_RECORD WHERE GUID = {0}", SELECTED_RECORDID))
If ENT_ID > 1 And Entity_Index <> String.Empty Then
clsWD_SET.IndexFile(DOC_PATH, Entity_Index, ENT_ID, _objecttype)
WMMOD.SetFileIndex(DOC_PATH, Entity_Index, ENT_ID, _objecttype)
End If
If Record_Index <> String.Empty Then
clsWD_SET.IndexFile(DOC_PATH, Record_Index, SELECTED_RECORDID, _objecttype)
WMMOD.SetFileIndex(DOC_PATH, Record_Index, SELECTED_RECORDID, _objecttype)
End If
End If
Next

8
app/DD-Record-Organizer/frmDocSearchResult.vb
View File

@@ -165,10 +165,10 @@ Public Class frmDocSearchResult
End Sub
Private Sub docCM_Copy_Click(sender As Object, e As EventArgs) Handles docCM_Copy.Click
If ClassWindreamDocGrid.SELECTED_DOC_PATH <> "" Then
If ClassDocGrid.SELECTED_DOC_PATH <> "" Then
Try
Dim selectedfile(0) As String
selectedfile(0) = ClassWindreamDocGrid.SELECTED_DOC_PATH
selectedfile(0) = ClassDocGrid.SELECTED_DOC_PATH
Dim dataobj As New DataObject
dataobj.SetData(DataFormats.FileDrop, True, selectedfile)
@@ -183,8 +183,8 @@ Public Class frmDocSearchResult
Private Sub docCM_Showlinks_Click(sender As Object, e As EventArgs) Handles docCM_Showlinks.Click
Try
ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search)
If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then
ClassDocGrid.GetDocItems(GridViewDoc_Search)
If IsNothing(ClassDocGrid.DT_RESULTFILES) Then
MsgBox("Could not read File Parameters (LinkRecord)!", MsgBoxStyle.Exclamation)
Exit Sub
End If

8
app/DD-Record-Organizer/frmDoc_Links.vb
View File

@@ -1,5 +1,5 @@
Imports System.IO
Imports DD_LIB_Standards
'Imports DD_LIB_Standards'
Imports System.Text
Imports DevExpress.XtraGrid.Columns
Imports DevExpress.XtraPrinting
@@ -8,7 +8,7 @@ Imports Microsoft.Office.Interop.Outlook
Public Class frmDoc_Links
Private ENTITY_ID As Integer = 0
Public Property Documents As New List(Of ClassWindreamDocGrid.WindreamDoc)
Public Property Documents As New List(Of ClassDocGrid.clsWMDoc)
Private Sub frmDoc_DocLinks_Load(sender As Object, e As EventArgs) Handles Me.Load
Try
@@ -49,7 +49,7 @@ Public Class frmDoc_Links
End Try
End Sub
Private Function Get_Grid_Data(pDocuments As List(Of ClassWindreamDocGrid.WindreamDoc)) As DataTable
Private Function Get_Grid_Data(pDocuments As List(Of ClassDocGrid.clsWMDoc)) As DataTable
Dim oTable As DataTable
Dim oSql As String = ""
@@ -69,7 +69,7 @@ Public Class frmDoc_Links
Return oTable
End Function
Sub Refresh_Grid_Data(pDocuments As List(Of ClassWindreamDocGrid.WindreamDoc))
Sub Refresh_Grid_Data(pDocuments As List(Of ClassDocGrid.clsWMDoc))
Try
Dim oTable = Get_Grid_Data(pDocuments)

6
app/DD-Record-Organizer/frmFileRename.vb
View File

@@ -50,11 +50,11 @@ Public Class frmFileRename
End Try
Else
Dim OldName, NewName, OnlyFilename As String
OldName = ClassWindreamDocGrid.SELECTED_DOC_PATH
OldName = ClassDocGrid.SELECTED_DOC_PATH
' Define file names.
NewName = txtNewName.Text
OnlyFilename = NewName
Dim oFullFilename = ClassHelper.FORMAT_WM_PATH(ClassWindreamDocGrid.SELECTED_DOC_PATH)
Dim oFullFilename = ClassHelper.FORMAT_WM_PATH(ClassDocGrid.SELECTED_DOC_PATH)
Dim name1 = Path.Combine(Path.GetDirectoryName(oFullFilename), NewName)
NewName &= Path.GetExtension(oFullFilename)
OnlyFilename &= Path.GetExtension(oFullFilename)
@@ -64,7 +64,7 @@ Public Class frmFileRename
My.Computer.FileSystem.RenameFile(OldName, NewName)
LOGGER.Info($"Renaming FileSystem done!")
Cursor = Cursors.WaitCursor
Dim oEXEC As String = $"EXEC PRPMO_DOC_CREATE_NEW_DOC {ClassWindreamDocGrid.SELECTED_DOC_ID}, {CURRENT_RECORD_ID},'{USER_USERNAME}'"
Dim oEXEC As String = $"EXEC PRPMO_DOC_CREATE_NEW_DOC {ClassDocGrid.SELECTED_DOC_ID}, {CURRENT_RECORD_ID},'{USER_USERNAME}'"
If MYDB_ECM.ExecuteNonQuery(oEXEC) Then
Me.Close()
Else

2
app/DD-Record-Organizer/frmLicense.en-US.resx
View File

@@ -155,6 +155,6 @@
<value>User licences:</value>
</data>
<data name="$this.Text" xml:space="preserve">
<value>ADDI Licensemanager</value>
<value>orgFLOW Licensemanager</value>
</data>
</root>

2
app/DD-Record-Organizer/frmLicense_User.en-US.resx
View File

@@ -137,7 +137,7 @@
<value>104, 17</value>
</data>
<data name="Label2.Text" xml:space="preserve">
<value>ADDI - Licenses:</value>
<value>orgFLOW - Licenses:</value>
</data>
<data name="Label3.Size" type="System.Drawing.Size, System.Drawing">
<value>93, 17</value>

13
app/DD-Record-Organizer/frmMain.Designer.vb generated
View File

@@ -65,7 +65,6 @@ Partial Class frmMain
Me.BarSubItem1 = New DevExpress.XtraBars.BarSubItem()
Me.BarButtonItem14 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem21 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem22 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem8 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem9 = New DevExpress.XtraBars.BarButtonItem()
Me.btnGlobalSearch = New DevExpress.XtraBars.BarButtonItem()
@@ -197,7 +196,7 @@ Partial Class frmMain
Me.ribbonMain.ApplicationButtonDropDownControl = Me.MainMenu
Me.ribbonMain.BackColor = System.Drawing.Color.DarkGray
Me.ribbonMain.ExpandCollapseItem.Id = 0
Me.ribbonMain.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.ribbonMain.ExpandCollapseItem, Me.ribbonMain.SearchEditItem, Me.LabelMachine, Me.LabelLoggedIn, Me.LabelVersion, Me.itemInfo, Me.itemExit, Me.BarButtonItem1, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6, Me.BarButtonItem7, Me.itemSettings, Me.BarButtonItem2, Me.BarButtonItem10, Me.BarButtonItem12, Me.BarButtonItemConnections, Me.BarButtonItem15, Me.BarButtonItem16, Me.BarButtonItem17, Me.BarButtonItem18, Me.LabelLanguage, Me.BarButtonItem20, Me.BarButtonItemSAPConnect, Me.BarButtonItemStructureNOdes, Me.BarSubItem1, Me.BarButtonItem14, Me.BarButtonItem21, Me.BarButtonItem22, Me.BarButtonItem8, Me.BarButtonItem9, Me.itemAbout, Me.BarButtonItem19, Me.btnGlobalSearch, Me.LabelUser, Me.bbtnItemViewsUser, Me.LabelProxyServer, Me.BarSubItem2, Me.BarButtonItem25, Me.StatusPersonifiedLogin, Me.itemScanInbox, Me.BarButtonItem13, Me.BarButtonItemSwitchCon, Me.LabelConString, Me.StatusVersionDB})
Me.ribbonMain.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.ribbonMain.ExpandCollapseItem, Me.ribbonMain.SearchEditItem, Me.LabelMachine, Me.LabelLoggedIn, Me.LabelVersion, Me.itemInfo, Me.itemExit, Me.BarButtonItem1, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6, Me.BarButtonItem7, Me.itemSettings, Me.BarButtonItem2, Me.BarButtonItem10, Me.BarButtonItem12, Me.BarButtonItemConnections, Me.BarButtonItem15, Me.BarButtonItem16, Me.BarButtonItem17, Me.BarButtonItem18, Me.LabelLanguage, Me.BarButtonItem20, Me.BarButtonItemSAPConnect, Me.BarButtonItemStructureNOdes, Me.BarSubItem1, Me.BarButtonItem14, Me.BarButtonItem21, Me.BarButtonItem8, Me.BarButtonItem9, Me.itemAbout, Me.BarButtonItem19, Me.btnGlobalSearch, Me.LabelUser, Me.bbtnItemViewsUser, Me.LabelProxyServer, Me.BarSubItem2, Me.BarButtonItem25, Me.StatusPersonifiedLogin, Me.itemScanInbox, Me.BarButtonItem13, Me.BarButtonItemSwitchCon, Me.LabelConString, Me.StatusVersionDB})
resources.ApplyResources(Me.ribbonMain, "ribbonMain")
Me.ribbonMain.MaxItemId = 1
Me.ribbonMain.Name = "ribbonMain"
@@ -434,7 +433,7 @@ Partial Class frmMain
'
resources.ApplyResources(Me.BarSubItem1, "BarSubItem1")
Me.BarSubItem1.Id = 38
Me.BarSubItem1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem14), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem21), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem22), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem8), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem9)})
Me.BarSubItem1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem14), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem21), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem8), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem9)})
Me.BarSubItem1.Name = "BarSubItem1"
Me.BarSubItem1.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large
'
@@ -452,13 +451,6 @@ Partial Class frmMain
Me.BarButtonItem21.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem21.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem21.Name = "BarButtonItem21"
'
'BarButtonItem22
'
resources.ApplyResources(Me.BarButtonItem22, "BarButtonItem22")
Me.BarButtonItem22.Id = 41
Me.BarButtonItem22.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem22.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem22.Name = "BarButtonItem22"
'
'BarButtonItem8
'
resources.ApplyResources(Me.BarButtonItem8, "BarButtonItem8")
@@ -801,7 +793,6 @@ Partial Class frmMain
Friend WithEvents BarSubItem1 As DevExpress.XtraBars.BarSubItem
Friend WithEvents BarButtonItem14 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItem21 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItem22 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItem8 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItem9 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents itemAbout As DevExpress.XtraBars.BarButtonItem

2
app/DD-Record-Organizer/frmMain.de-DE.resx
View File

@@ -1011,7 +1011,7 @@
</value>
</data>
<data name="NotifyIcon.Text" xml:space="preserve">
<value>ADDI - Informationen</value>
<value>orgFLOW - Informationen</value>
</data>
<data name="itemSettings.Glyph" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>

39
app/DD-Record-Organizer/frmMain.resx
View File

@@ -125,13 +125,13 @@
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="ADDIBeendenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>184, 26</value>
<value>177, 26</value>
</data>
<data name="ADDIBeendenToolStripMenuItem.Text" xml:space="preserve">
<value>orgFLOW beenden</value>
</data>
<data name="CockpitAnzeigenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>184, 26</value>
<value>177, 26</value>
</data>
<data name="CockpitAnzeigenToolStripMenuItem.Text" xml:space="preserve">
<value>Cockpit anzeigen</value>
@@ -141,7 +141,7 @@
<value>False</value>
</data>
<data name="cmsSystray.Size" type="System.Drawing.Size, System.Drawing">
<value>185, 78</value>
<value>178, 56</value>
</data>
<data name="&gt;&gt;cmsSystray.Name" xml:space="preserve">
<value>cmsSystray</value>
@@ -451,7 +451,7 @@
<data name="BarButtonItem19.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vgAADr4B6kKxwAAAD3JJREFUaEPFWQtczmna7jWs846cdoyZYQx27O6McVpjYlfMt8bYGZMadmRGTskh
vQAADr0BR/uQrQAAD3JJREFUaEPFWQtczmna7jWs846cdoyZYQx27O6McVpjYlfMt8bYGZMadmRGTskh
WnJIEUVU5FCiUKGDSkI5q3GqKNP5ICRFiCgd6KCu77qfmn4x+Kam/fb+/a5f9b7Pv/e+7uc+XM/zav1a
mzhxovbUqVNHTpkyxY7wIyKJqLqYPHly4KRJkzbo6+uP5SOtiTcIjTz/X7Pp06ePmDZtWoixsTEsrW3h
4u4Jv6AQRMbEISUtHenp6UhOTsWFC9Hw8wuCi4s7rKysIet/+OGHMAMDgwX8N+2IpvL/stZ+pP1g00cj
@@ -1548,29 +1548,6 @@
MC40QzIuMSwyNS4zLDIuMiwyNS4zLDIuMiwyNS4yeiIgY2xhc3M9IlllbGxvdyIgLz4NCiAgPC9nPg0K
ICA8cGF0aCBkPSJNMzEuMywxNEg5LjZMNCwyNmgyMS44YzAuNSwwLDEuMS0wLjMsMS4zLTAuN0wzMiwx
NC43QzMyLjEsMTQuMywzMS44LDE0LDMxLjMsMTR6IiBjbGFzcz0iWWVsbG93IiAvPg0KPC9zdmc+Cw==
</value>
</data>
<data name="BarButtonItem22.Caption" xml:space="preserve">
<value>Import windream-Dateien</value>
</data>
<data name="BarButtonItem22.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAAMDAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iT3BlbjIiIHN0eWxlPSJlbmFibGUtYmFja2dyb3VuZDpuZXcgMCAwIDMy
IDMyIj4NCiAgPHN0eWxlIHR5cGU9InRleHQvY3NzIj4KCS5HcmVlbntmaWxsOiMwMzlDMjM7fQoJLlll
bGxvd3tmaWxsOiNGRkIxMTU7fQoJLnN0MHtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBjbGFz
cz0ic3QwIj4NCiAgICA8cGF0aCBkPSJNMTkuMiwxMEgxMlY3YzAtMC42LTAuNC0xLTEtMUgzQzIuNCw2
LDIsNi41LDIsN3YxOGMwLDAuMiwwLDAuMywwLjEsMC40YzAsMCwwLjEtMC4xLDAuMS0wLjJsNS41LTEw
ICAgQzgsMTQuNSw4LjcsMTQsOS41LDE0aDEzLjdMMTkuMiwxMHoiIGNsYXNzPSJZZWxsb3ciIC8+DQog
IDwvZz4NCiAgPHBhdGggZD0iTTI5LjMsMTZIOS42TDQsMjZoMTkuOGMwLjUsMCwxLjEtMC4yLDEuMy0w
LjZsNC45LTguOUMzMC4xLDE2LjIsMjkuOCwxNiwyOS4zLDE2eiIgY2xhc3M9IlllbGxvdyIgLz4NCiAg
PHBhdGggZD0iTTI4LDhjMC0zLjMtMi43LTYtNi02cy02LDIuNy02LDZjMC0yLjIsMS44LTQsNC00czQs
MS44LDQsNGgtNGw2LDZsNi02SDI4eiIgY2xhc3M9IkdyZWVuIiAvPg0KPC9zdmc+Cw==
</value>
</data>
<data name="BarButtonItem8.Caption" xml:space="preserve">
@@ -2943,7 +2920,7 @@
<data name="frmMain.IconOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAQAAAAEACAYAAABccqhmAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAL
DgAACw4BQL7hQQAAEmtJREFUeF7t3T+oLOUdxvFTKCIk4aokQUz8hxCUgNcibbi1VQrTBjuJVWythDQS
DQAACw0B7QfALAAAEmtJREFUeF7t3T+oLOUdxvFTKCIk4aokQUz8hxCUgNcibbi1VQrTBjuJVWythDQS
G4sUNoJFYhtiFUhjICkjBkzQIiBioVWEQIQQ3Ly/69nLnDnfmZ3398zuzrzzFJ8Q5+4+v51733nO7szu
novdbrdIv33imRvFreKV4q3i3eLjYme2YLFGY63Gmo21G2v4Bq3xJcCN5xB/ScXzRfzF+UC31sSajrUd
a3wxhYAbTyX+IopfFO8X9Jdm1qpY82cvA9x4bGWn42lRtCH9xZhtTRwLt+hYOTbceCxlJ6Px/PTejMWx
@@ -3262,12 +3239,6 @@
<data name="&gt;&gt;BarButtonItem21.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;BarButtonItem22.Name" xml:space="preserve">
<value>BarButtonItem22</value>
</data>
<data name="&gt;&gt;BarButtonItem22.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;BarButtonItem8.Name" xml:space="preserve">
<value>BarButtonItem8</value>
</data>

69
app/DD-Record-Organizer/frmMain.vb
View File

@@ -1,7 +1,7 @@
Imports System.Globalization
Imports System.Net
Imports System.Threading
Imports DD_LIB_Standards
'Imports DD_LIB_Standards'
Imports DevExpress.LookAndFeel
Imports DevExpress.XtraBars
Imports DevExpress.XtraBars.Ribbon
@@ -118,8 +118,8 @@ Public Class frmMain
MsgBox("Error in Load Form:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
LOGGER.Debug("FormLoad finished!")
Proxy_Server_Controls()
CONN_Manager
'Proxy_Server_Controls()
CONN_Manager()
End If
End Sub
@@ -148,21 +148,21 @@ Public Class frmMain
LOGGER.Warn("Unexpected Error in CONN_Manager:" & ex.Message)
End Try
End Sub
Sub Proxy_Server_Controls()
Try
If LICENSE_PROXY = True And clsDatabase.DB_PROXY_INITIALIZED = True Then
'itemRefreshProxy.Visibility = BarItemVisibility.Always
LabelProxyServer.Visibility = BarItemVisibility.Always
LOGGER.Info("PROXY-SERVER is being used")
Else
'itemRefreshProxy.Visibility = BarItemVisibility.Never
LabelProxyServer.Visibility = BarItemVisibility.Never
End If
Catch ex As Exception
LOGGER.Warn("Unexpected Error in Sub Proxy_Server_Controls():" & ex.Message)
End Try
'Sub Proxy_Server_Controls()
' Try
' If LICENSE_PROXY = True And clsDatabase.DB_PROXY_INITIALIZED = True Then
' 'itemRefreshProxy.Visibility = BarItemVisibility.Always
' LabelProxyServer.Visibility = BarItemVisibility.Always
' LOGGER.Info("PROXY-SERVER is being used")
' Else
' 'itemRefreshProxy.Visibility = BarItemVisibility.Never
' LabelProxyServer.Visibility = BarItemVisibility.Never
' End If
' Catch ex As Exception
' LOGGER.Warn("Unexpected Error in Sub Proxy_Server_Controls():" & ex.Message)
' End Try
End Sub
'End Sub
Public Sub RUN_TIMER()
Try
If TIMER_SCAN.Enabled = False And CURRENT_SCAN_FOLDERWATCH <> "" And FWSCAN_started = True Then
@@ -698,19 +698,19 @@ Public Class frmMain
Me.Cursor = Cursors.WaitCursor
Dim upd = "UPDATE TBPROXY_CONFIG SET SYNC_RUNNING = 1 WHERE GUID = 1"
MYDB_ECM.ExecuteNonQuery(upd, True)
If ClassProxy.Refresh_Object_Data() = True Then
If ClassProxy.PRPROXY_SYNC_DOC_OBJECTS() = True Then
Dim msg = "Die Proxydaten wurden erfolgreich synchronisiert!"
If USER_LANGUAGE <> "de-DE" Then
msg = "All proxydata was refreshed successfully!"
End If
MessageBox.Show(msg, "", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
MessageBox.Show("Error while refreshing proxy-data (Doc)!", "", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
Else
MessageBox.Show("Error while refreshing proxy-data (objects)!", "", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
'If ClassProxy.Refresh_Object_Data() = True Then
' If ClassProxy.PRPROXY_SYNC_DOC_OBJECTS() = True Then
' Dim msg = "Die Proxydaten wurden erfolgreich synchronisiert!"
' If USER_LANGUAGE <> "de-DE" Then
' msg = "All proxydata was refreshed successfully!"
' End If
' MessageBox.Show(msg, "", MessageBoxButtons.OK, MessageBoxIcon.Information)
' Else
' MessageBox.Show("Error while refreshing proxy-data (Doc)!", "", MessageBoxButtons.OK, MessageBoxIcon.Error)
' End If
'Else
' MessageBox.Show("Error while refreshing proxy-data (objects)!", "", MessageBoxButtons.OK, MessageBoxIcon.Error)
'End If
upd = "UPDATE TBPROXY_CONFIG SET SYNC_RUNNING = 0, LAST_SYNC = GETDATE() WHERE GUID = 1"
MYDB_ECM.ExecuteNonQuery(upd, True)
Me.Cursor = Cursors.Default
@@ -738,7 +738,7 @@ Public Class frmMain
TimerTasks.Enabled = False
TimerTasks.Stop()
End If
Proxy_Server_Controls()
'Proxy_Server_Controls()
RUN_TIMER()
End Sub
@@ -889,11 +889,6 @@ Public Class frmMain
OpenObjecttypeConfig()
End Sub
Private Sub BarButtonItem22_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem22.ItemClick
Close_Maximized_Forms()
OpenWindream_Files()
End Sub
Private Sub BarButtonItem8_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem8.ItemClick
Close_Maximized_Forms()
OpenRightsmanager()
@@ -1050,7 +1045,7 @@ Public Class frmMain
If oSqlcon_Proxy <> String.Empty Then
SaveMySettingsValue("MyProxyConnectionString", oSqlcon_Proxy, "ConfigMain")
ClassProxy.MyPROXYConnectionString = oSqlcon_Proxy
'ClassProxy.MyPROXYConnectionString = oSqlcon_Proxy
End If
Dim sql = String.Format("UPDATE TBPMO_CLIENT_CONN_SWITCH_USER SET ACTIVE = 1 WHERE GUID = {0}", oINACTIVE_GUID)
MYDB_ECM.GetScalarValue(SQL)

10
app/DD-Record-Organizer/frmMass_Change.vb
View File

@@ -98,7 +98,7 @@ Public Class frmMass_Change
For Each Record As String In MASS_RECORD_IDs2CHANGE
Dim del = String.Format("DELETE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {0} AND RECORD_ID = {1}", _CONTROLID, CInt(Record))
MYDB_ECM.ExecuteNonQuery(del)
ClassProxy.PRPROXY_CONTROL_DEL(CInt(Record), CURRENT_ENTITY_ID, _CONTROLID)
'ClassProxy.PRPROXY_CONTROL_DEL(CInt(Record), CURRENT_ENTITY_ID, _CONTROLID)
Next
End If
Try
@@ -118,16 +118,16 @@ Public Class frmMass_Change
_Error = True
LOGGER.Warn("Error in updating the value for Record: " & Record)
Else
ClassProxy.PRPROXY_CONTROL_VALUE_UPD_INS(CURRENT_ENTITY_ID, _CONTROLID, CInt(Record), val)
'Else
'ClassProxy.PRPROXY_CONTROL_VALUE_UPD_INS(CURRENT_ENTITY_ID, _CONTROLID, CInt(Record), val)
End If
Else
SQL = String.Format("INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID, RECORD_ID, VALUE, ADDED_WHO) VALUES ({0},{1},'{2}','{3}')", _CONTROLID, CInt(Record), val, USER_USERNAME)
If MYDB_ECM.ExecuteNonQuery(SQL) = False Then
_Error = True
LOGGER.Warn("Error in inserting the value for Record: " & Record)
Else
ClassProxy.PRPROXY_CONTROL_VALUE_UPD_INS(CURRENT_ENTITY_ID, _CONTROLID, CInt(Record), val)
'Else
'ClassProxy.PRPROXY_CONTROL_VALUE_UPD_INS(CURRENT_ENTITY_ID, _CONTROLID, CInt(Record), val)
End If
End If
End If

98
app/DD-Record-Organizer/frmNodeNavigation.vb
View File

@@ -11,7 +11,6 @@ Imports DevExpress.XtraPrinting
Imports System.Threading
Imports System.Text
Imports System.IO
Imports DD_LIB_Standards
Imports DigitalData.Modules.Base
Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.Database
@@ -66,7 +65,7 @@ Public Class frmNodeNavigation
Private Property AvailableConfigNodes As New List(Of frmNewNode.NodeConfig)
Private Property CurrentNodeConfigId As Integer = 0
Private Property Current_DocList As ClassWindreamDocGrid
Private Property Current_DocList As ClassDocGrid
Public CtrlBuilder As ClassControlBuilder
Public CtrlCommandUI As ClassControlCommandsUI
@@ -94,7 +93,7 @@ Public Class frmNodeNavigation
_EntityId = pEntityID
oConstructID = pConstructID
Current_DocList = New ClassWindreamDocGrid(GridViewDoc_Search)
Current_DocList = New ClassDocGrid(GridViewDoc_Search)
WindowsEx = New WindowsEx(LOGCONFIG)
ClassNodeCommands = New ClassNodeCommands(LOGCONFIG, MYDB_ECM)
@@ -148,9 +147,13 @@ Public Class frmNodeNavigation
'DT_VWPMO_CONSTRUCTOR_FORMS = MYDB_ECM.GetDatatable(Sql)
CURRENT_DT_TBPMO_ENTITY_RIGHT_CONTROLS = MYDB_ECM.GetDatatable(String.Format("SELECT T.* FROM TBPMO_ENTITY_RIGHT_CONTROLS T INNER JOIN VWPMO_CONSTRUCTOR_FORMS T1 ON T.ENTITY_ID = T1.FORM_ID where T1.CONSTRUCT_ID = {0}", CONSTRUCTORID))
Try
Dim oGDPictureLicenseKey = MYDB_ECM.GetScalarValue(Queries.DD_ECM.ThirdPartyModules.GdPictureLicense)
DocumentViewer.Init(LOGCONFIG, oGDPictureLicenseKey)
Catch ex As Exception
LOGGER.Warn($"Error while init DocumentViewer: {ex.Message}")
End Try
Dim oGDPictureLicenseKey = MYDB_ECM.GetScalarValue(Queries.DD_ECM.ThirdPartyModules.GdPictureLicense)
DocumentViewer.Init(LOGCONFIG, oGDPictureLicenseKey)
' Hintergrund Bild initialisieren
'If (System.IO.File.Exists(Application.StartupPath + "\Resources\windream-portrait_col_RGB_Wordpress.png")) Then
@@ -1620,7 +1623,7 @@ Public Class frmNodeNavigation
End If
ClassWindreamDocGrid.FillColumns(
ClassDocGrid.FillColumns(
GridViewDoc_Search,
DT_RESULT,
DT_COLUMNS_GRID_ENTITY,
@@ -1711,7 +1714,7 @@ Public Class frmNodeNavigation
Dim ComboBox As ComboBoxEdit = sender
'Dim ItemComboBox As RepositoryItemComboBox
'ItemComboBox = sender
Dim item As ClassWindreamDocGrid.WindreamDocGridComboboxItem = ComboBox.SelectedItem
Dim item As ClassDocGrid.WindreamDocGridComboboxItem = ComboBox.SelectedItem
Dim value As String = item.Value
If value.ToUpper = "Not displayable in Group-Search".ToUpper Then
Exit Sub
@@ -1723,8 +1726,6 @@ Public Class frmNodeNavigation
Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE_UPD_INS {0}, {1}, {2}, '{3}', '{4}'", docId, SELECTED_NODE_RECORD_ID, configId, value, user)
If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
MsgBox("The Update-Command was not successful! Check the log!",, MsgBoxStyle.Critical)
Else
ClassProxy.PRPROXY_DOC_VALUES_UPD(docId, SELECTED_NODE_RECORD_ID)
End If
Catch ex As Exception
@@ -1775,8 +1776,6 @@ Public Class frmNodeNavigation
If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
ClassHelper.MSGBOX_Handler("ERROR", "UnexpectedError:", "Error updating doc-metadata (date): " & vbNewLine & "Check the log for further information!")
Else
ClassProxy.PRPROXY_DOC_VALUES_UPD(docId, SELECTED_NODE_RECORD_ID)
End If
Catch ex As Exception
LOGGER.Error(ex)
@@ -1827,8 +1826,6 @@ Public Class frmNodeNavigation
Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE_UPD_INS {0}, {1}, {2},'{3}','{4}'", docId, SELECTED_NODE_RECORD_ID, configid, value, user)
If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
ClassHelper.MSGBOX_Handler("ERROR", "UnexpectedError:", "Error updating doc-metadata (textbox): " & vbNewLine & "Check the log for further information!")
Else
ClassProxy.PRPROXY_DOC_VALUES_UPD(docId, SELECTED_NODE_RECORD_ID)
End If
End If
@@ -1861,8 +1858,6 @@ Public Class frmNodeNavigation
Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE_UPD_INS {0}, {1}, {2},'{3}','{4}'", docId, SELECTED_NODE_RECORD_ID, configid, value, user)
If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
ClassHelper.MSGBOX_Handler("ERROR", "UnexpectedError:", "Error updating doc-metadata (checkbox): " & vbNewLine & "Check the log for further information!")
Else
ClassProxy.PRPROXY_DOC_VALUES_UPD(docId, SELECTED_NODE_RECORD_ID)
End If
Catch ex As Exception
LOGGER.Error(ex)
@@ -1875,7 +1870,10 @@ Public Class frmNodeNavigation
End Sub
Private Sub GridViewDoc_Search_FocusedColumnChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedColumnChangedEventArgs) Handles GridViewDoc_Search.FocusedColumnChanged
Refresh_DocID()
If FORM_SHOWN = True Then
Refresh_DocID()
End If
End Sub
Private Sub GridViewDoc_Search_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles GridViewDoc_Search.FocusedRowChanged
Refresh_DocID()
@@ -1989,11 +1987,11 @@ Public Class frmNodeNavigation
Exit Function
End If
If USER_PERSONIFIED_TEST = True Then
ClassHelper.MSGBOX_Handler("INFO", "Attention", "You are using ADDI in personified mode! Adding files is not allowed!")
ClassHelper.MSGBOX_Handler("INFO", "Attention", "You are using orgFLOW in personified mode! Adding files is not allowed!")
Exit Function
End If
If clsWindream.Create_Session = False Then
ClassHelper.MSGBOX_Handler("INFO", "Attention", "Check Your windream-connection and restart ADDI afterwards.", "Could not create a windream session!")
If WMMOD.SessionLoggedin = False Then
ClassHelper.MSGBOX_Handler("INFO", "Attention", "Check Your windream-connection and restart orgFLOW afterwards.", "Could not create a windream session!")
Exit Function
End If
If _EntityId <> 0 And (RIGHT_READ_ONLY_DOC = False And GridControlDocSearch.ContextMenuStrip.Name = "ContextMenuStripResultFiles") Or RIGHT_ADD_DOC = True Then
@@ -2226,7 +2224,7 @@ Public Class frmNodeNavigation
End If
ClassProxy.PRPROXY_RECORD_UPD_INS(CURRENT_ENTITY_ID, CURRENT_RECORD_ID)
'ClassProxy.PRPROXY_RECORD_UPD_INS(CURRENT_ENTITY_ID, CURRENT_RECORD_ID)
End If
Dim recid As Integer
@@ -2293,17 +2291,17 @@ Public Class frmNodeNavigation
End Function
Private Sub cmsResultFileDetail_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles cmsResultFileDetail.Opening
Try
If clsWindream.SESSION_CREATED = False Then
ClassHelper.MSGBOX_Handler("INFO", "Attention", "Check Your windream-connection and restart ADDI afterwards.", "Could not create a windream session!")
If WMMOD.SessionLoggedin = False Then
ClassHelper.MSGBOX_Handler("INFO", "Attention", "Check Your windream-connection and restart orgFLOW afterwards.", "Could not create a windream session!")
e.Cancel = True
End If
Me.Cursor = Cursors.WaitCursor
Dim oSelectedDocs = ClassWindreamDocGrid.GetSelectedDocuments(GridViewDoc_Search)
Dim oSelectedDocs = ClassDocGrid.GetSelectedDocuments(GridViewDoc_Search)
'Refresh_DocID()
If ClassWindreamDocGrid.HasNoSelectedDocuments(GridViewDoc_Search) Then
If ClassDocGrid.HasNoSelectedDocuments(GridViewDoc_Search) Then
e.Cancel = True
Exit Sub
End If
@@ -2471,7 +2469,7 @@ Public Class frmNodeNavigation
' MsgBox("Could not read File Parameters(5)!", MsgBoxStyle.Exclamation)
' Exit Sub
'End If
If ClassWindreamDocGrid.HasNoSelectedDocuments(GridViewDoc_Search) Then
If ClassDocGrid.HasNoSelectedDocuments(GridViewDoc_Search) Then
MsgBox("Could not read File Parameters(5)!", MsgBoxStyle.Exclamation)
Exit Sub
End If
@@ -2480,13 +2478,13 @@ Public Class frmNodeNavigation
' TimerFileHandle.Enabled = True
' End If
'Next
For Each oDoc As ClassWindreamDocGrid.WindreamDoc In ClassWindreamDocGrid.GetSelectedDocuments(GridViewDoc_Search)
For Each oDoc As ClassDocGrid.clsWMDoc In ClassDocGrid.GetSelectedDocuments(GridViewDoc_Search)
If ClassHelper.File_open(oDoc.DocPath, oDoc.DocId) = True Then
TimerFileHandle.Enabled = True
End If
Next
Else
If clsWD_GET.WDFile_exists(oDocuments.First.DocPath, DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED, ClassProxy.MyLinkedServer, True) = True Then
If WMMOD.TestFileExists(oDocuments.First.DocPath) = True Then
ClassHelper.MSGBOX_Handler("ERROR", "Right-Management", "File is existing, but you do not have the rights to open this file! " & vbNewLine & "Please contact your admin!" & vbNewLine & "DOC-ID: " & oDocuments.First.DocId.ToString)
Else
ClassHelper.MSGBOX_Handler("ERROR", "", "File does not exist! Please contact your admin!")
@@ -2557,7 +2555,7 @@ Public Class frmNodeNavigation
End Sub
Private Async Sub tsmiFileInWork_Click(sender As Object, e As EventArgs) Handles tsmiFileInWork.Click
If ClassWindreamDocGrid.HasNoSelectedDocuments(GridViewDoc_Search) Then
If ClassDocGrid.HasNoSelectedDocuments(GridViewDoc_Search) Then
MsgBox("Could not read File Parameters (3)!", MsgBoxStyle.Exclamation)
Exit Sub
End If
@@ -2581,7 +2579,7 @@ Public Class frmNodeNavigation
End If
Else
frmFileInWork.ShowDialog()
ClassWindreamDocGrid.SELECTED_INWORK = ClassFileResult.InWork
ClassDocGrid.SELECTED_INWORK = ClassFileResult.InWork
Await RUN_WDSEARCH_GRID(True)
End If
End If
@@ -2589,10 +2587,8 @@ Public Class frmNodeNavigation
End Sub
Private Sub frmNodeNavigation_Shown(sender As Object, e As EventArgs) Handles Me.Shown
Dim sw As New SW("Form_Shown")
Me.BringToFront()
TreeListDevexpress.CollapseAll()
sw.Done()
FORM_SHOWN = True
End Sub
@@ -2631,7 +2627,7 @@ Public Class frmNodeNavigation
LOGGER.Warn("Attention: Could not set DocVariable RENAME_DOC_PATH: " & ex.Message)
RENAME_DOC_PATH = Nothing
End Try
If ClassWindreamDocGrid.HasNoSelectedDocuments(GridViewDoc_Search) Then
If ClassDocGrid.HasNoSelectedDocuments(GridViewDoc_Search) Then
MsgBox("Could not read File Parameters!", MsgBoxStyle.Exclamation)
Exit Sub
End If
@@ -2676,14 +2672,14 @@ Public Class frmNodeNavigation
' MsgBox("Could not read File Parameters(5)!", MsgBoxStyle.Exclamation)
' Exit Sub
'End If
If ClassWindreamDocGrid.HasNoSelectedDocuments(GridViewDoc_Search) Then
If ClassDocGrid.HasNoSelectedDocuments(GridViewDoc_Search) Then
MsgBox("Could not read File Parameters(5)!", MsgBoxStyle.Exclamation)
Exit Sub
End If
'For Each row As DataRow In ClassWindreamDocGrid.DT_RESULTFILES.Rows
' ClassHelper.Open_Folder(row.Item("DOC_PATH"), row.Item("DOC_ID"))
'Next
For Each oDoc As ClassWindreamDocGrid.WindreamDoc In ClassWindreamDocGrid.GetSelectedDocuments(GridViewDoc_Search)
For Each oDoc As ClassDocGrid.clsWMDoc In ClassDocGrid.GetSelectedDocuments(GridViewDoc_Search)
ClassHelper.Open_Folder(oDoc.DocPath, oDoc.DocId)
Next
End Sub
@@ -2692,7 +2688,7 @@ Public Class frmNodeNavigation
Try
Dim oDocuments = Current_DocList.SelectedDocuments
If oDocuments.Count = 0 Or ClassWindreamDocGrid.HasNoSelectedDocuments(GridViewDoc_Search) Then
If oDocuments.Count = 0 Or ClassDocGrid.HasNoSelectedDocuments(GridViewDoc_Search) Then
MsgBox("Could not read File Parameters (LinkRecord)!", MsgBoxStyle.Exclamation)
Exit Sub
End If
@@ -2721,7 +2717,7 @@ Public Class frmNodeNavigation
table.Columns.Add("FILEPATH", GetType(System.String))
table.Columns.Add("DOC_ID", GetType(System.Int32))
table.Columns.Add("OBJECTTYPE", GetType(System.String))
For Each oDoc As ClassWindreamDocGrid.WindreamDoc In ClassWindreamDocGrid.GetSelectedDocuments(GridViewDoc_Search)
For Each oDoc As ClassDocGrid.clsWMDoc In ClassDocGrid.GetSelectedDocuments(GridViewDoc_Search)
If oDoc.DocPath <> String.Empty Then
'Set the ID column as the primary key column.
Dim newRow As DataRow = table.NewRow()
@@ -2759,7 +2755,7 @@ Public Class frmNodeNavigation
ClassHelper.MSGBOX_Handler("INFO", "Attention", "Missing Selection:", "Please select a record!")
Exit Sub
End If
If ClassWindreamDocGrid.HasNoSelectedDocuments(GridViewDoc_Search) Then
If ClassDocGrid.HasNoSelectedDocuments(GridViewDoc_Search) Then
Exit Sub
End If
@@ -2771,7 +2767,7 @@ Public Class frmNodeNavigation
result = MessageBox.Show(msg, CAPTION_CONFIRMATION, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
Try
For Each oDoc As ClassWindreamDocGrid.WindreamDoc In ClassWindreamDocGrid.GetSelectedDocuments(GridViewDoc_Search)
For Each oDoc As ClassDocGrid.clsWMDoc In ClassDocGrid.GetSelectedDocuments(GridViewDoc_Search)
If ClassFileResult.Delete_ResultFile(oDoc.DocId, CURRENT_RECORD_ID, 0) = True Then
ClassHelper.InsertEssential_Log(oDoc.DocId, "DOC-ID", "RECORD LINK REMOVED FROM DOC-SEARCH")
Cursor = Cursors.WaitCursor
@@ -2825,12 +2821,12 @@ Public Class frmNodeNavigation
Show_File_Properties()
End Sub
Sub Show_File_Properties()
If ClassWindreamDocGrid.HasNoSelectedDocuments(GridViewDoc_Search) Then
If ClassDocGrid.HasNoSelectedDocuments(GridViewDoc_Search) Then
MsgBox("Could not read File Parameters(4)!", MsgBoxStyle.Exclamation)
Exit Sub
End If
Cursor = Cursors.WaitCursor
For Each oDoc As ClassWindreamDocGrid.WindreamDoc In ClassWindreamDocGrid.GetSelectedDocuments(GridViewDoc_Search)
For Each oDoc As ClassDocGrid.clsWMDoc In ClassDocGrid.GetSelectedDocuments(GridViewDoc_Search)
If oDoc.DocPath <> "" Then
Dim oFileFullPath = ClassHelper.FORMAT_WM_PATH(oDoc.DocPath)
Try
@@ -2920,6 +2916,9 @@ Public Class frmNodeNavigation
'End Sub
Private Sub GridViewDoc_Search_RowStyle(sender As Object, e As RowStyleEventArgs) Handles GridViewDoc_Search.RowStyle
If FORM_SHOWN = False Then
Exit Sub
End If
If e.RowHandle = DevExpress.XtraGrid.GridControl.AutoFilterRowHandle Then
e.Appearance.BackColor = Color.Yellow
Else
@@ -3052,10 +3051,10 @@ Public Class frmNodeNavigation
Show_SelectedDoc()
End Sub
Private Sub Show_SelectedDoc()
Dim oSelectedDocs = ClassWindreamDocGrid.GetSelectedDocuments(GridViewDoc_Search)
Dim oSelectedDocs = ClassDocGrid.GetSelectedDocuments(GridViewDoc_Search)
If oSelectedDocs.Count = 1 Then
Dim oDocument As ClassWindreamDocGrid.WindreamDoc = oSelectedDocs.First()
Dim oDocument As ClassDocGrid.clsWMDoc = oSelectedDocs.First()
Dim oPath = ClassHelper.FORMAT_WM_PATH(oDocument.DocPath)
DocumentViewer.LoadFile(oPath)
Refresh_DocID()
@@ -3103,7 +3102,7 @@ Public Class frmNodeNavigation
Private Sub DokumentartÄndernToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DokumentartÄndernToolStripMenuItem.Click
Try
Dim oSelectedDocs = ClassWindreamDocGrid.GetSelectedDocuments(GridViewDoc_Search)
Dim oSelectedDocs = ClassDocGrid.GetSelectedDocuments(GridViewDoc_Search)
If oSelectedDocs.Count = 0 Then
Exit Sub
@@ -3122,7 +3121,7 @@ Public Class frmNodeNavigation
'Next
If oForm.ShowDialog() = DialogResult.OK Then
If Not IsNothing(oForm.SelectedDocType) Then
For Each oDoc As ClassWindreamDocGrid.WindreamDoc In oSelectedDocs
For Each oDoc As ClassDocGrid.clsWMDoc In oSelectedDocs
If oDoc.DocPath <> "" Then
Dim oWMObject As WINDREAMLib.WMObject
Dim oReldocpath = ClassHelper.GetRelPath(oDoc.DocPath)
@@ -3155,7 +3154,7 @@ Public Class frmNodeNavigation
End Function
Private Sub tsmiFileDelete_Click(sender As Object, e As EventArgs) Handles tsmiFileDelete.Click
If ClassWindreamDocGrid.HasNoSelectedDocuments(GridViewDoc_Search) Then
If ClassDocGrid.HasNoSelectedDocuments(GridViewDoc_Search) Then
MsgBox("Could not read File Parameters (LinkRecord)!", MsgBoxStyle.Exclamation)
Exit Sub
End If
@@ -3174,7 +3173,7 @@ Public Class frmNodeNavigation
Dim result1 As MsgBoxResult
result1 = MessageBox.Show(msg, CAPTION_CONFIRMATION, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result1 = MsgBoxResult.Yes Then
For Each oDoc As ClassWindreamDocGrid.WindreamDoc In ClassWindreamDocGrid.GetSelectedDocuments(GridViewDoc_Search)
For Each oDoc As ClassDocGrid.clsWMDoc In ClassDocGrid.GetSelectedDocuments(GridViewDoc_Search)
If oDoc.DocPath <> "" Then
Try
LOGGER.Info($"DocID {oDoc.DocPath} shall be deleted. User committed Delete-Start...")
@@ -3203,7 +3202,7 @@ Public Class frmNodeNavigation
If ClassFileResult.Delete_ResultFile(oDoc.DocId, CURRENT_RECORD_ID, oDElWMFile) = True Then
If oDElWMFile = True Then
If clsWD_SET.Delete_WDFile(oDoc.DocPath) Then
If WMMOD.RemoveFile(oDoc.DocPath) Then
Update_Status_Label(True, Now.ToLongTimeString & " - File successfully deleted", EditState.Insert)
ClassHelper.InsertEssential_Log(oDoc.DocId, "DOC-ID", "FILE DELETED BY USER")
End If
@@ -3217,10 +3216,7 @@ Public Class frmNodeNavigation
End If
End If
If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
Dim proc = String.Format("EXEC PRPROXY_DOC_CHECK_DELETE {0}", oDoc.DocId)
MYDB_ECM.ExecuteNonQuery(proc)
End If
Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in delete file: ", ex.Message)
End Try

10
app/DD-Record-Organizer/frmRecOrgConfig_Basic.vb
View File

@@ -1,5 +1,4 @@
Imports DD_Rights
Imports DD_LIB_Standards
'Imports DD_Rights
Public Class frmRecOrgConfig_Basic
Dim loaded As Boolean = False
Dim changes_ModuleKonfig As Boolean = False
@@ -164,9 +163,10 @@ Public Class frmRecOrgConfig_Basic
Private Sub btnTest_Anmeldung_Click(sender As Object, e As EventArgs) Handles btnTest_Anmeldung.Click
Try
DD_Rights.clsLogger.Init(Application.UserAppDataPath() & "\Log", USER_USERNAME)
Dim session = DD_Rights.ClassRights.GetWMSessionAsUser(Me.txtDomäne.Text, Me.txtServername.Text, Me.txtUser.Text, Me.txtPW.Text)
If Not IsNothing(session) Then
'DD_Rights.clsLogger.Init(Application.UserAppDataPath() & "\Log", USER_USERNAME)
' Dim session = DD_Rights.ClassRights.GetWMSessionAsUser(Me.txtDomäne.Text, Me.txtServername.Text, Me.txtUser.Text, Me.txtPW.Text)
Dim oWMMOD As DigitalData.Modules.Windream.Windream = New DigitalData.Modules.Windream.Windream(LOGCONFIG, False, WMDriveLetter, WMPATH_PREFIX, True, Me.txtServername.Text, Me.txtUser.Text, Me.txtPW.Text, Me.txtDomäne.Text)
If Not IsNothing(oWMMOD) Then
MsgBox("The persionalized connection to windream was created successfully!", MsgBoxStyle.Information)
Dim wrapper As New ClassEncryption("!35452didalog=")
Dim cipherText As String = wrapper.EncryptData(Me.txtPW.Text)

81
app/DD-Record-Organizer/frmRecordView.vb
View File

@@ -1,8 +1,6 @@
Imports System.IO
Imports System.Runtime.InteropServices
Imports DevExpress.XtraEditors
Imports DD_LIB_Standards
Public Class frmRecordView
Private recordView As ClassRecordView
Private ENTITY_ID, FORMVIEW_ID, PARENT_ENTITY_ID, WF_TASK_ID, RECORD_ID As Integer
@@ -16,7 +14,7 @@ Public Class frmRecordView
Private DT_DOCRESULT_DROPDOWN_ITEMS As DataTable
Private _Changed As Boolean = False
<DllImport("Shell32", CharSet:=CharSet.Auto, SetLastError:=True)> _
<DllImport("Shell32", CharSet:=CharSet.Auto, SetLastError:=True)>
Public Shared Function ShellExecuteEx(ByRef lpExecInfo As SHELLEXECUTEINFO) As Boolean
End Function
Public Structure SHELLEXECUTEINFO
@@ -58,8 +56,6 @@ Public Class frmRecordView
Dim sql = "SELECT FORM_ID FROM TBPMO_RECORD WHERE GUID = " & RECORD_ID
ENTITY_ID = MYDB_ECM.GetScalarValue(sql)
ClassRightManagement.Check_Set_Rights(RECORD_ID, ENTITY_ID)
ClassProxy.Refresh_Workflow_Data()
'sql = String.Format("select * from TBPMO_DOCSEARCH_VARIABLE_CONTROLS WHERE ENTITY_ID = {0}", ENTITY_ID)
DT_RESULTLIST_OPTIONS = ClassHelper.FILTER_DATATABLE(CURRENT_VARIABLE_CONTROLS, "ENTITY_ID = " & ENTITY_ID, "") 'MYDB_ECM.GetDatatable(sql)
' sql = String.Format("select * from TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE VISIBLE = 1 AND ENTITY_ID = {0} AND LANGUAGE = '{1}' AND COLUMN_VIEW LIKE 'VALUE%' ORDER BY SEQUENCE", ENTITY_ID, USER_LANGUAGE)
@@ -88,17 +84,15 @@ Public Class frmRecordView
Dim ComboBox As DevExpress.XtraEditors.ComboBoxEdit = sender
'Dim ItemComboBox As RepositoryItemComboBox
'ItemComboBox = sender
Dim item As ClassWindreamDocGrid.WindreamDocGridComboboxItem = ComboBox.SelectedItem
Dim item As ClassDocGrid.WindreamDocGridComboboxItem = ComboBox.SelectedItem
Dim value As String = item.Value
Dim configId As Integer = item.ConfigID
Dim docId As Integer = ClassWindreamDocGrid.SELECTED_DOC_ID
Dim docId As Integer = ClassDocGrid.SELECTED_DOC_ID
Dim user As String = USER_USERNAME
Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE_UPD_INS {0}, {1}, {2},'{3}','{4}'", docId, RECORD_ID, configId, value, user)
If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
MsgBox("The Update-Command was not successful! Check the log!",, MsgBoxStyle.Critical)
Else
ClassProxy.PRPROXY_DOC_VALUES_UPD(docId, RECORD_ID)
End If
Catch ex As Exception
MsgBox("Error:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@@ -111,16 +105,14 @@ Public Class frmRecordView
Dim DatePicker As DateEdit = sender
Dim value As DateTime = DatePicker.EditValue
Dim colTitle = DirectCast(GridControlDocSearch.MainView, DevExpress.XtraGrid.Views.Grid.GridView).FocusedColumn.FieldName
Dim configId As Integer = ClassWindreamDocGrid.RESULT_CONFIG_IDS.Item(colTitle)
Dim docId As Integer = ClassWindreamDocGrid.SELECTED_DOC_ID
Dim configId As Integer = ClassDocGrid.RESULT_CONFIG_IDS.Item(colTitle)
Dim docId As Integer = ClassDocGrid.SELECTED_DOC_ID
Dim user As String = USER_USERNAME
Dim dateString = value.ToString("yyyy-MM-dd") 'hh:mm:ss.fff
Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE_UPD_INS {0}, {1}, {2},'{3}','{4}'", docId, RECORD_ID, configId, dateString, user)
If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
MsgBox("The Update-Command was not successful! Check the log!",, MsgBoxStyle.Critical)
Else
ClassProxy.PRPROXY_DOC_VALUES_UPD(docId, RECORD_ID)
End If
Catch ex As Exception
MsgBox("Error in OnDateSelectedValueChanged:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@@ -132,15 +124,13 @@ Public Class frmRecordView
Dim TextBox As TextEdit = sender
Dim value = TextBox.EditValue
Dim colTitle = DirectCast(GridControlDocSearch.MainView, DevExpress.XtraGrid.Views.Grid.GridView).FocusedColumn.FieldName
Dim configId As Integer = ClassWindreamDocGrid.RESULT_CONFIG_IDS.Item(colTitle)
Dim docId As Integer = ClassWindreamDocGrid.SELECTED_DOC_ID
Dim configId As Integer = ClassDocGrid.RESULT_CONFIG_IDS.Item(colTitle)
Dim docId As Integer = ClassDocGrid.SELECTED_DOC_ID
Dim user As String = USER_USERNAME
Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE_UPD_INS {0}, {1}, {2},'{3}','{4}'", docId, RECORD_ID, configId, value, user)
If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
MsgBox("The Update-Command was not successful! Check the log!",, MsgBoxStyle.Critical)
Else
ClassProxy.PRPROXY_DOC_VALUES_UPD(docId, RECORD_ID)
End If
Catch ex As Exception
MsgBox("Error in OnTextSelectedValueChanged:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@@ -172,7 +162,7 @@ Public Class frmRecordView
tslblWindreamView.Text = msg
If DT_RESULT.Rows.Count > 0 Then
ClassWindreamDocGrid.FillColumns(
ClassDocGrid.FillColumns(
GridViewDoc_Search,
DT_RESULT,
DT_WINDREAM_RESULTLIST,
@@ -403,9 +393,7 @@ Public Class frmRecordView
ins = String.Format("INSERT INTO TBPMO_WORKFLOW_TASK_HISTORY (WF_TASK_ID,STATE_ID,STATE_DESC,COMMENT,ADDED_WHO) VALUES" &
"({0},{1},'{2}','{3}','{4}')", WF_TASK_ID, STATE_id, State_DESC, Comment, USER_USERNAME)
If MYDB_ECM.ExecuteNonQuery(ins) Then
If clsDatabase.DB_PROXY_INITIALIZED = True Then
MYDB_ECM.ExecuteNonQuery("EXEC PRPROXY_TBPMO_WORKFLOW_TASK_HISTORY_INS " & WF_TASK_ID)
End If
End If
End If
@@ -417,15 +405,12 @@ Public Class frmRecordView
"WHERE GUID = {4}", COMMENTTextBox.Text, DUE_DATEDateTimePicker.Value, USER_USERNAME, DateTimePickerTASK_DATE.Value, WF_TASK_ID)
End If
If MYDB_ECM.ExecuteNonQuery(upd) Then
If clsDatabase.DB_PROXY_INITIALIZED = True Then
MYDB_ECM.ExecuteNonQuery("EXEC PRPROXY_TBPMO_WORKFLOW_TASK_UPDATE " & WF_TASK_ID)
End If
End If
STATE_IDComboBox.SelectedIndex = -1
ClassWorkflow.Refresh_Workflows_Entity()
ClassProxy.Refresh_Workflow_Data()
'ClassProxy.Refresh_Workflow_Data()
Load_Task_Data()
Load_States()
Check_end()
@@ -458,47 +443,37 @@ Public Class frmRecordView
End Sub
Private Sub GridViewDoc_Search_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs)
ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search)
'Try
' ClassWindreamDocGrid.RESULT_DOC_PATH = GridViewDoc_Search.GetFocusedRowCellValue(GridViewDoc_Search.Columns("FULLPATH"))
'Catch ex As Exception
' ClassWindreamDocGrid.RESULT_DOC_PATH = Nothing
'End Try
ClassDocGrid.GetDocItems(GridViewDoc_Search)
End Sub
Private Sub GridControlDocSearch_DoubleClick(sender As Object, e As EventArgs)
ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search)
'Try
' ClassWindreamDocGrid.RESULT_DOC_PATH = GridViewDoc_Search.GetFocusedRowCellValue(GridViewDoc_Search.Columns("FULLPATH"))
'Catch ex As Exception
' ClassWindreamDocGrid.RESULT_DOC_PATH = Nothing
'End Try
If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then
ClassDocGrid.GetDocItems(GridViewDoc_Search)
If IsNothing(ClassDocGrid.DT_RESULTFILES) Then
MsgBox("Could not read File Parameters(DoubleClick)!", MsgBoxStyle.Exclamation)
Exit Sub
End If
For Each row As DataRow In ClassWindreamDocGrid.DT_RESULTFILES.Rows
For Each row As DataRow In ClassDocGrid.DT_RESULTFILES.Rows
ClassHelper.File_open(row.Item("DOC_PATH"), 0)
Next
End Sub
Private Sub DateiÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DateiÖffnenToolStripMenuItem.Click
If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then
If IsNothing(ClassDocGrid.DT_RESULTFILES) Then
MsgBox("Could not read File Parameters(DoubleClick)!", MsgBoxStyle.Exclamation)
Exit Sub
End If
For Each row As DataRow In ClassWindreamDocGrid.DT_RESULTFILES.Rows
For Each row As DataRow In ClassDocGrid.DT_RESULTFILES.Rows
ClassHelper.File_open(row.Item("DOC_PATH"), 0)
Next
End Sub
Private Sub PropertiesToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PropertiesToolStripMenuItem.Click
If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then
If IsNothing(ClassDocGrid.DT_RESULTFILES) Then
MsgBox("Could not read File Parameters(Properties RecordView)!", MsgBoxStyle.Exclamation)
Exit Sub
End If
For Each row As DataRow In ClassWindreamDocGrid.DT_RESULTFILES.Rows
For Each row As DataRow In ClassDocGrid.DT_RESULTFILES.Rows
If row.Item("DOC_PATH") <> "" Then
Cursor = Cursors.WaitCursor
Dim sei As New SHELLEXECUTEINFO
@@ -631,7 +606,6 @@ Public Class frmRecordView
If MYDB_ECM.ExecuteNonQuery(Ins) = False Then
MsgBox(String.Format("Error in Adding User {0} to Task", row.Item(1)), MsgBoxStyle.Critical)
Else
ClassProxy.Refresh_Workflow_Data()
Load_TASK_USER()
End If
@@ -737,10 +711,7 @@ Public Class frmRecordView
Try
If (Me.ListViewExclusiveUser.SelectedItems.Count > 0) Then
Dim sql = "DELETE FROM TBPMO_WORKFLOW_TASK_USER WHERE GUID = " & Me.ListViewExclusiveUser.SelectedItems.Item(0).Text
MYDB_ECM.ExecuteNonQuery(SQL)
If clsDatabase.DB_PROXY_INITIALIZED Then
MYDB_ECM.ExecuteNonQuery(SQL)
End If
MYDB_ECM.ExecuteNonQuery(sql)
Load_TASK_USER()
End If
Catch ex As Exception
@@ -755,29 +726,29 @@ Public Class frmRecordView
End Sub
Private Sub GridViewDoc_Search_FocusedRowChanged_1(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles GridViewDoc_Search.FocusedRowChanged
ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search)
ClassDocGrid.GetDocItems(GridViewDoc_Search)
End Sub
Private Sub GridViewDoc_Search_FocusedColumnChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedColumnChangedEventArgs) Handles GridViewDoc_Search.FocusedColumnChanged
ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search)
ClassDocGrid.GetDocItems(GridViewDoc_Search)
End Sub
Private Sub GridControlDocSearch_DoubleClick_1(sender As Object, e As EventArgs) Handles GridControlDocSearch.DoubleClick
'Get_Doc_Items()
ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search)
If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then
ClassDocGrid.GetDocItems(GridViewDoc_Search)
If IsNothing(ClassDocGrid.DT_RESULTFILES) Then
MsgBox("Could not read File Parameters(5)!", MsgBoxStyle.Exclamation)
Exit Sub
End If
For Each row As DataRow In ClassWindreamDocGrid.DT_RESULTFILES.Rows
For Each row As DataRow In ClassDocGrid.DT_RESULTFILES.Rows
ClassHelper.File_open(row.Item("DOC_PATH"), row.Item("DOC_ID"))
Next
End Sub
Private Sub ContextMenuStripResultFiles_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStripResultFiles.Opening
ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search)
Dim Result = ClassDOC_SEARCH.Get_File_Rights(ClassWindreamDocGrid.SELECTED_DOC_ID) 'clsWD_GET.Get_File_Rights(ClassWindreamDocGrid.SELECTED_DOC_PATH, USER_USERNAME)
ClassDocGrid.GetDocItems(GridViewDoc_Search)
Dim Result = ClassDOC_SEARCH.Get_File_Rights(ClassDocGrid.SELECTED_DOC_ID)
If Not IsNothing(Result) Then

8
app/DD-Record-Organizer/frmRight_Management.vb
View File

@@ -1,5 +1,4 @@
Imports DD_Record_Organizer.ControlLoader
Public Class frmRight_Management
Private Shared _Instance As frmRight_Management = Nothing
Private insert As Boolean = False
@@ -34,13 +33,6 @@ Public Class frmRight_Management
MsgBox("Error in Save_User_Rights_Data:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub frmRight_Management_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
MessageBox.Show("If You changed some data here, be aware that this data needs to be synchronized with Your proxy-data!" & vbNewLine & "The regualar processing-time are 30 minutes", "Attention", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
'Save_Datagrid(TBPMO_RIGHT_USERDataGridView, "TBPMO_RIGHT_USERDataGridView")
End Sub
Private Sub frmGroup_Rights_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Refresh_Entities()
Try

27
app/DD-Record-Organizer/frmUserKonfig.vb
View File

@@ -1,5 +1,4 @@
Imports DD_LIB_Standards
Public Class frmUserKonfig
Public Class frmUserKonfig
Private Shared _Instance As frmUserKonfig = Nothing
Public Shared Function Instance() As frmUserKonfig
If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then
@@ -135,7 +134,7 @@ Public Class frmUserKonfig
Dim SQL As String = String.Format("SELECT GROUP_NAME FROM VWPMO_USERS_GROUPS WHERE USER_ID = {0}", userID)
Try
Dim dt As DataTable = MYDB_ECM.GetDatatable(sql)
Dim dt As DataTable = MYDB_ECM.GetDatatable(SQL)
lbGroups.Items.Clear()
For Each row As DataRow In dt.Rows
@@ -157,7 +156,7 @@ Public Class frmUserKonfig
Dim SQL As String = String.Format("SELECT T.GUID, T1.CLIENT_NAME FROM TBDD_CLIENT_USER T, TBDD_CLIENT T1 WHERE T.CLIENT_ID = T1.GUID AND T.USER_ID = {0} ORDEr BY T1.CLIENT_NAME", userID)
Try
Dim dt As DataTable = MYDB_ECM.GetDatatable(sql)
Dim dt As DataTable = MYDB_ECM.GetDatatable(SQL)
lstbxUserMandant.Items.Clear()
For Each row As DataRow In dt.Rows
@@ -348,9 +347,9 @@ Public Class frmUserKonfig
For Each row As DataRow In DD_ECMAdmin.TBAD_Users.Rows
If row.Item(0) = CBool(True) Then
Dim sql = "select count(*) from TBDD_GROUPS_USER Where user_id = " & row.Item(5) & " AND GROUP_ID = " & cmbGroups_Group2User.SelectedValue
If MYDB_ECM.GetScalarValue(SQL) = 0 Then
If MYDB_ECM.GetScalarValue(sql) = 0 Then
sql = String.Format("INSERT INTO TBDD_GROUPS_USER (USER_ID, GROUP_ID, ADDED_WHO) VALUES ({0}, {1}, '{2}')", row.Item(5), cmbGroups_Group2User.SelectedValue, USER_USERNAME)
If MYDB_ECM.ExecuteNonQuery(SQL) = False Then
If MYDB_ECM.ExecuteNonQuery(sql) = False Then
MsgBox(String.Format("Error in Adding User {0} to Group {1}", row.Item(1), cmbGroups_Group2User.Text), MsgBoxStyle.Critical)
End If
End If
@@ -378,7 +377,7 @@ Public Class frmUserKonfig
Dim SQL As String = String.Format("SELECT T1.GUID, T.USERNAME, T.EMAIL FROM TBDD_USER T, TBDD_GROUPS_USER T1 WHERE T1.USER_ID = T.GUID AND T1.GROUP_ID = {0} ORDER BY T.USERNAME", cmbGroups_Group2User.SelectedValue)
lblUserforGroup.Text = "Users for Group " & cmbGroups_Group2User.Text
Try
Dim dt As DataTable = MYDB_ECM.GetDatatable(sql)
Dim dt As DataTable = MYDB_ECM.GetDatatable(SQL)
DD_ECMAdmin.TBWH_Users1.Clear()
For Each row As DataRow In dt.Rows
@@ -412,7 +411,7 @@ Public Class frmUserKonfig
If row.Item(0) = CBool(True) Then
Dim sql
sql = String.Format("DELETE FROM TBDD_GROUPS_USER WHERE GUID = {0}", row.Item(5))
If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
If MYDB_ECM.ExecuteNonQuery(sql) = False Then
MsgBox(String.Format("Error in deleting User {0} from Group", row.Item(1)), MsgBoxStyle.Critical)
End If
End If
@@ -483,9 +482,9 @@ Public Class frmUserKonfig
For Each row As DataRow In DD_ECMAdmin.TBWH_Users2.Rows
If row.Item(0) = CBool(True) Then
Dim sql = "select count(*) from TBDD_CLIENT_USER Where user_id = " & row.Item(5) & " AND CLIENT_ID = " & cmbClientsforUser.SelectedValue
If MYDB_ECM.GetScalarValue(SQL) = 0 Then
If MYDB_ECM.GetScalarValue(sql) = 0 Then
sql = String.Format("INSERT INTO TBDD_CLIENT_USER (USER_ID, CLIENT_ID, ADDED_WHO) VALUES ({0}, {1}, '{2}')", row.Item(5), cmbClientsforUser.SelectedValue, USER_USERNAME)
If MYDB_ECM.ExecuteNonQuery(SQL) = False Then
If MYDB_ECM.ExecuteNonQuery(sql) = False Then
MsgBox(String.Format("Error in Adding User {0} to Client {1}", row.Item(1), cmbGroups_Group2User.Text), MsgBoxStyle.Critical)
End If
End If
@@ -510,7 +509,7 @@ Public Class frmUserKonfig
Dim SQL As String = String.Format("SELECT T1.GUID, T.USERNAME, T.EMAIL FROM TBDD_USER T, TBDD_CLIENT_USER T1 WHERE T1.USER_ID = T.GUID AND T1.CLIENT_ID = {0} ORDER BY T.USERNAME", cmbClientsforUser.SelectedValue)
Try
Dim dt As DataTable = MYDB_ECM.GetDatatable(sql)
Dim dt As DataTable = MYDB_ECM.GetDatatable(SQL)
DD_ECMAdmin.TBWH_Users1.Clear()
For Each row As DataRow In dt.Rows
Dim newUserRow As DD_ECMAdmin.TBWH_Users1Row
@@ -542,7 +541,7 @@ Public Class frmUserKonfig
If row.Item(0) = CBool(True) Then
Dim sql
sql = String.Format("DELETE FROM TBDD_CLIENT_USER WHERE GUID = {0}", row.Item(5))
If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
If MYDB_ECM.ExecuteNonQuery(sql) = False Then
MsgBox(String.Format("Error in deleting User {0} from Client", row.Item(1)), MsgBoxStyle.Critical)
End If
End If
@@ -616,7 +615,7 @@ Public Class frmUserKonfig
Else
sql = String.Format("UPDATE TBDD_VERSION_USER_UPDATE_PATH SET UPDATE_PATH = '{0}' WHERE USER_ID = {1} AND UPPER(MODULE_NAME) = 'RECORD-ORGANIZER'", txtPath.Text, row.Item(5))
End If
If MYDB_ECM.ExecuteNonQuery(SQL) = False Then
If MYDB_ECM.ExecuteNonQuery(sql) = False Then
msg &= vbNewLine & String.Format("for User '{0}'", row.Item(1))
End If
End If
@@ -629,7 +628,7 @@ Public Class frmUserKonfig
row.Item(0) = CBool(False)
Next
End If
End Sub
Private Sub SelectAllToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SelectAllToolStripMenuItem.Click

6
app/DD-Record-Organizer/frmWM_CreateVersion.vb
View File

@@ -1,5 +1,4 @@
Imports DD_LIB_Standards
Imports DevExpress.DataAccess.Native
Imports DevExpress.DataAccess.Native
Imports DevExpress.XtraGrid.Views.Base.ViewInfo
Public Class frmWM_CreateVersion
@@ -8,8 +7,7 @@ Public Class frmWM_CreateVersion
End Sub
Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
clsDatabase.GUI = True
If clsWD_SET.Create_Version(ClassFileResult.DocumentPath, txtComment.Text) Then
If WMMOD.NewFileVersion(ClassFileResult.DocumentPath, txtComment.Text) Then
MsgBox("Version has been created successfully!", MsgBoxStyle.Information)
'Dim oSql = $"SELECT dwVersionID FROM VWPMO_DOC_SEARCH WHERE DocID = {BW_DocID}"
'Dim odwVersionId = MYDB_ECM.GetScalarValue(oSql)

16
app/DD-Record-Organizer/frmWM_DoctypeConfig.vb
View File

@@ -1,5 +1,4 @@
Imports DD_LIB_Standards
Public Class frmWM_DoctypeConfig
Public Class frmWM_DoctypeConfig
Private Shared _Instance As frmWM_DoctypeConfig = Nothing
Private insert As Boolean = False
Public Shared akt_DokartID As Integer
@@ -170,13 +169,12 @@ Public Class frmWM_DoctypeConfig
Private Sub ObjektTypenEintragen()
Try
Dim oDokumentTyp As WINDREAMLib.WMObject
' Combobox leeren
Me.OBJEKTTYPComboBox.Items.Clear()
' alle Objekttypen durchlaufen
For Each oDokumentTyp In clsWD_GET.GetObjecttypesAsObjects
For Each oDokumentTyp As String In WMMOD.ObjectTypes
' und in die Combobox eintragen
Me.OBJEKTTYPComboBox.Items.Add(oDokumentTyp.aName)
Me.OBJEKTTYPComboBox.Items.Add(oDokumentTyp)
Next
Catch ex As Exception
MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Eintragen der Objekttypen")
@@ -191,11 +189,11 @@ Public Class frmWM_DoctypeConfig
Try
If Me.OBJEKTTYPComboBox.SelectedIndex <> -1 Then
Me.INDEXNAMEComboBox.Items.Clear()
Dim indexe = clsWD_GET.GetIndicesByObjecttype(OBJEKTTYPComboBox.Text)
Dim indexe = WMMOD.GetIndiciesByObjecttype(OBJEKTTYPComboBox.Text)
If indexe IsNot Nothing Then
Me.INDEXNAMEComboBox.Items.Add("(ONLY for Nameconvention)")
For Each index As String In indexe
Me.INDEXNAMEComboBox.Items.Add(index)
For Each oIndex As String In indexe
Me.INDEXNAMEComboBox.Items.Add(oIndex)
Next
End If
End If
@@ -319,7 +317,7 @@ Public Class frmWM_DoctypeConfig
akt_DokartID = GUIDTextBox.Text
Dim sql As String = "select COUNT(T.GUID) FROM TBPMO_WD_FORMVIEW_DOKTYPES T, TBPMO_FORM_VIEW T1 WHERE T.FORMVIEW_ID = T1.GUID AND T1.SCREEN_ID = 1 AND T.DOCTYPE_ID = " & akt_DokartID
Dim count = MYDB_ECM.GetScalarValue(SQL)
Dim count = MYDB_ECM.GetScalarValue(sql)
If count > 0 Then
frmDoctype_NameConvention.ShowDialog()
Else

5
app/DD-Record-Organizer/frmWM_EntityImport.Designer.vb generated
View File

@@ -117,6 +117,7 @@ Partial Class frmWM_EntityImport
'
resources.ApplyResources(Me.ListView1, "ListView1")
Me.ListView1.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader1, Me.ColumnHeader2})
Me.ListView1.HideSelection = False
Me.ListView1.Name = "ListView1"
Me.ListView1.UseCompatibleStateImageBehavior = False
Me.ListView1.View = System.Windows.Forms.View.Details
@@ -215,7 +216,7 @@ Partial Class frmWM_EntityImport
Me.btnopenfolder.Name = "btnopenfolder"
Me.btnopenfolder.UseVisualStyleBackColor = True
'
'frmWD_EntityImport
'frmWM_EntityImport
'
resources.ApplyResources(Me, "$this")
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
@@ -243,7 +244,7 @@ Partial Class frmWM_EntityImport
Me.Controls.Add(Me.txtEntityString)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Name = "frmWD_EntityImport"
Me.Name = "frmWM_EntityImport"
Me.ResumeLayout(False)
Me.PerformLayout()

5
app/DD-Record-Organizer/frmWM_EntityImport.en-US.resx
View File

@@ -198,7 +198,7 @@ Only files will be imported</value>
<value>NoControl</value>
</data>
<data name="Label6.Size" type="System.Drawing.Size, System.Drawing">
<value>312, 15</value>
<value>313, 15</value>
</data>
<data name="Label6.Text" xml:space="preserve">
<value>Exclusion-Filter: (Add new Filters separated by a |-Symbol)</value>
@@ -288,9 +288,6 @@ Only files will be imported</value>
AAAAAAAAAAAAAAAAAAAAAAAAwAAAAMAAAADAAAAAwAAAAP4AAAD/AAAA
</value>
</data>
<data name="$this.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data>
<data name="$this.Text" xml:space="preserve">
<value>Import designer for Entity documents</value>
</data>

1105
app/DD-Record-Organizer/frmWM_EntityImport.resx
View File

File diff suppressed because it is too large Load Diff

21
app/DD-Record-Organizer/frmWM_EntityImport.vb
View File

@@ -11,23 +11,22 @@ Public Class frmWM_EntityImport
Private Sub frmWD_EntityImport_Load(sender As Object, e As EventArgs) Handles Me.Load
Me.txtEntityString.Text = CURRENT_ENTITYSTRING
If clsWindream.SESSION_CREATED = True Then
If WMMOD.SessionReconnect Then
ObjektTypenEintragen()
End If
End Sub
Private Sub ObjektTypenEintragen()
Try
Dim oDokumentTyp As WINDREAMLib.WMObject
' Combobox leeren
Me.cmbObjekttyp.Items.Clear()
' alle Objekttypen durchlaufen
For Each oDokumentTyp In clsWD_GET.GetObjecttypesAsObjects
For Each oDokumentTyp As String In WMMOD.ObjectTypes
' und in die Combobox eintragen
Me.cmbObjekttyp.Items.Add(oDokumentTyp.aName)
Me.cmbObjekttyp.Items.Add(oDokumentTyp)
Next
Catch ex As Exception
MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Eintragen der Objekttypen")
@@ -139,42 +138,42 @@ Public Class frmWM_EntityImport
End Sub
Private Function WINDREAM_IMPORT()
Try
clsWindream.MY_WDOBJECTTYPE = Me.cmbObjekttyp.Text
WMOBJECTTYPE = Me.cmbObjekttyp.Text
Dim streamresult = clsWD_SET.Stream_File(LOCAL_IMPORTFILE, LOCAL_TARGET_PATH)
'Dim type = streamresult.GetType
If streamresult = True Then
Dim indexierung_erfolgreich As Boolean = False
'den Entity-Key auslesen
Dim sql As String = "Select Top 1 * from TBPMO_WD_OBJECTTYPE where Upper(object_type) = Upper('" & clsWindream.MY_WDOBJECTTYPE & "')"
Dim sql As String = "Select Top 1 * from TBPMO_WD_OBJECTTYPE where Upper(object_type) = Upper('" & WMOBJECTTYPE & "')"
Dim dt As DataTable = MYDB_ECM.GetDatatable(sql)
If Not dt Is Nothing Then
If dt.Rows.Count = 1 Then
Dim indexname = dt.Rows(0).Item("IDXNAME_ENTITYID").ToString
Dim idxvalue = CURRENT_ENTITY_ID
LOGGER.Debug("Entity-ID: " & idxvalue.ToString, False)
indexierung_erfolgreich = clsWD_SET.IndexFile(CURRENT_FILEIN_WD, indexname, idxvalue, clsWindream.MY_WDOBJECTTYPE)
indexierung_erfolgreich = clsWD_SET.IndexFile(CURRENT_FILEIN_WD, indexname, idxvalue, WMOBJECTTYPE)
If indexierung_erfolgreich = False Then
MsgBox("Error in indexing file Entity - See log", MsgBoxStyle.Critical)
End If
indexname = dt.Rows(0).Item("IDXNAME_PARENTID").ToString
idxvalue = CURRENT_PARENT_ENTITY_ID
LOGGER.Debug("Parent-ID: " & idxvalue.ToString, False)
indexierung_erfolgreich = clsWD_SET.IndexFile(CURRENT_FILEIN_WD, indexname, idxvalue, clsWindream.MY_WDOBJECTTYPE)
indexierung_erfolgreich = clsWD_SET.IndexFile(CURRENT_FILEIN_WD, indexname, idxvalue, WMOBJECTTYPE)
If indexierung_erfolgreich = False Then MsgBox("Error in indexing file Parent-ID - See log", MsgBoxStyle.Critical)
'###
'den Record-Key auslesen
indexname = dt.Rows(0).Item("IDXNAME_PARENTID").ToString
idxvalue = CURRENT_RECORD_ID
LOGGER.Debug("Record-ID: " & idxvalue.ToString, False)
indexierung_erfolgreich = clsWD_SET.IndexFile(CURRENT_FILEIN_WD, indexname, idxvalue, clsWindream.MY_WDOBJECTTYPE)
indexierung_erfolgreich = clsWD_SET.IndexFile(CURRENT_FILEIN_WD, indexname, idxvalue, WMOBJECTTYPE)
If indexierung_erfolgreich = False Then MsgBox("Unexpected Error in indexing file Record-ID - See log", MsgBoxStyle.Critical)
'den Doctype-Key auslesen
indexname = dt.Rows(0).Item("IDXNAME_DOCTYPE").ToString
idxvalue = CURRENT_DOKARTSTRING
LOGGER.Debug("Doctype: " & idxvalue.ToString, False)
indexierung_erfolgreich = clsWD_SET.IndexFile(CURRENT_FILEIN_WD, indexname, idxvalue, clsWindream.MY_WDOBJECTTYPE)
indexierung_erfolgreich = clsWD_SET.IndexFile(CURRENT_FILEIN_WD, indexname, idxvalue, WMOBJECTTYPE)
If indexierung_erfolgreich = False Then MsgBox("Unexpected Error in indexing file Doctype - See log", MsgBoxStyle.Critical)
'####
End If

131
app/DD-Record-Organizer/frmWM_Import_Doc_Record.vb
View File

@@ -4,8 +4,8 @@ Imports DD_LIB_Standards
Public Class frmWM_Import_Doc_Record
Private bwsearch As New BackgroundWorker
Private windreamSucheErgebnisse As WMObjects
Private aktivesDokument As WMObject
Private windreamSucheErgebnisse As DataTable
Private activeWMDok_Path = ""
Private PROFILE_WD_SEARCH, PROFILE_SQL_DOCTYPE, PROFILE_SQL_UNIQUE, PROFILE_OBJECTTYPE, PROFILE_IDX_WORKED, PROFILE_SQL_PARENT, PROFILE_NEW_OT As String
Private PROFILE_ENTITY As Integer
@@ -42,7 +42,7 @@ Public Class frmWM_Import_Doc_Record
End Try
End Sub
Private Sub frmWD_Import_Doc_Recordvb_Load(sender As Object, e As EventArgs) Handles MyBase.Load
If clsWindream.Create_Session = True Then
If WMMOD.SessionLoggedin Then
ObjektTypenEintragen()
Else
MsgBox("Could not create a windream-session!!", MsgBoxStyle.Critical)
@@ -61,7 +61,7 @@ Public Class frmWM_Import_Doc_Record
Sub Laod_Profiles()
Try
Me.TBPMO_WD_IMPORT_PROFILETableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_WD_IMPORT_PROFILE)
Dim sql = String.Format("SELECT T.GUID, T1.FORM_TITLE,[dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), T1.GUID), {1}) AS 'CAPTION' FROM " & _
Dim sql = String.Format("SELECT T.GUID, T1.FORM_TITLE,[dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), T1.GUID), {1}) AS 'CAPTION' FROM " &
"TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.GUID IN (select DISTINCT ENTITY_ID FROM TBPMO_CLIENT_ENTITY WHERE CLIENT_ID IN (select client_Id from TBDD_CLIENT_USER where USER_ID = {2}))", USER_LANGUAGE, CURRENT_SCREEN_ID, USER_GUID)
Dim DT As DataTable = MYDB_ECM.GetDatatable(sql)
cmbentity.DataSource = DT
@@ -82,18 +82,17 @@ Public Class frmWM_Import_Doc_Record
MsgBox("Error in Loading Profiles to Combobox:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub ObjektTypenEintragen()
Try
Dim oDokumentTyp As WINDREAMLib.WMObject
' Combobox leeren
Me.NEW_OBJECTTYPEComboBox.Items.Clear()
Me.OLD_OBJECTTYPEComboBox.Items.Clear()
' alle Objekttypen durchlaufen
For Each oDokumentTyp In clsWD_GET.GetObjecttypesAsObjects
For Each oDokumentTyp As String In WMMOD.ObjectTypes
' und in die Combobox eintragen
Me.NEW_OBJECTTYPEComboBox.Items.Add(oDokumentTyp.aName)
Me.OLD_OBJECTTYPEComboBox.Items.Add(oDokumentTyp.aName)
Me.NEW_OBJECTTYPEComboBox.Items.Add(oDokumentTyp)
Me.OLD_OBJECTTYPEComboBox.Items.Add(oDokumentTyp)
Next
Catch ex As Exception
MsgBox("Error in loading Objecttypes:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@@ -143,6 +142,7 @@ Public Class frmWM_Import_Doc_Record
MsgBox("Error in getting Profile Parameters:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
windreamSucheErgebnisse = Nothing
'Die NI wird ganz normal gestartet
Me.btnStartStop.Text = "Import stoppen"
Search_Completed = False
@@ -160,7 +160,7 @@ Public Class frmWM_Import_Doc_Record
End Sub
Public Sub Start_Profile()
Try
If clsWindream.SESSION_CREATED = False Then
If WMMOD.SessionLoggedin = False Then
MsgBox("windream could not be init'ed!!", MsgBoxStyle.Critical)
Exit Sub
End If
@@ -178,21 +178,21 @@ Public Class frmWM_Import_Doc_Record
Loop
If Not IsNothing(windreamSucheErgebnisse) Then
If windreamSucheErgebnisse.Count > 0 Then
If windreamSucheErgebnisse.Rows.Count > 0 Then
Me.ProgressBar1.Minimum = 0
Me.ProgressBar1.Maximum = windreamSucheErgebnisse.Count
Me.ProgressBar1.Maximum = windreamSucheErgebnisse.Rows.Count
Me.ProgressBar1.Value = 0
Me.Refresh()
clsWindream.MY_WDOBJECTTYPE = PROFILE_NEW_OT
WMOBJECTTYPE = PROFILE_NEW_OT
_Filesimported = 0
_RecordsAdded = 0
Work_Files()
MsgBox(_Filesimported.ToString & " Files were imported to ADDI!" & vbNewLine & _
MsgBox(_Filesimported.ToString & " Files were imported to orgFLOW!" & vbNewLine &
_RecordsAdded.ToString & " Records were added!", MsgBoxStyle.Information)
Else
MsgBox("No Results for windream-Search!", MsgBoxStyle.Information)
End If
End If
Else
If Me.bwsearch.IsBusy Then
@@ -216,8 +216,8 @@ Public Class frmWM_Import_Doc_Record
End Sub
Sub RUN_SEARCH()
Try
windreamSucheErgebnisse = clsWD_GET.GetSearchDocuments(PROFILE_WD_SEARCH)
LOGGER.Info("Files Result: " & windreamSucheErgebnisse.Count)
windreamSucheErgebnisse = WMMOD.GetSearchDocuments(PROFILE_WD_SEARCH)
LOGGER.Info("Files Result: " & windreamSucheErgebnisse.Rows.Count)
Search_Completed = True
Catch ex As Exception
LOGGER.Info("Error in RUN_SEARCH - Error: " & ex.Message)
@@ -236,18 +236,18 @@ Public Class frmWM_Import_Doc_Record
IMP_PARENT_REC_ID = Nothing
IMPORT_REC_ID = Nothing
'Liefert nur den Pfad des aktiven Dokumens
Dim Folder As String
For Each dok As WMObject In windreamSucheErgebnisse
Dim oFolder As String
For Each oRow As DataRow In windreamSucheErgebnisse.Rows
Dim REC_EXISTS As Boolean = False
' aktuelles Dokument der Klasse mitteilen
Me.aktivesDokument = dok
Dim filename = "W:" & aktivesDokument.aPath
Dim DOK_FOLDER As String = IO.Path.GetDirectoryName(filename)
LOGGER.Debug("Working on file '" & IO.Path.GetFileName(filename) & "'")
If Folder <> DOK_FOLDER Then
Dim oWMFilename = "\\windream\objects\" & oRow.Item(0)
Dim DOK_FOLDER As String = IO.Path.GetDirectoryName(oWMFilename)
activeWMDok_Path = oWMFilename
LOGGER.Debug("Working on file '" & IO.Path.GetFileName(oWMFilename) & "'")
If oFolder <> DOK_FOLDER Then
LOGGER.Debug("Folderpath '" & DOK_FOLDER & "'")
Folder = DOK_FOLDER
oFolder = DOK_FOLDER
End If
If Create_Record() = True Then
@@ -276,7 +276,7 @@ Public Class frmWM_Import_Doc_Record
Dim indexname_old = row.Item("STRING2").ToString
LOGGER.Debug("Read Value 2 for windream-index: '" & indexname_old & "'")
Try
idxvalue = aktivesDokument.GetVariableValue(indexname_old)
idxvalue = WMMOD.GetIndexValue(oWMFilename, indexname_old)
LOGGER.Debug("idxvalue from windream: '" & idxvalue.ToString & "'")
Catch ex As Exception
err = True
@@ -319,7 +319,7 @@ Public Class frmWM_Import_Doc_Record
End Sub
Function Import_File()
Try
Dim Sql As String
Dim oSql As String
Dim SQL_FILE_DOCTYPE = PROFILE_SQL_DOCTYPE
'Regulären Ausdruck zum Auslesen der windream-Indexe definieren
Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
@@ -337,7 +337,7 @@ Public Class frmWM_Import_Doc_Record
LOGGER.Debug("Read value for windream-index: '" & elementohneSZ & "'")
Dim idxvalue
Try
idxvalue = aktivesDokument.GetVariableValue(elementohneSZ)
idxvalue = WMMOD.GetIndexValue(activeWMDok_Path, elementohneSZ)
LOGGER.Debug("idxvalue from windream: '" & idxvalue.ToString & "'")
Catch ex As Exception
LOGGER.Warn("Regex Doctype SQL: Error reading Value for windream-index '" & elementohneSZ & "' - Error: " & ex.Message)
@@ -351,37 +351,34 @@ Public Class frmWM_Import_Doc_Record
'#####
If Not IsNothing(DokTYPE_ID) Then
Sql = "SELECT ZIEL_PFAD, OBJEKTTYP FROM TBDD_DOKUMENTART WHERE GUID = " & DokTYPE_ID
Dim DT As DataTable = MYDB_ECM.GetDatatable(Sql)
oSql = "SELECT ZIEL_PFAD, OBJEKTTYP FROM TBDD_DOKUMENTART WHERE GUID = " & DokTYPE_ID
Dim DT As DataTable = MYDB_ECM.GetDatatable(oSql)
If DT.Rows.Count <> 1 Then
Return False
End If
Dim Targetpath = DT.Rows(0).Item(0)
Dim oWMObjectType = DT.Rows(0).Item(1)
Dim document_ID
Try
document_ID = aktivesDokument.GetVariableValue("dwDocID")
document_ID = WMMOD.GetIndexValue(activeWMDok_Path, "Dokument-ID")
Catch ex As Exception
End Try
Dim ww
Try
ww = aktivesDokument.GetVariableValue("Dokument-ID")
Catch ex As Exception
End Try
If ClassImport_Windream.Version_Ueberprüfen(Targetpath & "\" & IO.Path.GetFileName("W:" & aktivesDokument.aPath)) = True Then
'CURRENT_NEWFILENAME = Targetpath & "\" & IO.Path.GetFileName("W:" & aktivesDokument.aPath)
Dim streamresult = clsWD_SET.Stream_File("W:" & aktivesDokument.aPath, Targetpath, True)
If ClassImport_Windream.Version_Ueberprüfen(Targetpath & "\" & IO.Path.GetFileName(activeWMDok_Path)) = True Then
Dim streamresult = WMMOD.NewFileStream(activeWMDok_Path, Targetpath, oWMObjectType)
If streamresult = True Then
'Die EntitätsID indexieren
Sql = "SELECT STRING2 FROM TBPMO_WD_IMPORT_PROFILE_IDX WHERE STRING1 = 'INDEX_ENTITY_ID' AND PROFILE_ID = " & cmbImportProfile.SelectedValue
Dim ENTITY_INDEX As String = MYDB_ECM.GetScalarValue(SQL)
oSql = "SELECT STRING2 FROM TBPMO_WD_IMPORT_PROFILE_IDX WHERE STRING1 = 'INDEX_ENTITY_ID' AND PROFILE_ID = " & cmbImportProfile.SelectedValue
Dim ENTITY_INDEX As String = MYDB_ECM.GetScalarValue(oSql)
If Not IsNothing(ENTITY_INDEX) Then
clsWD_SET.IndexFile(CURRENT_FILEIN_WD, ENTITY_INDEX, PROFILE_ENTITY, DT.Rows(0).Item(1))
End If
Try
If Not IsNothing(IMP_PARENT_REC_ID) Then
'Die Parent-Entität indexieren
Sql = "SELECT IDXNAME_PARENTID FROM TBPMO_WD_OBJECTTYPE WHERE OBJECT_TYPE = '" & PROFILE_NEW_OT & "'"
Dim PIDENT As String = MYDB_ECM.GetScalarValue(SQL)
oSql = "SELECT IDXNAME_PARENTID FROM TBPMO_WD_OBJECTTYPE WHERE OBJECT_TYPE = '" & PROFILE_NEW_OT & "'"
Dim PIDENT As String = MYDB_ECM.GetScalarValue(oSql)
If Not IsNothing(PIDENT) Then
clsWD_SET.IndexFile(CURRENT_FILEIN_WD, PIDENT, IMP_PARENT_REC_ID.ToString, DT.Rows(0).Item(1))
End If
@@ -393,8 +390,8 @@ Public Class frmWM_Import_Doc_Record
Try
If Not IsNothing(PROFILE_ENTITY) Then
'Die Parent-Entität indexieren
Sql = "SELECT IDXNAME_ENTITYID FROM TBPMO_WD_OBJECTTYPE WHERE OBJECT_TYPE = '" & PROFILE_NEW_OT & "'"
Dim IDXENTITY As String = MYDB_ECM.GetScalarValue(SQL)
oSql = "SELECT IDXNAME_ENTITYID FROM TBPMO_WD_OBJECTTYPE WHERE OBJECT_TYPE = '" & PROFILE_NEW_OT & "'"
Dim IDXENTITY As String = MYDB_ECM.GetScalarValue(oSql)
If Not IsNothing(IDXENTITY) Then
clsWD_SET.IndexFile(CURRENT_FILEIN_WD, IDXENTITY, PROFILE_ENTITY.ToString, DT.Rows(0).Item(1))
End If
@@ -404,37 +401,37 @@ Public Class frmWM_Import_Doc_Record
End Try
'Die Dokumentart indexieren
Sql = String.Format("SELECT dbo.FNPMO_GETOBJECTCAPTION('{0}', 'DOCTYPE_TITLE' + CONVERT(VARCHAR(5), GUID), 1) FROM TBDD_DOKUMENTART WHERE GUID = {1}", USER_LANGUAGE, DokTYPE_ID)
Dim DOCTYPE_STRING = MYDB_ECM.GetScalarValue(SQL)
oSql = String.Format("SELECT dbo.FNPMO_GETOBJECTCAPTION('{0}', 'DOCTYPE_TITLE' + CONVERT(VARCHAR(5), GUID), 1) FROM TBDD_DOKUMENTART WHERE GUID = {1}", USER_LANGUAGE, DokTYPE_ID)
Dim DOCTYPE_STRING = MYDB_ECM.GetScalarValue(oSql)
Sql = "SELECT IDXNAME_DOCTYPE FROM TBPMO_WD_OBJECTTYPE WHERE OBJECT_TYPE = '" & PROFILE_NEW_OT & "'"
Dim DoctypeIndex As String = MYDB_ECM.GetScalarValue(SQL)
oSql = "SELECT IDXNAME_DOCTYPE FROM TBPMO_WD_OBJECTTYPE WHERE OBJECT_TYPE = '" & PROFILE_NEW_OT & "'"
Dim DoctypeIndex As String = MYDB_ECM.GetScalarValue(oSql)
If Not IsNothing(DoctypeIndex) Then
clsWD_SET.IndexFile(CURRENT_FILEIN_WD, DoctypeIndex, DOCTYPE_STRING.ToString, DT.Rows(0).Item(1))
Else
Sql = "SELECT STRING2 FROM TBPMO_WD_IMPORT_PROFILE_IDX WHERE STRING1 = 'INDEX_DOCTYPE' AND PROFILE_ID = " & cmbImportProfile.SelectedValue
DoctypeIndex = MYDB_ECM.GetScalarValue(SQL)
oSql = "SELECT STRING2 FROM TBPMO_WD_IMPORT_PROFILE_IDX WHERE STRING1 = 'INDEX_DOCTYPE' AND PROFILE_ID = " & cmbImportProfile.SelectedValue
DoctypeIndex = MYDB_ECM.GetScalarValue(oSql)
If Not IsNothing(DoctypeIndex) Then
clsWD_SET.IndexFile(CURRENT_FILEIN_WD, DoctypeIndex, DOCTYPE_STRING, DT.Rows(0).Item(1))
End If
End If
'#####
Sql = "SELECT IDXNAME_RECORDID FROM TBPMO_WD_OBJECTTYPE WHERE OBJECT_TYPE = '" & PROFILE_NEW_OT & "'"
Dim RecordIndex As String = MYDB_ECM.GetScalarValue(SQL)
oSql = "SELECT IDXNAME_RECORDID FROM TBPMO_WD_OBJECTTYPE WHERE OBJECT_TYPE = '" & PROFILE_NEW_OT & "'"
Dim RecordIndex As String = MYDB_ECM.GetScalarValue(oSql)
If Not IsNothing(RecordIndex) Then
clsWD_SET.IndexFile(CURRENT_FILEIN_WD, RecordIndex, IMPORT_REC_ID, DT.Rows(0).Item(1))
Else
Sql = "SELECT STRING2 FROM TBPMO_WD_IMPORT_PROFILE_IDX WHERE STRING1 = 'INDEX_RECORD_ID' AND PROFILE_ID = " & cmbImportProfile.SelectedValue
RecordIndex = MYDB_ECM.GetScalarValue(SQL)
oSql = "SELECT STRING2 FROM TBPMO_WD_IMPORT_PROFILE_IDX WHERE STRING1 = 'INDEX_RECORD_ID' AND PROFILE_ID = " & cmbImportProfile.SelectedValue
RecordIndex = MYDB_ECM.GetScalarValue(oSql)
If clsWD_SET.IndexFile(CURRENT_FILEIN_WD, RecordIndex, IMPORT_REC_ID, DT.Rows(0).Item(1)) Then
LOGGER.Debug("Record Index was written")
End If
End If
If PROFILE_IDX_WORKED <> "" Then
LOGGER.Debug("Setting the Exported to ADDI-Flag - windream-index '" & PROFILE_IDX_WORKED & "'")
clsWD_SET.File_SetBooleanIndex(True, aktivesDokument, PROFILE_IDX_WORKED)
LOGGER.Debug("Setting the Exported to orgFLOW-Flag - windream-index '" & PROFILE_IDX_WORKED & "'")
WMMOD.SetFileIndex(activeWMDok_Path, PROFILE_IDX_WORKED, "True", PROFILE_NEW_OT)
End If
_Filesimported += 1
Return True
@@ -479,7 +476,7 @@ Public Class frmWM_Import_Doc_Record
LOGGER.Debug("Read value 1 for windream-index: '" & elementohneSZ & "'")
Dim idxvalue
Try
idxvalue = aktivesDokument.GetVariableValue(elementohneSZ)
idxvalue = WMMOD.GetIndexValue(activeWMDok_Path, elementohneSZ)
LOGGER.Debug("idxvalue from windream: '" & idxvalue.ToString & "'")
Catch ex As Exception
LOGGER.Warn("Regex Unique SQL: Error reading Value 1 for windream-index '" & elementohneSZ & "' - Error: " & ex.Message)
@@ -535,7 +532,7 @@ Public Class frmWM_Import_Doc_Record
LOGGER.Debug("Read parent value for windream-index: '" & elementohneSZ & "'")
Dim idxvalue
Try
idxvalue = aktivesDokument.GetVariableValue(elementohneSZ)
idxvalue = WMMOD.GetIndexValue(activeWMDok_Path, elementohneSZ)
LOGGER.Debug("parent idxvalue from windream: '" & idxvalue.ToString & "'")
Catch ex As Exception
LOGGER.Warn("Regex Unique SQL: Error reading parent Value for windream-index '" & elementohneSZ & "' - Error: " & ex.Message)
@@ -564,7 +561,7 @@ Public Class frmWM_Import_Doc_Record
LOGGER.Debug(" parent SQL: " & SQL_PARENT)
End If
Dim sql = String.Format("SELECT GUID FROM TBPMO_RECORD_CONNECT WHERE RECORD1_ID = {0} AND RECORD2_ID = {1}", IMP_PARENT_REC_ID, IMPORT_REC_ID)
Dim result = MYDB_ECM.GetScalarValue(SQL)
Dim result = MYDB_ECM.GetScalarValue(sql)
If result Is Nothing Then
ClassRecordCommands.ConnectRecord(IMP_PARENT_REC_ID, IMPORT_REC_ID, "IMP CONNECT")
End If
@@ -576,7 +573,7 @@ Public Class frmWM_Import_Doc_Record
End Try
End Function
Private Sub Load_INDEXE()
If GUIDTextBox.Text = "" Then Exit Sub
@@ -622,7 +619,7 @@ Public Class frmWM_Import_Doc_Record
Sub Load_StringBox2()
Try
Me.STRING2ComboBox.Items.Clear()
Dim indexe = clsWD_GET.GetIndicesByObjecttype(OLD_OBJECTTYPEComboBox.Text)
Dim indexe = WMMOD.GetTypeIndiciesByObjecttype(OLD_OBJECTTYPEComboBox.Text)
If indexe IsNot Nothing Then
For Each index As String In indexe
Me.STRING2ComboBox.Items.Add(index)
@@ -639,9 +636,9 @@ Public Class frmWM_Import_Doc_Record
If Type = "System.Data.DataRowView" Then
Exit Sub
End If
Dim sql = "SELECT CONVERT(VARCHAR(5),GUID) AS GUID, NAME FROM TBPMO_CONTROL where FORM_ID = " & cmbentity.SelectedValue & " UNION ALL SELECT 'DOCTYPE_ORIGIN','DOCTYPE_ORIGIN' UNION ALL " & _
"SELECT 'INDEX_RECORD_ID','INDEX_RECORD_ID' UNION ALL " & _
"SELECT 'INDEX_ENTITY_ID','INDEX_ENTITY_ID' UNION ALL " & _
Dim sql = "SELECT CONVERT(VARCHAR(5),GUID) AS GUID, NAME FROM TBPMO_CONTROL where FORM_ID = " & cmbentity.SelectedValue & " UNION ALL SELECT 'DOCTYPE_ORIGIN','DOCTYPE_ORIGIN' UNION ALL " &
"SELECT 'INDEX_RECORD_ID','INDEX_RECORD_ID' UNION ALL " &
"SELECT 'INDEX_ENTITY_ID','INDEX_ENTITY_ID' UNION ALL " &
"SELECT 'INDEX_DOCTYPE','INDEX_DOCTYPE'"
Dim DT = MYDB_ECM.GetDatatable(sql)
STRING1ComboBox.DataSource = DT
@@ -682,11 +679,11 @@ Public Class frmWM_Import_Doc_Record
Private Sub NEW_OBJECTTYPEComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles NEW_OBJECTTYPEComboBox.SelectedIndexChanged
If NEW_OBJECTTYPEComboBox.Text = "" Or NEW_OBJECTTYPEComboBox.SelectedIndex = -1 Then Exit Sub
Dim indexe = clsWD_GET.GetIndicesByObjecttype(OLD_OBJECTTYPEComboBox.Text)
Dim indexe = WMMOD.GetIndiciesByObjecttype(OLD_OBJECTTYPEComboBox.Text)
If indexe IsNot Nothing Then
Me.IDX_FILE_WORKEDComboBox.Items.Add("")
For Each index As String In indexe
Select Case clsWD_GET.GetTypeOfIndexAsIntByName(index)
Select Case WMMOD.GetIndexType(index)
Case 4
Me.IDX_FILE_WORKEDComboBox.Items.Add(index)
'Case 1

28
app/DD-Record-Organizer/frmWM_IndexFile.vb
View File

@@ -11,7 +11,6 @@ Public Class frmWM_IndexFile
Dim MULTIFILES As Integer = 0
Dim formloaded As Boolean = False
Dim DTVWPMO_DOKUMENTTYPES As DataTable
Dim _wm As Windream
Public Class SW
Public label As String
@@ -53,7 +52,7 @@ Public Class frmWM_IndexFile
sw = New SW("CheckFileExists")
Dim existsonlyasMaster = False
If _wm.TestFileExists(CURRENT_NEWFILENAME) = True Then
If WMMOD.TestFileExists(CURRENT_NEWFILENAME) = True Then
Dim msg = "Eine Datei mit identischem Namen existiert bereits! Wollen Sie die bestehende Datei ersetzen? (KEINE VERSIONIERUNG)" & vbNewLine & "Beachten Sie das vorhandene Versionen beim Ersetzen mit gelöscht werden!"
If USER_LANGUAGE <> "de-DE" Then
msg = "There is already a file with the same name! Would You like to replace the file?" & vbNewLine & "All versions will also be deleted!"
@@ -61,7 +60,7 @@ Public Class frmWM_IndexFile
Dim result As MsgBoxResult
result = MessageBox.Show(msg, "File already exists:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
If _wm.RemoveFile(CURRENT_NEWFILENAME) Then 'clsWM_SET.Delete_WDFile(CURRENT_NEWFILENAME) = False Then
If WMMOD.RemoveFile(CURRENT_NEWFILENAME) Then
swWORK_FILE.Done()
Return False
End If
@@ -70,7 +69,7 @@ Public Class frmWM_IndexFile
End If
Else
If _wm.TestFileExists(CURRENT_NEWFILENAME) = True Then
If WMMOD.TestFileExists(CURRENT_NEWFILENAME) = True Then
ClassHelper.InsertEssential_Log(CURRENT_RECORD_ID, "RECORD-ID", "FILE ALREADY EXISTED WITH NON-USER RIGHTS: " & CURRENT_NEWFILENAME)
CURRENT_NEWFILENAME = ClassHelper.Versionierung_Datei(CURRENT_NEWFILENAME)
existsonlyasMaster = True
@@ -86,7 +85,7 @@ Public Class frmWM_IndexFile
'Stream File to windream
'#################################################################
sw = New SW("File Stream")
Dim streamresult = _wm.NewFileStream(ImportFilePath, CURRENT_NEWFILENAME, OBJECT_TYPETextBox.Text)
Dim streamresult = WMMOD.NewFileStream(ImportFilePath, CURRENT_NEWFILENAME, OBJECT_TYPETextBox.Text)
sw.Done()
'#################################################################
If streamresult = True Then
@@ -94,11 +93,11 @@ Public Class frmWM_IndexFile
sw = New SW("File Indexing")
CURRENT_FILEIN_WD = CURRENT_NEWFILENAME
Dim DOCID
DOCID = _wm.GetIndexValue(CURRENT_FILEIN_WD, "Dokument-ID") ' clsWM_GET.Index_GetVariableValue(CURRENT_FILEIN_WD, "Dokument-ID")
DOCID = WMMOD.GetIndexValue(CURRENT_FILEIN_WD, "Dokument-ID")
If Not IsNothing(DOCID) Then
CURRENT_DOC_ID = DOCID(0)
Else
DOCID = _wm.GetIndexValue(CURRENT_FILEIN_WD, "Document-ID") ' clsWM_GET.Index_GetVariableValue(CURRENT_FILEIN_WD, "Document-ID")
DOCID = WMMOD.GetIndexValue(CURRENT_FILEIN_WD, "Document-ID")
If Not IsNothing(DOCID) Then
CURRENT_DOC_ID = DOCID(0)
End If
@@ -123,7 +122,7 @@ Public Class frmWM_IndexFile
Dim indexierung_erfolgreich As Boolean = True
LOGGER.Debug("Doctype: " & vDokart.ToString)
indexierung_erfolgreich = _wm.SetFileIndex(CURRENT_FILEIN_WD, WMINDEX_DOCTYPE, vDokart, WMOBJECTTYPE) ' clsWM_SET.IndexFile(CURRENT_FILEIN_WD, indexname, vDokart, oWMObjecttype) 'clsWM.MY_WDOBJECTTYPE)
indexierung_erfolgreich = WMMOD.SetFileIndex(CURRENT_FILEIN_WD, WMINDEX_DOCTYPE, vDokart, WMOBJECTTYPE)
If indexierung_erfolgreich = False Then
err = True
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error: ", "Unexpected Error in WorkFile-indexing Doctype '" & WMINDEX_DOCTYPE & "') - Check logfile!")
@@ -132,7 +131,7 @@ Public Class frmWM_IndexFile
Return False
End If
indexierung_erfolgreich = _wm.SetFileIndex(CURRENT_FILEIN_WD, WMINDEX_RELATION, "ADDI-RELATION", WMOBJECTTYPE) 'clsWM_SET.IndexFile(CURRENT_FILEIN_WD, indexname, "ADDI-RELATION", oWMObjecttype) 'clsWM.MY_WDOBJECTTYPE)
indexierung_erfolgreich = WMMOD.SetFileIndex(CURRENT_FILEIN_WD, WMINDEX_RELATION, "ADDI-RELATION", WMOBJECTTYPE)
If indexierung_erfolgreich = False Then
err = True
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error: ", "Unexpected Error in WorkFile-indexing AddiRelation '" & WMINDEX_RELATION & "') - Check logfile!")
@@ -203,7 +202,7 @@ Public Class frmWM_IndexFile
End If
LOGGER.Debug($"Autovalue used for Indexing: '" & oAutoIndexValue.ToString & "'")
Count += 1
indexierung_erfolgreich = _wm.SetFileIndex(CURRENT_FILEIN_WD, oAutoIndexname, oAutoIndexValue, WMOBJECTTYPE) 'clsWM_SET.IndexFile(CURRENT_FILEIN_WD, indexname, idxvalue, oWMObjecttype) 'clsWM.MY_WDOBJECTTYPE)
indexierung_erfolgreich = WMMOD.SetFileIndex(CURRENT_FILEIN_WD, oAutoIndexname, oAutoIndexValue, WMOBJECTTYPE)
If indexierung_erfolgreich = False Then
MsgBox("Unexpected Error in indexing file - See log", MsgBoxStyle.Critical)
err = True
@@ -287,7 +286,7 @@ Public Class frmWM_IndexFile
Next
End If
If _wm.SessionLoggedin = False Then 'clsWM.Create_Session() = False Then
If WMMOD.SessionLoggedin = False Then
MsgBox("Could not create a windream-session!", MsgBoxStyle.Critical)
Else
FAU_AD_USER = ""
@@ -303,7 +302,7 @@ Public Class frmWM_IndexFile
sw = New SW("Setting_Rights")
If ClassDOC_SEARCH.SET_WD_RIGHTS(CURRENT_WM_OBJECT, CURRENT_DOC_ID, CURRENT_FILEIN_WD, odeleteRights) = False Then
MsgBox("The rights for the new file could not be created! Please check the logfile!" & vbNewLine &
"ADDI will try to give You at least reading rights!", MsgBoxStyle.Exclamation)
"orgFLOW will try to give You at least reading rights!", MsgBoxStyle.Exclamation)
DD_Rights.ClassRights.SetRightExplicit(CURRENT_DOC_ID, CURRENT_FILEIN_WD, USER_USERNAME, 1)
ClassHelper.InsertEssential_Log(CURRENT_DOC_ID, "DOC-ID", "NEW FILE INDEXING - RIGHTS COULD NOT BE SET!!")
End If
@@ -458,7 +457,7 @@ Public Class frmWM_IndexFile
My.Settings.WD_INDEXDOKART_SAVE = cmbDokumentart.Text
My.Settings.Save()
If _wm.SessionLoggedin = True Then 'clsWM.Create_Session = True Then
If WMMOD.SessionLoggedin = True Then
Handle_File(cmbDokumentart.SelectedValue)
Else
MsgBox("Could not create a windream-session! Please contact Your admin!", MsgBoxStyle.Critical)
@@ -1123,7 +1122,8 @@ Public Class frmWM_IndexFile
LOGGER.Debug("frmWD_Index_Dokart_Load")
chkdelete_origin.Checked = False
chkdelete_origin.Visible = False
_wm = New Windream(LOGCONFIG, False, WMDriveLetter, WMPATH_PREFIX, True, WM_SERVER, WM_USER, WM_USER_PW, WM_DOMAIN)
Dim oReconnect = WMMOD.SessionReconnect
'= New Windream(LOGCONFIG, False, WMDriveLetter, WMPATH_PREFIX, True, WM_SERVER, WM_USER, WM_USER_PW, WM_DOMAIN)
Dim HandleType As String
For Each row As DataRow In CURRENT_TBPMO_FILES_USER.Rows
If row.Item("GUID") = CURRENT_FILEID Then

16
app/DD-Record-Organizer/frmWM_ObjecttypeConfig.vb
View File

@@ -1,5 +1,4 @@
Imports DD_LIB_Standards
Imports DevExpress.Data.Helpers
Imports DevExpress.Data.Helpers
Imports DevExpress.XtraEditors
Imports DevExpress.XtraEditors.Controls
@@ -45,13 +44,12 @@ Public Class frmWM_ObjecttypeConfig
End Sub
Private Sub LoadObjectTypes()
Try
Dim oDokumentTyp As WINDREAMLib.WMObject
' Combobox leeren
OBJECT_TYPEComboBox.Items.Clear()
' alle Objekttypen durchlaufen
For Each oDokumentTyp In clsWD_GET.GetObjecttypesAsObjects
For Each oDokumentTyp As String In WMMOD.ObjectTypes
' und in die Combobox eintragen
OBJECT_TYPEComboBox.Items.Add(oDokumentTyp.aName)
OBJECT_TYPEComboBox.Items.Add(oDokumentTyp)
Next
Catch ex As Exception
MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Eintragen der Objekttypen")
@@ -95,11 +93,11 @@ Public Class frmWM_ObjecttypeConfig
If OBJECT_TYPEComboBox.Text.Count > 0 Then
cmbDoctype.Items.Clear()
cmbADDIRelIdx.Items.Clear()
Dim indexe = clsWD_GET.GetIndicesByObjecttype(OBJECT_TYPEComboBox.Text)
Dim indexe = WMMOD.GetIndiciesByObjecttype(OBJECT_TYPEComboBox.Text)
If indexe IsNot Nothing Then
For Each index As String In indexe
cmbDoctype.Items.Add(index)
cmbADDIRelIdx.Items.Add(index)
For Each oIndex As String In indexe
cmbDoctype.Items.Add(oIndex)
cmbADDIRelIdx.Items.Add(oIndex)
Next
End If
End If

2
app/DD-Record-Organizer/packages.config
View File

@@ -1,4 +1,6 @@
<?xml version="1.0" encoding="utf-8"?>
<packages>
<package id="GdPicture" version="14.2.90" targetFramework="net462" />
<package id="GdPicture.runtimes.windows" version="14.2.90" targetFramework="net462" />
<package id="NLog" version="5.0.5" targetFramework="net48" />
</packages>