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
Show Stats 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> <configuration>
<configSections> <configSections>
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <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>
<sectionGroup name="applicationSettings" type="System.Configuration.ApplicationSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <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="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="DevExpress.LookAndFeel.Design.AppSettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false" />
</sectionGroup> </sectionGroup>
</configSections> </configSections>
<connectionStrings> <connectionStrings>
<add name="DD_Record_Organizer.My.MySettings.DD_DMSConnectionString" <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" />
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> </connectionStrings>
<startup> <startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.2"/> <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.2" />
</startup> </startup>
<userSettings> <userSettings>
<DD_Record_Organizer.My.MySettings> <DD_Record_Organizer.My.MySettings>
@ -113,15 +111,19 @@
<value></value> <value></value>
</setting> </setting>
<setting name="CustomPaletteCollection" serializeAs="Xml"> <setting name="CustomPaletteCollection" serializeAs="Xml">
<value/> <value />
</setting> </setting>
</DevExpress.LookAndFeel.Design.AppSettings> </DevExpress.LookAndFeel.Design.AppSettings>
</applicationSettings> </applicationSettings>
<runtime> <runtime>
<assemblyBinding xmlns="urn:schemas-microsoft-com:asm.v1"> <assemblyBinding xmlns="urn:schemas-microsoft-com:asm.v1">
<dependentAssembly> <dependentAssembly>
<assemblyIdentity name="NLog" publicKeyToken="5120e14c03d0593c" culture="neutral"/> <assemblyIdentity name="NLog" publicKeyToken="5120e14c03d0593c" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-5.0.0.0" newVersion="5.0.0.0"/> <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> </dependentAssembly>
</assemblyBinding> </assemblyBinding>
</runtime> </runtime>

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

@ -1,5 +1,5 @@
Imports System.IO Imports System.IO
Imports DD_LIB_Standards 'Imports DD_LIB_Standards
Public Class ClassDOC_SEARCH Public Class ClassDOC_SEARCH
Private Shared DT_RESULTLIST_OPTIONS As DataTable Private Shared DT_RESULTLIST_OPTIONS As DataTable
Private Shared DT_RESULTLIST_SEL_VALUES As DataTable Private Shared DT_RESULTLIST_SEL_VALUES As DataTable
@ -518,10 +518,6 @@ Public Class ClassDOC_SEARCH
Try Try
Dim execute = String.Format("EXEC [dbo].[PRPMO_DOC_CREATE_NEW_DOC] {0},{1},'{2}'", DOC_ID, RECORD_ID, USER_USERNAME) 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 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 Return True
Else Else
Return False Return False
@ -602,7 +598,7 @@ Public Class ClassDOC_SEARCH
End Select End Select
Catch ex As Exception 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 Return Nothing
End Try End Try
End Function 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.XtraGrid.Views.Base
Imports DevExpress.XtraEditors.Controls Imports DevExpress.XtraEditors.Controls
Public Class ClassWindreamDocGrid Public Class ClassDocGrid
' === BEGIN CLASS PART === ' === BEGIN CLASS PART ===
Public Class WindreamDoc Public Class clsWMDoc
Public Property DocId As Integer Public Property DocId As Integer
Public Property DocPath As String Public Property DocPath As String
Public Property Filename As String Public Property Filename As String
@ -20,7 +20,7 @@ Public Class ClassWindreamDocGrid
Private ReadOnly GridView As GridView Private ReadOnly GridView As GridView
Public ReadOnly Property SelectedDocuments As List(Of WindreamDoc) Public ReadOnly Property SelectedDocuments As List(Of clsWMDoc)
Get Get
Return GetSelectedDocuments(GridView) Return GetSelectedDocuments(GridView)
End Get End Get
@ -51,7 +51,7 @@ Public Class ClassWindreamDocGrid
' This should replace DT_RESULTFILES and also ' This should replace DT_RESULTFILES and also
' SELECTED_INWORK, SELECTED_DOC_ID, SELECTED_DOC_RIGHT, SELECTED_DOC_PATH ' 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 Public Shared DT_RESULTFILES As DataTable
Private Shared DT_DROPDOWN_ITEMS As DataTable Private Shared DT_DROPDOWN_ITEMS As DataTable
@ -89,9 +89,9 @@ Public Class ClassWindreamDocGrid
Return oSelectedRows.Count = 0 Return oSelectedRows.Count = 0
End Function 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 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 For Each oRowHandle In oSelectedRows
Dim oDocId = pGridView.GetRowCellValue(oRowHandle, "DocID") Dim oDocId = pGridView.GetRowCellValue(oRowHandle, "DocID")
@ -100,7 +100,7 @@ Public Class ClassWindreamDocGrid
Dim oObjecttype = pGridView.GetRowCellValue(oRowHandle, "OBJECTTYPE") Dim oObjecttype = pGridView.GetRowCellValue(oRowHandle, "OBJECTTYPE")
Dim oFilename = pGridView.GetRowCellValue(oRowHandle, "Dateiname") Dim oFilename = pGridView.GetRowCellValue(oRowHandle, "Dateiname")
oDocuments.Add(New WindreamDoc With { oDocuments.Add(New clsWMDoc With {
.DocId = oDocId, .DocId = oDocId,
.DocPath = oDocPath, .DocPath = oDocPath,
.DocType = oObjecttype, .DocType = oObjecttype,
@ -560,7 +560,7 @@ Public Class ClassWindreamDocGrid
Public Shared Sub gridView_MasterRowExpanded(sender As GridView, e As DevExpress.XtraGrid.Views.Grid.CustomMasterRowEventArgs) Public Shared Sub gridView_MasterRowExpanded(sender As GridView, e As DevExpress.XtraGrid.Views.Grid.CustomMasterRowEventArgs)
Try Try
ClassWindreamDocGrid.GetDocItems(sender) ClassDocGrid.GetDocItems(sender)
Dim GW As GridView = sender Dim GW As GridView = sender
If SELECTED_DOC_ID = 0 Then If SELECTED_DOC_ID = 0 Then
MsgBox("Sorry no document was selected! Please try again!", MsgBoxStyle.Exclamation) 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 DocID As Integer
Public Shared Property OldDisplayName As String Public Shared Property OldDisplayName As String
Public Shared Property DocumentPath 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) 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 End If
If MYDB_ECM.ExecuteNonQuery(upd) = True Then If MYDB_ECM.ExecuteNonQuery(upd) = True Then
If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then 'If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
MYDB_ECM.ExecuteNonQuery(upd) ' MYDB_ECM.ExecuteNonQuery(upd)
End If 'End If
InWork = True InWork = True
Return True Return True
Else Else
@ -31,9 +32,9 @@
Dim upd As String 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) 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 MYDB_ECM.ExecuteNonQuery(upd) = True Then
If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then 'If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
MYDB_ECM.ExecuteNonQuery(upd) ' MYDB_ECM.ExecuteNonQuery(upd)
End If 'End If
Return True Return True
Else Else
Return False 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) 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) MYDB_ECM.ExecuteNonQuery(insert)
End If End If
Next Next
End If End If
Return True Return True
@ -90,10 +91,10 @@
End If End If
Dim proc = String.Format("EXEC PRPMO_DELETE_RESULTFILE {0},{1},{2}", RESULT_DOC_ID, RECORD_ID, DELETE_FILE) 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 MYDB_ECM.ExecuteNonQuery(proc) = True Then
If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED 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) ' proc = String.Format("EXEC PRPROXY_DOC_CHECK_DELETE {0}", RESULT_DOC_ID)
MYDB_ECM.ExecuteNonQuery(proc) ' MYDB_ECM.ExecuteNonQuery(proc)
End If 'End If
Return True Return True
Else Else
Return False 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" msg = "The record '" & SELECTED_RECORD_ID & "' could not be deleted. Check the log"
End If End If
MsgBox(msg, MsgBoxStyle.Exclamation) MsgBox(msg, MsgBoxStyle.Exclamation)
Else
ClassProxy.PRPROXY_RECORD_DEL(SELECTED_RECORD_ID, CURRENT_ENTITY_ID)
End If End If
LOGGER.Info($"Deleted Record [{SELECTED_RECORD_ID}] Result was [{result}]: ") LOGGER.Info($"Deleted Record [{SELECTED_RECORD_ID}] Result was [{result}]: ")
Return result Return result

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

@ -1,8 +1,6 @@
Imports System.IO Imports System.IO
Imports System.Globalization Imports System.Globalization
Imports WINDREAMLib 'Imports Microsoft.Office.Interop.Word
Imports DD_LIB_Standards
Imports DD_Record_Organizer.frmChangeDocType
Public Class ClassImport_Windream Public Class ClassImport_Windream
Public Shared Function Import_File(QuellDatei_Path As String, DOCTYPE_ID As Integer) 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 If Not IsNothing(DT_DOCTYPE) Then
Dim Targetpath As String = DT_DOCTYPE.Rows(0).Item("ZIEL_PFAD") Dim Targetpath As String = DT_DOCTYPE.Rows(0).Item("ZIEL_PFAD")
Dim Dokart As String = DT_DOCTYPE.Rows(0).Item("BEZEICHNUNG") 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 'Den Namen der Dokumentart generieren
If ClassImport_Windream.Name_Generieren(DOCTYPE_ID) = False Then If ClassImport_Windream.Name_Generieren(DOCTYPE_ID) = False Then
@ -22,7 +20,7 @@ Public Class ClassImport_Windream
End If End If
'Die Datei nach windream importieren '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 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) 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) CURRENT_DOC_ID = MYDB_ECM.GetScalarValue(sql)
@ -45,7 +43,7 @@ Public Class ClassImport_Windream
End If End If
LOGGER.Debug("Indexvalue: " & idxvalue.ToString) LOGGER.Debug("Indexvalue: " & idxvalue.ToString)
Count += 1 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 If indexierung_erfolgreich = False Then
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error: ", "Unexpected Error in indexing '" & indexname & "') - Check logfile!") ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error: ", "Unexpected Error in indexing '" & indexname & "') - Check logfile!")
err = True err = True
@ -57,14 +55,14 @@ Public Class ClassImport_Windream
Return False Return False
End If End If
''den Entity-Key auslesen ''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) 'dt = MYDB_ECM.GetDatatable(sql)
'If Not dt Is Nothing Then 'If Not dt Is Nothing Then
' If dt.Rows.Count = 1 Then ' If dt.Rows.Count = 1 Then
' Dim indexname = dt.Rows(0).Item("IDXNAME_ENTITYID").ToString ' Dim indexname = dt.Rows(0).Item("IDXNAME_ENTITYID").ToString
' Dim idxvalue = CURRENT_ENTITY_ID ' Dim idxvalue = CURRENT_ENTITY_ID
' LOGGER.Debug("Entity-ID: " & idxvalue.ToString) ' 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 ' If indexierung_erfolgreich = False Then
' err = True ' err = True
' ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error: ", "Unexpected Error in indexing Entity-ID '" & indexname & "') - Check logfile!") ' 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 ' indexname = dt.Rows(0).Item("IDXNAME_PARENTID").ToString
' idxvalue = CURRENT_PARENT_ENTITY_ID ' idxvalue = CURRENT_PARENT_ENTITY_ID
' LOGGER.Debug("Parent-ID: " & idxvalue.ToString) ' 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 ' If indexierung_erfolgreich = False Then
' err = True ' err = True
' ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error: ", "Unexpected Error in indexing Parent-ID '" & indexname & "') - Check logfile!") ' 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) LOGGER.Debug("After CREATE_FOLDER_INDEX - CURRENT_VARIABLE_FOLDER: " & CURRENT_VARIABLE_FOLDER)
If oWMTARGET_FOLDER <> CURRENT_VARIABLE_FOLDER Then 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, "") oWMTARGET_FOLDER = oWMTARGET_FOLDER & "\" & CURRENT_VARIABLE_FOLDER.Replace(oWMTARGET_FOLDER, "")
Else Else
oWMTARGET_FOLDER = CURRENT_VARIABLE_FOLDER oWMTARGET_FOLDER = CURRENT_VARIABLE_FOLDER
@ -172,7 +173,6 @@ Public Class ClassImport_Windream
If CURRENT_CHECK_SUBFOLDER = True And CURRENT_SUBFOLDER <> "" Then If CURRENT_CHECK_SUBFOLDER = True And CURRENT_SUBFOLDER <> "" Then
oWMTARGET_FOLDER = oWMTARGET_FOLDER & "\" & CURRENT_SUBFOLDER oWMTARGET_FOLDER = oWMTARGET_FOLDER & "\" & CURRENT_SUBFOLDER
End If End If
oWMTARGET_FOLDER = oWMTARGET_FOLDER.Replace("\\", "\")
If oWMTARGET_FOLDER.Contains("/") Then If oWMTARGET_FOLDER.Contains("/") Then
LOGGER.Info(String.Format("Targetpath contains /-sign. / will be replaced with _")) LOGGER.Info(String.Format("Targetpath contains /-sign. / will be replaced with _"))
oWMTARGET_FOLDER = oWMTARGET_FOLDER.Replace("/", "_") oWMTARGET_FOLDER = oWMTARGET_FOLDER.Replace("/", "_")
@ -180,46 +180,20 @@ Public Class ClassImport_Windream
Try Try
Select Case clsWD_GET.WD_PATH_EXISTS(oWMTARGET_FOLDER.Substring(2)) If WMMOD.TestFolderExists(oWMTARGET_FOLDER) = False Then
Case False oWMTARGET_FOLDER = oWMTARGET_FOLDER.Replace("W:", "\\windream\objects")
LOGGER.Info(String.Format("Targetpath ({0}) is not existing or result of WD_PATH_EXISTS was false.", oWMTARGET_FOLDER.Substring(2))) oWMTARGET_FOLDER = WMMOD.GetNormalizedPath(oWMTARGET_FOLDER, 0)
Dim split() As String = oWMTARGET_FOLDER.Split("\") LOGGER.Info(String.Format("Targetpath ({0}) is not existing or result of WD_PATH_EXISTS was false.", oWMTARGET_FOLDER.Substring(2)))
Dim Path_Combined As String = ""
For Each s As String In split
Path_Combined &= s & "\"
If Path_Combined <> "W:\" Then
Dim temppath = Path_Combined.Substring(2) 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)))
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)
Return False Return False
End Select End If
End If
Catch ex As Exception Catch ex As Exception
If Not ex.Message.Contains("Filename exists!") Then 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 Return False
End If End If
End Try End Try

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

@ -1,7 +1,4 @@
Imports System.IO Imports System.IO
Imports DD_LIB_Standards
Imports DevExpress.DataAccess.Native
Imports DevExpress.XtraRichEdit.API.Native
Imports DigitalData.Modules.Config Imports DigitalData.Modules.Config
Imports DigitalData.Modules.Database Imports DigitalData.Modules.Database
Imports DigitalData.Modules.Logging Imports DigitalData.Modules.Logging
@ -74,7 +71,6 @@ Public Class ClassInit
If LoadFileExclusion() = False Then If LoadFileExclusion() = False Then
MsgBox("The Exclude File Structure for files in Folderwatch could not be initialized!", MsgBoxStyle.Information) MsgBox("The Exclude File Structure for files in Folderwatch could not be initialized!", MsgBoxStyle.Information)
End If End If
clsDatabase.GUI = True
If CONFIG.Config.ConnectionString <> String.Empty Then If CONFIG.Config.ConnectionString <> String.Empty Then
LOGGER.Debug("Connection String from CONFIG") LOGGER.Debug("Connection String from CONFIG")
MyConnectionString = DecryptConnectionString(CONFIG.Config.ConnectionString) MyConnectionString = DecryptConnectionString(CONFIG.Config.ConnectionString)
@ -89,23 +85,18 @@ Public Class ClassInit
frmConfig_Basic.ShowDialog() frmConfig_Basic.ShowDialog()
' dbResult = clsDatabase.Init(MyConnectionString) ' dbResult = clsDatabase.Init(MyConnectionString)
End If End If
If ClassProxy.MyPROXYConnectionString <> String.Empty Then 'If ClassProxy.MyPROXYConnectionString <> String.Empty Then
If clsDatabase.Init(ClassProxy.MyPROXYConnectionString, True) = False Then ' If clsDatabase.Init(ClassProxy.MyPROXYConnectionString, True) = False Then
ClassHelper.MSGBOX_Handler("ERROR", "", "Error while Initializing proxyserver - Check logfile") ' ClassHelper.MSGBOX_Handler("ERROR", "", "Error while Initializing proxyserver - Check logfile")
Else ' Else
Dim csb As New SqlClient.SqlConnectionStringBuilder ' Dim csb As New SqlClient.SqlConnectionStringBuilder
csb.ConnectionString = ClassProxy.MyPROXYConnectionString ' csb.ConnectionString = ClassProxy.MyPROXYConnectionString
ClassHelper.InsertEssential_Log(USER_GUID, "USER-ID", String.Format("Proxy-Server {0} - Database {1} is used", csb.DataSource, csb.InitialCatalog)) ' ClassHelper.InsertEssential_Log(USER_GUID, "USER-ID", String.Format("Proxy-Server {0} - Database {1} is used", csb.DataSource, csb.InitialCatalog))
End If ' End If
End If 'End If
If Not IsNothing(MYDB_ECM) Then If Not IsNothing(MYDB_ECM) Then
If MYDB_ECM.DBInitialized = False Then If MYDB_ECM.DBInitialized = False Then
If clsLogger.LOGG_MSG <> String.Empty Then Throw New Exception("Find more information in the logfile.")
Throw New Exception("Error while Initializing database:" & vbNewLine & clsLogger.LOGG_MSG)
Else
Throw New Exception("Find more information in the logfile.")
End If
End If End If
Else Else
Return False Return False
@ -232,7 +223,7 @@ Public Class ClassInit
CURRENT_TBPMO_FORM_VIEW = MYDB_ECM.GetDatatable(oSql) 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") 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) 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") oSql = String.Format("select* from TBPMO_FILE_FORMATS_CHANGE")
Dim oDTFF_CHANGE As DataTable = MYDB_ECM.GetDatatable(oSql) 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}") LOGGER.Debug($"USERID_FK_INT_ECM: {USERID_FK_INT_ECM}")
USER_IS_ADMIN = USER_DT.Rows(0).Item("IS_ADMIN") USER_IS_ADMIN = USER_DT.Rows(0).Item("IS_ADMIN")
USER_LANGUAGE = USER_DT.Rows(0).Item("USER_LANGUAGE") 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") USER_DATE_FORMAT = USER_DT.Rows(0).Item("USER_DATE_FORMAT")
oMODULE_ACCES = USER_DT.Rows(0).Item("MODULE_ACCESS") oMODULE_ACCES = USER_DT.Rows(0).Item("MODULE_ACCESS")
Dim oWORKING_MODE = USER_DT.Rows(0).Item("WORKING_MODE") Dim oWORKING_MODE = USER_DT.Rows(0).Item("WORKING_MODE")
@ -342,6 +333,9 @@ Public Class ClassInit
SHARE_DRIVE_ACTIVE = True SHARE_DRIVE_ACTIVE = True
LOGGER.Info($"WM SHARE_DRIVE [{WMPATH_PREFIX}] via WORKING_MODE is active") LOGGER.Info($"WM SHARE_DRIVE [{WMPATH_PREFIX}] via WORKING_MODE is active")
End If 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 Else
If oMode <> "0" Then If oMode <> "0" Then
LOGGER.Info($"Wrong oMode: {oMode}") LOGGER.Info($"Wrong oMode: {oMode}")
@ -404,11 +398,9 @@ Public Class ClassInit
End If End If
Dim ConStringMain As String Dim ConStringMain As String
If clsDatabase.DB_PROXY_INITIALIZED = True Then
ConStringMain = "PROXY: " & ClassProxy.MyPROXYConnectionString & " # MAIN: " & MyConnectionString ConStringMain = "Main: " & MyConnectionString
Else
ConStringMain = "Main: " & MyConnectionString
End If
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) 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) MYDB_ECM.ExecuteNonQuery(oFNSQL)
@ -430,7 +422,12 @@ Public Class ClassInit
If WM_READ_ONLY = False Then If WM_READ_ONLY = False Then
Try Try
LOGGER.Debug($"Connecting to windream-Server via DigitalData.Modules.Windream.Windream...") 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 If IsNothing(WMMOD) Then
MsgBox("Could not connect to windream! Check Your configuration", MsgBoxStyle.Exclamation) MsgBox("Could not connect to windream! Check Your configuration", MsgBoxStyle.Exclamation)
Else Else
@ -445,13 +442,13 @@ Public Class ClassInit
WM_READ_ONLY = True WM_READ_ONLY = True
End Try 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!") 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
End If End If
Catch ex As Exception 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) MsgBox("Unexpected Error in Creating windream-Session: " & ex.Message & vbNewLine & "Please inform Your sysadmin!", MsgBoxStyle.Critical)
End Try End Try
@ -496,9 +493,9 @@ Public Class ClassInit
End Try End Try
End If End If
If LICENSE_PROXY = True And clsDatabase.DB_PROXY_INITIALIZED Then 'If LICENSE_PROXY = True And clsDatabase.DB_PROXY_INITIALIZED Then
SQL_FULLTEXT = "SELECT DISTINCT [dwDocID] FROM [dbo].FullText WHERE CONTAINS([Text], '""*@FULLTEXT*""') " ' SQL_FULLTEXT = "SELECT DISTINCT [dwDocID] FROM [dbo].FullText WHERE CONTAINS([Text], '""*@FULLTEXT*""') "
End If '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}" 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) USER_IS_SUPERVISOR = MYDB_ECM.GetScalarValue(oSQL)
Return True 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 license_Row.Item("NAME") = "Proxy-Server" Then
If expired = False Then If expired = False Then
LICENSE_PROXY = True
End If End If
ElseIf license_Row.Item("NAME") = "Site-AddOn" Then ElseIf license_Row.Item("NAME") = "Site-AddOn" Then
If expired = False Then If expired = False Then

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

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

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

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

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

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

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

@ -1,5 +1,5 @@
Imports System.Data.SqlClient Imports System.Data.SqlClient
Imports DD_LIB_Standards 'Imports DD_LIB_Standards'
Public Class ClassRecordCommands Public Class ClassRecordCommands
Public Shared Function CreateRecordProcedure(formId As Integer) Public Shared Function CreateRecordProcedure(formId As Integer)
@ -21,12 +21,12 @@ Public Class ClassRecordCommands
connection.Close() connection.Close()
Dim GUID As Integer = cmd.Parameters("@pRESULT").Value Dim GUID As Integer = cmd.Parameters("@pRESULT").Value
If GUID > 0 And clsDatabase.DB_PROXY_INITIALIZED = True Then 'If GUID > 0 And clsDatabase.DB_PROXY_INITIALIZED = True Then
If ClassProxy.PRPROXY_RECORD_UPD_INS(formId, GUID) = True Then ' If ClassProxy.PRPROXY_RECORD_UPD_INS(formId, GUID) = True Then
ClassProxy.PRPROXY_CONTROL_VALUE_RENEW(GUID) ' ClassProxy.PRPROXY_CONTROL_VALUE_RENEW(GUID)
End If ' End If
End If 'End If
Return GUID Return GUID
End Using End Using
Catch ex As Exception 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_Record_Organizer.ClassControlBuilder
Imports DD_LIB_Standards 'Imports DD_LIB_Standards
Imports System.Data.SqlClient Imports System.Data.SqlClient
Public Class ClassControlCommandsUI 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}" 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 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 End If
Else 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)) 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) ' ClassProxy.PRPROXY_CONTROL_DEL(RecordId, CURRENT_ENTITY_ID, ControlId)
Next 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 Catch ex As Exception
MsgBox("Error in UpdateMultipleValues:" & vbNewLine & ex.Message) MsgBox("Error in UpdateMultipleValues:" & vbNewLine & ex.Message)
End Try End Try
@ -904,9 +902,6 @@ Public Class ClassControlCommandsUI
cmd.ExecuteNonQuery() cmd.ExecuteNonQuery()
connection.Close() connection.Close()
_result = cmd.Parameters("@pRESULT").Value _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 Return _result
End Using End Using
Else Else
@ -926,15 +921,15 @@ Public Class ClassControlCommandsUI
If Not IsNothing(converted_value) Then If Not IsNothing(converted_value) Then
converted_value = converted_value.Replace("'", "´") 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) 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 LICENSE_PROXY = True Or clsDatabase.DB_PROXY_INITIALIZED = True Then
If MYDB_ECM.ExecuteNonQuery(ins) = True Then ' If MYDB_ECM.ExecuteNonQuery(ins) = True Then
Return ClassProxy.PRPROXY_CONTROL_VALUE_UPD_INS(ENTITY_ID, ControlID, RecordID, converted_value) ' Return ClassProxy.PRPROXY_CONTROL_VALUE_UPD_INS(ENTITY_ID, ControlID, RecordID, converted_value)
Else ' Else
Return False ' Return False
End If ' End If
Else 'Else
Return MYDB_ECM.ExecuteNonQuery(ins) Return MYDB_ECM.ExecuteNonQuery(ins)
End If 'End If
Else Else
Return False Return False
End If End If
@ -956,15 +951,8 @@ Public Class ClassControlCommandsUI
If ControlID = 279 Or ControlID = 745 Then If ControlID = 279 Or ControlID = 745 Then
LOGGER.Warn(upd) LOGGER.Warn(upd)
End If End If
If LICENSE_PROXY = True Or clsDatabase.DB_PROXY_INITIALIZED = True Then Return MYDB_ECM.ExecuteNonQuery(upd)
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
Catch ex As Exception Catch ex As Exception
LOGGER.Warn("Unerwarteter Fehler in UpdateControlValue: " & ex.Message) LOGGER.Warn("Unerwarteter Fehler in UpdateControlValue: " & ex.Message)
Return False 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.Base
Imports DigitalData.Modules.Logging Imports DigitalData.Modules.Logging
Public Class ClassDoctypeChange Public Class ClassDoctypeChangeDEL
Inherits BaseClass Inherits BaseClass
Public Sub New(pLogConfig As LogConfig) 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 Public Function ChangeDocType(pFilePaths As List(Of String), pNewDocTypeName As String, pObjectType As String) As Boolean
Try Try
For Each oPath As String In pFilePaths 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 If oResult = True Then
Logger.Debug("Successfully set doctype of file [{0}] to [{1}]", oPath, pNewDocTypeName) Logger.Debug("Successfully set doctype of file [{0}] to [{1}]", oPath, pNewDocTypeName)
Else Else

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

@ -32,7 +32,7 @@ Public Class ClassNodeCreator
End If End If
' Update the proxy? ' Update the proxy?
ClassProxy.PRPROXY_RECORD_UPD_INS(pEntityId, oRecordId) 'ClassProxy.PRPROXY_RECORD_UPD_INS(pEntityId, oRecordId)
' Create the Node in the Database ' Create the Node in the Database
Dim oNodeIdentifier = $"CONFIG {oRecordId}-{pNodeConfigId}" 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) CURRENT_OPEN_CONSTRUCTOR_FORMS.Add(id)
If NodeNav Then If NodeNav Then
Dim frmNN As New frmNodeNavigation(EntityID, CURRENT_CONSTRUCTOR_ID) Dim frmNodeNav As New frmNodeNavigation(EntityID, CURRENT_CONSTRUCTOR_ID)
frmNN.Tag = id frmNodeNav.Tag = id
If My.Settings.EntFormsChild = True Then If My.Settings.EntFormsChild = True Then
Dim activeChild1 As Form = MAIN_FORM.ActiveMdiChild Dim activeChild1 As Form = MAIN_FORM.ActiveMdiChild
If activeChild1 IsNot Nothing Then If activeChild1 IsNot Nothing Then
@ -300,10 +300,10 @@ Module ModuleHelperMethods
JUMP_RECORD_ID = recordId JUMP_RECORD_ID = recordId
End If End If
If My.Settings.EntFormsChild = True Then If My.Settings.EntFormsChild = True Then
frmNN.MdiParent = MAIN_FORM frmNodeNav.MdiParent = MAIN_FORM
End If End If
frmNN.Show() frmNodeNav.Show()
Else Else
Dim frm As New frmConstructor_Main() Dim frm As New frmConstructor_Main()
frm.Tag = id frm.Tag = id
@ -427,17 +427,7 @@ Module ModuleHelperMethods
End Try End Try
End Sub 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() Public Sub OpenWiedervorlage()
Dim frm As New frmFollowUp Dim frm As New frmFollowUp
frm.MdiParent = MAIN_FORM frm.MdiParent = MAIN_FORM

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

@ -1,6 +1,5 @@
Imports System.IO Imports System.IO
Imports System.Xml Imports System.Xml
Imports DD_LIB_Standards
Imports DevExpress.LookAndFeel Imports DevExpress.LookAndFeel
Imports DigitalData.Modules.Logging Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.Windream Imports DigitalData.Modules.Windream
@ -37,6 +36,7 @@ Module ModuleMySettings
Public WM_DOMAIN As String = "" Public WM_DOMAIN As String = ""
Public WM_USER As String = "" Public WM_USER As String = ""
Public WM_USER_PW As String = "" Public WM_USER_PW As String = ""
Public WM_IMPERSONATE_LOGIN As Boolean = True
Public GridDocResult_BestFitColumns As Boolean = True Public GridDocResult_BestFitColumns As Boolean = True
Public SQL_FULLTEXT As String Public SQL_FULLTEXT As String
Public CAPTION_CONFIRMATION As String = "Bestätigung" Public CAPTION_CONFIRMATION As String = "Bestätigung"
@ -75,6 +75,8 @@ Module ModuleMySettings
Public LOGCONFIG As LogConfig Public LOGCONFIG As LogConfig
Public LOGGER As Logger Public LOGGER As Logger
Public WM_RWA As String = ""
Dim rowresult As String = "" Dim rowresult As String = ""
Public Function LoadFileExclusion() Public Function LoadFileExclusion()
Dim rowresult As String = "" Dim rowresult As String = ""
@ -201,15 +203,12 @@ Module ModuleMySettings
connstring = Row.Item("Value").ToString connstring = Row.Item("Value").ToString
End If End If
ClassProxy.MyPROXYConnectionString = connstring
Else
ClassProxy.MyPROXYConnectionString = ""
End If End If
Case "MyLinkedServer" Case "MyLinkedServer"
ClassProxy.MyLinkedServer = Row.Item("Value") 'ClassProxy.MyLinkedServer = Row.Item("Value")
Case "LogErrorsOnly" Case "LogErrorsOnly"
DEBUG = CBool(Row.Item("Value")) DEBUG = CBool(Row.Item("Value"))
clsCURRENT.LOG_ERRORS_ONLY = DEBUG 'DD_LIB_Standards.clsCURRENT.LOG_ERRORS_ONLY = DEBUG
LOGCONFIG.Debug = DEBUG LOGCONFIG.Debug = DEBUG
Case "Sett_TaskOverviewKeepInFront" Case "Sett_TaskOverviewKeepInFront"
Sett_TaskOverviewKeepInFront = CBool(Row.Item("Value")) 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_COUNT As Integer = 0
Public LICENSE_DOSSIER_COUNT As Integer = 0 Public LICENSE_DOSSIER_COUNT As Integer = 0
Public LICENSE_SAP_Connect As Boolean = False 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_SITE As Boolean = False
Public LICENSE_DATE As Date Public LICENSE_DATE As Date
Public DT_LICENSE_ADDONS As DataTable Public DT_LICENSE_ADDONS As DataTable
@ -199,7 +199,8 @@ Module ModuleRuntimeVariables
Public SQL_GLOBAL_SEARCH As String = "" Public SQL_GLOBAL_SEARCH As String = ""
Public SQL_OF_NODE_SEARCH As String = "" Public SQL_OF_NODE_SEARCH As String = ""
Public CONF_SUPPORTPORTAL As String = "https://www.digitaldata.works/Support'" 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 CURRENT_DT_TBPMO_DOC_RECORD_LINK As DataTable
Public Property MYDB_ECM As MSSQLServer 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: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("3.1.6.0")> <Assembly: AssemblyVersion("3.2.0.0")>
<Assembly: AssemblyFileVersion("1.0.0.0")> <Assembly: AssemblyFileVersion("1.0.0.0")>
<Assembly: NeutralResourcesLanguageAttribute("")> <Assembly: NeutralResourcesLanguageAttribute("")>

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

@ -29,6 +29,8 @@
<UseApplicationTrust>false</UseApplicationTrust> <UseApplicationTrust>false</UseApplicationTrust>
<BootstrapperEnabled>true</BootstrapperEnabled> <BootstrapperEnabled>true</BootstrapperEnabled>
<TargetFrameworkProfile /> <TargetFrameworkProfile />
<NuGetPackageImportStamp>
</NuGetPackageImportStamp>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget> <PlatformTarget>AnyCPU</PlatformTarget>
@ -72,10 +74,6 @@
<Reference Include="CommandLine"> <Reference Include="CommandLine">
<HintPath>..\..\3rdparty\lib\Commandline\CommandLine.dll</HintPath> <HintPath>..\..\3rdparty\lib\Commandline\CommandLine.dll</HintPath>
</Reference> </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"> <Reference Include="DD_Rights">
<HintPath>..\..\..\DDLibraries\app\DD_Libraries\bin\Debug\DD_Rights.dll</HintPath> <HintPath>..\..\..\DDLibraries\app\DD_Libraries\bin\Debug\DD_Rights.dll</HintPath>
</Reference> </Reference>
@ -169,8 +167,9 @@
<Reference Include="DevExpress.XtraWizard.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL"> <Reference Include="DevExpress.XtraWizard.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DigitalData.Controls.DocumentViewer"> <Reference Include="DigitalData.Controls.DocumentViewer, Version=1.9.4.0, Culture=neutral, processorArchitecture=MSIL">
<HintPath>..\..\..\DDMonorepo\Controls.DocumentViewer\bin\Debug\DigitalData.Controls.DocumentViewer.dll</HintPath> <SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\..\2_DLL Projekte\DDMonorepo\Controls.DocumentViewer\bin\Debug\DigitalData.Controls.DocumentViewer.dll</HintPath>
</Reference> </Reference>
<Reference Include="DigitalData.Modules.Base"> <Reference Include="DigitalData.Modules.Base">
<HintPath>..\..\..\DDModules\Base\bin\Debug\DigitalData.Modules.Base.dll</HintPath> <HintPath>..\..\..\DDModules\Base\bin\Debug\DigitalData.Modules.Base.dll</HintPath>
@ -178,16 +177,20 @@
<Reference Include="DigitalData.Modules.Config"> <Reference Include="DigitalData.Modules.Config">
<HintPath>..\..\..\DDModules\Config\bin\Debug\DigitalData.Modules.Config.dll</HintPath> <HintPath>..\..\..\DDModules\Config\bin\Debug\DigitalData.Modules.Config.dll</HintPath>
</Reference> </Reference>
<Reference Include="DigitalData.Modules.Database"> <Reference Include="DigitalData.Modules.Database, Version=2.3.5.0, Culture=neutral, processorArchitecture=MSIL">
<HintPath>..\..\..\DDModules\Database\bin\Debug\DigitalData.Modules.Database.dll</HintPath> <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>
<Reference Include="DigitalData.Modules.Logging, Version=2.5.4.2, Culture=neutral, processorArchitecture=MSIL"> <Reference Include="DigitalData.Modules.Logging, Version=2.5.4.2, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\DDModules\Logging\bin\Debug\DigitalData.Modules.Logging.dll</HintPath> <HintPath>..\..\..\DDModules\Logging\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
</Reference> </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> <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>
<Reference Include="DLLLicenseManager"> <Reference Include="DLLLicenseManager">
<HintPath>..\..\lib\DLLLicenseManager.dll</HintPath> <HintPath>..\..\lib\DLLLicenseManager.dll</HintPath>
@ -195,6 +198,9 @@
<Reference Include="ERPConnect35"> <Reference Include="ERPConnect35">
<HintPath>P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\DLL_Bibliotheken\ERPConnect35.dll</HintPath> <HintPath>P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\DLL_Bibliotheken\ERPConnect35.dll</HintPath>
</Reference> </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"> <Reference Include="Independentsoft.Msg">
<HintPath>..\..\3rdparty\lib\MSG.NET\Independentsoft.Msg.dll</HintPath> <HintPath>..\..\3rdparty\lib\MSG.NET\Independentsoft.Msg.dll</HintPath>
</Reference> </Reference>
@ -295,7 +301,6 @@
<Compile Include="Classes\ClassMoreMetadata.vb" /> <Compile Include="Classes\ClassMoreMetadata.vb" />
<Compile Include="Classes\ClassNodeNavigation.vb" /> <Compile Include="Classes\ClassNodeNavigation.vb" />
<Compile Include="Classes\ClassPosGrid.vb" /> <Compile Include="Classes\ClassPosGrid.vb" />
<Compile Include="Classes\ClassProxy.vb" />
<Compile Include="Classes\Commands\ClassRecordCommands.vb" /> <Compile Include="Classes\Commands\ClassRecordCommands.vb" />
<Compile Include="Classes\ClassRecordState.vb" /> <Compile Include="Classes\ClassRecordState.vb" />
<Compile Include="Classes\ClassRecordView.vb" /> <Compile Include="Classes\ClassRecordView.vb" />
@ -304,7 +309,7 @@
<Compile Include="Classes\ClassDOC_SEARCH.vb" /> <Compile Include="Classes\ClassDOC_SEARCH.vb" />
<Compile Include="Classes\ClassUser.vb" /> <Compile Include="Classes\ClassUser.vb" />
<Compile Include="Classes\ClassWDRights.vb" /> <Compile Include="Classes\ClassWDRights.vb" />
<Compile Include="Classes\ClassWindreamDocGrid.vb" /> <Compile Include="Classes\ClassDocGrid.vb" />
<Compile Include="Classes\ClassWorkflow.vb" /> <Compile Include="Classes\ClassWorkflow.vb" />
<Compile Include="Classes\NodeNavigation\ClassDoctypeChange.vb" /> <Compile Include="Classes\NodeNavigation\ClassDoctypeChange.vb" />
<Compile Include="Classes\NodeNavigation\ClassNodeCreator.vb" /> <Compile Include="Classes\NodeNavigation\ClassNodeCreator.vb" />
@ -496,12 +501,6 @@
<Compile Include="frmWM_FulltextChoice.vb"> <Compile Include="frmWM_FulltextChoice.vb">
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </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="Classes\ClassStaticListEditor.vb" />
<Compile Include="frmRecordView.Designer.vb"> <Compile Include="frmRecordView.Designer.vb">
<DependentUpon>frmRecordView.vb</DependentUpon> <DependentUpon>frmRecordView.vb</DependentUpon>
@ -761,12 +760,6 @@
<Compile Include="frmUserKonfig.vb"> <Compile Include="frmUserKonfig.vb">
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </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"> <Compile Include="frmWM_IndexFile.Designer.vb">
<DependentUpon>frmWM_IndexFile.vb</DependentUpon> <DependentUpon>frmWM_IndexFile.vb</DependentUpon>
</Compile> </Compile>
@ -869,9 +862,11 @@
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="frmLicense.en-US.resx"> <EmbeddedResource Include="frmLicense.en-US.resx">
<DependentUpon>frmLicense.vb</DependentUpon> <DependentUpon>frmLicense.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="frmLicense_User.en-US.resx"> <EmbeddedResource Include="frmLicense_User.en-US.resx">
<DependentUpon>frmLicense_User.vb</DependentUpon> <DependentUpon>frmLicense_User.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="frmLicense_User.resx"> <EmbeddedResource Include="frmLicense_User.resx">
<DependentUpon>frmLicense_User.vb</DependentUpon> <DependentUpon>frmLicense_User.vb</DependentUpon>
@ -881,6 +876,7 @@
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="frmMain.de-DE.resx"> <EmbeddedResource Include="frmMain.de-DE.resx">
<DependentUpon>frmMain.vb</DependentUpon> <DependentUpon>frmMain.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="frmMass_Change.en-US.resx"> <EmbeddedResource Include="frmMass_Change.en-US.resx">
<DependentUpon>frmMass_Change.vb</DependentUpon> <DependentUpon>frmMass_Change.vb</DependentUpon>
@ -959,9 +955,6 @@
<EmbeddedResource Include="frmWM_FulltextChoice.resx"> <EmbeddedResource Include="frmWM_FulltextChoice.resx">
<DependentUpon>frmWM_FulltextChoice.vb</DependentUpon> <DependentUpon>frmWM_FulltextChoice.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="frmWM_Import_Doc_Record.resx">
<DependentUpon>frmWM_Import_Doc_Record.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmRecordView.resx"> <EmbeddedResource Include="frmRecordView.resx">
<DependentUpon>frmRecordView.vb</DependentUpon> <DependentUpon>frmRecordView.vb</DependentUpon>
<SubType>Designer</SubType> <SubType>Designer</SubType>
@ -1184,12 +1177,6 @@
<DependentUpon>frmUserKonfig.vb</DependentUpon> <DependentUpon>frmUserKonfig.vb</DependentUpon>
<SubType>Designer</SubType> <SubType>Designer</SubType>
</EmbeddedResource> </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"> <EmbeddedResource Include="frmWM_IndexFile.en-US.resx">
<DependentUpon>frmWM_IndexFile.vb</DependentUpon> <DependentUpon>frmWM_IndexFile.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
@ -1662,6 +1649,13 @@
<WCFMetadata Include="Service References\" /> <WCFMetadata Include="Service References\" />
</ItemGroup> </ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" /> <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. <!-- 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. Other similar extension points exist, see Microsoft.Common.targets.
<Target Name="BeforeBuild"> <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() Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.TabControl1 = New System.Windows.Forms.TabControl() Me.TabControl1 = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage() 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.chkbxUserAut = New System.Windows.Forms.CheckBox()
Me.Label5 = New System.Windows.Forms.Label() Me.Label5 = New System.Windows.Forms.Label()
Me.cmbDatenbank = New System.Windows.Forms.ComboBox() Me.cmbDatenbank = New System.Windows.Forms.ComboBox()
@ -74,8 +69,6 @@ Partial Class frmConfig_Basic
Me.btnstartstop2 = New System.Windows.Forms.Button() Me.btnstartstop2 = New System.Windows.Forms.Button()
Me.TabPage4 = New System.Windows.Forms.TabPage() Me.TabPage4 = New System.Windows.Forms.TabPage()
Me.GroupBox2 = New System.Windows.Forms.GroupBox() 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.rbGruppe = New System.Windows.Forms.RadioButton()
Me.rbUser = New System.Windows.Forms.RadioButton() Me.rbUser = New System.Windows.Forms.RadioButton()
Me.txtObjectExists = New System.Windows.Forms.TextBox() Me.txtObjectExists = New System.Windows.Forms.TextBox()
@ -83,6 +76,9 @@ Partial Class frmConfig_Basic
Me.btncheckWDFolderexists = New System.Windows.Forms.Button() Me.btncheckWDFolderexists = New System.Windows.Forms.Button()
Me.txtwdFolder = New System.Windows.Forms.TextBox() Me.txtwdFolder = New System.Windows.Forms.TextBox()
Me.Label12 = New System.Windows.Forms.Label() 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.TabControl1.SuspendLayout()
Me.TabPage1.SuspendLayout() Me.TabPage1.SuspendLayout()
Me.TabPage2.SuspendLayout() Me.TabPage2.SuspendLayout()
@ -108,11 +104,6 @@ Partial Class frmConfig_Basic
' '
'TabPage1 '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.chkbxUserAut)
Me.TabPage1.Controls.Add(Me.Label5) Me.TabPage1.Controls.Add(Me.Label5)
Me.TabPage1.Controls.Add(Me.cmbDatenbank) Me.TabPage1.Controls.Add(Me.cmbDatenbank)
@ -129,36 +120,6 @@ Partial Class frmConfig_Basic
Me.TabPage1.Name = "TabPage1" Me.TabPage1.Name = "TabPage1"
Me.TabPage1.UseVisualStyleBackColor = True 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 'chkbxUserAut
' '
resources.ApplyResources(Me.chkbxUserAut, "chkbxUserAut") resources.ApplyResources(Me.chkbxUserAut, "chkbxUserAut")
@ -439,6 +400,9 @@ Partial Class frmConfig_Basic
' '
'TabPage4 '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.GroupBox2)
Me.TabPage4.Controls.Add(Me.btncheckWDFolderexists) Me.TabPage4.Controls.Add(Me.btncheckWDFolderexists)
Me.TabPage4.Controls.Add(Me.txtwdFolder) Me.TabPage4.Controls.Add(Me.txtwdFolder)
@ -449,8 +413,6 @@ Partial Class frmConfig_Basic
' '
'GroupBox2 'GroupBox2
' '
Me.GroupBox2.Controls.Add(Me.Button7)
Me.GroupBox2.Controls.Add(Me.RadioButton3)
Me.GroupBox2.Controls.Add(Me.rbGruppe) Me.GroupBox2.Controls.Add(Me.rbGruppe)
Me.GroupBox2.Controls.Add(Me.rbUser) Me.GroupBox2.Controls.Add(Me.rbUser)
Me.GroupBox2.Controls.Add(Me.txtObjectExists) Me.GroupBox2.Controls.Add(Me.txtObjectExists)
@ -459,19 +421,6 @@ Partial Class frmConfig_Basic
Me.GroupBox2.Name = "GroupBox2" Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.TabStop = False 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 'rbGruppe
' '
resources.ApplyResources(Me.rbGruppe, "rbGruppe") resources.ApplyResources(Me.rbGruppe, "rbGruppe")
@ -513,6 +462,22 @@ Partial Class frmConfig_Basic
resources.ApplyResources(Me.Label12, "Label12") resources.ApplyResources(Me.Label12, "Label12")
Me.Label12.Name = "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 'frmConfig_Basic
' '
resources.ApplyResources(Me, "$this") resources.ApplyResources(Me, "$this")
@ -581,11 +546,6 @@ Partial Class frmConfig_Basic
Friend WithEvents Label10 As System.Windows.Forms.Label Friend WithEvents Label10 As System.Windows.Forms.Label
Friend WithEvents txtTask_Popup As System.Windows.Forms.TextBox Friend WithEvents txtTask_Popup As System.Windows.Forms.TextBox
Friend WithEvents chkSubfolder As System.Windows.Forms.CheckBox 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 TabPage4 As System.Windows.Forms.TabPage
Friend WithEvents btncheckWDFolderexists As System.Windows.Forms.Button Friend WithEvents btncheckWDFolderexists As System.Windows.Forms.Button
Friend WithEvents txtwdFolder As System.Windows.Forms.TextBox Friend WithEvents txtwdFolder As System.Windows.Forms.TextBox
@ -594,11 +554,12 @@ Partial Class frmConfig_Basic
Friend WithEvents Button5 As Button Friend WithEvents Button5 As Button
Friend WithEvents cmbDesign As ComboBox Friend WithEvents cmbDesign As ComboBox
Friend WithEvents GroupBox2 As GroupBox Friend WithEvents GroupBox2 As GroupBox
Friend WithEvents RadioButton3 As RadioButton
Friend WithEvents rbGruppe As RadioButton Friend WithEvents rbGruppe As RadioButton
Friend WithEvents rbUser As RadioButton Friend WithEvents rbUser As RadioButton
Friend WithEvents txtObjectExists As TextBox Friend WithEvents txtObjectExists As TextBox
Friend WithEvents Button6 As Button Friend WithEvents Button6 As Button
Friend WithEvents Button7 As Button
Friend WithEvents CheckBox2 As CheckBox Friend WithEvents CheckBox2 As CheckBox
Friend WithEvents Label6 As Label
Friend WithEvents Button4 As Button
Friend WithEvents txtCreateWMFolder As TextBox
End Class 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> <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader> </resheader>
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" /> <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"> <data name="chkbxUserAut.AutoSize" type="System.Boolean, mscorlib">
<value>True</value> <value>True</value>
</data> </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"> <data name="chkbxUserAut.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value> <value>NoControl</value>
</data> </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"> <data name="chkbxUserAut.Location" type="System.Drawing.Point, System.Drawing">
<value>511, 48</value> <value>511, 34</value>
</data> </data>
<data name="chkbxUserAut.Size" type="System.Drawing.Size, System.Drawing"> <data name="chkbxUserAut.Size" type="System.Drawing.Size, System.Drawing">
<value>170, 17</value> <value>170, 17</value>
@ -308,7 +148,7 @@
<value>TabPage1</value> <value>TabPage1</value>
</data> </data>
<data name="&gt;&gt;chkbxUserAut.ZOrder" xml:space="preserve"> <data name="&gt;&gt;chkbxUserAut.ZOrder" xml:space="preserve">
<value>5</value> <value>0</value>
</data> </data>
<data name="Label5.AutoSize" type="System.Boolean, mscorlib"> <data name="Label5.AutoSize" type="System.Boolean, mscorlib">
<value>True</value> <value>True</value>
@ -317,7 +157,7 @@
<value>NoControl</value> <value>NoControl</value>
</data> </data>
<data name="Label5.Location" type="System.Drawing.Point, System.Drawing"> <data name="Label5.Location" type="System.Drawing.Point, System.Drawing">
<value>6, 127</value> <value>6, 113</value>
</data> </data>
<data name="Label5.Size" type="System.Drawing.Size, System.Drawing"> <data name="Label5.Size" type="System.Drawing.Size, System.Drawing">
<value>150, 13</value> <value>150, 13</value>
@ -338,10 +178,10 @@
<value>TabPage1</value> <value>TabPage1</value>
</data> </data>
<data name="&gt;&gt;Label5.ZOrder" xml:space="preserve"> <data name="&gt;&gt;Label5.ZOrder" xml:space="preserve">
<value>6</value> <value>1</value>
</data> </data>
<data name="cmbDatenbank.Location" type="System.Drawing.Point, System.Drawing"> <data name="cmbDatenbank.Location" type="System.Drawing.Point, System.Drawing">
<value>9, 94</value> <value>9, 80</value>
</data> </data>
<data name="cmbDatenbank.Size" type="System.Drawing.Size, System.Drawing"> <data name="cmbDatenbank.Size" type="System.Drawing.Size, System.Drawing">
<value>288, 21</value> <value>288, 21</value>
@ -359,7 +199,7 @@
<value>TabPage1</value> <value>TabPage1</value>
</data> </data>
<data name="&gt;&gt;cmbDatenbank.ZOrder" xml:space="preserve"> <data name="&gt;&gt;cmbDatenbank.ZOrder" xml:space="preserve">
<value>7</value> <value>2</value>
</data> </data>
<data name="Label4.AutoSize" type="System.Boolean, mscorlib"> <data name="Label4.AutoSize" type="System.Boolean, mscorlib">
<value>True</value> <value>True</value>
@ -368,7 +208,7 @@
<value>NoControl</value> <value>NoControl</value>
</data> </data>
<data name="Label4.Location" type="System.Drawing.Point, System.Drawing"> <data name="Label4.Location" type="System.Drawing.Point, System.Drawing">
<value>6, 74</value> <value>6, 60</value>
</data> </data>
<data name="Label4.Size" type="System.Drawing.Size, System.Drawing"> <data name="Label4.Size" type="System.Drawing.Size, System.Drawing">
<value>67, 13</value> <value>67, 13</value>
@ -389,7 +229,7 @@
<value>TabPage1</value> <value>TabPage1</value>
</data> </data>
<data name="&gt;&gt;Label4.ZOrder" xml:space="preserve"> <data name="&gt;&gt;Label4.ZOrder" xml:space="preserve">
<value>8</value> <value>3</value>
</data> </data>
<data name="Label1.AutoSize" type="System.Boolean, mscorlib"> <data name="Label1.AutoSize" type="System.Boolean, mscorlib">
<value>True</value> <value>True</value>
@ -398,7 +238,7 @@
<value>NoControl</value> <value>NoControl</value>
</data> </data>
<data name="Label1.Location" type="System.Drawing.Point, System.Drawing"> <data name="Label1.Location" type="System.Drawing.Point, System.Drawing">
<value>6, 26</value> <value>6, 12</value>
</data> </data>
<data name="Label1.Size" type="System.Drawing.Size, System.Drawing"> <data name="Label1.Size" type="System.Drawing.Size, System.Drawing">
<value>74, 13</value> <value>74, 13</value>
@ -419,7 +259,7 @@
<value>TabPage1</value> <value>TabPage1</value>
</data> </data>
<data name="&gt;&gt;Label1.ZOrder" xml:space="preserve"> <data name="&gt;&gt;Label1.ZOrder" xml:space="preserve">
<value>9</value> <value>4</value>
</data> </data>
<data name="Label2.AutoSize" type="System.Boolean, mscorlib"> <data name="Label2.AutoSize" type="System.Boolean, mscorlib">
<value>True</value> <value>True</value>
@ -428,7 +268,7 @@
<value>NoControl</value> <value>NoControl</value>
</data> </data>
<data name="Label2.Location" type="System.Drawing.Point, System.Drawing"> <data name="Label2.Location" type="System.Drawing.Point, System.Drawing">
<value>300, 26</value> <value>300, 12</value>
</data> </data>
<data name="Label2.Size" type="System.Drawing.Size, System.Drawing"> <data name="Label2.Size" type="System.Drawing.Size, System.Drawing">
<value>83, 13</value> <value>83, 13</value>
@ -449,7 +289,7 @@
<value>TabPage1</value> <value>TabPage1</value>
</data> </data>
<data name="&gt;&gt;Label2.ZOrder" xml:space="preserve"> <data name="&gt;&gt;Label2.ZOrder" xml:space="preserve">
<value>10</value> <value>5</value>
</data> </data>
<data name="Label3.AutoSize" type="System.Boolean, mscorlib"> <data name="Label3.AutoSize" type="System.Boolean, mscorlib">
<value>True</value> <value>True</value>
@ -458,7 +298,7 @@
<value>NoControl</value> <value>NoControl</value>
</data> </data>
<data name="Label3.Location" type="System.Drawing.Point, System.Drawing"> <data name="Label3.Location" type="System.Drawing.Point, System.Drawing">
<value>424, 26</value> <value>424, 12</value>
</data> </data>
<data name="Label3.Size" type="System.Drawing.Size, System.Drawing"> <data name="Label3.Size" type="System.Drawing.Size, System.Drawing">
<value>56, 13</value> <value>56, 13</value>
@ -479,13 +319,13 @@
<value>TabPage1</value> <value>TabPage1</value>
</data> </data>
<data name="&gt;&gt;Label3.ZOrder" xml:space="preserve"> <data name="&gt;&gt;Label3.ZOrder" xml:space="preserve">
<value>11</value> <value>6</value>
</data> </data>
<data name="txtActualConnection.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms"> <data name="txtActualConnection.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left, Right</value> <value>Top, Left, Right</value>
</data> </data>
<data name="txtActualConnection.Location" type="System.Drawing.Point, System.Drawing"> <data name="txtActualConnection.Location" type="System.Drawing.Point, System.Drawing">
<value>9, 143</value> <value>9, 129</value>
</data> </data>
<data name="txtActualConnection.Size" type="System.Drawing.Size, System.Drawing"> <data name="txtActualConnection.Size" type="System.Drawing.Size, System.Drawing">
<value>547, 22</value> <value>547, 22</value>
@ -503,10 +343,10 @@
<value>TabPage1</value> <value>TabPage1</value>
</data> </data>
<data name="&gt;&gt;txtActualConnection.ZOrder" xml:space="preserve"> <data name="&gt;&gt;txtActualConnection.ZOrder" xml:space="preserve">
<value>12</value> <value>7</value>
</data> </data>
<data name="txtServer.Location" type="System.Drawing.Point, System.Drawing"> <data name="txtServer.Location" type="System.Drawing.Point, System.Drawing">
<value>9, 46</value> <value>9, 32</value>
</data> </data>
<data name="txtServer.Size" type="System.Drawing.Size, System.Drawing"> <data name="txtServer.Size" type="System.Drawing.Size, System.Drawing">
<value>288, 22</value> <value>288, 22</value>
@ -524,10 +364,10 @@
<value>TabPage1</value> <value>TabPage1</value>
</data> </data>
<data name="&gt;&gt;txtServer.ZOrder" xml:space="preserve"> <data name="&gt;&gt;txtServer.ZOrder" xml:space="preserve">
<value>13</value> <value>8</value>
</data> </data>
<data name="txtUser.Location" type="System.Drawing.Point, System.Drawing"> <data name="txtUser.Location" type="System.Drawing.Point, System.Drawing">
<value>303, 46</value> <value>303, 32</value>
</data> </data>
<data name="txtUser.Size" type="System.Drawing.Size, System.Drawing"> <data name="txtUser.Size" type="System.Drawing.Size, System.Drawing">
<value>118, 22</value> <value>118, 22</value>
@ -545,10 +385,10 @@
<value>TabPage1</value> <value>TabPage1</value>
</data> </data>
<data name="&gt;&gt;txtUser.ZOrder" xml:space="preserve"> <data name="&gt;&gt;txtUser.ZOrder" xml:space="preserve">
<value>14</value> <value>9</value>
</data> </data>
<data name="txtPasswort.Location" type="System.Drawing.Point, System.Drawing"> <data name="txtPasswort.Location" type="System.Drawing.Point, System.Drawing">
<value>427, 46</value> <value>427, 32</value>
</data> </data>
<data name="txtPasswort.Size" type="System.Drawing.Size, System.Drawing"> <data name="txtPasswort.Size" type="System.Drawing.Size, System.Drawing">
<value>64, 22</value> <value>64, 22</value>
@ -566,7 +406,7 @@
<value>TabPage1</value> <value>TabPage1</value>
</data> </data>
<data name="&gt;&gt;txtPasswort.ZOrder" xml:space="preserve"> <data name="&gt;&gt;txtPasswort.ZOrder" xml:space="preserve">
<value>15</value> <value>10</value>
</data> </data>
<data name="BtnConnect.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing"> <data name="BtnConnect.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleLeft</value> <value>MiddleLeft</value>
@ -575,7 +415,7 @@
<value>NoControl</value> <value>NoControl</value>
</data> </data>
<data name="BtnConnect.Location" type="System.Drawing.Point, System.Drawing"> <data name="BtnConnect.Location" type="System.Drawing.Point, System.Drawing">
<value>303, 90</value> <value>303, 76</value>
</data> </data>
<data name="BtnConnect.Size" type="System.Drawing.Size, System.Drawing"> <data name="BtnConnect.Size" type="System.Drawing.Size, System.Drawing">
<value>253, 25</value> <value>253, 25</value>
@ -599,7 +439,7 @@
<value>TabPage1</value> <value>TabPage1</value>
</data> </data>
<data name="&gt;&gt;BtnConnect.ZOrder" xml:space="preserve"> <data name="&gt;&gt;BtnConnect.ZOrder" xml:space="preserve">
<value>16</value> <value>11</value>
</data> </data>
<data name="TabPage1.Location" type="System.Drawing.Point, System.Drawing"> <data name="TabPage1.Location" type="System.Drawing.Point, System.Drawing">
<value>4, 22</value> <value>4, 22</value>
@ -1494,63 +1334,84 @@ in Hauptform aufrufen</value>
<data name="&gt;&gt;TabPage3.ZOrder" xml:space="preserve"> <data name="&gt;&gt;TabPage3.ZOrder" xml:space="preserve">
<value>2</value> <value>2</value>
</data> </data>
<data name="Button7.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms"> <data name="Label6.AutoSize" type="System.Boolean, mscorlib">
<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">
<value>True</value> <value>True</value>
</data> </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> <value>NoControl</value>
</data> </data>
<data name="RadioButton3.Location" type="System.Drawing.Point, System.Drawing"> <data name="Label6.Location" type="System.Drawing.Point, System.Drawing">
<value>217, 24</value> <value>19, 153</value>
</data> </data>
<data name="RadioButton3.Size" type="System.Drawing.Size, System.Drawing"> <data name="Label6.Size" type="System.Drawing.Size, System.Drawing">
<value>96, 17</value> <value>97, 13</value>
</data> </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> <value>8</value>
</data> </data>
<data name="RadioButton3.Text" xml:space="preserve"> <data name="Button4.Text" xml:space="preserve">
<value>RadioButton3</value> <value>Create</value>
</data> </data>
<data name="&gt;&gt;RadioButton3.Name" xml:space="preserve"> <data name="&gt;&gt;Button4.Name" xml:space="preserve">
<value>RadioButton3</value> <value>Button4</value>
</data> </data>
<data name="&gt;&gt;RadioButton3.Type" xml:space="preserve"> <data name="&gt;&gt;Button4.Type" xml:space="preserve">
<value>System.Windows.Forms.RadioButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data> </data>
<data name="&gt;&gt;RadioButton3.Parent" xml:space="preserve"> <data name="&gt;&gt;Button4.Parent" xml:space="preserve">
<value>GroupBox2</value> <value>TabPage4</value>
</data> </data>
<data name="&gt;&gt;RadioButton3.ZOrder" xml:space="preserve"> <data name="&gt;&gt;Button4.ZOrder" xml:space="preserve">
<value>1</value> <value>1</value>
</data> </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"> <data name="rbGruppe.AutoSize" type="System.Boolean, mscorlib">
<value>True</value> <value>True</value>
</data> </data>
@ -1579,7 +1440,7 @@ in Hauptform aufrufen</value>
<value>GroupBox2</value> <value>GroupBox2</value>
</data> </data>
<data name="&gt;&gt;rbGruppe.ZOrder" xml:space="preserve"> <data name="&gt;&gt;rbGruppe.ZOrder" xml:space="preserve">
<value>2</value> <value>0</value>
</data> </data>
<data name="rbUser.AutoSize" type="System.Boolean, mscorlib"> <data name="rbUser.AutoSize" type="System.Boolean, mscorlib">
<value>True</value> <value>True</value>
@ -1606,7 +1467,7 @@ in Hauptform aufrufen</value>
<value>GroupBox2</value> <value>GroupBox2</value>
</data> </data>
<data name="&gt;&gt;rbUser.ZOrder" xml:space="preserve"> <data name="&gt;&gt;rbUser.ZOrder" xml:space="preserve">
<value>3</value> <value>1</value>
</data> </data>
<data name="txtObjectExists.Location" type="System.Drawing.Point, System.Drawing"> <data name="txtObjectExists.Location" type="System.Drawing.Point, System.Drawing">
<value>6, 47</value> <value>6, 47</value>
@ -1627,7 +1488,7 @@ in Hauptform aufrufen</value>
<value>GroupBox2</value> <value>GroupBox2</value>
</data> </data>
<data name="&gt;&gt;txtObjectExists.ZOrder" xml:space="preserve"> <data name="&gt;&gt;txtObjectExists.ZOrder" xml:space="preserve">
<value>4</value> <value>2</value>
</data> </data>
<data name="Button6.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms"> <data name="Button6.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value> <value>NoControl</value>
@ -1654,7 +1515,7 @@ in Hauptform aufrufen</value>
<value>GroupBox2</value> <value>GroupBox2</value>
</data> </data>
<data name="&gt;&gt;Button6.ZOrder" xml:space="preserve"> <data name="&gt;&gt;Button6.ZOrder" xml:space="preserve">
<value>5</value> <value>3</value>
</data> </data>
<data name="GroupBox2.Location" type="System.Drawing.Point, System.Drawing"> <data name="GroupBox2.Location" type="System.Drawing.Point, System.Drawing">
<value>22, 47</value> <value>22, 47</value>
@ -1678,7 +1539,7 @@ in Hauptform aufrufen</value>
<value>TabPage4</value> <value>TabPage4</value>
</data> </data>
<data name="&gt;&gt;GroupBox2.ZOrder" xml:space="preserve"> <data name="&gt;&gt;GroupBox2.ZOrder" xml:space="preserve">
<value>0</value> <value>3</value>
</data> </data>
<data name="btncheckWDFolderexists.Location" type="System.Drawing.Point, System.Drawing"> <data name="btncheckWDFolderexists.Location" type="System.Drawing.Point, System.Drawing">
<value>466, 19</value> <value>466, 19</value>
@ -1702,7 +1563,7 @@ in Hauptform aufrufen</value>
<value>TabPage4</value> <value>TabPage4</value>
</data> </data>
<data name="&gt;&gt;btncheckWDFolderexists.ZOrder" xml:space="preserve"> <data name="&gt;&gt;btncheckWDFolderexists.ZOrder" xml:space="preserve">
<value>1</value> <value>4</value>
</data> </data>
<data name="txtwdFolder.Location" type="System.Drawing.Point, System.Drawing"> <data name="txtwdFolder.Location" type="System.Drawing.Point, System.Drawing">
<value>22, 19</value> <value>22, 19</value>
@ -1723,7 +1584,7 @@ in Hauptform aufrufen</value>
<value>TabPage4</value> <value>TabPage4</value>
</data> </data>
<data name="&gt;&gt;txtwdFolder.ZOrder" xml:space="preserve"> <data name="&gt;&gt;txtwdFolder.ZOrder" xml:space="preserve">
<value>2</value> <value>5</value>
</data> </data>
<data name="Label12.AutoSize" type="System.Boolean, mscorlib"> <data name="Label12.AutoSize" type="System.Boolean, mscorlib">
<value>True</value> <value>True</value>
@ -1750,7 +1611,7 @@ in Hauptform aufrufen</value>
<value>TabPage4</value> <value>TabPage4</value>
</data> </data>
<data name="&gt;&gt;Label12.ZOrder" xml:space="preserve"> <data name="&gt;&gt;Label12.ZOrder" xml:space="preserve">
<value>3</value> <value>6</value>
</data> </data>
<data name="TabPage4.Location" type="System.Drawing.Point, System.Drawing"> <data name="TabPage4.Location" type="System.Drawing.Point, System.Drawing">
<value>4, 22</value> <value>4, 22</value>

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

@ -1,10 +1,8 @@
Imports System.Threading Imports System.Threading
Imports System.Globalization Imports System.Globalization
Imports DevExpress.LookAndFeel Imports DevExpress.LookAndFeel
Imports DD_LIB_Standards
Imports System.IO
Imports DevExpress.XtraCharts.Native
Imports DigitalData.Modules.Database Imports DigitalData.Modules.Database
Imports Microsoft.Office.Interop.Word
Public Class frmConfig_Basic Public Class frmConfig_Basic
Private _Helper As New ClassHelper Private _Helper As New ClassHelper
@ -35,14 +33,11 @@ Public Class frmConfig_Basic
If result = MsgBoxResult.Yes Then If result = MsgBoxResult.Yes Then
CONNECTION_CHANGED = True CONNECTION_CHANGED = True
'Set the construction string 'Set the construction string
If rbConnDefault.Checked Then
MyConnectionString = con
MYDB_ECM = New MSSQLServer(LOGCONFIG, MyConnectionString)
Else MyConnectionString = con
ClassProxy.MyPROXYConnectionString = con MYDB_ECM = New MSSQLServer(LOGCONFIG, MyConnectionString)
clsDatabase.Init(MyConnectionString, True)
End If
My.Settings.Save() My.Settings.Save()
If chkbxUserAut.Checked = False Then If chkbxUserAut.Checked = False Then
@ -51,13 +46,10 @@ Public Class frmConfig_Basic
Dim pw As String = cipherText Dim pw As String = cipherText
con = "Server=" & Me.txtServer.Text & ";Database=" & Me.cmbDatenbank.Text & ";User Id=" & Me.txtUser.Text & ";Password=" & pw & ";" con = "Server=" & Me.txtServer.Text & ";Database=" & Me.cmbDatenbank.Text & ";User Id=" & Me.txtUser.Text & ";Password=" & pw & ";"
End If End If
If rbConnDefault.Checked Then CONFIG.Config.ConnectionString = con
CONFIG.Config.ConnectionString = con CONFIG.Save(ForceAll:=True)
CONFIG.Save(ForceAll:=True) ' SaveMySettingsValue("MyConnectionString", con, "ConfigMain")
' SaveMySettingsValue("MyConnectionString", con, "ConfigMain")
Else
SaveMySettingsValue("MyProxyConnectionString", con, "ConfigMain")
End If
Dim csb As New SqlClient.SqlConnectionStringBuilder Dim csb As New SqlClient.SqlConnectionStringBuilder
csb.ConnectionString = MYDB_ECM.CurrentConnectionString csb.ConnectionString = MYDB_ECM.CurrentConnectionString
Dim constr = connection.ConnectionString Dim constr = connection.ConnectionString
@ -117,11 +109,7 @@ Public Class frmConfig_Basic
End Sub End Sub
Private Sub frmConfig_Basic_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub frmConfig_Basic_Load(sender As Object, e As EventArgs) Handles MyBase.Load
_Helper = New ClassHelper _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 If Not MyConnectionString = String.Empty Then
CONNECTION_CHANGED = False CONNECTION_CHANGED = False
'Try '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 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) Dim oDT As Data.DataTable = MYDB_ECM.GetDatatable(sql)
If DT.Rows.Count > 0 Then If oDT.Rows.Count > 0 Then
cmbConstructor.Enabled = True cmbConstructor.Enabled = True
cmbConstructor.DataSource = DT cmbConstructor.DataSource = oDT
cmbConstructor.DisplayMember = DT.Columns(1).ColumnName cmbConstructor.DisplayMember = oDT.Columns(1).ColumnName
cmbConstructor.ValueMember = DT.Columns(0).ColumnName cmbConstructor.ValueMember = oDT.Columns(0).ColumnName
If Sett_ConstructorStart <> 0 Then If Sett_ConstructorStart <> 0 Then
cmbConstructor.SelectedValue = Sett_ConstructorStart cmbConstructor.SelectedValue = Sett_ConstructorStart
End If End If
@ -189,7 +177,7 @@ Public Class frmConfig_Basic
End Sub End Sub
Private Sub btnApplicationFolder_Click(sender As Object, e As EventArgs) Handles btnApplicationFolder.Click 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 End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 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 Private Sub chkLogErrorsOnly_CheckedChanged(sender As Object, e As EventArgs) Handles chkLogErrorsOnly.CheckedChanged
DEBUG = chkLogErrorsOnly.Checked DEBUG = chkLogErrorsOnly.Checked
SaveMySettingsValue("LogErrorsOnly", DEBUG, "ConfigMain") SaveMySettingsValue("LogErrorsOnly", DEBUG, "ConfigMain")
clsCURRENT.LOG_ERRORS_ONLY = DEBUG
LOGCONFIG.Debug = DEBUG LOGCONFIG.Debug = DEBUG
End Sub End Sub
@ -227,7 +214,7 @@ Public Class frmConfig_Basic
Case 1 Case 1
cmbLanguage.SelectedIndex = cmbLanguage.FindStringExact(USER_LANGUAGE) cmbLanguage.SelectedIndex = cmbLanguage.FindStringExact(USER_LANGUAGE)
Case 2 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 Not DTSCAN_folderwatch Is Nothing Then
If DTSCAN_folderwatch.Rows.Count = 1 Then If DTSCAN_folderwatch.Rows.Count = 1 Then
CURRENT_SCAN_FOLDERWATCH = DTSCAN_folderwatch.Rows(0).Item(0) CURRENT_SCAN_FOLDERWATCH = DTSCAN_folderwatch.Rows(0).Item(0)
@ -301,14 +288,14 @@ Public Class frmConfig_Basic
End If End If
Dim folderwatch = MYDB_ECM.GetScalarValue("SELECT GUID FROM TBPMO_FOLDERWATCH_USER WHERE USER_ID = " & USER_GUID & " AND FOLDER_TYPE = 'SCAN'") 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 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 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 End If
If MYDB_ECM.ExecuteNonQuery(sql) Then If MYDB_ECM.ExecuteNonQuery(oSql) 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'") 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 = DT.Rows(0).Item(0)
CURRENT_SCAN_FOLDERWATCH_SD = DT.Rows(0).Item(1) CURRENT_SCAN_FOLDERWATCH_SD = DT.Rows(0).Item(1)
@ -439,23 +426,41 @@ Public Class frmConfig_Basic
End Sub 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 If Not constr.Contains("Trusted") Then
constr = constr.Replace(csb.Password, "XXXXX") constr = constr.Replace(csb.Password, "XXXXX")
txtUser.Text = csb.UserID txtUser.Text = csb.UserID
@ -472,57 +477,15 @@ Public Class frmConfig_Basic
End Try End Try
Me.txtActualConnection.Text = constr Me.txtActualConnection.Text = constr
btndeleteProxy.Visible = True
Else
Me.txtActualConnection.Text = ""
btndeleteProxy.Visible = False
End If 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 End Sub
Private Sub btncheckWDFolderexists_Click(sender As Object, e As EventArgs) Handles btncheckWDFolderexists.Click Private Sub btncheckWDFolderexists_Click(sender As Object, e As EventArgs) Handles btncheckWDFolderexists.Click
If txtwdFolder.Text <> String.Empty And clsWindream.SESSION_CREATED = True Then If txtwdFolder.Text <> String.Empty And WMMOD.SessionLoggedin Then
Dim folderpath = _Helper.FORMAT_WM_PATH(txtwdFolder.Text) 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!") MsgBox("Folder exists in windream!")
Else Else
MsgBox("Folder is not existing in windream!", MsgBoxStyle.Critical) 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 Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
Dim oExists = False Dim oExists = False
If rbUser.Checked Then If rbUser.Checked Then
oExists = clsWD_GET.WM_USER_EXISTS(txtObjectExists.Text) oExists = WMMOD.TestUserExists(txtObjectExists.Text)
ElseIf rbGruppe.Checked Then ElseIf rbGruppe.Checked Then
oExists = clsWD_GET.WM_GROUP_EXISTS(txtObjectExists.Text) oExists = WMMOD.TestGroupExists(txtObjectExists.Text)
End If End If
If oExists = True Then If oExists = True Then
MsgBox("Object exists in windream!") MsgBox("Object exists in windream!")
@ -556,15 +519,7 @@ Public Class frmConfig_Basic
End If End If
End Sub 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) Private Sub CheckBoxGridDocResult_BestFitColumns_CheckedChanged(sender As Object, e As EventArgs)
If formloaded = False Then Exit Sub 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 Private Sub frmConfig_Basic_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
My.Settings.Save() My.Settings.Save()
End Sub 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 End Class

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

@ -9,11 +9,11 @@ Imports DevExpress.XtraScheduler
Imports System.Text Imports System.Text
Imports System.IO Imports System.IO
Imports WINDREAMLib 'Imports WINDREAMLib
Imports System.Runtime.InteropServices Imports System.Runtime.InteropServices
Imports DD_Rights 'Imports DD_Rights
Imports DD_LIB_Standards 'Imports DD_LIB_Standards
Imports DevExpress.LookAndFeel 'Imports DevExpress.LookAndFeel
Imports System.ComponentModel Imports System.ComponentModel
Imports System.Threading Imports System.Threading
Imports DevExpress.XtraTreeList Imports DevExpress.XtraTreeList
@ -312,10 +312,10 @@ Public Class frmConstructor_Main
FormDesignerToolStripMenuItem.Visible = False FormDesignerToolStripMenuItem.Visible = False
End If End If
If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then 'If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
SQL = "SELECT * FROM TBPROXY_SYNC_ENTITY" ' SQL = "SELECT * FROM TBPROXY_SYNC_ENTITY"
DT_PROXY_ENTITY = MYDB_ECM.GetDatatable(SQL) ' DT_PROXY_ENTITY = MYDB_ECM.GetDatatable(SQL)
End If 'End If
ClassWindowLocation.LoadFormLocationSize(Me, CONSTRUCTORID, CURRENT_SCREEN_ID, "CONSTRUCTOR_MAIN") ClassWindowLocation.LoadFormLocationSize(Me, CONSTRUCTORID, CURRENT_SCREEN_ID, "CONSTRUCTOR_MAIN")
' VWPMO_WF_USER_ACTIVETableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString ' 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") ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, "Error in Loading Form part 1")
End Try End Try
Try Try
If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then 'If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
If DT_VWPMO_CONSTRUCTOR_FORMS.Rows.Count = 0 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 & ' 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 & ' "Actually there is no data for this view synchronized or configured! Please inform Digital Data!" & vbNewLine &
"View will now be terminated!")) ' "View will now be terminated!"))
ERROR_FORM_LOAD = True ' ERROR_FORM_LOAD = True
Exit Sub ' Exit Sub
Else ' Else
Dim Entity_Exists As Boolean = False ' Dim Entity_Exists As Boolean = False
Dim Entity_Name As String ' Dim Entity_Name As String
For Each Constr_row As DataRow In DT_VWPMO_CONSTRUCTOR_FORMS.Rows ' For Each Constr_row As DataRow In DT_VWPMO_CONSTRUCTOR_FORMS.Rows
Entity_Name = Constr_row.Item("FORM_TITLE") ' Entity_Name = Constr_row.Item("FORM_TITLE")
Dim Constr_FORM = Constr_row.Item("FORM_ID") ' Dim Constr_FORM = Constr_row.Item("FORM_ID")
ENTITY_ID = Constr_row.Item("FORM_ID") ' ENTITY_ID = Constr_row.Item("FORM_ID")
CURRENT_ENTITY_ID = ENTITY_ID ' CURRENT_ENTITY_ID = ENTITY_ID
Dim expression As String = String.Format("ENTITY_ID = {0}", Constr_FORM) ' Dim expression As String = String.Format("ENTITY_ID = {0}", Constr_FORM)
Dim matchingRows() As DataRow = DT_PROXY_ENTITY.Select(expression) ' Dim matchingRows() As DataRow = DT_PROXY_ENTITY.Select(expression)
'Prüfen ob Form in Config Proxy vorhanden ' 'Prüfen ob Form in Config Proxy vorhanden
For Each matchingRow As DataRow In matchingRows ' For Each matchingRow As DataRow In matchingRows
Entity_Exists = True ' Entity_Exists = True
Next ' Next
If Entity_Exists = False Then ' If Entity_Exists = False Then
ClassHelper.MSGBOX_Handler("ERROR", "Missing Proxy-Configuration", String.Format("Attention: You are using Proxy-Server with synchronized data:" & ' 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!" & ' "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)) ' "View will now be terminated!", Entity_Name))
ERROR_FORM_LOAD = True ' ERROR_FORM_LOAD = True
Exit Sub ' Exit Sub
End If ' End If
Next ' Next
End If ' End If
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)) 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}") LOGGER.Debug($"NODES: StructureNodes-Count (asyn.newTreeviewc): {async.newTreeview.Nodes.Count}")
MyTreeview = async.newTreeview MyTreeview = async.newTreeview
Catch ex As Exception 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) MyTreeview = ClassNodeNavigation.CreateTreeViewNodes(DT_TREEVIEW_NODES_ALL, TREEVIEW_IMAGELIST)
End Try End Try
@ -1919,7 +1919,7 @@ Public Class frmConstructor_Main
Private Sub tsButtonAdd_Click(sender As Object, e As EventArgs) Handles tsButtonAdd.Click Private Sub tsButtonAdd_Click(sender As Object, e As EventArgs) Handles tsButtonAdd.Click
If USER_PERSONIFIED_TEST = True Then 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 Exit Sub
End If End If
'If ClassProxy.IS_PROXY_BUSY = True Then 'If ClassProxy.IS_PROXY_BUSY = True Then
@ -1987,12 +1987,12 @@ Public Class frmConstructor_Main
CURRENT_RECORD_ID = NEW_RECORD_ID CURRENT_RECORD_ID = NEW_RECORD_ID
RECORD_ID = NEW_RECORD_ID RECORD_ID = NEW_RECORD_ID
SELECTED_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 PARENT_ENTITYID > 0 And PARENT_RECORDID > 0 Then
If ClassRecordCommands.ConnectRecord(PARENT_RECORDID, CURRENT_RECORD_ID, "INSERT RECORD") = False 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!") ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "In Connecting Record - Check the log!")
Else 'Else
ClassProxy.PRPROXY_RECORD_CONNECT(PARENT_RECORDID, CURRENT_RECORD_ID) ' ClassProxy.PRPROXY_RECORD_CONNECT(PARENT_RECORDID, CURRENT_RECORD_ID)
End If End If
End If End If
@ -2089,7 +2089,7 @@ Public Class frmConstructor_Main
ActivateAllTabs() ActivateAllTabs()
End If 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 End If
Dim recid As Integer Dim recid As Integer
@ -2219,7 +2219,7 @@ Public Class frmConstructor_Main
Sub Delete_Record() Sub Delete_Record()
RECORD_ID = SELECTED_RECORD_ID RECORD_ID = SELECTED_RECORD_ID
If USER_PERSONIFIED_TEST = True Then 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 Exit Sub
End If End If
'If ClassProxy.IS_PROXY_BUSY = True Then 'If ClassProxy.IS_PROXY_BUSY = True Then
@ -3158,12 +3158,12 @@ Public Class frmConstructor_Main
'Die neue Record-ID setzen 'Die neue Record-ID setzen
RECORD_ID = GRP_SINGLE_REC RECORD_ID = GRP_SINGLE_REC
SELECTED_RECORD_ID = RECORD_ID 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 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) MsgBox("Unexpected Error in Connecting Record. Check log", MsgBoxStyle.Critical)
Return False Return False
Else 'Else
ClassProxy.PRPROXY_RECORD_CONNECT(PARENT_RECORDID, RECORD_ID) ' ClassProxy.PRPROXY_RECORD_CONNECT(PARENT_RECORDID, RECORD_ID)
End If End If
Else Else
Return False Return False
@ -3528,7 +3528,7 @@ Public Class frmConstructor_Main
If USER_LANGUAGE = "de-DE" Then 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!" 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 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 End If
result = MessageBox.Show(stg, "Confirmation needed:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) result = MessageBox.Show(stg, "Confirmation needed:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then If result = MsgBoxResult.Yes Then
@ -3708,7 +3708,7 @@ Public Class frmConstructor_Main
Dim sw As New SW("Check_windream_Show") Dim sw As New SW("Check_windream_Show")
Try Try
If clsWindream.Create_Session = True Then If WMMOD.SessionReconnect = True Then
windream_inited = True windream_inited = True
End If End If
Catch ex As Exception Catch ex As Exception
@ -3766,7 +3766,7 @@ Public Class frmConstructor_Main
End If End If
MsgBox(msg, MsgBoxStyle.Critical, "Attention:") MsgBox(msg, MsgBoxStyle.Critical, "Attention:")
Else Else
If clsWD_SET.Delete_WDFile(path) Then If WMMOD.RemoveFile(path) Then
ClassHelper.InsertEssential_Log(DOC_ID, "DOC-ID", "FILE DELETED BY USER") ClassHelper.InsertEssential_Log(DOC_ID, "DOC-ID", "FILE DELETED BY USER")
End If End If
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}]!") LOGGER.Info($"RUN_WDSEARCH_GRID - DT_DOCRESULT_DROPDOWN_ITEMS [{DT_DOCRESULT_DROPDOWN_ITEMS.Rows.Count}]!")
End If End If
ClassWindreamDocGrid.FillColumns( ClassDocGrid.FillColumns(
GridViewDoc_Search, GridViewDoc_Search,
DT_RESULT, DT_RESULT,
DT_WINDREAM_COLUMNS_GRID, DT_WINDREAM_COLUMNS_GRID,
@ -4018,7 +4018,7 @@ Public Class frmConstructor_Main
End Function End Function
Private Sub OnCBSelectedValueChanged(sender As Object, e As EventArgs) Private Sub OnCBSelectedValueChanged(sender As Object, e As EventArgs)
Try Try
Dim docId As Integer = ClassWindreamDocGrid.SELECTED_DOC_ID Dim docId As Integer = ClassDocGrid.SELECTED_DOC_ID
If docId = 0 Then If docId = 0 Then
MsgBox("Sorry no document was selected! Please try again!", MsgBoxStyle.Exclamation) MsgBox("Sorry no document was selected! Please try again!", MsgBoxStyle.Exclamation)
Exit Sub Exit Sub
@ -4027,7 +4027,7 @@ Public Class frmConstructor_Main
Dim ComboBox As ComboBoxEdit = sender Dim ComboBox As ComboBoxEdit = sender
'Dim ItemComboBox As RepositoryItemComboBox 'Dim ItemComboBox As RepositoryItemComboBox
'ItemComboBox = sender 'ItemComboBox = sender
Dim item As ClassWindreamDocGrid.WindreamDocGridComboboxItem = ComboBox.SelectedItem Dim item As ClassDocGrid.WindreamDocGridComboboxItem = ComboBox.SelectedItem
Dim value As String = item.Value Dim value As String = item.Value
If value.ToUpper = "Not displayable in Group-Search".ToUpper Then If value.ToUpper = "Not displayable in Group-Search".ToUpper Then
Exit Sub 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) 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 If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
MsgBox("The Update-Command was not successful! Check the log!",, MsgBoxStyle.Critical) MsgBox("The Update-Command was not successful! Check the log!",, MsgBoxStyle.Critical)
Else 'Else
ClassProxy.PRPROXY_DOC_VALUES_UPD(docId, RECORD_ID) ' ClassProxy.PRPROXY_DOC_VALUES_UPD(docId, RECORD_ID)
End If End If
Catch ex As Exception Catch ex As Exception
@ -4077,7 +4077,7 @@ Public Class frmConstructor_Main
Dim detailRow As DataRowView = detailView.GetRow(detailView.FocusedRowHandle) Dim detailRow As DataRowView = detailView.GetRow(detailView.FocusedRowHandle)
Dim configid = detailRow.Item("CONFIG_ID") 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 If docId = 0 Then
MsgBox("Sorry no document was selected! Please try again!", MsgBoxStyle.Exclamation) MsgBox("Sorry no document was selected! Please try again!", MsgBoxStyle.Exclamation)
Exit Sub Exit Sub
@ -4088,8 +4088,8 @@ Public Class frmConstructor_Main
If MYDB_ECM.ExecuteNonQuery(Sql) = False Then If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
ClassHelper.MSGBOX_Handler("ERROR", "UnexpectedError:", "Error updating doc-metadata (date): " & vbNewLine & "Check the log for further information!") ClassHelper.MSGBOX_Handler("ERROR", "UnexpectedError:", "Error updating doc-metadata (date): " & vbNewLine & "Check the log for further information!")
Else 'Else
ClassProxy.PRPROXY_DOC_VALUES_UPD(docId, RECORD_ID) ' ClassProxy.PRPROXY_DOC_VALUES_UPD(docId, RECORD_ID)
End If End If
Catch ex As Exception Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in OnDateSelectedValueChanged: ", ex.Message) 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 detailRow As DataRowView = detailView.GetRow(detailView.FocusedRowHandle)
Dim configid = detailRow.Item("CONFIG_ID") 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 If docId = 0 Then
MsgBox("Sorry no document was selected! Please try again!", MsgBoxStyle.Exclamation) MsgBox("Sorry no document was selected! Please try again!", MsgBoxStyle.Exclamation)
Exit Sub 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) 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 If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
ClassHelper.MSGBOX_Handler("ERROR", "UnexpectedError:", "Error updating doc-metadata (textbox): " & vbNewLine & "Check the log for further information!") ClassHelper.MSGBOX_Handler("ERROR", "UnexpectedError:", "Error updating doc-metadata (textbox): " & vbNewLine & "Check the log for further information!")
Else 'Else
ClassProxy.PRPROXY_DOC_VALUES_UPD(docId, RECORD_ID) ' ClassProxy.PRPROXY_DOC_VALUES_UPD(docId, RECORD_ID)
End If End If
Catch ex As Exception Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in OnTextSelectedValueChanged: ", ex.Message) 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 detailRow As DataRowView = detailView.GetRow(detailView.FocusedRowHandle)
Dim configid = detailRow.Item("CONFIG_ID") 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 If docId = 0 Then
MsgBox("Sorry no document was selected! Please try again!", MsgBoxStyle.Exclamation) MsgBox("Sorry no document was selected! Please try again!", MsgBoxStyle.Exclamation)
Exit Sub 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) 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 If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
ClassHelper.MSGBOX_Handler("ERROR", "UnexpectedError:", "Error updating doc-metadata (checkbox): " & vbNewLine & "Check the log for further information!") ClassHelper.MSGBOX_Handler("ERROR", "UnexpectedError:", "Error updating doc-metadata (checkbox): " & vbNewLine & "Check the log for further information!")
Else 'Else
ClassProxy.PRPROXY_DOC_VALUES_UPD(docId, RECORD_ID) ' ClassProxy.PRPROXY_DOC_VALUES_UPD(docId, RECORD_ID)
End If End If
Catch ex As Exception Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in OnCheckboxValueChanged: ", ex.Message) ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in OnCheckboxValueChanged: ", ex.Message)
@ -4493,11 +4493,11 @@ Public Class frmConstructor_Main
Exit Sub Exit Sub
End If End If
If USER_PERSONIFIED_TEST = True Then 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 Exit Sub
End If End If
If clsWindream.Create_Session = False Then If WMMOD.SessionLoggedin = False Then
ClassHelper.MSGBOX_Handler("INFO", "Attention", "Check Your windream-connection and restart ADDI afterwards.", "Could not create a windream session!") ClassHelper.MSGBOX_Handler("INFO", "Attention", "Check Your windream-connection and restart orgFLOW afterwards.", "Could not create a windream session!")
Exit Sub Exit Sub
End If End If
If act_FormViewID <> 0 And (RIGHT_READ_ONLY_DOC = False And GridControlDocSearch.ContextMenuStrip.Name = "ContextMenuStripResultFiles") Or RIGHT_ADD_DOC = True Then 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() Load_Tree_View()
End Sub 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 Private Sub FormDesignerToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles FormDesignerToolStripMenuItem.Click
Try Try
Dim SelectedNode As TreeNode = TryCast(TreeViewMain.SelectedNode, TreeNode) 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 If recordId > 0 Then
'Die neue Record-ID setzen 'Die neue Record-ID setzen
POS_RECORD_ID = recordId 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 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 End If
Else Else
MsgBox("Unexpected Error in Creating POS", MsgBoxStyle.Exclamation) 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 End Sub
Private Sub KopierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles docCM_Copy.Click 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 Try
Dim selectedfile(0) As String Dim selectedfile(0) As String
selectedfile(0) = ClassWindreamDocGrid.SELECTED_DOC_PATH selectedfile(0) = ClassDocGrid.SELECTED_DOC_PATH
selectedfile(0) = ClassHelper.FORMAT_WM_PATH(ClassWindreamDocGrid.SELECTED_DOC_PATH) selectedfile(0) = ClassHelper.FORMAT_WM_PATH(ClassDocGrid.SELECTED_DOC_PATH)
Dim dataobj As New DataObject 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 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() Refresh_DocID()
End Sub End Sub
Private Sub GridViewDoc_Search_FocusedRowChanged(sender As Object, e As FocusedRowChangedEventArgs) Handles GridViewDoc_Search.FocusedRowChanged 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() Refresh_DocID()
End Sub End Sub
Sub Refresh_DocID() Sub Refresh_DocID()
If ClassWindreamDocGrid.SELECTED_DOC_ID <> 0 Then If ClassDocGrid.SELECTED_DOC_ID <> 0 Then
Dim msg = "Doc-ID: " & ClassWindreamDocGrid.SELECTED_DOC_ID.ToString Dim msg = "Doc-ID: " & ClassDocGrid.SELECTED_DOC_ID.ToString
bsitmDocID.Caption = msg bsitmDocID.Caption = msg
tslblDocIDTab1.Text = msg tslblDocIDTab1.Text = msg
Else 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!") ClassHelper.MSGBOX_Handler("INFO", "Attention", "Missing Selection:", "Please select a record!")
Exit Sub Exit Sub
End If End If
If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then If IsNothing(ClassDocGrid.DT_RESULTFILES) Then
Exit Sub Exit Sub
End If 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!" 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 If USER_LANGUAGE <> "de-DE" Then
msg = "Would You like to delete only the references?" & vbNewLine & "File(s) will stay in ECM/Archive/Explorer!" 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) result = MessageBox.Show(msg, CAPTION_CONFIRMATION, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then If result = MsgBoxResult.Yes Then
Try 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 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") ClassHelper.InsertEssential_Log(row.Item("DOC_ID"), "DOC-ID", "RECORD LINK REMOVED FROM DOC-SEARCH")
Cursor = Cursors.WaitCursor Cursor = Cursors.WaitCursor
@ -5491,11 +5483,11 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
Show_File_Properties() Show_File_Properties()
End Sub End Sub
Sub Show_File_Properties() 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) MsgBox("Could not read File Parameters(4)!", MsgBoxStyle.Exclamation)
Exit Sub Exit Sub
End If 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 If row.Item("DOC_PATH") <> "" Then
Dim oFileFullPath = ClassHelper.FORMAT_WM_PATH(row.Item("DOC_PATH")) Dim oFileFullPath = ClassHelper.FORMAT_WM_PATH(row.Item("DOC_PATH"))
Cursor = Cursors.WaitCursor 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) LOGGER.Warn("Attention: Could not set DocVariable RENAME_DOC_PATH: " & ex.Message)
RENAME_DOC_PATH = Nothing RENAME_DOC_PATH = Nothing
End Try End Try
If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then If IsNothing(ClassDocGrid.DT_RESULTFILES) Then
MsgBox("Could not read File Parameters!", MsgBoxStyle.Exclamation) MsgBox("Could not read File Parameters!", MsgBoxStyle.Exclamation)
Exit Sub Exit Sub
End If 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 Private Sub DateiMitDatensatzVerknüpfenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles docCM_linkRecord.Click
Try Try
ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search) ClassDocGrid.GetDocItems(GridViewDoc_Search)
If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then If IsNothing(ClassDocGrid.DT_RESULTFILES) Then
MsgBox("Could not read File Parameters (LinkRecord)!", MsgBoxStyle.Exclamation) MsgBox("Could not read File Parameters (LinkRecord)!", MsgBoxStyle.Exclamation)
Exit Sub Exit Sub
End If End If
@ -5915,24 +5907,24 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
End Sub End Sub
Private Sub ContextMenuStripResultFiles_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStripResultFiles.Opening Private Sub ContextMenuStripResultFiles_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStripResultFiles.Opening
Try Try
If clsWindream.SESSION_CREATED = False Then If WMMOD.SessionLoggedin Then
ClassHelper.MSGBOX_Handler("INFO", "Attention", "Check Your windream-connection and restart ADDI afterwards.", "Could not create a windream session!") ClassHelper.MSGBOX_Handler("INFO", "Attention", "Check Your windream-connection and restart orgFLOW afterwards.", "Could not create a windream session!")
e.Cancel = True e.Cancel = True
End If End If
Me.Cursor = Cursors.WaitCursor Me.Cursor = Cursors.WaitCursor
ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search) ClassDocGrid.GetDocItems(GridViewDoc_Search)
If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then If IsNothing(ClassDocGrid.DT_RESULTFILES) Then
e.Cancel = True e.Cancel = True
End If End If
Refresh_DocID() Refresh_DocID()
If ClassWindreamDocGrid.DT_RESULTFILES.Rows.Count = 1 Then If ClassDocGrid.DT_RESULTFILES.Rows.Count = 1 Then
If ClassWindreamDocGrid.DT_RESULTFILES.Rows(0).Item("DOC_ID") = 0 Then If ClassDocGrid.DT_RESULTFILES.Rows(0).Item("DOC_ID") = 0 Then
e.Cancel = True e.Cancel = True
End If End If
End If End If
File_in_Work() 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 If Not IsNothing(Result) Then
ROW_READ_ONLY = False ROW_READ_ONLY = False
Select Case Result.ToString 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 End If
End If End If
If ClassWindreamDocGrid.DT_RESULTFILES.Rows.Count = 1 Then If ClassDocGrid.DT_RESULTFILES.Rows.Count = 1 Then
If ClassWindreamDocGrid.DT_RESULTFILES.Rows(0).Item("DISPLAYNAME") <> "" Then If ClassDocGrid.DT_RESULTFILES.Rows(0).Item("DISPLAYNAME") <> "" Then
DisplaynameUmbenennenToolStripMenuItem.Visible = True DisplaynameUmbenennenToolStripMenuItem.Visible = True
Set_Displayname() Set_Displayname()
Else Else
@ -5992,13 +5984,13 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
docCM_InWork.Enabled = True docCM_InWork.Enabled = True
Try Try
Dim expression As String Dim expression As String
expression = "DocID = " & ClassWindreamDocGrid.SELECTED_DOC_ID expression = "DocID = " & ClassDocGrid.SELECTED_DOC_ID
Dim foundRowsLevel0() As DataRow Dim foundRowsLevel0() As DataRow
' Use the Select method to find all rows matching the filter. ' Use the Select method to find all rows matching the filter.
foundRowsLevel0 = CURRENT_DOC_RESULTS.Select(expression) foundRowsLevel0 = CURRENT_DOC_RESULTS.Select(expression)
Try 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) Dim oDT As DataTable = MYDB_ECM.GetDatatable(oSQLDRList)
If Not IsNothing(oDT) Then If Not IsNothing(oDT) Then
If oDT.Rows.Count = 1 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 Try
End Sub End Sub
Private Sub TSMI_inWork_Click(sender As Object, e As EventArgs) Handles docCM_InWork.Click 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) MsgBox("Could not read File Parameters (3)!", MsgBoxStyle.Exclamation)
Exit Sub Exit Sub
End If End If
ClassFileResult.DocID = ClassWindreamDocGrid.SELECTED_DOC_ID ClassFileResult.DocID = ClassDocGrid.SELECTED_DOC_ID
If INWORK_FILE = True Then ' Datei ist in Bearbeitung If INWORK_FILE = True Then ' Datei ist in Bearbeitung
Dim msglbl As String Dim msglbl As String
Dim msg1 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 End If
Else Else
frmFileInWork.ShowDialog() frmFileInWork.ShowDialog()
ClassWindreamDocGrid.SELECTED_INWORK = ClassFileResult.InWork ClassDocGrid.SELECTED_INWORK = ClassFileResult.InWork
RUN_WDSEARCH_GRID(True) RUN_WDSEARCH_GRID(True)
End If End If
End Sub End Sub
Sub Set_Displayname() Sub Set_Displayname()
Try Try
If ClassWindreamDocGrid.DT_RESULTFILES.Rows.Count = 1 Then If ClassDocGrid.DT_RESULTFILES.Rows.Count = 1 Then
If ClassWindreamDocGrid.DT_RESULTFILES.Rows(0).Item("DISPLAYNAME") <> "" Then If ClassDocGrid.DT_RESULTFILES.Rows(0).Item("DISPLAYNAME") <> "" Then
CMDoc_TextBoxRenameDisplay.Text = ClassWindreamDocGrid.DT_RESULTFILES.Rows(0).Item("DISPLAYNAME") CMDoc_TextBoxRenameDisplay.Text = ClassDocGrid.DT_RESULTFILES.Rows(0).Item("DISPLAYNAME")
CMDoc_TextBoxRenameDisplay.Enabled = True CMDoc_TextBoxRenameDisplay.Enabled = True
End If End If
Else 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 Private Sub TestToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles docCM_CheckRights.Click
Dim msg = "Die Rechte wurden erfolgreich überprüft und aktualisiert!" Dim msg = "Die Rechte wurden erfolgreich überprüft und aktualisiert!"
CURRENT_RECORD_ID = RECORD_ID 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)") ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Could not read file Parameters: ", "Could not read file Parameters (6)")
Exit Sub Exit Sub
End If End If
Dim err As Boolean = False Dim err As Boolean = False
Cursor = Cursors.WaitCursor 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 oWMObject As WINDREAMLib.WMObject
Dim oReldocpath = ClassHelper.GetRelPath(row.Item("DOC_PATH")) Dim oReldocpath = ClassHelper.GetRelPath(row.Item("DOC_PATH"))
LOGGER.Info("oReldocpath: " & oReldocpath) LOGGER.Info("oReldocpath: " & oReldocpath)
@ -6107,7 +6099,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
End If End If
'Create Session um Fehler bei windows Session icht zu erzeugen 'Create Session um Fehler bei windows Session icht zu erzeugen
FAU_AD_USER = "" FAU_AD_USER = ""
clsWindream.Create_Session() Dim OConnect = WMMOD.SessionReconnect()
Next Next
Cursor = Cursors.Default Cursor = Cursors.Default
If err = False Then 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) MsgBox("Please select a record!", MsgBoxStyle.Exclamation)
Exit Sub Exit Sub
End If End If
If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then If IsNothing(ClassDocGrid.DT_RESULTFILES) Then
MsgBox("Could not read File Parameters (DELETE FILES)!", MsgBoxStyle.Exclamation) MsgBox("Could not read File Parameters (DELETE FILES)!", MsgBoxStyle.Exclamation)
Exit Sub Exit Sub
End If 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) MsgBox("Please choose a file!", MsgBoxStyle.Exclamation)
Exit Sub Exit Sub
End If End If
@ -6169,7 +6161,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
Dim result1 As MsgBoxResult Dim result1 As MsgBoxResult
result1 = MessageBox.Show(msg, CAPTION_CONFIRMATION, MessageBoxButtons.YesNo, MessageBoxIcon.Question) result1 = MessageBox.Show(msg, CAPTION_CONFIRMATION, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result1 = MsgBoxResult.Yes Then 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 If row.Item("DOC_PATH") <> "" Then
Try Try
If Not IsNothing(row.Item("DOC_ID")) Then 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 RECORD_ID = 0
End If End If
If ClassFileResult.Delete_ResultFile(row.Item("DOC_ID"), RECORD_ID, 1) = True Then 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") ClassHelper.InsertEssential_Log(row.Item("DOC_ID"), "DOC-ID", "FILE DELETED BY USER")
End If End If
@ -6214,10 +6206,10 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
End If End If
End If End If
If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then '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")) ' Dim proc = String.Format("EXEC PRPROXY_DOC_CHECK_DELETE {0}", row.Item("DOC_ID"))
MYDB_ECM.ExecuteNonQuery(proc) ' MYDB_ECM.ExecuteNonQuery(proc)
End If 'End If
Catch ex As Exception Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in delete file: ", ex.Message) ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in delete file: ", ex.Message)
End Try 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) 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 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) 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) 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 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 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) 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) MYDB_ECM.ExecuteNonQuery(upd)
If DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED = True Then
MYDB_ECM.ExecuteNonQuery(upd)
End If
Next Next
Dim execsql = String.Format("EXEC PRPMO_DELETE_RECORD_PMO_TABLE {0},{1}", ENTITY_ID, _RECORD) Dim execsql = String.Format("EXEC PRPMO_DELETE_RECORD_PMO_TABLE {0},{1}", ENTITY_ID, _RECORD)
If MYDB_ECM.ExecuteNonQuery(execsql) = True Then 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 End If
execsql = String.Format("EXEC PRPMO_ENTITY_TABLE_RENEW_RECORD {0},{1}", node_tag, _RECORD) execsql = String.Format("EXEC PRPMO_ENTITY_TABLE_RENEW_RECORD {0},{1}", node_tag, _RECORD)
If MYDB_ECM.ExecuteNonQuery(execsql) = True Then 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) msg = String.Format("The record/s was/were successfully relinked with entity {0} (if criteria matched)", ENTITY_STRING.ToString)
End If End If
MsgBox(msg, MsgBoxStyle.Information) 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) Load_Datafor_Entity(True)
End If End If
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 Try
End Sub End Sub
Private Sub DateirechteFürUserToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles docCM_GetRights.Click 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 If Not IsNothing(result) Then
Dim msg = "Das aktuelle Recht für Sie (" & USER_USERNAME & ") ist: " Dim msg = "Das aktuelle Recht für Sie (" & USER_USERNAME & ") ist: "
If USER_LANGUAGE <> "de-DE" Then 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() Private Sub Load_Variants()
Try Try
If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then Me.TBPMO_RECORD_VARIANTTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
Me.TBPMO_RECORD_VARIANTTableAdapter.Connection.ConnectionString = ClassProxy.MyPROXYConnectionString
Else
Me.TBPMO_RECORD_VARIANTTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
End If
Me.TBPMO_RECORD_VARIANTTableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_RECORD_VARIANT, ENTITY_ID, RECORD_ID) Me.TBPMO_RECORD_VARIANTTableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_RECORD_VARIANT, ENTITY_ID, RECORD_ID)
Catch ex As System.Exception Catch ex As System.Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error while loading variants: ", ex.Message) 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("FILEPATH", GetType(System.String))
table.Columns.Add("DOC_ID", GetType(System.Int32)) table.Columns.Add("DOC_ID", GetType(System.Int32))
table.Columns.Add("OBJECTTYPE", GetType(System.String)) 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 If row.Item("DOC_PATH") <> String.Empty Then
'Set the ID column as the primary key column. 'Set the ID column as the primary key column.
Dim newRow As DataRow = table.NewRow() 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 Try
If CMDoc_TextBoxRenameFile.Text <> "" Then If CMDoc_TextBoxRenameFile.Text <> "" Then
Dim OldName, NewName, OnlyFilename As String Dim OldName, NewName, OnlyFilename As String
OldName = ClassWindreamDocGrid.SELECTED_DOC_PATH OldName = ClassDocGrid.SELECTED_DOC_PATH
' Define file names. ' Define file names.
NewName = CMDoc_TextBoxRenameFile.Text NewName = CMDoc_TextBoxRenameFile.Text
OnlyFilename = NewName 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) Dim name1 = Path.Combine(Path.GetDirectoryName(oFullFilename), NewName)
NewName = NewName & Path.GetExtension(oFullFilename) NewName = NewName & Path.GetExtension(oFullFilename)
OnlyFilename &= 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) My.Computer.FileSystem.RenameFile(OldName, NewName)
LOGGER.Info($"Renaming FileSystem done!") LOGGER.Info($"Renaming FileSystem done!")
Cursor = Cursors.WaitCursor 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 If MYDB_ECM.ExecuteNonQuery(oEXEC) Then
LOGGER.Info($"Exec PRPMO_DOC_CREATE_NEW_DOC done!") 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 End If
Dim oRowHandle As Integer = GridViewDoc_Search.FocusedRowHandle 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 Private Sub SToolStripMenuItem_KeyUp(sender As Object, e As KeyEventArgs) Handles CMDoc_TextBoxRenameDisplay.KeyUp
If e.KeyCode = Keys.Return Then If e.KeyCode = Keys.Return Then
Try Try
ClassFileResult.DocID = ClassWindreamDocGrid.SELECTED_DOC_ID ClassFileResult.DocID = ClassDocGrid.SELECTED_DOC_ID
If CMDoc_TextBoxRenameDisplay.Text <> "" Then If CMDoc_TextBoxRenameDisplay.Text <> "" Then
If ClassFileResult.Set_Displayname(CMDoc_TextBoxRenameDisplay.Text) Then If ClassFileResult.Set_Displayname(CMDoc_TextBoxRenameDisplay.Text) Then
Cursor = Cursors.WaitCursor 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 NEWRECORD As Integer = ClassControlCommandsUI.GetLastRecord(ENTITY_ID)
Dim NEWNODE = New TreeNode(tsmINewText.Text) Dim NEWNODE = New TreeNode(tsmINewText.Text)
If Not IsNothing(NEWRECORD) Then 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 If Not IsNothing(CURRENT_NODE_CONFIGURABLE_ID) And CURRENT_NODE_CONFIGURABLE_ID > 0 Then
Dim index As Integer = 0 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() Sub Open_File()
Me.Cursor = Cursors.WaitCursor Me.Cursor = Cursors.WaitCursor
Dim allow_Open As Boolean = False Dim allow_Open As Boolean = False
ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search) ClassDocGrid.GetDocItems(GridViewDoc_Search)
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 If Not IsNothing(Result) Then
Select Case Result.ToString Select Case Result.ToString
Case "R" Case "R"
@ -6799,11 +6769,11 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
End Select End Select
End If End If
If allow_Open = True Then 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) MsgBox("Could not read File Parameters(5)!", MsgBoxStyle.Exclamation)
Exit Sub Exit Sub
End If 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 If ClassHelper.File_open(row.Item("DOC_PATH"), row.Item("DOC_ID")) = True Then
TimerFileHandle.Enabled = True TimerFileHandle.Enabled = True
End If End If
@ -6811,8 +6781,8 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
Next Next
Else Else
If clsWD_GET.WDFile_exists(ClassWindreamDocGrid.SELECTED_DOC_PATH, DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED, ClassProxy.MyLinkedServer, True) = True Then 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: " & ClassWindreamDocGrid.SELECTED_DOC_ID.ToString) 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 Else
ClassHelper.MSGBOX_Handler("ERROR", "", "File does not exist! Please contact your admin!") ClassHelper.MSGBOX_Handler("ERROR", "", "File does not exist! Please contact your admin!")
End If 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 Private Sub cmsResultFilesBasic_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles cmsResultFilesBasic.Opening
Try Try
If clsWindream.SESSION_CREATED = False Then If WMMOD.SessionLoggedin = False Then
ClassHelper.MSGBOX_Handler("INFO", "Attention", "Check Your windream-connection and restart ADDI afterwards.", "Could not create a windream session!") ClassHelper.MSGBOX_Handler("INFO", "Attention", "Check Your windream-connection and restart orgFLOW afterwards.", "Could not create a windream session!")
e.Cancel = True e.Cancel = True
End If End If
Me.Cursor = Cursors.WaitCursor 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 If Not IsNothing(Result) Then
Select Case Result.ToString Select Case Result.ToString
Case "R" Case "R"
@ -6929,11 +6899,11 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
End Sub End Sub
Private Sub OrdnerÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OrdnerÖffnenToolStripMenuItem.Click 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) MsgBox("Could not read File Parameters(5)!", MsgBoxStyle.Exclamation)
Exit Sub Exit Sub
End If 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")) ClassHelper.Open_Folder(row.Item("DOC_PATH"), row.Item("DOC_ID"))
Next Next
End Sub End Sub
@ -7305,8 +7275,8 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
frmNewVariant.ShowDialog() frmNewVariant.ShowDialog()
If recid <> CURRENT_RECORD_ID Then If recid <> CURRENT_RECORD_ID Then
Me.Cursor = Cursors.WaitCursor Me.Cursor = Cursors.WaitCursor
ClassProxy.PRPROXY_SYNC_DETAIL_OBJECT("TBPMO_RECORD_VARIANT") 'ClassProxy.PRPROXY_SYNC_DETAIL_OBJECT("TBPMO_RECORD_VARIANT")
ClassProxy.PRPROXY_SYNC_DETAIL_OBJECT("TBPMO_RECORD") 'ClassProxy.PRPROXY_SYNC_DETAIL_OBJECT("TBPMO_RECORD")
Me.Cursor = Cursors.Default Me.Cursor = Cursors.Default
Load_Datafor_Entity(True) Load_Datafor_Entity(True)
LocateRecordinGridById(CURRENT_RECORD_ID) LocateRecordinGridById(CURRENT_RECORD_ID)

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

@ -1,11 +1,11 @@
Imports System.IO Imports System.IO
Imports System.Text 'Imports System.Text
Imports DD_LIB_Standards 'Imports DD_LIB_Standards
Imports DevExpress.XtraGrid.Columns Imports DevExpress.XtraGrid.Columns
Public Class frmDocRecordLink 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 CURRENT_LINK_ENTITY_ID As Integer = 0
Private ENTITY_LOAD_ACTIVE As Boolean = False Private ENTITY_LOAD_ACTIVE As Boolean = False
@ -32,7 +32,7 @@ Public Class frmDocRecordLink
If CURRENT_LINK_ENTITY_ID = 0 Then If CURRENT_LINK_ENTITY_ID = 0 Then
CURRENT_LINK_ENTITY_ID = CURRENT_ENTITY_ID CURRENT_LINK_ENTITY_ID = CURRENT_ENTITY_ID
End If End If
Try Try
' DT_RECORDS.Columns.Add("already linked", Type.GetType("System.Boolean")).SetOrdinal(0) ' DT_RECORDS.Columns.Add("already linked", Type.GetType("System.Boolean")).SetOrdinal(0)
' DT_RECORDS.Columns("already linked").DefaultValue = False ' DT_RECORDS.Columns("already linked").DefaultValue = False
Catch ex As Exception Catch ex As Exception
@ -77,10 +77,10 @@ Public Class frmDocRecordLink
' OLD WAY ' OLD WAY
If Documents.Count = 0 Then If Documents.Count = 0 Then
ENTITY_LOAD_ACTIVE = True ENTITY_LOAD_ACTIVE = True
If ClassWindreamDocGrid.DT_RESULTFILES.Rows.Count = 1 Then If ClassDocGrid.DT_RESULTFILES.Rows.Count = 1 Then
txtFileInfo.Text = ClassWindreamDocGrid.DT_RESULTFILES.Rows(0).Item("DOC_PATH") txtFileInfo.Text = ClassDocGrid.DT_RESULTFILES.Rows(0).Item("DOC_PATH")
Else 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 End If
Try Try
If IsNothing(CURRENT_DT_ENTITY_RECORDS) Then If IsNothing(CURRENT_DT_ENTITY_RECORDS) Then
@ -286,7 +286,7 @@ Public Class frmDocRecordLink
End Function End Function
Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick 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) MsgBox("No session to windream created! Check Your connection!", MsgBoxStyle.Critical)
Exit Sub Exit Sub
End If End If
@ -304,16 +304,16 @@ Public Class frmDocRecordLink
CURRENT_DOC_ID = row.Item("DOC_ID") CURRENT_DOC_ID = row.Item("DOC_ID")
Dim DOC_PATH = row.Item("FILEPATH") Dim DOC_PATH = row.Item("FILEPATH")
Dim _objecttype = row.Item("OBJECTTYPE") 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 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) '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 If MYDB_ECM.ExecuteNonQuery(sql_Exec) = False Then
MsgBox("Unexpected Error in Inserting Record-Doc Link. Please check logfile!", MsgBoxStyle.Critical) MsgBox("Unexpected Error in Inserting Record-Doc Link. Please check logfile!", MsgBoxStyle.Critical)
Else Else
If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then '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) ' Dim proc = String.Format("EXEC PRPROXY_DOC_CHECK_DOC_REC_LINK {0},{1}", CURRENT_DOC_ID, SELECTED_RECORDID)
MYDB_ECM.ExecuteNonQuery(proc) ' MYDB_ECM.ExecuteNonQuery(proc)
End If 'End If
Dim msg = String.Format("Der Datensatz wurde erfolgreich verknüpft!") Dim msg = String.Format("Der Datensatz wurde erfolgreich verknüpft!")
If USER_LANGUAGE <> "de-DE" Then If USER_LANGUAGE <> "de-DE" Then
msg = "The record was successfully linked" msg = "The record was successfully linked"
@ -329,10 +329,10 @@ Public Class frmDocRecordLink
Dim Record_Index = DT_OBJTYPE.Rows(0).Item("IDXNAME_RECORDID") 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)) 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 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 End If
If Record_Index <> String.Empty Then 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
End If End If
Next Next

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

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

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

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

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

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

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

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

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

@ -137,7 +137,7 @@
<value>104, 17</value> <value>104, 17</value>
</data> </data>
<data name="Label2.Text" xml:space="preserve"> <data name="Label2.Text" xml:space="preserve">
<value>ADDI - Licenses:</value> <value>orgFLOW - Licenses:</value>
</data> </data>
<data name="Label3.Size" type="System.Drawing.Size, System.Drawing"> <data name="Label3.Size" type="System.Drawing.Size, System.Drawing">
<value>93, 17</value> <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.BarSubItem1 = New DevExpress.XtraBars.BarSubItem()
Me.BarButtonItem14 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem14 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem21 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem21 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem22 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem8 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem8 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem9 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem9 = New DevExpress.XtraBars.BarButtonItem()
Me.btnGlobalSearch = New DevExpress.XtraBars.BarButtonItem() Me.btnGlobalSearch = New DevExpress.XtraBars.BarButtonItem()
@ -197,7 +196,7 @@ Partial Class frmMain
Me.ribbonMain.ApplicationButtonDropDownControl = Me.MainMenu Me.ribbonMain.ApplicationButtonDropDownControl = Me.MainMenu
Me.ribbonMain.BackColor = System.Drawing.Color.DarkGray Me.ribbonMain.BackColor = System.Drawing.Color.DarkGray
Me.ribbonMain.ExpandCollapseItem.Id = 0 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") resources.ApplyResources(Me.ribbonMain, "ribbonMain")
Me.ribbonMain.MaxItemId = 1 Me.ribbonMain.MaxItemId = 1
Me.ribbonMain.Name = "ribbonMain" Me.ribbonMain.Name = "ribbonMain"
@ -434,7 +433,7 @@ Partial Class frmMain
' '
resources.ApplyResources(Me.BarSubItem1, "BarSubItem1") resources.ApplyResources(Me.BarSubItem1, "BarSubItem1")
Me.BarSubItem1.Id = 38 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.Name = "BarSubItem1"
Me.BarSubItem1.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large 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.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem21.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem21.Name = "BarButtonItem21" 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 'BarButtonItem8
' '
resources.ApplyResources(Me.BarButtonItem8, "BarButtonItem8") resources.ApplyResources(Me.BarButtonItem8, "BarButtonItem8")
@ -801,7 +793,6 @@ Partial Class frmMain
Friend WithEvents BarSubItem1 As DevExpress.XtraBars.BarSubItem Friend WithEvents BarSubItem1 As DevExpress.XtraBars.BarSubItem
Friend WithEvents BarButtonItem14 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem14 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItem21 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 BarButtonItem8 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItem9 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem9 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents itemAbout 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> </value>
</data> </data>
<data name="NotifyIcon.Text" xml:space="preserve"> <data name="NotifyIcon.Text" xml:space="preserve">
<value>ADDI - Informationen</value> <value>orgFLOW - Informationen</value>
</data> </data>
<data name="itemSettings.Glyph" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="itemSettings.Glyph" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>

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

@ -125,13 +125,13 @@
</metadata> </metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" /> <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"> <data name="ADDIBeendenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>184, 26</value> <value>177, 26</value>
</data> </data>
<data name="ADDIBeendenToolStripMenuItem.Text" xml:space="preserve"> <data name="ADDIBeendenToolStripMenuItem.Text" xml:space="preserve">
<value>orgFLOW beenden</value> <value>orgFLOW beenden</value>
</data> </data>
<data name="CockpitAnzeigenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing"> <data name="CockpitAnzeigenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>184, 26</value> <value>177, 26</value>
</data> </data>
<data name="CockpitAnzeigenToolStripMenuItem.Text" xml:space="preserve"> <data name="CockpitAnzeigenToolStripMenuItem.Text" xml:space="preserve">
<value>Cockpit anzeigen</value> <value>Cockpit anzeigen</value>
@ -141,7 +141,7 @@
<value>False</value> <value>False</value>
</data> </data>
<data name="cmsSystray.Size" type="System.Drawing.Size, System.Drawing"> <data name="cmsSystray.Size" type="System.Drawing.Size, System.Drawing">
<value>185, 78</value> <value>178, 56</value>
</data> </data>
<data name="&gt;&gt;cmsSystray.Name" xml:space="preserve"> <data name="&gt;&gt;cmsSystray.Name" xml:space="preserve">
<value>cmsSystray</value> <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"> <data name="BarButtonItem19.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vgAADr4B6kKxwAAAD3JJREFUaEPFWQtczmna7jWs846cdoyZYQx27O6McVpjYlfMt8bYGZMadmRGTskh vQAADr0BR/uQrQAAD3JJREFUaEPFWQtczmna7jWs846cdoyZYQx27O6McVpjYlfMt8bYGZMadmRGTskh
WnJIEUVU5FCiUKGDSkI5q3GqKNP5ICRFiCgd6KCu77qfmn4x+Kam/fb+/a5f9b7Pv/e+7uc+XM/zav1a WnJIEUVU5FCiUKGDSkI5q3GqKNP5ICRFiCgd6KCu77qfmn4x+Kam/fb+/a5f9b7Pv/e+7uc+XM/zav1a
mzhxovbUqVNHTpkyxY7wIyKJqLqYPHly4KRJkzbo6+uP5SOtiTcIjTz/X7Pp06ePmDZtWoixsTEsrW3h mzhxovbUqVNHTpkyxY7wIyKJqLqYPHly4KRJkzbo6+uP5SOtiTcIjTz/X7Pp06ePmDZtWoixsTEsrW3h
4u4Jv6AQRMbEISUtHenp6UhOTsWFC9Hw8wuCi4s7rKysIet/+OGHMAMDgwX8N+2IpvL/stZ+pP1g00cj 4u4Jv6AQRMbEISUtHenp6UhOTsWFC9Hw8wuCi4s7rKysIet/+OGHMAMDgwX8N+2IpvL/stZ+pP1g00cj
@ -1548,29 +1548,6 @@
MC40QzIuMSwyNS4zLDIuMiwyNS4zLDIuMiwyNS4yeiIgY2xhc3M9IlllbGxvdyIgLz4NCiAgPC9nPg0K MC40QzIuMSwyNS4zLDIuMiwyNS4zLDIuMiwyNS4yeiIgY2xhc3M9IlllbGxvdyIgLz4NCiAgPC9nPg0K
ICA8cGF0aCBkPSJNMzEuMywxNEg5LjZMNCwyNmgyMS44YzAuNSwwLDEuMS0wLjMsMS4zLTAuN0wzMiwx ICA8cGF0aCBkPSJNMzEuMywxNEg5LjZMNCwyNmgyMS44YzAuNSwwLDEuMS0wLjMsMS4zLTAuN0wzMiwx
NC43QzMyLjEsMTQuMywzMS44LDE0LDMxLjMsMTR6IiBjbGFzcz0iWWVsbG93IiAvPg0KPC9zdmc+Cw== 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> </value>
</data> </data>
<data name="BarButtonItem8.Caption" xml:space="preserve"> <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"> <data name="frmMain.IconOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAAQAAAAEACAYAAABccqhmAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAL iVBORw0KGgoAAAANSUhEUgAAAQAAAAEACAYAAABccqhmAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAL
DgAACw4BQL7hQQAAEmtJREFUeF7t3T+oLOUdxvFTKCIk4aokQUz8hxCUgNcibbi1VQrTBjuJVWythDQS DQAACw0B7QfALAAAEmtJREFUeF7t3T+oLOUdxvFTKCIk4aokQUz8hxCUgNcibbi1VQrTBjuJVWythDQS
G4sUNoJFYhtiFUhjICkjBkzQIiBioVWEQIQQ3Ly/69nLnDnfmZ3398zuzrzzFJ8Q5+4+v51733nO7szu G4sUNoJFYhtiFUhjICkjBkzQIiBioVWEQIQQ3Ly/69nLnDnfmZ3398zuzrzzFJ8Q5+4+v51733nO7szu
novdbrdIv33imRvFreKV4q3i3eLjYme2YLFGY63Gmo21G2v4Bq3xJcCN5xB/ScXzRfzF+UC31sSajrUd novdbrdIv33imRvFreKV4q3i3eLjYme2YLFGY63Gmo21G2v4Bq3xJcCN5xB/ScXzRfzF+UC31sSajrUd
a3wxhYAbTyX+IopfFO8X9Jdm1qpY82cvA9x4bGWn42lRtCH9xZhtTRwLt+hYOTbceCxlJ6Px/PTejMWx a3wxhYAbTyX+IopfFO8X9Jdm1qpY82cvA9x4bGWn42lRtCH9xZhtTRwLt+hYOTbceCxlJ6Px/PTejMWx
@ -3262,12 +3239,6 @@
<data name="&gt;&gt;BarButtonItem21.Type" xml:space="preserve"> <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> <value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </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"> <data name="&gt;&gt;BarButtonItem8.Name" xml:space="preserve">
<value>BarButtonItem8</value> <value>BarButtonItem8</value>
</data> </data>

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

@ -1,7 +1,7 @@
Imports System.Globalization Imports System.Globalization
Imports System.Net Imports System.Net
Imports System.Threading Imports System.Threading
Imports DD_LIB_Standards 'Imports DD_LIB_Standards'
Imports DevExpress.LookAndFeel Imports DevExpress.LookAndFeel
Imports DevExpress.XtraBars Imports DevExpress.XtraBars
Imports DevExpress.XtraBars.Ribbon Imports DevExpress.XtraBars.Ribbon
@ -118,8 +118,8 @@ Public Class frmMain
MsgBox("Error in Load Form:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Error in Load Form:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try End Try
LOGGER.Debug("FormLoad finished!") LOGGER.Debug("FormLoad finished!")
Proxy_Server_Controls() 'Proxy_Server_Controls()
CONN_Manager CONN_Manager()
End If End If
End Sub End Sub
@ -148,21 +148,21 @@ Public Class frmMain
LOGGER.Warn("Unexpected Error in CONN_Manager:" & ex.Message) LOGGER.Warn("Unexpected Error in CONN_Manager:" & ex.Message)
End Try End Try
End Sub End Sub
Sub Proxy_Server_Controls() 'Sub Proxy_Server_Controls()
Try ' Try
If LICENSE_PROXY = True And clsDatabase.DB_PROXY_INITIALIZED = True Then ' If LICENSE_PROXY = True And clsDatabase.DB_PROXY_INITIALIZED = True Then
'itemRefreshProxy.Visibility = BarItemVisibility.Always ' 'itemRefreshProxy.Visibility = BarItemVisibility.Always
LabelProxyServer.Visibility = BarItemVisibility.Always ' LabelProxyServer.Visibility = BarItemVisibility.Always
LOGGER.Info("PROXY-SERVER is being used") ' LOGGER.Info("PROXY-SERVER is being used")
Else ' Else
'itemRefreshProxy.Visibility = BarItemVisibility.Never ' 'itemRefreshProxy.Visibility = BarItemVisibility.Never
LabelProxyServer.Visibility = BarItemVisibility.Never ' LabelProxyServer.Visibility = BarItemVisibility.Never
End If ' End If
Catch ex As Exception ' Catch ex As Exception
LOGGER.Warn("Unexpected Error in Sub Proxy_Server_Controls():" & ex.Message) ' LOGGER.Warn("Unexpected Error in Sub Proxy_Server_Controls():" & ex.Message)
End Try ' End Try
End Sub 'End Sub
Public Sub RUN_TIMER() Public Sub RUN_TIMER()
Try Try
If TIMER_SCAN.Enabled = False And CURRENT_SCAN_FOLDERWATCH <> "" And FWSCAN_started = True Then 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 Me.Cursor = Cursors.WaitCursor
Dim upd = "UPDATE TBPROXY_CONFIG SET SYNC_RUNNING = 1 WHERE GUID = 1" Dim upd = "UPDATE TBPROXY_CONFIG SET SYNC_RUNNING = 1 WHERE GUID = 1"
MYDB_ECM.ExecuteNonQuery(upd, True) MYDB_ECM.ExecuteNonQuery(upd, True)
If ClassProxy.Refresh_Object_Data() = True Then 'If ClassProxy.Refresh_Object_Data() = True Then
If ClassProxy.PRPROXY_SYNC_DOC_OBJECTS() = True Then ' If ClassProxy.PRPROXY_SYNC_DOC_OBJECTS() = True Then
Dim msg = "Die Proxydaten wurden erfolgreich synchronisiert!" ' Dim msg = "Die Proxydaten wurden erfolgreich synchronisiert!"
If USER_LANGUAGE <> "de-DE" Then ' If USER_LANGUAGE <> "de-DE" Then
msg = "All proxydata was refreshed successfully!" ' msg = "All proxydata was refreshed successfully!"
End If ' End If
MessageBox.Show(msg, "", MessageBoxButtons.OK, MessageBoxIcon.Information) ' MessageBox.Show(msg, "", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else ' Else
MessageBox.Show("Error while refreshing proxy-data (Doc)!", "", MessageBoxButtons.OK, MessageBoxIcon.Error) ' MessageBox.Show("Error while refreshing proxy-data (Doc)!", "", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If ' End If
Else 'Else
MessageBox.Show("Error while refreshing proxy-data (objects)!", "", MessageBoxButtons.OK, MessageBoxIcon.Error) ' MessageBox.Show("Error while refreshing proxy-data (objects)!", "", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If 'End If
upd = "UPDATE TBPROXY_CONFIG SET SYNC_RUNNING = 0, LAST_SYNC = GETDATE() WHERE GUID = 1" upd = "UPDATE TBPROXY_CONFIG SET SYNC_RUNNING = 0, LAST_SYNC = GETDATE() WHERE GUID = 1"
MYDB_ECM.ExecuteNonQuery(upd, True) MYDB_ECM.ExecuteNonQuery(upd, True)
Me.Cursor = Cursors.Default Me.Cursor = Cursors.Default
@ -738,7 +738,7 @@ Public Class frmMain
TimerTasks.Enabled = False TimerTasks.Enabled = False
TimerTasks.Stop() TimerTasks.Stop()
End If End If
Proxy_Server_Controls() 'Proxy_Server_Controls()
RUN_TIMER() RUN_TIMER()
End Sub End Sub
@ -889,11 +889,6 @@ Public Class frmMain
OpenObjecttypeConfig() OpenObjecttypeConfig()
End Sub 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 Private Sub BarButtonItem8_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem8.ItemClick
Close_Maximized_Forms() Close_Maximized_Forms()
OpenRightsmanager() OpenRightsmanager()
@ -1050,7 +1045,7 @@ Public Class frmMain
If oSqlcon_Proxy <> String.Empty Then If oSqlcon_Proxy <> String.Empty Then
SaveMySettingsValue("MyProxyConnectionString", oSqlcon_Proxy, "ConfigMain") SaveMySettingsValue("MyProxyConnectionString", oSqlcon_Proxy, "ConfigMain")
ClassProxy.MyPROXYConnectionString = oSqlcon_Proxy 'ClassProxy.MyPROXYConnectionString = oSqlcon_Proxy
End If End If
Dim sql = String.Format("UPDATE TBPMO_CLIENT_CONN_SWITCH_USER SET ACTIVE = 1 WHERE GUID = {0}", oINACTIVE_GUID) Dim sql = String.Format("UPDATE TBPMO_CLIENT_CONN_SWITCH_USER SET ACTIVE = 1 WHERE GUID = {0}", oINACTIVE_GUID)
MYDB_ECM.GetScalarValue(SQL) 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 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)) Dim del = String.Format("DELETE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {0} AND RECORD_ID = {1}", _CONTROLID, CInt(Record))
MYDB_ECM.ExecuteNonQuery(del) 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 Next
End If End If
Try Try
@ -118,16 +118,16 @@ Public Class frmMass_Change
_Error = True _Error = True
LOGGER.Warn("Error in updating the value for Record: " & Record) LOGGER.Warn("Error in updating the value for Record: " & Record)
Else 'Else
ClassProxy.PRPROXY_CONTROL_VALUE_UPD_INS(CURRENT_ENTITY_ID, _CONTROLID, CInt(Record), val) 'ClassProxy.PRPROXY_CONTROL_VALUE_UPD_INS(CURRENT_ENTITY_ID, _CONTROLID, CInt(Record), val)
End If End If
Else 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) 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 If MYDB_ECM.ExecuteNonQuery(SQL) = False Then
_Error = True _Error = True
LOGGER.Warn("Error in inserting the value for Record: " & Record) LOGGER.Warn("Error in inserting the value for Record: " & Record)
Else 'Else
ClassProxy.PRPROXY_CONTROL_VALUE_UPD_INS(CURRENT_ENTITY_ID, _CONTROLID, CInt(Record), val) 'ClassProxy.PRPROXY_CONTROL_VALUE_UPD_INS(CURRENT_ENTITY_ID, _CONTROLID, CInt(Record), val)
End If End If
End If 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.Threading
Imports System.Text Imports System.Text
Imports System.IO Imports System.IO
Imports DD_LIB_Standards
Imports DigitalData.Modules.Base Imports DigitalData.Modules.Base
Imports DigitalData.Modules.Logging Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.Database Imports DigitalData.Modules.Database
@ -66,7 +65,7 @@ Public Class frmNodeNavigation
Private Property AvailableConfigNodes As New List(Of frmNewNode.NodeConfig) Private Property AvailableConfigNodes As New List(Of frmNewNode.NodeConfig)
Private Property CurrentNodeConfigId As Integer = 0 Private Property CurrentNodeConfigId As Integer = 0
Private Property Current_DocList As ClassWindreamDocGrid Private Property Current_DocList As ClassDocGrid
Public CtrlBuilder As ClassControlBuilder Public CtrlBuilder As ClassControlBuilder
Public CtrlCommandUI As ClassControlCommandsUI Public CtrlCommandUI As ClassControlCommandsUI
@ -94,7 +93,7 @@ Public Class frmNodeNavigation
_EntityId = pEntityID _EntityId = pEntityID
oConstructID = pConstructID oConstructID = pConstructID
Current_DocList = New ClassWindreamDocGrid(GridViewDoc_Search) Current_DocList = New ClassDocGrid(GridViewDoc_Search)
WindowsEx = New WindowsEx(LOGCONFIG) WindowsEx = New WindowsEx(LOGCONFIG)
ClassNodeCommands = New ClassNodeCommands(LOGCONFIG, MYDB_ECM) ClassNodeCommands = New ClassNodeCommands(LOGCONFIG, MYDB_ECM)
@ -148,9 +147,13 @@ Public Class frmNodeNavigation
'DT_VWPMO_CONSTRUCTOR_FORMS = MYDB_ECM.GetDatatable(Sql) '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)) 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 ' Hintergrund Bild initialisieren
'If (System.IO.File.Exists(Application.StartupPath + "\Resources\windream-portrait_col_RGB_Wordpress.png")) Then 'If (System.IO.File.Exists(Application.StartupPath + "\Resources\windream-portrait_col_RGB_Wordpress.png")) Then
@ -1620,7 +1623,7 @@ Public Class frmNodeNavigation
End If End If
ClassWindreamDocGrid.FillColumns( ClassDocGrid.FillColumns(
GridViewDoc_Search, GridViewDoc_Search,
DT_RESULT, DT_RESULT,
DT_COLUMNS_GRID_ENTITY, DT_COLUMNS_GRID_ENTITY,
@ -1711,7 +1714,7 @@ Public Class frmNodeNavigation
Dim ComboBox As ComboBoxEdit = sender Dim ComboBox As ComboBoxEdit = sender
'Dim ItemComboBox As RepositoryItemComboBox 'Dim ItemComboBox As RepositoryItemComboBox
'ItemComboBox = sender 'ItemComboBox = sender
Dim item As ClassWindreamDocGrid.WindreamDocGridComboboxItem = ComboBox.SelectedItem Dim item As ClassDocGrid.WindreamDocGridComboboxItem = ComboBox.SelectedItem
Dim value As String = item.Value Dim value As String = item.Value
If value.ToUpper = "Not displayable in Group-Search".ToUpper Then If value.ToUpper = "Not displayable in Group-Search".ToUpper Then
Exit Sub 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) 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 If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
MsgBox("The Update-Command was not successful! Check the log!",, MsgBoxStyle.Critical) 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 End If
Catch ex As Exception Catch ex As Exception
@ -1775,8 +1776,6 @@ Public Class frmNodeNavigation
If MYDB_ECM.ExecuteNonQuery(Sql) = False Then If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
ClassHelper.MSGBOX_Handler("ERROR", "UnexpectedError:", "Error updating doc-metadata (date): " & vbNewLine & "Check the log for further information!") 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 End If
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) 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) 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 If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
ClassHelper.MSGBOX_Handler("ERROR", "UnexpectedError:", "Error updating doc-metadata (textbox): " & vbNewLine & "Check the log for further information!") 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
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) 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 If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
ClassHelper.MSGBOX_Handler("ERROR", "UnexpectedError:", "Error updating doc-metadata (checkbox): " & vbNewLine & "Check the log for further information!") 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 End If
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
@ -1875,7 +1870,10 @@ Public Class frmNodeNavigation
End Sub End Sub
Private Sub GridViewDoc_Search_FocusedColumnChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedColumnChangedEventArgs) Handles GridViewDoc_Search.FocusedColumnChanged 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 End Sub
Private Sub GridViewDoc_Search_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles GridViewDoc_Search.FocusedRowChanged Private Sub GridViewDoc_Search_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles GridViewDoc_Search.FocusedRowChanged
Refresh_DocID() Refresh_DocID()
@ -1989,11 +1987,11 @@ Public Class frmNodeNavigation
Exit Function Exit Function
End If End If
If USER_PERSONIFIED_TEST = True Then 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 Exit Function
End If End If
If clsWindream.Create_Session = False Then If WMMOD.SessionLoggedin = False Then
ClassHelper.MSGBOX_Handler("INFO", "Attention", "Check Your windream-connection and restart ADDI afterwards.", "Could not create a windream session!") ClassHelper.MSGBOX_Handler("INFO", "Attention", "Check Your windream-connection and restart orgFLOW afterwards.", "Could not create a windream session!")
Exit Function Exit Function
End If End If
If _EntityId <> 0 And (RIGHT_READ_ONLY_DOC = False And GridControlDocSearch.ContextMenuStrip.Name = "ContextMenuStripResultFiles") Or RIGHT_ADD_DOC = True Then 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 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 End If
Dim recid As Integer Dim recid As Integer
@ -2293,17 +2291,17 @@ Public Class frmNodeNavigation
End Function End Function
Private Sub cmsResultFileDetail_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles cmsResultFileDetail.Opening Private Sub cmsResultFileDetail_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles cmsResultFileDetail.Opening
Try Try
If clsWindream.SESSION_CREATED = False Then If WMMOD.SessionLoggedin = False Then
ClassHelper.MSGBOX_Handler("INFO", "Attention", "Check Your windream-connection and restart ADDI afterwards.", "Could not create a windream session!") ClassHelper.MSGBOX_Handler("INFO", "Attention", "Check Your windream-connection and restart orgFLOW afterwards.", "Could not create a windream session!")
e.Cancel = True e.Cancel = True
End If End If
Me.Cursor = Cursors.WaitCursor Me.Cursor = Cursors.WaitCursor
Dim oSelectedDocs = ClassWindreamDocGrid.GetSelectedDocuments(GridViewDoc_Search) Dim oSelectedDocs = ClassDocGrid.GetSelectedDocuments(GridViewDoc_Search)
'Refresh_DocID() 'Refresh_DocID()
If ClassWindreamDocGrid.HasNoSelectedDocuments(GridViewDoc_Search) Then If ClassDocGrid.HasNoSelectedDocuments(GridViewDoc_Search) Then
e.Cancel = True e.Cancel = True
Exit Sub Exit Sub
End If End If
@ -2471,7 +2469,7 @@ Public Class frmNodeNavigation
' MsgBox("Could not read File Parameters(5)!", MsgBoxStyle.Exclamation) ' MsgBox("Could not read File Parameters(5)!", MsgBoxStyle.Exclamation)
' Exit Sub ' Exit Sub
'End If 'End If
If ClassWindreamDocGrid.HasNoSelectedDocuments(GridViewDoc_Search) Then If ClassDocGrid.HasNoSelectedDocuments(GridViewDoc_Search) Then
MsgBox("Could not read File Parameters(5)!", MsgBoxStyle.Exclamation) MsgBox("Could not read File Parameters(5)!", MsgBoxStyle.Exclamation)
Exit Sub Exit Sub
End If End If
@ -2480,13 +2478,13 @@ Public Class frmNodeNavigation
' TimerFileHandle.Enabled = True ' TimerFileHandle.Enabled = True
' End If ' End If
'Next '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 If ClassHelper.File_open(oDoc.DocPath, oDoc.DocId) = True Then
TimerFileHandle.Enabled = True TimerFileHandle.Enabled = True
End If End If
Next Next
Else 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) 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 Else
ClassHelper.MSGBOX_Handler("ERROR", "", "File does not exist! Please contact your admin!") ClassHelper.MSGBOX_Handler("ERROR", "", "File does not exist! Please contact your admin!")
@ -2557,7 +2555,7 @@ Public Class frmNodeNavigation
End Sub End Sub
Private Async Sub tsmiFileInWork_Click(sender As Object, e As EventArgs) Handles tsmiFileInWork.Click 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) MsgBox("Could not read File Parameters (3)!", MsgBoxStyle.Exclamation)
Exit Sub Exit Sub
End If End If
@ -2581,7 +2579,7 @@ Public Class frmNodeNavigation
End If End If
Else Else
frmFileInWork.ShowDialog() frmFileInWork.ShowDialog()
ClassWindreamDocGrid.SELECTED_INWORK = ClassFileResult.InWork ClassDocGrid.SELECTED_INWORK = ClassFileResult.InWork
Await RUN_WDSEARCH_GRID(True) Await RUN_WDSEARCH_GRID(True)
End If End If
End If End If
@ -2589,10 +2587,8 @@ Public Class frmNodeNavigation
End Sub End Sub
Private Sub frmNodeNavigation_Shown(sender As Object, e As EventArgs) Handles Me.Shown Private Sub frmNodeNavigation_Shown(sender As Object, e As EventArgs) Handles Me.Shown
Dim sw As New SW("Form_Shown")
Me.BringToFront() Me.BringToFront()
TreeListDevexpress.CollapseAll() TreeListDevexpress.CollapseAll()
sw.Done()
FORM_SHOWN = True FORM_SHOWN = True
End Sub End Sub
@ -2631,7 +2627,7 @@ Public Class frmNodeNavigation
LOGGER.Warn("Attention: Could not set DocVariable RENAME_DOC_PATH: " & ex.Message) LOGGER.Warn("Attention: Could not set DocVariable RENAME_DOC_PATH: " & ex.Message)
RENAME_DOC_PATH = Nothing RENAME_DOC_PATH = Nothing
End Try End Try
If ClassWindreamDocGrid.HasNoSelectedDocuments(GridViewDoc_Search) Then If ClassDocGrid.HasNoSelectedDocuments(GridViewDoc_Search) Then
MsgBox("Could not read File Parameters!", MsgBoxStyle.Exclamation) MsgBox("Could not read File Parameters!", MsgBoxStyle.Exclamation)
Exit Sub Exit Sub
End If End If
@ -2676,14 +2672,14 @@ Public Class frmNodeNavigation
' MsgBox("Could not read File Parameters(5)!", MsgBoxStyle.Exclamation) ' MsgBox("Could not read File Parameters(5)!", MsgBoxStyle.Exclamation)
' Exit Sub ' Exit Sub
'End If 'End If
If ClassWindreamDocGrid.HasNoSelectedDocuments(GridViewDoc_Search) Then If ClassDocGrid.HasNoSelectedDocuments(GridViewDoc_Search) Then
MsgBox("Could not read File Parameters(5)!", MsgBoxStyle.Exclamation) MsgBox("Could not read File Parameters(5)!", MsgBoxStyle.Exclamation)
Exit Sub Exit Sub
End If End If
'For Each row As DataRow In ClassWindreamDocGrid.DT_RESULTFILES.Rows 'For Each row As DataRow In ClassWindreamDocGrid.DT_RESULTFILES.Rows
' ClassHelper.Open_Folder(row.Item("DOC_PATH"), row.Item("DOC_ID")) ' ClassHelper.Open_Folder(row.Item("DOC_PATH"), row.Item("DOC_ID"))
'Next '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) ClassHelper.Open_Folder(oDoc.DocPath, oDoc.DocId)
Next Next
End Sub End Sub
@ -2692,7 +2688,7 @@ Public Class frmNodeNavigation
Try Try
Dim oDocuments = Current_DocList.SelectedDocuments 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) MsgBox("Could not read File Parameters (LinkRecord)!", MsgBoxStyle.Exclamation)
Exit Sub Exit Sub
End If End If
@ -2721,7 +2717,7 @@ Public Class frmNodeNavigation
table.Columns.Add("FILEPATH", GetType(System.String)) table.Columns.Add("FILEPATH", GetType(System.String))
table.Columns.Add("DOC_ID", GetType(System.Int32)) table.Columns.Add("DOC_ID", GetType(System.Int32))
table.Columns.Add("OBJECTTYPE", GetType(System.String)) 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 If oDoc.DocPath <> String.Empty Then
'Set the ID column as the primary key column. 'Set the ID column as the primary key column.
Dim newRow As DataRow = table.NewRow() Dim newRow As DataRow = table.NewRow()
@ -2759,7 +2755,7 @@ Public Class frmNodeNavigation
ClassHelper.MSGBOX_Handler("INFO", "Attention", "Missing Selection:", "Please select a record!") ClassHelper.MSGBOX_Handler("INFO", "Attention", "Missing Selection:", "Please select a record!")
Exit Sub Exit Sub
End If End If
If ClassWindreamDocGrid.HasNoSelectedDocuments(GridViewDoc_Search) Then If ClassDocGrid.HasNoSelectedDocuments(GridViewDoc_Search) Then
Exit Sub Exit Sub
End If End If
@ -2771,7 +2767,7 @@ Public Class frmNodeNavigation
result = MessageBox.Show(msg, CAPTION_CONFIRMATION, MessageBoxButtons.YesNo, MessageBoxIcon.Question) result = MessageBox.Show(msg, CAPTION_CONFIRMATION, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then If result = MsgBoxResult.Yes Then
Try 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 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") ClassHelper.InsertEssential_Log(oDoc.DocId, "DOC-ID", "RECORD LINK REMOVED FROM DOC-SEARCH")
Cursor = Cursors.WaitCursor Cursor = Cursors.WaitCursor
@ -2825,12 +2821,12 @@ Public Class frmNodeNavigation
Show_File_Properties() Show_File_Properties()
End Sub End Sub
Sub Show_File_Properties() 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) MsgBox("Could not read File Parameters(4)!", MsgBoxStyle.Exclamation)
Exit Sub Exit Sub
End If End If
Cursor = Cursors.WaitCursor 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 If oDoc.DocPath <> "" Then
Dim oFileFullPath = ClassHelper.FORMAT_WM_PATH(oDoc.DocPath) Dim oFileFullPath = ClassHelper.FORMAT_WM_PATH(oDoc.DocPath)
Try Try
@ -2920,6 +2916,9 @@ Public Class frmNodeNavigation
'End Sub 'End Sub
Private Sub GridViewDoc_Search_RowStyle(sender As Object, e As RowStyleEventArgs) Handles GridViewDoc_Search.RowStyle 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 If e.RowHandle = DevExpress.XtraGrid.GridControl.AutoFilterRowHandle Then
e.Appearance.BackColor = Color.Yellow e.Appearance.BackColor = Color.Yellow
Else Else
@ -3052,10 +3051,10 @@ Public Class frmNodeNavigation
Show_SelectedDoc() Show_SelectedDoc()
End Sub End Sub
Private Sub Show_SelectedDoc() Private Sub Show_SelectedDoc()
Dim oSelectedDocs = ClassWindreamDocGrid.GetSelectedDocuments(GridViewDoc_Search) Dim oSelectedDocs = ClassDocGrid.GetSelectedDocuments(GridViewDoc_Search)
If oSelectedDocs.Count = 1 Then 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) Dim oPath = ClassHelper.FORMAT_WM_PATH(oDocument.DocPath)
DocumentViewer.LoadFile(oPath) DocumentViewer.LoadFile(oPath)
Refresh_DocID() Refresh_DocID()
@ -3103,7 +3102,7 @@ Public Class frmNodeNavigation
Private Sub DokumentartÄndernToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DokumentartÄndernToolStripMenuItem.Click Private Sub DokumentartÄndernToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DokumentartÄndernToolStripMenuItem.Click
Try Try
Dim oSelectedDocs = ClassWindreamDocGrid.GetSelectedDocuments(GridViewDoc_Search) Dim oSelectedDocs = ClassDocGrid.GetSelectedDocuments(GridViewDoc_Search)
If oSelectedDocs.Count = 0 Then If oSelectedDocs.Count = 0 Then
Exit Sub Exit Sub
@ -3122,7 +3121,7 @@ Public Class frmNodeNavigation
'Next 'Next
If oForm.ShowDialog() = DialogResult.OK Then If oForm.ShowDialog() = DialogResult.OK Then
If Not IsNothing(oForm.SelectedDocType) 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 If oDoc.DocPath <> "" Then
Dim oWMObject As WINDREAMLib.WMObject Dim oWMObject As WINDREAMLib.WMObject
Dim oReldocpath = ClassHelper.GetRelPath(oDoc.DocPath) Dim oReldocpath = ClassHelper.GetRelPath(oDoc.DocPath)
@ -3155,7 +3154,7 @@ Public Class frmNodeNavigation
End Function End Function
Private Sub tsmiFileDelete_Click(sender As Object, e As EventArgs) Handles tsmiFileDelete.Click 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) MsgBox("Could not read File Parameters (LinkRecord)!", MsgBoxStyle.Exclamation)
Exit Sub Exit Sub
End If End If
@ -3174,7 +3173,7 @@ Public Class frmNodeNavigation
Dim result1 As MsgBoxResult Dim result1 As MsgBoxResult
result1 = MessageBox.Show(msg, CAPTION_CONFIRMATION, MessageBoxButtons.YesNo, MessageBoxIcon.Question) result1 = MessageBox.Show(msg, CAPTION_CONFIRMATION, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result1 = MsgBoxResult.Yes Then 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 If oDoc.DocPath <> "" Then
Try Try
LOGGER.Info($"DocID {oDoc.DocPath} shall be deleted. User committed Delete-Start...") 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 ClassFileResult.Delete_ResultFile(oDoc.DocId, CURRENT_RECORD_ID, oDElWMFile) = True Then
If 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) Update_Status_Label(True, Now.ToLongTimeString & " - File successfully deleted", EditState.Insert)
ClassHelper.InsertEssential_Log(oDoc.DocId, "DOC-ID", "FILE DELETED BY USER") ClassHelper.InsertEssential_Log(oDoc.DocId, "DOC-ID", "FILE DELETED BY USER")
End If End If
@ -3217,10 +3216,7 @@ Public Class frmNodeNavigation
End If End If
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 Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in delete file: ", ex.Message) ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in delete file: ", ex.Message)
End Try End Try

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

@ -1,5 +1,4 @@
Imports DD_Rights 'Imports DD_Rights
Imports DD_LIB_Standards
Public Class frmRecOrgConfig_Basic Public Class frmRecOrgConfig_Basic
Dim loaded As Boolean = False Dim loaded As Boolean = False
Dim changes_ModuleKonfig 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 Private Sub btnTest_Anmeldung_Click(sender As Object, e As EventArgs) Handles btnTest_Anmeldung.Click
Try Try
DD_Rights.clsLogger.Init(Application.UserAppDataPath() & "\Log", USER_USERNAME) '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 session = DD_Rights.ClassRights.GetWMSessionAsUser(Me.txtDomäne.Text, Me.txtServername.Text, Me.txtUser.Text, Me.txtPW.Text)
If Not IsNothing(session) Then 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) MsgBox("The persionalized connection to windream was created successfully!", MsgBoxStyle.Information)
Dim wrapper As New ClassEncryption("!35452didalog=") Dim wrapper As New ClassEncryption("!35452didalog=")
Dim cipherText As String = wrapper.EncryptData(Me.txtPW.Text) 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.IO
Imports System.Runtime.InteropServices Imports System.Runtime.InteropServices
Imports DevExpress.XtraEditors Imports DevExpress.XtraEditors
Imports DD_LIB_Standards
Public Class frmRecordView Public Class frmRecordView
Private recordView As ClassRecordView Private recordView As ClassRecordView
Private ENTITY_ID, FORMVIEW_ID, PARENT_ENTITY_ID, WF_TASK_ID, RECORD_ID As Integer 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 DT_DOCRESULT_DROPDOWN_ITEMS As DataTable
Private _Changed As Boolean = False 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 Public Shared Function ShellExecuteEx(ByRef lpExecInfo As SHELLEXECUTEINFO) As Boolean
End Function End Function
Public Structure SHELLEXECUTEINFO Public Structure SHELLEXECUTEINFO
@ -58,8 +56,6 @@ Public Class frmRecordView
Dim sql = "SELECT FORM_ID FROM TBPMO_RECORD WHERE GUID = " & RECORD_ID Dim sql = "SELECT FORM_ID FROM TBPMO_RECORD WHERE GUID = " & RECORD_ID
ENTITY_ID = MYDB_ECM.GetScalarValue(sql) ENTITY_ID = MYDB_ECM.GetScalarValue(sql)
ClassRightManagement.Check_Set_Rights(RECORD_ID, ENTITY_ID) 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) '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) 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) ' 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 ComboBox As DevExpress.XtraEditors.ComboBoxEdit = sender
'Dim ItemComboBox As RepositoryItemComboBox 'Dim ItemComboBox As RepositoryItemComboBox
'ItemComboBox = sender 'ItemComboBox = sender
Dim item As ClassWindreamDocGrid.WindreamDocGridComboboxItem = ComboBox.SelectedItem Dim item As ClassDocGrid.WindreamDocGridComboboxItem = ComboBox.SelectedItem
Dim value As String = item.Value Dim value As String = item.Value
Dim configId As Integer = item.ConfigID 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 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) 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 If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
MsgBox("The Update-Command was not successful! Check the log!",, MsgBoxStyle.Critical) MsgBox("The Update-Command was not successful! Check the log!",, MsgBoxStyle.Critical)
Else
ClassProxy.PRPROXY_DOC_VALUES_UPD(docId, RECORD_ID)
End If End If
Catch ex As Exception Catch ex As Exception
MsgBox("Error:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Error:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@ -111,16 +105,14 @@ Public Class frmRecordView
Dim DatePicker As DateEdit = sender Dim DatePicker As DateEdit = sender
Dim value As DateTime = DatePicker.EditValue Dim value As DateTime = DatePicker.EditValue
Dim colTitle = DirectCast(GridControlDocSearch.MainView, DevExpress.XtraGrid.Views.Grid.GridView).FocusedColumn.FieldName Dim colTitle = DirectCast(GridControlDocSearch.MainView, DevExpress.XtraGrid.Views.Grid.GridView).FocusedColumn.FieldName
Dim configId As Integer = ClassWindreamDocGrid.RESULT_CONFIG_IDS.Item(colTitle) Dim configId As Integer = ClassDocGrid.RESULT_CONFIG_IDS.Item(colTitle)
Dim docId As Integer = ClassWindreamDocGrid.SELECTED_DOC_ID Dim docId As Integer = ClassDocGrid.SELECTED_DOC_ID
Dim user As String = USER_USERNAME Dim user As String = USER_USERNAME
Dim dateString = value.ToString("yyyy-MM-dd") 'hh:mm:ss.fff 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) 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 If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
MsgBox("The Update-Command was not successful! Check the log!",, MsgBoxStyle.Critical) MsgBox("The Update-Command was not successful! Check the log!",, MsgBoxStyle.Critical)
Else
ClassProxy.PRPROXY_DOC_VALUES_UPD(docId, RECORD_ID)
End If End If
Catch ex As Exception Catch ex As Exception
MsgBox("Error in OnDateSelectedValueChanged:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Error in OnDateSelectedValueChanged:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@ -132,15 +124,13 @@ Public Class frmRecordView
Dim TextBox As TextEdit = sender Dim TextBox As TextEdit = sender
Dim value = TextBox.EditValue Dim value = TextBox.EditValue
Dim colTitle = DirectCast(GridControlDocSearch.MainView, DevExpress.XtraGrid.Views.Grid.GridView).FocusedColumn.FieldName Dim colTitle = DirectCast(GridControlDocSearch.MainView, DevExpress.XtraGrid.Views.Grid.GridView).FocusedColumn.FieldName
Dim configId As Integer = ClassWindreamDocGrid.RESULT_CONFIG_IDS.Item(colTitle) Dim configId As Integer = ClassDocGrid.RESULT_CONFIG_IDS.Item(colTitle)
Dim docId As Integer = ClassWindreamDocGrid.SELECTED_DOC_ID Dim docId As Integer = ClassDocGrid.SELECTED_DOC_ID
Dim user As String = USER_USERNAME 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) 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 If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
MsgBox("The Update-Command was not successful! Check the log!",, MsgBoxStyle.Critical) MsgBox("The Update-Command was not successful! Check the log!",, MsgBoxStyle.Critical)
Else
ClassProxy.PRPROXY_DOC_VALUES_UPD(docId, RECORD_ID)
End If End If
Catch ex As Exception Catch ex As Exception
MsgBox("Error in OnTextSelectedValueChanged:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Error in OnTextSelectedValueChanged:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@ -172,7 +162,7 @@ Public Class frmRecordView
tslblWindreamView.Text = msg tslblWindreamView.Text = msg
If DT_RESULT.Rows.Count > 0 Then If DT_RESULT.Rows.Count > 0 Then
ClassWindreamDocGrid.FillColumns( ClassDocGrid.FillColumns(
GridViewDoc_Search, GridViewDoc_Search,
DT_RESULT, DT_RESULT,
DT_WINDREAM_RESULTLIST, 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" & 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) "({0},{1},'{2}','{3}','{4}')", WF_TASK_ID, STATE_id, State_DESC, Comment, USER_USERNAME)
If MYDB_ECM.ExecuteNonQuery(ins) Then 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
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) "WHERE GUID = {4}", COMMENTTextBox.Text, DUE_DATEDateTimePicker.Value, USER_USERNAME, DateTimePickerTASK_DATE.Value, WF_TASK_ID)
End If End If
If MYDB_ECM.ExecuteNonQuery(upd) Then 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 End If
STATE_IDComboBox.SelectedIndex = -1 STATE_IDComboBox.SelectedIndex = -1
ClassWorkflow.Refresh_Workflows_Entity() ClassWorkflow.Refresh_Workflows_Entity()
ClassProxy.Refresh_Workflow_Data() 'ClassProxy.Refresh_Workflow_Data()
Load_Task_Data() Load_Task_Data()
Load_States() Load_States()
Check_end() Check_end()
@ -458,47 +443,37 @@ Public Class frmRecordView
End Sub End Sub
Private Sub GridViewDoc_Search_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Private Sub GridViewDoc_Search_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs)
ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search) ClassDocGrid.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
End Sub End Sub
Private Sub GridControlDocSearch_DoubleClick(sender As Object, e As EventArgs) Private Sub GridControlDocSearch_DoubleClick(sender As Object, e As EventArgs)
ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search) ClassDocGrid.GetDocItems(GridViewDoc_Search)
'Try If IsNothing(ClassDocGrid.DT_RESULTFILES) Then
' 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
MsgBox("Could not read File Parameters(DoubleClick)!", MsgBoxStyle.Exclamation) MsgBox("Could not read File Parameters(DoubleClick)!", MsgBoxStyle.Exclamation)
Exit Sub Exit Sub
End If 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) ClassHelper.File_open(row.Item("DOC_PATH"), 0)
Next Next
End Sub End Sub
Private Sub DateiÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DateiÖffnenToolStripMenuItem.Click 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) MsgBox("Could not read File Parameters(DoubleClick)!", MsgBoxStyle.Exclamation)
Exit Sub Exit Sub
End If 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) ClassHelper.File_open(row.Item("DOC_PATH"), 0)
Next Next
End Sub End Sub
Private Sub PropertiesToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PropertiesToolStripMenuItem.Click 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) MsgBox("Could not read File Parameters(Properties RecordView)!", MsgBoxStyle.Exclamation)
Exit Sub Exit Sub
End If 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 If row.Item("DOC_PATH") <> "" Then
Cursor = Cursors.WaitCursor Cursor = Cursors.WaitCursor
Dim sei As New SHELLEXECUTEINFO Dim sei As New SHELLEXECUTEINFO
@ -631,7 +606,6 @@ Public Class frmRecordView
If MYDB_ECM.ExecuteNonQuery(Ins) = False Then If MYDB_ECM.ExecuteNonQuery(Ins) = False Then
MsgBox(String.Format("Error in Adding User {0} to Task", row.Item(1)), MsgBoxStyle.Critical) MsgBox(String.Format("Error in Adding User {0} to Task", row.Item(1)), MsgBoxStyle.Critical)
Else Else
ClassProxy.Refresh_Workflow_Data()
Load_TASK_USER() Load_TASK_USER()
End If End If
@ -737,10 +711,7 @@ Public Class frmRecordView
Try Try
If (Me.ListViewExclusiveUser.SelectedItems.Count > 0) Then If (Me.ListViewExclusiveUser.SelectedItems.Count > 0) Then
Dim sql = "DELETE FROM TBPMO_WORKFLOW_TASK_USER WHERE GUID = " & Me.ListViewExclusiveUser.SelectedItems.Item(0).Text Dim sql = "DELETE FROM TBPMO_WORKFLOW_TASK_USER WHERE GUID = " & Me.ListViewExclusiveUser.SelectedItems.Item(0).Text
MYDB_ECM.ExecuteNonQuery(SQL) MYDB_ECM.ExecuteNonQuery(sql)
If clsDatabase.DB_PROXY_INITIALIZED Then
MYDB_ECM.ExecuteNonQuery(SQL)
End If
Load_TASK_USER() Load_TASK_USER()
End If End If
Catch ex As Exception Catch ex As Exception
@ -755,29 +726,29 @@ Public Class frmRecordView
End Sub End Sub
Private Sub GridViewDoc_Search_FocusedRowChanged_1(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles GridViewDoc_Search.FocusedRowChanged 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 End Sub
Private Sub GridViewDoc_Search_FocusedColumnChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedColumnChangedEventArgs) Handles GridViewDoc_Search.FocusedColumnChanged 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 End Sub
Private Sub GridControlDocSearch_DoubleClick_1(sender As Object, e As EventArgs) Handles GridControlDocSearch.DoubleClick Private Sub GridControlDocSearch_DoubleClick_1(sender As Object, e As EventArgs) Handles GridControlDocSearch.DoubleClick
'Get_Doc_Items() 'Get_Doc_Items()
ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search) ClassDocGrid.GetDocItems(GridViewDoc_Search)
If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then If IsNothing(ClassDocGrid.DT_RESULTFILES) Then
MsgBox("Could not read File Parameters(5)!", MsgBoxStyle.Exclamation) MsgBox("Could not read File Parameters(5)!", MsgBoxStyle.Exclamation)
Exit Sub Exit Sub
End If 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")) ClassHelper.File_open(row.Item("DOC_PATH"), row.Item("DOC_ID"))
Next Next
End Sub End Sub
Private Sub ContextMenuStripResultFiles_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStripResultFiles.Opening Private Sub ContextMenuStripResultFiles_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStripResultFiles.Opening
ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search) ClassDocGrid.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) Dim Result = ClassDOC_SEARCH.Get_File_Rights(ClassDocGrid.SELECTED_DOC_ID)
If Not IsNothing(Result) Then If Not IsNothing(Result) Then

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

@ -1,5 +1,4 @@
Imports DD_Record_Organizer.ControlLoader Imports DD_Record_Organizer.ControlLoader
Public Class frmRight_Management Public Class frmRight_Management
Private Shared _Instance As frmRight_Management = Nothing Private Shared _Instance As frmRight_Management = Nothing
Private insert As Boolean = False 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) MsgBox("Error in Save_User_Rights_Data:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try End Try
End Sub 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 Private Sub frmGroup_Rights_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Refresh_Entities() Refresh_Entities()
Try 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 Private Shared _Instance As frmUserKonfig = Nothing
Public Shared Function Instance() As frmUserKonfig Public Shared Function Instance() As frmUserKonfig
If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then 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) Dim SQL As String = String.Format("SELECT GROUP_NAME FROM VWPMO_USERS_GROUPS WHERE USER_ID = {0}", userID)
Try Try
Dim dt As DataTable = MYDB_ECM.GetDatatable(sql) Dim dt As DataTable = MYDB_ECM.GetDatatable(SQL)
lbGroups.Items.Clear() lbGroups.Items.Clear()
For Each row As DataRow In dt.Rows 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) 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 Try
Dim dt As DataTable = MYDB_ECM.GetDatatable(sql) Dim dt As DataTable = MYDB_ECM.GetDatatable(SQL)
lstbxUserMandant.Items.Clear() lstbxUserMandant.Items.Clear()
For Each row As DataRow In dt.Rows 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 For Each row As DataRow In DD_ECMAdmin.TBAD_Users.Rows
If row.Item(0) = CBool(True) Then 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 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) 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) MsgBox(String.Format("Error in Adding User {0} to Group {1}", row.Item(1), cmbGroups_Group2User.Text), MsgBoxStyle.Critical)
End If End If
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) 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 lblUserforGroup.Text = "Users for Group " & cmbGroups_Group2User.Text
Try Try
Dim dt As DataTable = MYDB_ECM.GetDatatable(sql) Dim dt As DataTable = MYDB_ECM.GetDatatable(SQL)
DD_ECMAdmin.TBWH_Users1.Clear() DD_ECMAdmin.TBWH_Users1.Clear()
For Each row As DataRow In dt.Rows For Each row As DataRow In dt.Rows
@ -412,7 +411,7 @@ Public Class frmUserKonfig
If row.Item(0) = CBool(True) Then If row.Item(0) = CBool(True) Then
Dim sql Dim sql
sql = String.Format("DELETE FROM TBDD_GROUPS_USER WHERE GUID = {0}", row.Item(5)) 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) MsgBox(String.Format("Error in deleting User {0} from Group", row.Item(1)), MsgBoxStyle.Critical)
End If End If
End If End If
@ -483,9 +482,9 @@ Public Class frmUserKonfig
For Each row As DataRow In DD_ECMAdmin.TBWH_Users2.Rows For Each row As DataRow In DD_ECMAdmin.TBWH_Users2.Rows
If row.Item(0) = CBool(True) Then 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 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) 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) MsgBox(String.Format("Error in Adding User {0} to Client {1}", row.Item(1), cmbGroups_Group2User.Text), MsgBoxStyle.Critical)
End If End If
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) 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 Try
Dim dt As DataTable = MYDB_ECM.GetDatatable(sql) Dim dt As DataTable = MYDB_ECM.GetDatatable(SQL)
DD_ECMAdmin.TBWH_Users1.Clear() DD_ECMAdmin.TBWH_Users1.Clear()
For Each row As DataRow In dt.Rows For Each row As DataRow In dt.Rows
Dim newUserRow As DD_ECMAdmin.TBWH_Users1Row Dim newUserRow As DD_ECMAdmin.TBWH_Users1Row
@ -542,7 +541,7 @@ Public Class frmUserKonfig
If row.Item(0) = CBool(True) Then If row.Item(0) = CBool(True) Then
Dim sql Dim sql
sql = String.Format("DELETE FROM TBDD_CLIENT_USER WHERE GUID = {0}", row.Item(5)) 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) MsgBox(String.Format("Error in deleting User {0} from Client", row.Item(1)), MsgBoxStyle.Critical)
End If End If
End If End If
@ -616,7 +615,7 @@ Public Class frmUserKonfig
Else 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)) 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 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)) msg &= vbNewLine & String.Format("for User '{0}'", row.Item(1))
End If End If
End If End If
@ -629,7 +628,7 @@ Public Class frmUserKonfig
row.Item(0) = CBool(False) row.Item(0) = CBool(False)
Next Next
End If End If
End Sub End Sub
Private Sub SelectAllToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SelectAllToolStripMenuItem.Click 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 Imports DevExpress.XtraGrid.Views.Base.ViewInfo
Public Class frmWM_CreateVersion Public Class frmWM_CreateVersion
@ -8,8 +7,7 @@ Public Class frmWM_CreateVersion
End Sub End Sub
Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
clsDatabase.GUI = True If WMMOD.NewFileVersion(ClassFileResult.DocumentPath, txtComment.Text) Then
If clsWD_SET.Create_Version(ClassFileResult.DocumentPath, txtComment.Text) Then
MsgBox("Version has been created successfully!", MsgBoxStyle.Information) MsgBox("Version has been created successfully!", MsgBoxStyle.Information)
'Dim oSql = $"SELECT dwVersionID FROM VWPMO_DOC_SEARCH WHERE DocID = {BW_DocID}" 'Dim oSql = $"SELECT dwVersionID FROM VWPMO_DOC_SEARCH WHERE DocID = {BW_DocID}"
'Dim odwVersionId = MYDB_ECM.GetScalarValue(oSql) '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 Shared _Instance As frmWM_DoctypeConfig = Nothing
Private insert As Boolean = False Private insert As Boolean = False
Public Shared akt_DokartID As Integer Public Shared akt_DokartID As Integer
@ -170,13 +169,12 @@ Public Class frmWM_DoctypeConfig
Private Sub ObjektTypenEintragen() Private Sub ObjektTypenEintragen()
Try Try
Dim oDokumentTyp As WINDREAMLib.WMObject
' Combobox leeren ' Combobox leeren
Me.OBJEKTTYPComboBox.Items.Clear() Me.OBJEKTTYPComboBox.Items.Clear()
' alle Objekttypen durchlaufen ' alle Objekttypen durchlaufen
For Each oDokumentTyp In clsWD_GET.GetObjecttypesAsObjects For Each oDokumentTyp As String In WMMOD.ObjectTypes
' und in die Combobox eintragen ' und in die Combobox eintragen
Me.OBJEKTTYPComboBox.Items.Add(oDokumentTyp.aName) Me.OBJEKTTYPComboBox.Items.Add(oDokumentTyp)
Next Next
Catch ex As Exception Catch ex As Exception
MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Eintragen der Objekttypen") MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Eintragen der Objekttypen")
@ -191,11 +189,11 @@ Public Class frmWM_DoctypeConfig
Try Try
If Me.OBJEKTTYPComboBox.SelectedIndex <> -1 Then If Me.OBJEKTTYPComboBox.SelectedIndex <> -1 Then
Me.INDEXNAMEComboBox.Items.Clear() Me.INDEXNAMEComboBox.Items.Clear()
Dim indexe = clsWD_GET.GetIndicesByObjecttype(OBJEKTTYPComboBox.Text) Dim indexe = WMMOD.GetIndiciesByObjecttype(OBJEKTTYPComboBox.Text)
If indexe IsNot Nothing Then If indexe IsNot Nothing Then
Me.INDEXNAMEComboBox.Items.Add("(ONLY for Nameconvention)") Me.INDEXNAMEComboBox.Items.Add("(ONLY for Nameconvention)")
For Each index As String In indexe For Each oIndex As String In indexe
Me.INDEXNAMEComboBox.Items.Add(index) Me.INDEXNAMEComboBox.Items.Add(oIndex)
Next Next
End If End If
End If End If
@ -319,7 +317,7 @@ Public Class frmWM_DoctypeConfig
akt_DokartID = GUIDTextBox.Text 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 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 If count > 0 Then
frmDoctype_NameConvention.ShowDialog() frmDoctype_NameConvention.ShowDialog()
Else 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") resources.ApplyResources(Me.ListView1, "ListView1")
Me.ListView1.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader1, Me.ColumnHeader2}) Me.ListView1.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader1, Me.ColumnHeader2})
Me.ListView1.HideSelection = False
Me.ListView1.Name = "ListView1" Me.ListView1.Name = "ListView1"
Me.ListView1.UseCompatibleStateImageBehavior = False Me.ListView1.UseCompatibleStateImageBehavior = False
Me.ListView1.View = System.Windows.Forms.View.Details Me.ListView1.View = System.Windows.Forms.View.Details
@ -215,7 +216,7 @@ Partial Class frmWM_EntityImport
Me.btnopenfolder.Name = "btnopenfolder" Me.btnopenfolder.Name = "btnopenfolder"
Me.btnopenfolder.UseVisualStyleBackColor = True Me.btnopenfolder.UseVisualStyleBackColor = True
' '
'frmWD_EntityImport 'frmWM_EntityImport
' '
resources.ApplyResources(Me, "$this") resources.ApplyResources(Me, "$this")
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
@ -243,7 +244,7 @@ Partial Class frmWM_EntityImport
Me.Controls.Add(Me.txtEntityString) Me.Controls.Add(Me.txtEntityString)
Me.Controls.Add(Me.Label2) Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.Label1)
Me.Name = "frmWD_EntityImport" Me.Name = "frmWM_EntityImport"
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() 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> <value>NoControl</value>
</data> </data>
<data name="Label6.Size" type="System.Drawing.Size, System.Drawing"> <data name="Label6.Size" type="System.Drawing.Size, System.Drawing">
<value>312, 15</value> <value>313, 15</value>
</data> </data>
<data name="Label6.Text" xml:space="preserve"> <data name="Label6.Text" xml:space="preserve">
<value>Exclusion-Filter: (Add new Filters separated by a |-Symbol)</value> <value>Exclusion-Filter: (Add new Filters separated by a |-Symbol)</value>
@ -288,9 +288,6 @@ Only files will be imported</value>
AAAAAAAAAAAAAAAAAAAAAAAAwAAAAMAAAADAAAAAwAAAAP4AAAD/AAAA AAAAAAAAAAAAAAAAAAAAAAAAwAAAAMAAAADAAAAAwAAAAP4AAAD/AAAA
</value> </value>
</data> </data>
<data name="$this.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data>
<data name="$this.Text" xml:space="preserve"> <data name="$this.Text" xml:space="preserve">
<value>Import designer for Entity documents</value> <value>Import designer for Entity documents</value>
</data> </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 Private Sub frmWD_EntityImport_Load(sender As Object, e As EventArgs) Handles Me.Load
Me.txtEntityString.Text = CURRENT_ENTITYSTRING Me.txtEntityString.Text = CURRENT_ENTITYSTRING
If clsWindream.SESSION_CREATED = True Then If WMMOD.SessionReconnect Then
ObjektTypenEintragen() ObjektTypenEintragen()
End If End If
End Sub End Sub
Private Sub ObjektTypenEintragen() Private Sub ObjektTypenEintragen()
Try Try
Dim oDokumentTyp As WINDREAMLib.WMObject
' Combobox leeren ' Combobox leeren
Me.cmbObjekttyp.Items.Clear() Me.cmbObjekttyp.Items.Clear()
' alle Objekttypen durchlaufen ' alle Objekttypen durchlaufen
For Each oDokumentTyp In clsWD_GET.GetObjecttypesAsObjects For Each oDokumentTyp As String In WMMOD.ObjectTypes
' und in die Combobox eintragen ' und in die Combobox eintragen
Me.cmbObjekttyp.Items.Add(oDokumentTyp.aName) Me.cmbObjekttyp.Items.Add(oDokumentTyp)
Next Next
Catch ex As Exception Catch ex As Exception
MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Eintragen der Objekttypen") MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Eintragen der Objekttypen")
@ -139,42 +138,42 @@ Public Class frmWM_EntityImport
End Sub End Sub
Private Function WINDREAM_IMPORT() Private Function WINDREAM_IMPORT()
Try Try
clsWindream.MY_WDOBJECTTYPE = Me.cmbObjekttyp.Text WMOBJECTTYPE = Me.cmbObjekttyp.Text
Dim streamresult = clsWD_SET.Stream_File(LOCAL_IMPORTFILE, LOCAL_TARGET_PATH) Dim streamresult = clsWD_SET.Stream_File(LOCAL_IMPORTFILE, LOCAL_TARGET_PATH)
'Dim type = streamresult.GetType 'Dim type = streamresult.GetType
If streamresult = True Then If streamresult = True Then
Dim indexierung_erfolgreich As Boolean = False Dim indexierung_erfolgreich As Boolean = False
'den Entity-Key auslesen '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) Dim dt As DataTable = MYDB_ECM.GetDatatable(sql)
If Not dt Is Nothing Then If Not dt Is Nothing Then
If dt.Rows.Count = 1 Then If dt.Rows.Count = 1 Then
Dim indexname = dt.Rows(0).Item("IDXNAME_ENTITYID").ToString Dim indexname = dt.Rows(0).Item("IDXNAME_ENTITYID").ToString
Dim idxvalue = CURRENT_ENTITY_ID Dim idxvalue = CURRENT_ENTITY_ID
LOGGER.Debug("Entity-ID: " & idxvalue.ToString, False) 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 If indexierung_erfolgreich = False Then
MsgBox("Error in indexing file Entity - See log", MsgBoxStyle.Critical) MsgBox("Error in indexing file Entity - See log", MsgBoxStyle.Critical)
End If End If
indexname = dt.Rows(0).Item("IDXNAME_PARENTID").ToString indexname = dt.Rows(0).Item("IDXNAME_PARENTID").ToString
idxvalue = CURRENT_PARENT_ENTITY_ID idxvalue = CURRENT_PARENT_ENTITY_ID
LOGGER.Debug("Parent-ID: " & idxvalue.ToString, False) 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) If indexierung_erfolgreich = False Then MsgBox("Error in indexing file Parent-ID - See log", MsgBoxStyle.Critical)
'### '###
'den Record-Key auslesen 'den Record-Key auslesen
indexname = dt.Rows(0).Item("IDXNAME_PARENTID").ToString indexname = dt.Rows(0).Item("IDXNAME_PARENTID").ToString
idxvalue = CURRENT_RECORD_ID idxvalue = CURRENT_RECORD_ID
LOGGER.Debug("Record-ID: " & idxvalue.ToString, False) 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) If indexierung_erfolgreich = False Then MsgBox("Unexpected Error in indexing file Record-ID - See log", MsgBoxStyle.Critical)
'den Doctype-Key auslesen 'den Doctype-Key auslesen
indexname = dt.Rows(0).Item("IDXNAME_DOCTYPE").ToString indexname = dt.Rows(0).Item("IDXNAME_DOCTYPE").ToString
idxvalue = CURRENT_DOKARTSTRING idxvalue = CURRENT_DOKARTSTRING
LOGGER.Debug("Doctype: " & idxvalue.ToString, False) 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) If indexierung_erfolgreich = False Then MsgBox("Unexpected Error in indexing file Doctype - See log", MsgBoxStyle.Critical)
'#### '####
End If 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 Public Class frmWM_Import_Doc_Record
Private bwsearch As New BackgroundWorker Private bwsearch As New BackgroundWorker
Private windreamSucheErgebnisse As WMObjects Private windreamSucheErgebnisse As DataTable
Private aktivesDokument As WMObject 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_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 Private PROFILE_ENTITY As Integer
@ -42,7 +42,7 @@ Public Class frmWM_Import_Doc_Record
End Try End Try
End Sub End Sub
Private Sub frmWD_Import_Doc_Recordvb_Load(sender As Object, e As EventArgs) Handles MyBase.Load 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() ObjektTypenEintragen()
Else Else
MsgBox("Could not create a windream-session!!", MsgBoxStyle.Critical) MsgBox("Could not create a windream-session!!", MsgBoxStyle.Critical)
@ -61,7 +61,7 @@ Public Class frmWM_Import_Doc_Record
Sub Laod_Profiles() Sub Laod_Profiles()
Try Try
Me.TBPMO_WD_IMPORT_PROFILETableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_WD_IMPORT_PROFILE) 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) "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) Dim DT As DataTable = MYDB_ECM.GetDatatable(sql)
cmbentity.DataSource = DT 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) MsgBox("Error in Loading Profiles to Combobox:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try End Try
End Sub End Sub
Private Sub ObjektTypenEintragen() Private Sub ObjektTypenEintragen()
Try Try
Dim oDokumentTyp As WINDREAMLib.WMObject
' Combobox leeren ' Combobox leeren
Me.NEW_OBJECTTYPEComboBox.Items.Clear() Me.NEW_OBJECTTYPEComboBox.Items.Clear()
Me.OLD_OBJECTTYPEComboBox.Items.Clear() Me.OLD_OBJECTTYPEComboBox.Items.Clear()
' alle Objekttypen durchlaufen ' alle Objekttypen durchlaufen
For Each oDokumentTyp In clsWD_GET.GetObjecttypesAsObjects For Each oDokumentTyp As String In WMMOD.ObjectTypes
' und in die Combobox eintragen ' und in die Combobox eintragen
Me.NEW_OBJECTTYPEComboBox.Items.Add(oDokumentTyp.aName) Me.NEW_OBJECTTYPEComboBox.Items.Add(oDokumentTyp)
Me.OLD_OBJECTTYPEComboBox.Items.Add(oDokumentTyp.aName) Me.OLD_OBJECTTYPEComboBox.Items.Add(oDokumentTyp)
Next Next
Catch ex As Exception Catch ex As Exception
MsgBox("Error in loading Objecttypes:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) 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) MsgBox("Error in getting Profile Parameters:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try End Try
windreamSucheErgebnisse = Nothing windreamSucheErgebnisse = Nothing
'Die NI wird ganz normal gestartet 'Die NI wird ganz normal gestartet
Me.btnStartStop.Text = "Import stoppen" Me.btnStartStop.Text = "Import stoppen"
Search_Completed = False Search_Completed = False
@ -160,7 +160,7 @@ Public Class frmWM_Import_Doc_Record
End Sub End Sub
Public Sub Start_Profile() Public Sub Start_Profile()
Try Try
If clsWindream.SESSION_CREATED = False Then If WMMOD.SessionLoggedin = False Then
MsgBox("windream could not be init'ed!!", MsgBoxStyle.Critical) MsgBox("windream could not be init'ed!!", MsgBoxStyle.Critical)
Exit Sub Exit Sub
End If End If
@ -178,21 +178,21 @@ Public Class frmWM_Import_Doc_Record
Loop Loop
If Not IsNothing(windreamSucheErgebnisse) Then If Not IsNothing(windreamSucheErgebnisse) Then
If windreamSucheErgebnisse.Count > 0 Then If windreamSucheErgebnisse.Rows.Count > 0 Then
Me.ProgressBar1.Minimum = 0 Me.ProgressBar1.Minimum = 0
Me.ProgressBar1.Maximum = windreamSucheErgebnisse.Count Me.ProgressBar1.Maximum = windreamSucheErgebnisse.Rows.Count
Me.ProgressBar1.Value = 0 Me.ProgressBar1.Value = 0
Me.Refresh() Me.Refresh()
clsWindream.MY_WDOBJECTTYPE = PROFILE_NEW_OT WMOBJECTTYPE = PROFILE_NEW_OT
_Filesimported = 0 _Filesimported = 0
_RecordsAdded = 0 _RecordsAdded = 0
Work_Files() 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) _RecordsAdded.ToString & " Records were added!", MsgBoxStyle.Information)
Else Else
MsgBox("No Results for windream-Search!", MsgBoxStyle.Information) MsgBox("No Results for windream-Search!", MsgBoxStyle.Information)
End If End If
End If End If
Else Else
If Me.bwsearch.IsBusy Then If Me.bwsearch.IsBusy Then
@ -216,8 +216,8 @@ Public Class frmWM_Import_Doc_Record
End Sub End Sub
Sub RUN_SEARCH() Sub RUN_SEARCH()
Try Try
windreamSucheErgebnisse = clsWD_GET.GetSearchDocuments(PROFILE_WD_SEARCH) windreamSucheErgebnisse = WMMOD.GetSearchDocuments(PROFILE_WD_SEARCH)
LOGGER.Info("Files Result: " & windreamSucheErgebnisse.Count) LOGGER.Info("Files Result: " & windreamSucheErgebnisse.Rows.Count)
Search_Completed = True Search_Completed = True
Catch ex As Exception Catch ex As Exception
LOGGER.Info("Error in RUN_SEARCH - Error: " & ex.Message) LOGGER.Info("Error in RUN_SEARCH - Error: " & ex.Message)
@ -236,18 +236,18 @@ Public Class frmWM_Import_Doc_Record
IMP_PARENT_REC_ID = Nothing IMP_PARENT_REC_ID = Nothing
IMPORT_REC_ID = Nothing IMPORT_REC_ID = Nothing
'Liefert nur den Pfad des aktiven Dokumens 'Liefert nur den Pfad des aktiven Dokumens
Dim Folder As String Dim oFolder As String
For Each dok As WMObject In windreamSucheErgebnisse For Each oRow As DataRow In windreamSucheErgebnisse.Rows
Dim REC_EXISTS As Boolean = False Dim REC_EXISTS As Boolean = False
' aktuelles Dokument der Klasse mitteilen ' 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) & "'") Dim oWMFilename = "\\windream\objects\" & oRow.Item(0)
If Folder <> DOK_FOLDER Then 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 & "'") LOGGER.Debug("Folderpath '" & DOK_FOLDER & "'")
Folder = DOK_FOLDER oFolder = DOK_FOLDER
End If End If
If Create_Record() = True Then If Create_Record() = True Then
@ -276,7 +276,7 @@ Public Class frmWM_Import_Doc_Record
Dim indexname_old = row.Item("STRING2").ToString Dim indexname_old = row.Item("STRING2").ToString
LOGGER.Debug("Read Value 2 for windream-index: '" & indexname_old & "'") LOGGER.Debug("Read Value 2 for windream-index: '" & indexname_old & "'")
Try Try
idxvalue = aktivesDokument.GetVariableValue(indexname_old) idxvalue = WMMOD.GetIndexValue(oWMFilename, indexname_old)
LOGGER.Debug("idxvalue from windream: '" & idxvalue.ToString & "'") LOGGER.Debug("idxvalue from windream: '" & idxvalue.ToString & "'")
Catch ex As Exception Catch ex As Exception
err = True err = True
@ -319,7 +319,7 @@ Public Class frmWM_Import_Doc_Record
End Sub End Sub
Function Import_File() Function Import_File()
Try Try
Dim Sql As String Dim oSql As String
Dim SQL_FILE_DOCTYPE = PROFILE_SQL_DOCTYPE Dim SQL_FILE_DOCTYPE = PROFILE_SQL_DOCTYPE
'Regulären Ausdruck zum Auslesen der windream-Indexe definieren 'Regulären Ausdruck zum Auslesen der windream-Indexe definieren
Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}" 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 & "'") LOGGER.Debug("Read value for windream-index: '" & elementohneSZ & "'")
Dim idxvalue Dim idxvalue
Try Try
idxvalue = aktivesDokument.GetVariableValue(elementohneSZ) idxvalue = WMMOD.GetIndexValue(activeWMDok_Path, elementohneSZ)
LOGGER.Debug("idxvalue from windream: '" & idxvalue.ToString & "'") LOGGER.Debug("idxvalue from windream: '" & idxvalue.ToString & "'")
Catch ex As Exception Catch ex As Exception
LOGGER.Warn("Regex Doctype SQL: Error reading Value for windream-index '" & elementohneSZ & "' - Error: " & ex.Message) 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 If Not IsNothing(DokTYPE_ID) Then
Sql = "SELECT ZIEL_PFAD, OBJEKTTYP FROM TBDD_DOKUMENTART WHERE GUID = " & DokTYPE_ID oSql = "SELECT ZIEL_PFAD, OBJEKTTYP FROM TBDD_DOKUMENTART WHERE GUID = " & DokTYPE_ID
Dim DT As DataTable = MYDB_ECM.GetDatatable(Sql) Dim DT As DataTable = MYDB_ECM.GetDatatable(oSql)
If DT.Rows.Count <> 1 Then If DT.Rows.Count <> 1 Then
Return False Return False
End If End If
Dim Targetpath = DT.Rows(0).Item(0) Dim Targetpath = DT.Rows(0).Item(0)
Dim oWMObjectType = DT.Rows(0).Item(1)
Dim document_ID Dim document_ID
Try Try
document_ID = aktivesDokument.GetVariableValue("dwDocID") document_ID = WMMOD.GetIndexValue(activeWMDok_Path, "Dokument-ID")
Catch ex As Exception Catch ex As Exception
End Try End Try
Dim ww
Try
ww = aktivesDokument.GetVariableValue("Dokument-ID") If ClassImport_Windream.Version_Ueberprüfen(Targetpath & "\" & IO.Path.GetFileName(activeWMDok_Path)) = True Then
Catch ex As Exception Dim streamresult = WMMOD.NewFileStream(activeWMDok_Path, Targetpath, oWMObjectType)
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 streamresult = True Then If streamresult = True Then
'Die EntitätsID indexieren 'Die EntitätsID indexieren
Sql = "SELECT STRING2 FROM TBPMO_WD_IMPORT_PROFILE_IDX WHERE STRING1 = 'INDEX_ENTITY_ID' AND PROFILE_ID = " & cmbImportProfile.SelectedValue 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(SQL) Dim ENTITY_INDEX As String = MYDB_ECM.GetScalarValue(oSql)
If Not IsNothing(ENTITY_INDEX) Then If Not IsNothing(ENTITY_INDEX) Then
clsWD_SET.IndexFile(CURRENT_FILEIN_WD, ENTITY_INDEX, PROFILE_ENTITY, DT.Rows(0).Item(1)) clsWD_SET.IndexFile(CURRENT_FILEIN_WD, ENTITY_INDEX, PROFILE_ENTITY, DT.Rows(0).Item(1))
End If End If
Try Try
If Not IsNothing(IMP_PARENT_REC_ID) Then If Not IsNothing(IMP_PARENT_REC_ID) Then
'Die Parent-Entität indexieren 'Die Parent-Entität indexieren
Sql = "SELECT IDXNAME_PARENTID FROM TBPMO_WD_OBJECTTYPE WHERE OBJECT_TYPE = '" & PROFILE_NEW_OT & "'" oSql = "SELECT IDXNAME_PARENTID FROM TBPMO_WD_OBJECTTYPE WHERE OBJECT_TYPE = '" & PROFILE_NEW_OT & "'"
Dim PIDENT As String = MYDB_ECM.GetScalarValue(SQL) Dim PIDENT As String = MYDB_ECM.GetScalarValue(oSql)
If Not IsNothing(PIDENT) Then If Not IsNothing(PIDENT) Then
clsWD_SET.IndexFile(CURRENT_FILEIN_WD, PIDENT, IMP_PARENT_REC_ID.ToString, DT.Rows(0).Item(1)) clsWD_SET.IndexFile(CURRENT_FILEIN_WD, PIDENT, IMP_PARENT_REC_ID.ToString, DT.Rows(0).Item(1))
End If End If
@ -393,8 +390,8 @@ Public Class frmWM_Import_Doc_Record
Try Try
If Not IsNothing(PROFILE_ENTITY) Then If Not IsNothing(PROFILE_ENTITY) Then
'Die Parent-Entität indexieren 'Die Parent-Entität indexieren
Sql = "SELECT IDXNAME_ENTITYID FROM TBPMO_WD_OBJECTTYPE WHERE OBJECT_TYPE = '" & PROFILE_NEW_OT & "'" oSql = "SELECT IDXNAME_ENTITYID FROM TBPMO_WD_OBJECTTYPE WHERE OBJECT_TYPE = '" & PROFILE_NEW_OT & "'"
Dim IDXENTITY As String = MYDB_ECM.GetScalarValue(SQL) Dim IDXENTITY As String = MYDB_ECM.GetScalarValue(oSql)
If Not IsNothing(IDXENTITY) Then If Not IsNothing(IDXENTITY) Then
clsWD_SET.IndexFile(CURRENT_FILEIN_WD, IDXENTITY, PROFILE_ENTITY.ToString, DT.Rows(0).Item(1)) clsWD_SET.IndexFile(CURRENT_FILEIN_WD, IDXENTITY, PROFILE_ENTITY.ToString, DT.Rows(0).Item(1))
End If End If
@ -404,37 +401,37 @@ Public Class frmWM_Import_Doc_Record
End Try End Try
'Die Dokumentart indexieren '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) 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(SQL) Dim DOCTYPE_STRING = MYDB_ECM.GetScalarValue(oSql)
Sql = "SELECT IDXNAME_DOCTYPE FROM TBPMO_WD_OBJECTTYPE WHERE OBJECT_TYPE = '" & PROFILE_NEW_OT & "'" oSql = "SELECT IDXNAME_DOCTYPE FROM TBPMO_WD_OBJECTTYPE WHERE OBJECT_TYPE = '" & PROFILE_NEW_OT & "'"
Dim DoctypeIndex As String = MYDB_ECM.GetScalarValue(SQL) Dim DoctypeIndex As String = MYDB_ECM.GetScalarValue(oSql)
If Not IsNothing(DoctypeIndex) Then If Not IsNothing(DoctypeIndex) Then
clsWD_SET.IndexFile(CURRENT_FILEIN_WD, DoctypeIndex, DOCTYPE_STRING.ToString, DT.Rows(0).Item(1)) clsWD_SET.IndexFile(CURRENT_FILEIN_WD, DoctypeIndex, DOCTYPE_STRING.ToString, DT.Rows(0).Item(1))
Else Else
Sql = "SELECT STRING2 FROM TBPMO_WD_IMPORT_PROFILE_IDX WHERE STRING1 = 'INDEX_DOCTYPE' AND PROFILE_ID = " & cmbImportProfile.SelectedValue oSql = "SELECT STRING2 FROM TBPMO_WD_IMPORT_PROFILE_IDX WHERE STRING1 = 'INDEX_DOCTYPE' AND PROFILE_ID = " & cmbImportProfile.SelectedValue
DoctypeIndex = MYDB_ECM.GetScalarValue(SQL) DoctypeIndex = MYDB_ECM.GetScalarValue(oSql)
If Not IsNothing(DoctypeIndex) Then If Not IsNothing(DoctypeIndex) Then
clsWD_SET.IndexFile(CURRENT_FILEIN_WD, DoctypeIndex, DOCTYPE_STRING, DT.Rows(0).Item(1)) clsWD_SET.IndexFile(CURRENT_FILEIN_WD, DoctypeIndex, DOCTYPE_STRING, DT.Rows(0).Item(1))
End If End If
End If End If
'##### '#####
Sql = "SELECT IDXNAME_RECORDID FROM TBPMO_WD_OBJECTTYPE WHERE OBJECT_TYPE = '" & PROFILE_NEW_OT & "'" oSql = "SELECT IDXNAME_RECORDID FROM TBPMO_WD_OBJECTTYPE WHERE OBJECT_TYPE = '" & PROFILE_NEW_OT & "'"
Dim RecordIndex As String = MYDB_ECM.GetScalarValue(SQL) Dim RecordIndex As String = MYDB_ECM.GetScalarValue(oSql)
If Not IsNothing(RecordIndex) Then If Not IsNothing(RecordIndex) Then
clsWD_SET.IndexFile(CURRENT_FILEIN_WD, RecordIndex, IMPORT_REC_ID, DT.Rows(0).Item(1)) clsWD_SET.IndexFile(CURRENT_FILEIN_WD, RecordIndex, IMPORT_REC_ID, DT.Rows(0).Item(1))
Else Else
Sql = "SELECT STRING2 FROM TBPMO_WD_IMPORT_PROFILE_IDX WHERE STRING1 = 'INDEX_RECORD_ID' AND PROFILE_ID = " & cmbImportProfile.SelectedValue oSql = "SELECT STRING2 FROM TBPMO_WD_IMPORT_PROFILE_IDX WHERE STRING1 = 'INDEX_RECORD_ID' AND PROFILE_ID = " & cmbImportProfile.SelectedValue
RecordIndex = MYDB_ECM.GetScalarValue(SQL) RecordIndex = MYDB_ECM.GetScalarValue(oSql)
If clsWD_SET.IndexFile(CURRENT_FILEIN_WD, RecordIndex, IMPORT_REC_ID, DT.Rows(0).Item(1)) Then If clsWD_SET.IndexFile(CURRENT_FILEIN_WD, RecordIndex, IMPORT_REC_ID, DT.Rows(0).Item(1)) Then
LOGGER.Debug("Record Index was written") LOGGER.Debug("Record Index was written")
End If End If
End If End If
If PROFILE_IDX_WORKED <> "" Then If PROFILE_IDX_WORKED <> "" Then
LOGGER.Debug("Setting the Exported to ADDI-Flag - windream-index '" & PROFILE_IDX_WORKED & "'") LOGGER.Debug("Setting the Exported to orgFLOW-Flag - windream-index '" & PROFILE_IDX_WORKED & "'")
clsWD_SET.File_SetBooleanIndex(True, aktivesDokument, PROFILE_IDX_WORKED) WMMOD.SetFileIndex(activeWMDok_Path, PROFILE_IDX_WORKED, "True", PROFILE_NEW_OT)
End If End If
_Filesimported += 1 _Filesimported += 1
Return True Return True
@ -479,7 +476,7 @@ Public Class frmWM_Import_Doc_Record
LOGGER.Debug("Read value 1 for windream-index: '" & elementohneSZ & "'") LOGGER.Debug("Read value 1 for windream-index: '" & elementohneSZ & "'")
Dim idxvalue Dim idxvalue
Try Try
idxvalue = aktivesDokument.GetVariableValue(elementohneSZ) idxvalue = WMMOD.GetIndexValue(activeWMDok_Path, elementohneSZ)
LOGGER.Debug("idxvalue from windream: '" & idxvalue.ToString & "'") LOGGER.Debug("idxvalue from windream: '" & idxvalue.ToString & "'")
Catch ex As Exception Catch ex As Exception
LOGGER.Warn("Regex Unique SQL: Error reading Value 1 for windream-index '" & elementohneSZ & "' - Error: " & ex.Message) 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 & "'") LOGGER.Debug("Read parent value for windream-index: '" & elementohneSZ & "'")
Dim idxvalue Dim idxvalue
Try Try
idxvalue = aktivesDokument.GetVariableValue(elementohneSZ) idxvalue = WMMOD.GetIndexValue(activeWMDok_Path, elementohneSZ)
LOGGER.Debug("parent idxvalue from windream: '" & idxvalue.ToString & "'") LOGGER.Debug("parent idxvalue from windream: '" & idxvalue.ToString & "'")
Catch ex As Exception Catch ex As Exception
LOGGER.Warn("Regex Unique SQL: Error reading parent Value for windream-index '" & elementohneSZ & "' - Error: " & ex.Message) 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) LOGGER.Debug(" parent SQL: " & SQL_PARENT)
End If 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 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 If result Is Nothing Then
ClassRecordCommands.ConnectRecord(IMP_PARENT_REC_ID, IMPORT_REC_ID, "IMP CONNECT") ClassRecordCommands.ConnectRecord(IMP_PARENT_REC_ID, IMPORT_REC_ID, "IMP CONNECT")
End If End If
@ -576,7 +573,7 @@ Public Class frmWM_Import_Doc_Record
End Try End Try
End Function End Function
Private Sub Load_INDEXE() Private Sub Load_INDEXE()
If GUIDTextBox.Text = "" Then Exit Sub If GUIDTextBox.Text = "" Then Exit Sub
@ -622,7 +619,7 @@ Public Class frmWM_Import_Doc_Record
Sub Load_StringBox2() Sub Load_StringBox2()
Try Try
Me.STRING2ComboBox.Items.Clear() Me.STRING2ComboBox.Items.Clear()
Dim indexe = clsWD_GET.GetIndicesByObjecttype(OLD_OBJECTTYPEComboBox.Text) Dim indexe = WMMOD.GetTypeIndiciesByObjecttype(OLD_OBJECTTYPEComboBox.Text)
If indexe IsNot Nothing Then If indexe IsNot Nothing Then
For Each index As String In indexe For Each index As String In indexe
Me.STRING2ComboBox.Items.Add(index) Me.STRING2ComboBox.Items.Add(index)
@ -639,9 +636,9 @@ Public Class frmWM_Import_Doc_Record
If Type = "System.Data.DataRowView" Then If Type = "System.Data.DataRowView" Then
Exit Sub Exit Sub
End If 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 " & _ 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_RECORD_ID','INDEX_RECORD_ID' UNION ALL " &
"SELECT 'INDEX_ENTITY_ID','INDEX_ENTITY_ID' UNION ALL " & _ "SELECT 'INDEX_ENTITY_ID','INDEX_ENTITY_ID' UNION ALL " &
"SELECT 'INDEX_DOCTYPE','INDEX_DOCTYPE'" "SELECT 'INDEX_DOCTYPE','INDEX_DOCTYPE'"
Dim DT = MYDB_ECM.GetDatatable(sql) Dim DT = MYDB_ECM.GetDatatable(sql)
STRING1ComboBox.DataSource = DT 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 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 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 If indexe IsNot Nothing Then
Me.IDX_FILE_WORKEDComboBox.Items.Add("") Me.IDX_FILE_WORKEDComboBox.Items.Add("")
For Each index As String In indexe For Each index As String In indexe
Select Case clsWD_GET.GetTypeOfIndexAsIntByName(index) Select Case WMMOD.GetIndexType(index)
Case 4 Case 4
Me.IDX_FILE_WORKEDComboBox.Items.Add(index) Me.IDX_FILE_WORKEDComboBox.Items.Add(index)
'Case 1 '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 MULTIFILES As Integer = 0
Dim formloaded As Boolean = False Dim formloaded As Boolean = False
Dim DTVWPMO_DOKUMENTTYPES As DataTable Dim DTVWPMO_DOKUMENTTYPES As DataTable
Dim _wm As Windream
Public Class SW Public Class SW
Public label As String Public label As String
@ -53,7 +52,7 @@ Public Class frmWM_IndexFile
sw = New SW("CheckFileExists") sw = New SW("CheckFileExists")
Dim existsonlyasMaster = False 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!" 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 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!" 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 Dim result As MsgBoxResult
result = MessageBox.Show(msg, "File already exists:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) result = MessageBox.Show(msg, "File already exists:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then 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() swWORK_FILE.Done()
Return False Return False
End If End If
@ -70,7 +69,7 @@ Public Class frmWM_IndexFile
End If End If
Else 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) ClassHelper.InsertEssential_Log(CURRENT_RECORD_ID, "RECORD-ID", "FILE ALREADY EXISTED WITH NON-USER RIGHTS: " & CURRENT_NEWFILENAME)
CURRENT_NEWFILENAME = ClassHelper.Versionierung_Datei(CURRENT_NEWFILENAME) CURRENT_NEWFILENAME = ClassHelper.Versionierung_Datei(CURRENT_NEWFILENAME)
existsonlyasMaster = True existsonlyasMaster = True
@ -86,7 +85,7 @@ Public Class frmWM_IndexFile
'Stream File to windream 'Stream File to windream
'################################################################# '#################################################################
sw = New SW("File Stream") 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() sw.Done()
'################################################################# '#################################################################
If streamresult = True Then If streamresult = True Then
@ -94,11 +93,11 @@ Public Class frmWM_IndexFile
sw = New SW("File Indexing") sw = New SW("File Indexing")
CURRENT_FILEIN_WD = CURRENT_NEWFILENAME CURRENT_FILEIN_WD = CURRENT_NEWFILENAME
Dim DOCID 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 If Not IsNothing(DOCID) Then
CURRENT_DOC_ID = DOCID(0) CURRENT_DOC_ID = DOCID(0)
Else 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 If Not IsNothing(DOCID) Then
CURRENT_DOC_ID = DOCID(0) CURRENT_DOC_ID = DOCID(0)
End If End If
@ -123,7 +122,7 @@ Public Class frmWM_IndexFile
Dim indexierung_erfolgreich As Boolean = True Dim indexierung_erfolgreich As Boolean = True
LOGGER.Debug("Doctype: " & vDokart.ToString) 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 If indexierung_erfolgreich = False Then
err = True err = True
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error: ", "Unexpected Error in WorkFile-indexing Doctype '" & WMINDEX_DOCTYPE & "') - Check logfile!") 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 Return False
End If 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 If indexierung_erfolgreich = False Then
err = True err = True
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error: ", "Unexpected Error in WorkFile-indexing AddiRelation '" & WMINDEX_RELATION & "') - Check logfile!") 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 End If
LOGGER.Debug($"Autovalue used for Indexing: '" & oAutoIndexValue.ToString & "'") LOGGER.Debug($"Autovalue used for Indexing: '" & oAutoIndexValue.ToString & "'")
Count += 1 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 If indexierung_erfolgreich = False Then
MsgBox("Unexpected Error in indexing file - See log", MsgBoxStyle.Critical) MsgBox("Unexpected Error in indexing file - See log", MsgBoxStyle.Critical)
err = True err = True
@ -287,7 +286,7 @@ Public Class frmWM_IndexFile
Next Next
End If 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) MsgBox("Could not create a windream-session!", MsgBoxStyle.Critical)
Else Else
FAU_AD_USER = "" FAU_AD_USER = ""
@ -303,7 +302,7 @@ Public Class frmWM_IndexFile
sw = New SW("Setting_Rights") sw = New SW("Setting_Rights")
If ClassDOC_SEARCH.SET_WD_RIGHTS(CURRENT_WM_OBJECT, CURRENT_DOC_ID, CURRENT_FILEIN_WD, odeleteRights) = False Then 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 & 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) 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!!") ClassHelper.InsertEssential_Log(CURRENT_DOC_ID, "DOC-ID", "NEW FILE INDEXING - RIGHTS COULD NOT BE SET!!")
End If End If
@ -458,7 +457,7 @@ Public Class frmWM_IndexFile
My.Settings.WD_INDEXDOKART_SAVE = cmbDokumentart.Text My.Settings.WD_INDEXDOKART_SAVE = cmbDokumentart.Text
My.Settings.Save() My.Settings.Save()
If _wm.SessionLoggedin = True Then 'clsWM.Create_Session = True Then If WMMOD.SessionLoggedin = True Then
Handle_File(cmbDokumentart.SelectedValue) Handle_File(cmbDokumentart.SelectedValue)
Else Else
MsgBox("Could not create a windream-session! Please contact Your admin!", MsgBoxStyle.Critical) 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") LOGGER.Debug("frmWD_Index_Dokart_Load")
chkdelete_origin.Checked = False chkdelete_origin.Checked = False
chkdelete_origin.Visible = 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 Dim HandleType As String
For Each row As DataRow In CURRENT_TBPMO_FILES_USER.Rows For Each row As DataRow In CURRENT_TBPMO_FILES_USER.Rows
If row.Item("GUID") = CURRENT_FILEID Then 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
Imports DevExpress.XtraEditors.Controls Imports DevExpress.XtraEditors.Controls
@ -45,13 +44,12 @@ Public Class frmWM_ObjecttypeConfig
End Sub End Sub
Private Sub LoadObjectTypes() Private Sub LoadObjectTypes()
Try Try
Dim oDokumentTyp As WINDREAMLib.WMObject
' Combobox leeren ' Combobox leeren
OBJECT_TYPEComboBox.Items.Clear() OBJECT_TYPEComboBox.Items.Clear()
' alle Objekttypen durchlaufen ' alle Objekttypen durchlaufen
For Each oDokumentTyp In clsWD_GET.GetObjecttypesAsObjects For Each oDokumentTyp As String In WMMOD.ObjectTypes
' und in die Combobox eintragen ' und in die Combobox eintragen
OBJECT_TYPEComboBox.Items.Add(oDokumentTyp.aName) OBJECT_TYPEComboBox.Items.Add(oDokumentTyp)
Next Next
Catch ex As Exception Catch ex As Exception
MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Eintragen der Objekttypen") 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 If OBJECT_TYPEComboBox.Text.Count > 0 Then
cmbDoctype.Items.Clear() cmbDoctype.Items.Clear()
cmbADDIRelIdx.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 If indexe IsNot Nothing Then
For Each index As String In indexe For Each oIndex As String In indexe
cmbDoctype.Items.Add(index) cmbDoctype.Items.Add(oIndex)
cmbADDIRelIdx.Items.Add(index) cmbADDIRelIdx.Items.Add(oIndex)
Next Next
End If End If
End If End If

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

@ -1,4 +1,6 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<packages> <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" /> <package id="NLog" version="5.0.5" targetFramework="net48" />
</packages> </packages>

1
app/Setup_NoUpdaterVS19/Product.wxs
View File

@ -134,7 +134,6 @@
<Component Id="DDLibs" Guid="BA2979E3-3778-48B8-B0D8-4B77825B9293"> <Component Id="DDLibs" Guid="BA2979E3-3778-48B8-B0D8-4B77825B9293">
<File Id="DLLLicenseManager" Name="DLLLicenseManager.dll" KeyPath="no" /> <File Id="DLLLicenseManager" Name="DLLLicenseManager.dll" KeyPath="no" />
<File Id="DD_Rights" Name="DD_Rights.dll" KeyPath="no" /> <File Id="DD_Rights" Name="DD_Rights.dll" KeyPath="no" />
<File Id="DD_LIB_Standards" Name="DD_LIB_Standards.dll" KeyPath="no" />
<File Id="DDLogging" Name="DigitalData.Modules.Logging.dll" KeyPath="no" Checksum="yes"/> <File Id="DDLogging" Name="DigitalData.Modules.Logging.dll" KeyPath="no" Checksum="yes"/>
<File Id="DDDatabase" Name="DigitalData.Modules.Database.dll" KeyPath="no" Checksum="yes"/> <File Id="DDDatabase" Name="DigitalData.Modules.Database.dll" KeyPath="no" Checksum="yes"/>
<File Id="DDWindream" Name="DigitalData.Modules.Windream.dll" KeyPath="no" Checksum="yes"/> <File Id="DDWindream" Name="DigitalData.Modules.Windream.dll" KeyPath="no" Checksum="yes"/>

BIN
app/packages/GdPicture.14.2.90/.signature.p7s vendored Normal file
View File

Binary file not shown.

BIN
app/packages/GdPicture.14.2.90/GdPicture.14.2.90.nupkg vendored Normal file
View File

Binary file not shown.

BIN
app/packages/GdPicture.14.2.90/images/icon.png vendored Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 30 KiB

BIN
app/packages/GdPicture.14.2.90/lib/net462/GdPicture.NET.14.dll vendored Normal file
View File

Binary file not shown.

207590
app/packages/GdPicture.14.2.90/lib/net462/GdPicture.NET.14.xml vendored Normal file
View File

File diff suppressed because it is too large Load Diff

BIN
app/packages/GdPicture.14.2.90/lib/netcoreapp3.1/GdPicture.NET.14.Core.dll vendored Normal file
View File

Binary file not shown.

207590
app/packages/GdPicture.14.2.90/lib/netcoreapp3.1/GdPicture.NET.14.Core.xml vendored Normal file
View File

File diff suppressed because it is too large Load Diff

199
app/packages/GdPicture.14.2.90/licenses/LICENSE.md vendored Normal file
View File

@ -0,0 +1,199 @@
\======================================================
**GdPicture.NET 14 End User License Agreement**
\======================================================
**1) INTRODUCTION AND DEFINITIONS**
1.1. This Agreement is a license agreement between you and ORPALIS (the "Author") for the use of the computer software development kit (the “SDK”) you have purchased or downloaded for evaluation purposes ("GdPicture.NET" and/or “DocuVieware” at current major version).
1.2. We, ORPALIS (the "Author") reserve the right to modify at whenever required time, the content of this Agreement (“Agreement” or “EULA”).
1.3. You accept this Agreement by clicking the "I accept" button where this option is made available to you by us, ORPALIS (the "Author") in the user interface regarding End User License Agreement (EULA) of our products.
1.4. By using GdPicture.NET products (including DocuVieware), either by evaluating or purchasing it, you agree to be bound by all the terms and conditions of this Agreement.
1.5. This Agreement is the entire agreement between you and us, ORPALIS (the "Author") and supersedes any other communication or advertising with respect to GdPicture.NET and related products. If any provision of this Agreement is held invalid, the remainder of this Agreement shall continue in full force and effect.
1.6 “User” and “End User” means a person or an entity that installs or uses the SDK or Documentation.
**2) EDITIONS**
2.1. GdPicture.NET SDK is a Software Development Kit (SDK).
DocuVieware is another Software Development Kit (SDK) having a dependency on GdPicture.NET SDK.
2.2 Both software are bundled into the same Software Package (or installation kit).
2.3 Each GdPicture.NET SDK developer license includes a DocuVieware developer license. In other words DocuVieware development licenses are bundled with GdPicture.NET SDK (see 3.3.1).
**3) DOCUVIEWARE**
3.1 DocuVieware is a universal HTML5 Viewer and Document Management toolkit, a standalone product whose licensing rules are stated as below.
3.2 DocuVieware licensing comprises:
-DocuVieware development-licensing, and
-DocuVieware distribution-licensing.
3.3 DocuVieware development licensing
3.3.1 DocuVieware development licenses are bundled with GdPicture.NET SDK and, therefore, are subject to all GdPicture.NET regulatory amendments, as specified below.
3.4. DocuVieware distribution licensing
3.4.1 In order to distribute your works that relate to DocuVieware, you will need to license distribution rights.
3.4.2 Distribution licensing concerns the rights to distribute your DocuVieware-based works and does not regulate your DocuVieware nor GdPicture.NET development rights.
3.4.3 DocuVieware distribution licensing is Server-based.
3.4.4 The term "Server" with regard to DocuVieware distribution licensing is defined by us, ORPALIS, as a physical, or virtual machine, or computing device on which you have installed DocuVieware software in order to deploy and provide your DocuVieware-based works to your customers.
3.4.5 Server may have up to 4 vCPUs (or cores). IE: distributing DocuVieware on a Server having 8 vCPUs (or cores) require two deployment licenses.
3.4.6. You may distribute your unlimited works based-on (or linked-to) DocuVieware, on a Server once you have acquired a Server deployment license.
3.4.7 Each Server deployment requires a distribution licensing.
3.4.8 Unlimited distribution rights licensing is available solely upon direct negotiation.
**4) EVALUATION LICENSING**
4.1. “Evaluation License” allows a User to fully evaluate the SDK during an evaluation period of sixty (60) days from the date the SDK is first used.
The evaluation license key unlocks all features of the SDK for sixty (60) days.
4.2. The evaluation license is provided for evaluation purposes only, not for production use.
4.3. Evaluators requiring an evaluation period beyond the initial sixty (60) days can contact us by creating a sales support ticket.
4.4. Evaluation license usage is prohibited to develop/maintain an application already covered by a commercial GdPicture license. For example, if a developer is joining a team assigned to the development/maintenance of an application linking GdPicture under a commercial license agreement, this developer must have its own valid commercial license.*
**5) COMMERCIAL LICENSING**
5.1. Three different license types are available for each of the GdPicture.NET editions:
a) per-developer license:
Based on the amount of seats purchased - this license type entitles 1,2,3,4,5 or 6 distinct Users and/or build machine(s), of the same organization at a single physical address to write software with access to the SDK..
b) site license:
This license type entitles an unlimited number of Users and/or build machine(s) of the same organization at a single physical address to write software with access to the SDK.
c) Worldwide license:
This license entitles an unlimited number of Users and/or build machine(s) of the same organization at an unlimited number of physical addresses to write software with access to the SDK.
5.2. The use of the SDK requires one license for each User within your organization who will launch the compilation process of any application linking the SDK. For example, if your organization has 3 developers, 2 of which will work directly with the SDK and another one will not work directly with the SDK but will nevertheless launch the compilation process of a project linking the SDK, you will need to purchase 2 + 1 = 3 licenses.
5.3. Licenses are non-transferable between Users. Therefore, if a company has "x" Users who will use the SDK, the company requires a "x" Users license purchased according to paragraph 5.1. above. The same provision applies if, for example, the Users will not be working with the SDK at the same time.
5.4 You are forbidden to disclose your license key(s) to third parties.
5.5 The same license cannot be used by two different companies.
5.6. You are not allowed to sell the SDK or your license key(s) to other persons or entities.
5.7. You are prohibited from disclosing your license key(s) to other persons or entities.
5.8. You are not allowed to disclose your license key(s) on the source code of a web page.
5.9. You may not rent, lease, sub-license, or transfer the SDK, SDK copies, documentation, license keys, or your rights under this license without the prior written consent of ORPALIS (the "Author").
5.10 Any owner of any application linking the SDK must own at least one commercial license. For example, if a company X is owning the intellectual property of any application developed or maintained by another company Y, both companies will have to own their* own licenses.
**6) USE OF THE SDK**
6.1. You may not alter, decompile, disassemble, or reverse engineer GdPicture.NET products, including DocuVieware.
6.2. **GdPicture.NET SDK may not be used to develop software toolkits, API, libraries, components, command-line software, REST API, or any kind of third-party software, except as authorized in writing by a duly authorized officer of ORPALIS. This includes internal usage.**
6.3. Binaries of legally purchased SDK may be embedded in any application or system developed by you or your organization as long the SDK is covered by an active SDK maintenance (see 9.4).
6.4. You may modify the source code versions of sample files, if any, included with the SDK for the purpose of creating your own application(s).
6.5. You may not remove or alter our copyright notices.
6.6. You are not allowed to use our name, logo, or trademarks to market your application without our prior written consent.
**7) GDPICTURE.NET SERVER AND WEB DEPLOYMENT**
7.1. This chapter is not related to DocuVieware distribution licensing nor to DocuVieware-based works deployment.
7.2. This chapter concerns GdPicture.NET SDK only.
7.3. No extra fees are charged for GdPicture.NET SDK server deployment.
7.4. GdPicture.NET SDK may be used on any server, as long as access to the functionalities of our components is done via your own software and into your own machine. In other words, the public should not have direct access to GdPicture.NET SDK binaries or key.
7.5. GdPicture.NET SDK may be installed on any third-party hosting server as long as each developer using GdPicture.NET SDK has its own license key.
7.6. GdPicture.NET SDK may be installed on a shared hosting server, provided that each customer accesses GdPicture.NET SDK with its own license key.
7.7. GdPicture.NET SDK may not be installed on a hosting provider's server with a single license key used by all the hosting provider's customers.
7.8. You are not allowed to publish web applications, using GdPicture.NET SDK on the client side.
**8) REDISTRIBUTION**
8.1. No royalties are payable for the re-distribution of the SDK.
8.2. Binaries of legally purchased SDK can be distributed with your application (desktop or server) on a royalty-free basis. This means that you can distribute as many applications using the SDK as you wish, without restrictions or royalties, as long the SDK is covered by an active SDK maintenance (see 9.5).
8.3. Redistribution of the SDK is granted during a period of twelve months following the acquisition date. A separate maintenance contract is required to extend the redistribution rights beyond the twelve months period following the acquisition date.
8.4. You must distribute your application(s) under a written agreement that prohibits reverse engineering, decompilation, or disassembly of the applications(s) and clearly require from the customers of your application(s) to abide by the previously stated conditions.
**9) SDK MAINTENANCE**
9.1 The SDK is sold based on a yearly subscription model. An active SDK maintenance is required to install, use, or distribute the SDK.
9.2 An active SDK maintenance is automatically granted to owners of a commercial license during a period of twelve months which starts at the acquisition date. A separate annual maintenance contract (Annual Maintenance Contract (AMC)) is required to extend the SDK maintenance beyond the initial twelve months period.
9.3 An active SDK maintenance is required to install the SDK binaries for development purpose.
9.4 An active SDK maintenance is required to develop/maintain any application linking the SDK.
9.5 An active SDK maintenance is required to redistribute or allow installation of any application linking the SDK.
**10) TECHNICAL SUPPORT**
10.1. ORPALIS supports only the latest SDK version in a continuous integration model. This support includes bug fixes, new features, new minor and major versions, and any form of enhancements.
10.2. Technical support is available to Users owning a valid evaluation license or owning a commercial license under an active maintenance.
10.3. Each developer with a maintained license is allowed to open up to 10 tickets for a commercial license and up to 5 tickets for evaluation. Additional support plans can be purchased separately.
10.4. Before creating a support ticket, you have to make sure that you are using the latest available version of the SDK.
10.5. Technical support is provided for the problems which you cannot reasonably be expected to resolve by yourself. This includes any bug proven to be related to our product but excludes any code writing for your own applications development. It also excludes issues described and published in our online wealth of resources: online guides, online forums, knowledge-base, and FAQ page of our website.
10.6. Response time depends on the complexity of the reported issue and/or the completeness and accuracy of provided information for investigation/reproducing purposes (code snippets, files generating the issue, hardware/software environment information, and so forth).
**11) RECORDS AND AUDIT**
Users of a commercial license must maintain complete and accurate records relating to their use of the SDK including, but not limited to, copies of all agreements relating to the disclosure of the SDK in Source Code form.
Users must permit ORPALIS or its independent auditors to access, review, and copy such records upon the ORPALIS’s reasonable request, to determine the User’s compliance with this End User License Agreement.
ORPALIS may request that a User provides information regarding all developers using the SDK.
Users shall respond to each request completely and accurately within thirty (30) days of the date of the request. Notwithstanding the foregoing, a User is not obligated to disclose confidential information of any third party in connection with the audit and may redact any records solely to the extent required to satisfy its confidentiality obligations to third parties.
**12) WARRANTIES AND EXCLUSION OF WARRANTIES**
ORPALIS represents and warrants that it has and shall have full right and authority to enter into this Agreement and to license the SDK and other technology to you, and that it shall use its best efforts to provide SDK, support, and maintenance in accordance with all terms of this Agreement, in a good, timely, efficient, professional, and workmanlike manner using (i) then-current technology, (ii) ORPALIS employees and agents who are fully familiar with the technology, and (ii) at least the degrees of accuracy, quality, efficiency, completeness, timeliness, and responsiveness as are equal to or higher than the accepted industry standards.
EXCEPT FOR THE PRIOR EXPRESS LIMITED WARRANTIES, THE AUTHOR MAKES, AND YOU RECEIVE, NO WARRANTIES, EXPRESS, IMPLIED, STATUTORY OR IN ANY COMMUNICATION WITH YOU, AND THE AUTHOR SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. THE SDK IS PROVIDED “AS IS”, THE AUTHOR DOES NOT WARRANT THAT THE OPERATION OF THE SDK WILL BE UNINTERRUPTED OR ERROR-FREE.
IN NO EVENT WILL THE AUTHOR BE LIABLE FOR ANY DAMAGES, INCLUDING LOSS OF DATA, LOST PROFITS, COST OF COVER OR OTHER SPECIAL, INCIDENTAL, CONSEQUENTIAL OR INDIRECT DAMAGES ARISING FROM THE USE OF THE SDK OR ACCOMPANYING DOCUMENTATION, HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY. THIS LIMITATION WILL APPLY EVEN IF THE COMPANY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. YOU ACKNOWLEDGE THAT THE LICENSE FEE REFLECTS THIS ALLOCATION OF RISK.
**13) LIMITATION OF LIABILITY; INDEMNITY**
Except (A) to the extent resulting from the negligence or willful misconduct of ORPALIS or its employees or agents, and/or (B) for ORPALIS’ indemnity obligations below: (i) In no event shall ORPALIS be liable for any damages (including, without limitation, lost profits, business interruption, or lost information) arising out of or related to this Agreement or any 'Authorized Users' use of or inability to use the SDK, even if ORPALIS has been advised of the possibility of such damages. In no event will ORPALIS be liable for loss of data or for indirect, special, incidental, consequential (including lost profit), or other damages based in contract, tort, or otherwise.
**14) TERMINATION**
Without prejudice to any other rights, either party may terminate this EULA if the other party materially breaches any the terms and conditions of this EULA and fails to cure such breach within thirty (30) days after receipt of notice documenting such breach. In the event of termination, you must destroy all copies of the SDK in your possession.

45
app/packages/GdPicture.14.2.90/tools/Init.ps1 vendored Normal file
View File

@ -0,0 +1,45 @@
param(
[Parameter(Mandatory=$false)] [string] $installPath,
[Parameter(Mandatory=$false)] [string] $toolsPath,
[Parameter(Mandatory=$false)] $package,
[Parameter(Mandatory=$false)] $project
)
#first of all, check if it's running on Win platform
if ($IsWindows -ne $true -or $PSBoundParameters.ContainsKey('project') -eq $false -or $dte -eq $null) {
return;
}
#find a DocuViewareLicensing.RegisterKEY occurence to check if the package is a fresh install or not
$find = $dte.Find;
if ($package.Id -eq 'GdPicture') {
$find.findWhat = ".RegisterKEY"
} elseif ($package.Id -eq 'DocuVieware') {
$find.findWhat = "DocuViewareLicensing.RegisterKEY"
}
$find.action = 2 # vsFindAction.vsFindActionFindAll
$find.target = 6 # vsFindTarget.vsFindTargetSolution
$find.ResultsLocation = 0 # vsFindResultsLocation.vsFindResultsNone
$find.WaitForFindToComplete = $true
if ($find.Execute() -eq 0) {
# open embedded licenseManager to get a key
$msgBoxInput = [System.Windows.MessageBox]::Show(
"This appears to be the first installation of $($package.Id). Do you need an evaluation key?",
$package.Id,
'OKCancel',
'Information')
switch ($msgBoxInput) {
'Ok' {
if ($package.Id -eq 'GdPicture') {
Start-Process "https://www.gdpicture.com/guides/gdpicture/Evaluation.html"
Start-Process "$toolsPath\licenseManager.exe" -ArgumentList @("/silent")
} elseif ($package.Id -eq 'DocuVieware') {
Start-Process "https://docuvieware.com/guides/aspnet/Registering%20DocuVieware.html"
Start-Process "$toolsPath\licenseManager.exe" -ArgumentList @("/silent")
}
}
}
}

BIN
app/packages/GdPicture.14.2.90/tools/licenseManager.exe vendored Normal file
View File

Binary file not shown.

BIN
app/packages/GdPicture.runtimes.windows.14.2.90/.signature.p7s vendored Normal file
View File

Binary file not shown.

BIN
app/packages/GdPicture.runtimes.windows.14.2.90/GdPicture.runtimes.windows.14.2.90.nupkg vendored Normal file
View File

Binary file not shown.

15
app/packages/GdPicture.runtimes.windows.14.2.90/buildTransitive/net462/GdPicture.runtimes.windows.targets vendored Normal file
View File

@ -0,0 +1,15 @@
<?xml version="1.0" encoding="utf-8" ?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<ItemGroup>
<_GdPictureRuntimesAssets Include="$(MSBuildThisFileDirectory)..\..\runtimes\win-x86\native\*.dll" />
<_GdPictureRuntimesAssets Include="$(MSBuildThisFileDirectory)..\..\runtimes\win-x64\native\*.dll" />
<Content Include="@(_GdPictureRuntimesAssets)">
<Link>%(Filename)%(Extension)</Link>
<Visible>False</Visible>
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>
</ItemGroup>
</Project>

BIN
app/packages/GdPicture.runtimes.windows.14.2.90/images/icon.png vendored Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 30 KiB

0
app/packages/GdPicture.runtimes.windows.14.2.90/lib/net462/_._ vendored Normal file
View File

0
app/packages/GdPicture.runtimes.windows.14.2.90/lib/net6.0/_._ vendored Normal file
View File

0
app/packages/GdPicture.runtimes.windows.14.2.90/lib/netcoreapp3.1/_._ vendored Normal file
View File

199
app/packages/GdPicture.runtimes.windows.14.2.90/licenses/LICENSE.md vendored Normal file
View File

@ -0,0 +1,199 @@
\======================================================
**GdPicture.NET 14 End User License Agreement**
\======================================================
**1) INTRODUCTION AND DEFINITIONS**
1.1. This Agreement is a license agreement between you and ORPALIS (the "Author") for the use of the computer software development kit (the “SDK”) you have purchased or downloaded for evaluation purposes ("GdPicture.NET" and/or “DocuVieware” at current major version).
1.2. We, ORPALIS (the "Author") reserve the right to modify at whenever required time, the content of this Agreement (“Agreement” or “EULA”).
1.3. You accept this Agreement by clicking the "I accept" button where this option is made available to you by us, ORPALIS (the "Author") in the user interface regarding End User License Agreement (EULA) of our products.
1.4. By using GdPicture.NET products (including DocuVieware), either by evaluating or purchasing it, you agree to be bound by all the terms and conditions of this Agreement.
1.5. This Agreement is the entire agreement between you and us, ORPALIS (the "Author") and supersedes any other communication or advertising with respect to GdPicture.NET and related products. If any provision of this Agreement is held invalid, the remainder of this Agreement shall continue in full force and effect.
1.6 “User” and “End User” means a person or an entity that installs or uses the SDK or Documentation.
**2) EDITIONS**
2.1. GdPicture.NET SDK is a Software Development Kit (SDK).
DocuVieware is another Software Development Kit (SDK) having a dependency on GdPicture.NET SDK.
2.2 Both software are bundled into the same Software Package (or installation kit).
2.3 Each GdPicture.NET SDK developer license includes a DocuVieware developer license. In other words DocuVieware development licenses are bundled with GdPicture.NET SDK (see 3.3.1).
**3) DOCUVIEWARE**
3.1 DocuVieware is a universal HTML5 Viewer and Document Management toolkit, a standalone product whose licensing rules are stated as below.
3.2 DocuVieware licensing comprises:
-DocuVieware development-licensing, and
-DocuVieware distribution-licensing.
3.3 DocuVieware development licensing
3.3.1 DocuVieware development licenses are bundled with GdPicture.NET SDK and, therefore, are subject to all GdPicture.NET regulatory amendments, as specified below.
3.4. DocuVieware distribution licensing
3.4.1 In order to distribute your works that relate to DocuVieware, you will need to license distribution rights.
3.4.2 Distribution licensing concerns the rights to distribute your DocuVieware-based works and does not regulate your DocuVieware nor GdPicture.NET development rights.
3.4.3 DocuVieware distribution licensing is Server-based.
3.4.4 The term "Server" with regard to DocuVieware distribution licensing is defined by us, ORPALIS, as a physical, or virtual machine, or computing device on which you have installed DocuVieware software in order to deploy and provide your DocuVieware-based works to your customers.
3.4.5 Server may have up to 4 vCPUs (or cores). IE: distributing DocuVieware on a Server having 8 vCPUs (or cores) require two deployment licenses.
3.4.6. You may distribute your unlimited works based-on (or linked-to) DocuVieware, on a Server once you have acquired a Server deployment license.
3.4.7 Each Server deployment requires a distribution licensing.
3.4.8 Unlimited distribution rights licensing is available solely upon direct negotiation.
**4) EVALUATION LICENSING**
4.1. “Evaluation License” allows a User to fully evaluate the SDK during an evaluation period of sixty (60) days from the date the SDK is first used.
The evaluation license key unlocks all features of the SDK for sixty (60) days.
4.2. The evaluation license is provided for evaluation purposes only, not for production use.
4.3. Evaluators requiring an evaluation period beyond the initial sixty (60) days can contact us by creating a sales support ticket.
4.4. Evaluation license usage is prohibited to develop/maintain an application already covered by a commercial GdPicture license. For example, if a developer is joining a team assigned to the development/maintenance of an application linking GdPicture under a commercial license agreement, this developer must have its own valid commercial license.*
**5) COMMERCIAL LICENSING**
5.1. Three different license types are available for each of the GdPicture.NET editions:
a) per-developer license:
Based on the amount of seats purchased - this license type entitles 1,2,3,4,5 or 6 distinct Users and/or build machine(s), of the same organization at a single physical address to write software with access to the SDK..
b) site license:
This license type entitles an unlimited number of Users and/or build machine(s) of the same organization at a single physical address to write software with access to the SDK.
c) Worldwide license:
This license entitles an unlimited number of Users and/or build machine(s) of the same organization at an unlimited number of physical addresses to write software with access to the SDK.
5.2. The use of the SDK requires one license for each User within your organization who will launch the compilation process of any application linking the SDK. For example, if your organization has 3 developers, 2 of which will work directly with the SDK and another one will not work directly with the SDK but will nevertheless launch the compilation process of a project linking the SDK, you will need to purchase 2 + 1 = 3 licenses.
5.3. Licenses are non-transferable between Users. Therefore, if a company has "x" Users who will use the SDK, the company requires a "x" Users license purchased according to paragraph 5.1. above. The same provision applies if, for example, the Users will not be working with the SDK at the same time.
5.4 You are forbidden to disclose your license key(s) to third parties.
5.5 The same license cannot be used by two different companies.
5.6. You are not allowed to sell the SDK or your license key(s) to other persons or entities.
5.7. You are prohibited from disclosing your license key(s) to other persons or entities.
5.8. You are not allowed to disclose your license key(s) on the source code of a web page.
5.9. You may not rent, lease, sub-license, or transfer the SDK, SDK copies, documentation, license keys, or your rights under this license without the prior written consent of ORPALIS (the "Author").
5.10 Any owner of any application linking the SDK must own at least one commercial license. For example, if a company X is owning the intellectual property of any application developed or maintained by another company Y, both companies will have to own their* own licenses.
**6) USE OF THE SDK**
6.1. You may not alter, decompile, disassemble, or reverse engineer GdPicture.NET products, including DocuVieware.
6.2. **GdPicture.NET SDK may not be used to develop software toolkits, API, libraries, components, command-line software, REST API, or any kind of third-party software, except as authorized in writing by a duly authorized officer of ORPALIS. This includes internal usage.**
6.3. Binaries of legally purchased SDK may be embedded in any application or system developed by you or your organization as long the SDK is covered by an active SDK maintenance (see 9.4).
6.4. You may modify the source code versions of sample files, if any, included with the SDK for the purpose of creating your own application(s).
6.5. You may not remove or alter our copyright notices.
6.6. You are not allowed to use our name, logo, or trademarks to market your application without our prior written consent.
**7) GDPICTURE.NET SERVER AND WEB DEPLOYMENT**
7.1. This chapter is not related to DocuVieware distribution licensing nor to DocuVieware-based works deployment.
7.2. This chapter concerns GdPicture.NET SDK only.
7.3. No extra fees are charged for GdPicture.NET SDK server deployment.
7.4. GdPicture.NET SDK may be used on any server, as long as access to the functionalities of our components is done via your own software and into your own machine. In other words, the public should not have direct access to GdPicture.NET SDK binaries or key.
7.5. GdPicture.NET SDK may be installed on any third-party hosting server as long as each developer using GdPicture.NET SDK has its own license key.
7.6. GdPicture.NET SDK may be installed on a shared hosting server, provided that each customer accesses GdPicture.NET SDK with its own license key.
7.7. GdPicture.NET SDK may not be installed on a hosting provider's server with a single license key used by all the hosting provider's customers.
7.8. You are not allowed to publish web applications, using GdPicture.NET SDK on the client side.
**8) REDISTRIBUTION**
8.1. No royalties are payable for the re-distribution of the SDK.
8.2. Binaries of legally purchased SDK can be distributed with your application (desktop or server) on a royalty-free basis. This means that you can distribute as many applications using the SDK as you wish, without restrictions or royalties, as long the SDK is covered by an active SDK maintenance (see 9.5).
8.3. Redistribution of the SDK is granted during a period of twelve months following the acquisition date. A separate maintenance contract is required to extend the redistribution rights beyond the twelve months period following the acquisition date.
8.4. You must distribute your application(s) under a written agreement that prohibits reverse engineering, decompilation, or disassembly of the applications(s) and clearly require from the customers of your application(s) to abide by the previously stated conditions.
**9) SDK MAINTENANCE**
9.1 The SDK is sold based on a yearly subscription model. An active SDK maintenance is required to install, use, or distribute the SDK.
9.2 An active SDK maintenance is automatically granted to owners of a commercial license during a period of twelve months which starts at the acquisition date. A separate annual maintenance contract (Annual Maintenance Contract (AMC)) is required to extend the SDK maintenance beyond the initial twelve months period.
9.3 An active SDK maintenance is required to install the SDK binaries for development purpose.
9.4 An active SDK maintenance is required to develop/maintain any application linking the SDK.
9.5 An active SDK maintenance is required to redistribute or allow installation of any application linking the SDK.
**10) TECHNICAL SUPPORT**
10.1. ORPALIS supports only the latest SDK version in a continuous integration model. This support includes bug fixes, new features, new minor and major versions, and any form of enhancements.
10.2. Technical support is available to Users owning a valid evaluation license or owning a commercial license under an active maintenance.
10.3. Each developer with a maintained license is allowed to open up to 10 tickets for a commercial license and up to 5 tickets for evaluation. Additional support plans can be purchased separately.
10.4. Before creating a support ticket, you have to make sure that you are using the latest available version of the SDK.
10.5. Technical support is provided for the problems which you cannot reasonably be expected to resolve by yourself. This includes any bug proven to be related to our product but excludes any code writing for your own applications development. It also excludes issues described and published in our online wealth of resources: online guides, online forums, knowledge-base, and FAQ page of our website.
10.6. Response time depends on the complexity of the reported issue and/or the completeness and accuracy of provided information for investigation/reproducing purposes (code snippets, files generating the issue, hardware/software environment information, and so forth).
**11) RECORDS AND AUDIT**
Users of a commercial license must maintain complete and accurate records relating to their use of the SDK including, but not limited to, copies of all agreements relating to the disclosure of the SDK in Source Code form.
Users must permit ORPALIS or its independent auditors to access, review, and copy such records upon the ORPALIS’s reasonable request, to determine the User’s compliance with this End User License Agreement.
ORPALIS may request that a User provides information regarding all developers using the SDK.
Users shall respond to each request completely and accurately within thirty (30) days of the date of the request. Notwithstanding the foregoing, a User is not obligated to disclose confidential information of any third party in connection with the audit and may redact any records solely to the extent required to satisfy its confidentiality obligations to third parties.
**12) WARRANTIES AND EXCLUSION OF WARRANTIES**
ORPALIS represents and warrants that it has and shall have full right and authority to enter into this Agreement and to license the SDK and other technology to you, and that it shall use its best efforts to provide SDK, support, and maintenance in accordance with all terms of this Agreement, in a good, timely, efficient, professional, and workmanlike manner using (i) then-current technology, (ii) ORPALIS employees and agents who are fully familiar with the technology, and (ii) at least the degrees of accuracy, quality, efficiency, completeness, timeliness, and responsiveness as are equal to or higher than the accepted industry standards.
EXCEPT FOR THE PRIOR EXPRESS LIMITED WARRANTIES, THE AUTHOR MAKES, AND YOU RECEIVE, NO WARRANTIES, EXPRESS, IMPLIED, STATUTORY OR IN ANY COMMUNICATION WITH YOU, AND THE AUTHOR SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. THE SDK IS PROVIDED “AS IS”, THE AUTHOR DOES NOT WARRANT THAT THE OPERATION OF THE SDK WILL BE UNINTERRUPTED OR ERROR-FREE.
IN NO EVENT WILL THE AUTHOR BE LIABLE FOR ANY DAMAGES, INCLUDING LOSS OF DATA, LOST PROFITS, COST OF COVER OR OTHER SPECIAL, INCIDENTAL, CONSEQUENTIAL OR INDIRECT DAMAGES ARISING FROM THE USE OF THE SDK OR ACCOMPANYING DOCUMENTATION, HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY. THIS LIMITATION WILL APPLY EVEN IF THE COMPANY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. YOU ACKNOWLEDGE THAT THE LICENSE FEE REFLECTS THIS ALLOCATION OF RISK.
**13) LIMITATION OF LIABILITY; INDEMNITY**
Except (A) to the extent resulting from the negligence or willful misconduct of ORPALIS or its employees or agents, and/or (B) for ORPALIS’ indemnity obligations below: (i) In no event shall ORPALIS be liable for any damages (including, without limitation, lost profits, business interruption, or lost information) arising out of or related to this Agreement or any 'Authorized Users' use of or inability to use the SDK, even if ORPALIS has been advised of the possibility of such damages. In no event will ORPALIS be liable for loss of data or for indirect, special, incidental, consequential (including lost profit), or other damages based in contract, tort, or otherwise.
**14) TERMINATION**
Without prejudice to any other rights, either party may terminate this EULA if the other party materially breaches any the terms and conditions of this EULA and fails to cure such breach within thirty (30) days after receipt of notice documenting such breach. In the event of termination, you must destroy all copies of the SDK in your possession.

BIN
app/packages/GdPicture.runtimes.windows.14.2.90/runtimes/win-x64/native/GdPicture.NET.14.Imaging.ML.64.dll vendored Normal file
View File

Binary file not shown.

BIN
app/packages/GdPicture.runtimes.windows.14.2.90/runtimes/win-x64/native/GdPicture.NET.14.Imaging.Rendering.Skia.64.dll vendored Normal file
View File

Binary file not shown.

BIN
app/packages/GdPicture.runtimes.windows.14.2.90/runtimes/win-x64/native/GdPicture.NET.14.barcode.1d.reader.64.dll vendored Normal file
View File

Binary file not shown.

BIN
app/packages/GdPicture.runtimes.windows.14.2.90/runtimes/win-x64/native/GdPicture.NET.14.barcode.2d.reader.64.dll vendored Normal file
View File

Binary file not shown.

BIN
app/packages/GdPicture.runtimes.windows.14.2.90/runtimes/win-x64/native/GdPicture.NET.14.filters.64.dll vendored Normal file
View File

Binary file not shown.

BIN
app/packages/GdPicture.runtimes.windows.14.2.90/runtimes/win-x64/native/GdPicture.NET.14.image.gdimgplug.64.dll vendored Normal file
View File

Binary file not shown.

BIN
app/packages/GdPicture.runtimes.windows.14.2.90/runtimes/win-x64/native/GdPicture.NET.14.machine.vision.64.dll vendored Normal file
View File

Binary file not shown.

BIN
app/packages/GdPicture.runtimes.windows.14.2.90/runtimes/win-x64/native/GdPicture.NET.14.twain.client.64.dll vendored Normal file
View File

Binary file not shown.

BIN
app/packages/GdPicture.runtimes.windows.14.2.90/runtimes/win-x86/native/GdPicture.NET.14.Imaging.ML.dll vendored Normal file
View File

Binary file not shown.

BIN
app/packages/GdPicture.runtimes.windows.14.2.90/runtimes/win-x86/native/GdPicture.NET.14.Imaging.Rendering.Skia.dll vendored Normal file
View File

Binary file not shown.

BIN
app/packages/GdPicture.runtimes.windows.14.2.90/runtimes/win-x86/native/GdPicture.NET.14.barcode.1d.reader.dll vendored Normal file
View File

Binary file not shown.

BIN
app/packages/GdPicture.runtimes.windows.14.2.90/runtimes/win-x86/native/GdPicture.NET.14.barcode.2d.reader.dll vendored Normal file
View File

Binary file not shown.

BIN
app/packages/GdPicture.runtimes.windows.14.2.90/runtimes/win-x86/native/GdPicture.NET.14.filters.dll vendored Normal file
View File

Binary file not shown.

BIN
app/packages/GdPicture.runtimes.windows.14.2.90/runtimes/win-x86/native/GdPicture.NET.14.image.gdimgplug.dll vendored Normal file
View File

Binary file not shown.

BIN
app/packages/GdPicture.runtimes.windows.14.2.90/runtimes/win-x86/native/GdPicture.NET.14.machine.vision.dll vendored Normal file
View File

Binary file not shown.

BIN
app/packages/GdPicture.runtimes.windows.14.2.90/runtimes/win-x86/native/GdPicture.NET.14.twain.client.dll vendored Normal file
View File

Binary file not shown.