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

MS

Browse Source
This commit is contained in:
SchreiberM
2023-07-20 14:12:24 +02:00
parent c2deb54f11
commit ea5ea5f205
64 changed files with 8139 additions and 7996 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -59,7 +59,7 @@ Public Class frmConfig_Basic
SaveMySettingsValue("MyProxyConnectionString", con, "ConfigMain")
End If
Dim csb As New SqlClient.SqlConnectionStringBuilder
csb.ConnectionString = MyConnectionString
csb.ConnectionString = MYDB_ECM.CurrentConnectionString
Dim constr = connection.ConnectionString
If chkbxUserAut.Checked = False Then
constr = constr.Replace(csb.Password, "XXXXX")
@@ -126,9 +126,9 @@ Public Class frmConfig_Basic
CONNECTION_CHANGED = False
'Try
Dim csb As New SqlClient.SqlConnectionStringBuilder
csb.ConnectionString = MyConnectionString
csb.ConnectionString = MYDB_ECM.CurrentConnectionString
Dim constr = MyConnectionString
Dim constr = MYDB_ECM.CurrentConnectionString
If Not MyConnectionString.Contains("Trusted") Then
constr = constr.Replace(csb.Password, "XXXXX")
txtUser.Text = csb.UserID
@@ -420,8 +420,8 @@ Public Class frmConfig_Basic
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
If email.Send_Log_Mail("<b> Log-/SupportMail Record-Organizer.</b> <p>",
"Support-Mail Record-Organizer", "support@didalog.de", "mail.triplew.de", "support@didalog.de", "ddemail40", "support@didalog.de") = True Then
If email.Send_Log_Mail("<b> Log-/SupportMail Org-Flow.</b> <p>",
"Support-Mail OrgFlow", "support@didalog.de", "mail.triplew.de", "support@didalog.de", "ddemail40", "support-flow@digitaldata.works") = True Then
MsgBox("Log Mail was sent to Digital Data!", MsgBoxStyle.Information, "Success!")
End If
End Sub
@@ -481,9 +481,9 @@ Public Class frmConfig_Basic
If rbConnDefault.Checked Then
If MyConnectionString <> String.Empty Then
Dim csb As New SqlClient.SqlConnectionStringBuilder
csb.ConnectionString = MyConnectionString
csb.ConnectionString = MYDB_ECM.CurrentConnectionString
Dim constr = MyConnectionString
Dim constr = MYDB_ECM.CurrentConnectionString
If Not constr.Contains("Trusted") Then
constr = constr.Replace(csb.Password, "XXXXX")
txtUser.Text = csb.UserID