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

MS clswindream entfernt Umstieg auf Modulwindream

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

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

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