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

MS Adding documents

Browse Source
This commit is contained in:
Developer01
2025-01-30 15:13:58 +01:00
parent f05f6d46f8
commit 1cd24f6637
10 changed files with 76 additions and 57 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -168,13 +168,20 @@ Public Class frmRecOrgConfig_Basic
Dim oWMMOD As DigitalData.Modules.Windream.Windream = New DigitalData.Modules.Windream.Windream(LOGCONFIG, False, WMDriveLetter, WMPATH_PREFIX, True, Me.txtServername.Text, Me.txtUser.Text, Me.txtPW.Text, Me.txtDomäne.Text)
If Not IsNothing(oWMMOD) Then
MsgBox("The persionalized connection to windream was created successfully!", MsgBoxStyle.Information)
Dim wrapper As New ClassEncryption("!35452didalog=")
Dim cipherText As String = wrapper.EncryptData(Me.txtPW.Text)
Dim pw As String = cipherText
Dim oresult As MsgBoxResult
Dim msg = "The persionalized connection to windream was created successfully! Do You want to save this configuration?"
oresult = MessageBox.Show(msg, CAPTION_CONFIRMATION, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If oresult = MsgBoxResult.Yes Then
Dim wrapper As New ClassEncryption("!35452didalog=")
Dim cipherText As String = wrapper.EncryptData(Me.txtPW.Text)
Dim pw As String = cipherText
Dim upd = String.Format("UPDATE TBPMO_SERVICE_RIGHT_CONFIG SET AD_DOMAIN = '{0}', AD_USER = '{1}', AD_USER_PW = '{2}', AD_SERVER = '{3}', CHANGED_WHO = '{4}' WHERE GUID = 1", Me.txtDomäne.Text, Me.txtUser.Text, pw, Me.txtServername.Text, USER_USERNAME)
MYDB_ECM.ExecuteNonQuery(upd)
btnsave.Enabled = False
End If
Dim upd = String.Format("UPDATE TBPMO_SERVICE_RIGHT_CONFIG SET AD_DOMAIN = '{0}', AD_USER = '{1}', AD_USER_PW = '{2}', AD_SERVER = '{3}', CHANGED_WHO = '{4}' WHERE GUID = 1", Me.txtDomäne.Text, Me.txtUser.Text, pw, Me.txtServername.Text, USER_USERNAME)
MYDB_ECM.ExecuteNonQuery(upd)
btnsave.Enabled = False
Else
MsgBox("The persionalized connection to windream could NOT be created." & vbNewLine & "Please check the User-Data!", MsgBoxStyle.Critical)
End If