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

deprecate My.Settings

Browse Source
This commit is contained in:
Jonathan Jenne
2020-03-09 13:42:56 +01:00
parent 09562f9476
commit ff276bb70f
15 changed files with 2478 additions and 3228 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
Global_Indexer/frmIndex.vb
View File

@@ -1435,13 +1435,14 @@ Public Class frmIndex
End If
'txtIndexfilepath.Text = CURRENT_WORKFILE
labelFilePath.Caption = CURRENT_WORKFILE
ClassWindowLocation.LoadFormLocationSize(Me)
SetFilePreview(CONFIG.Config.FilePreview)
SplitContainer1.SplitterDistance = CONFIG.Config.SplitterDistanceViewer
Load_String()
MULTIFILES = ClassDatabase.Execute_Scalar("SELECT COUNT(*) FROM TBGI_FILES_USER WHERE WORKED = 0 AND GUID <> " & CURRENT_WORKFILE_GUID & " AND UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')", MyConnectionString, True)
MULTIINDEXING_ACTIVE = False
@@ -1467,11 +1468,6 @@ Public Class frmIndex
Try
Me.VWDDINDEX_MANTableAdapter.Connection.ConnectionString = MyConnectionString
Me.VWINDEX_AUTOMTableAdapter.Connection.ConnectionString = MyConnectionString
'Me.VWIORDNER_DOKARTTableAdapter.Connection.ConnectionString = My.Settings.MyConnectionString
'Me.VWDMS_DOKUMENTARTZUORDNUNGTableAdapter.Connection.ConnectionString = My.Settings.MyConnectionString
'Me.TBCONNECTIONTableAdapter.Connection.ConnectionString = My.Settings.MyConnectionString
'Me.VWINDEX_AUTOMTableAdapter.Connection.ConnectionString = My.Settings.MyConnectionString
'Me.VWINDEX_MANTableAdapter.Connection.ConnectionString = My.Settings.MyConnectionString
Catch ex As Exception
LOGGER.Info(" - Unexpected error in Speichern der Verbindung - Fehler: " & vbNewLine & ex.Message)
LOGGER.Error(ex.Message)
@@ -1490,15 +1486,14 @@ Public Class frmIndex
CURR_DELETE_ORIGIN = CONFIG.Config.DeleteOriginalFile
checkItemDeleteSource.Checked = CONFIG.Config.DeleteOriginalFile
'chkdelete_origin.Checked = CONFIG.Config.DeleteOriginalFile
'CURR_DELETE_ORIGIN = chkdelete_origin.Checked
FormLoaded = True
If My.Settings.DA_Vorauswahlaktiv = True Then
If CONFIG.Config.ProfilePreselection Then
If CURRENT_LASTDOKART <> "" Then
cmbDokumentart.SelectedIndex = cmbDokumentart.FindStringExact(CURRENT_LASTDOKART)
End If
End If
Try
If DTTBGI_REGEX_DOCTYPE.Rows.Count > 0 Then
For Each oRoW As DataRow In DTTBGI_REGEX_DOCTYPE.Rows
@@ -1516,7 +1511,6 @@ Public Class frmIndex
End Try
Me.TopMost = True
Me.BringToFront()
End Sub
Sub Refresh_Dokart()
Try
@@ -2199,7 +2193,8 @@ Public Class frmIndex
Else
If WORK_FILE() = True Then
Me.Cursor = Cursors.Default
If My.Settings.Show_IndexResult = True Then
If CONFIG.Config.ShowIndexResult = True Then
If USER_LANGUAGE = "de-DE" Then
MsgBox("Die Datei wurde erfolgreich verarbeitet!" & vbNewLine & "Ablagepfad:" & vbNewLine & CURRENT_NEWFILENAME, MsgBoxStyle.Information, "Erfolgsmeldung")
Else
@@ -2589,7 +2584,7 @@ Public Class frmIndex
Else
If WORK_FILE() = True Then
Me.Cursor = Cursors.Default
If My.Settings.Show_IndexResult = True Then
If CONFIG.Config.ShowIndexResult = True Then
If USER_LANGUAGE = "de-DE" Then
MsgBox("Die Datei wurde erfolgreich verarbeitet!" & vbNewLine & "Ablagepfad:" & vbNewLine & CURRENT_NEWFILENAME, MsgBoxStyle.Information, "Erfolgsmeldung")
Else
@@ -2632,4 +2627,8 @@ Public Class frmIndex
End If
End If
End Sub
Private Sub SplitContainer1_SplitterMoved(sender As Object, e As SplitterEventArgs) Handles SplitContainer1.SplitterMoved
CONFIG.Config.SplitterDistanceViewer = SplitContainer1.SplitterDistance
End Sub
End Class