From f50442bf307e573abccf3f22803b226e04bebaac Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Thu, 28 Sep 2023 12:06:39 +0200 Subject: [PATCH] clean up --- .../Classes/ClassFileResult.vb | 2 +- app/DD-Record-Organizer/OrgFlow.ruleset | 13 +++++ app/DD-Record-Organizer/OrgFlow.vbproj | 1 + .../frmConstructor_Main.resx | 54 +++++++++---------- app/DD-Record-Organizer/frmFileRename.vb | 11 ++-- 5 files changed, 46 insertions(+), 35 deletions(-) create mode 100644 app/DD-Record-Organizer/OrgFlow.ruleset diff --git a/app/DD-Record-Organizer/Classes/ClassFileResult.vb b/app/DD-Record-Organizer/Classes/ClassFileResult.vb index d524a88..26f9258 100644 --- a/app/DD-Record-Organizer/Classes/ClassFileResult.vb +++ b/app/DD-Record-Organizer/Classes/ClassFileResult.vb @@ -1,5 +1,5 @@ Public Class ClassFileResult - Public Shared DocID As Integer + Public Shared Property DocID As Integer Public Shared InWork As Boolean = False Public Shared Function Set_InWork(state As Integer, comment As String) Try diff --git a/app/DD-Record-Organizer/OrgFlow.ruleset b/app/DD-Record-Organizer/OrgFlow.ruleset new file mode 100644 index 0000000..aa1e315 --- /dev/null +++ b/app/DD-Record-Organizer/OrgFlow.ruleset @@ -0,0 +1,13 @@ + + + + + + + + + + + + + \ No newline at end of file diff --git a/app/DD-Record-Organizer/OrgFlow.vbproj b/app/DD-Record-Organizer/OrgFlow.vbproj index 08c8407..5252a8c 100644 --- a/app/DD-Record-Organizer/OrgFlow.vbproj +++ b/app/DD-Record-Organizer/OrgFlow.vbproj @@ -1277,6 +1277,7 @@ + diff --git a/app/DD-Record-Organizer/frmConstructor_Main.resx b/app/DD-Record-Organizer/frmConstructor_Main.resx index c70a164..b5d410e 100644 --- a/app/DD-Record-Organizer/frmConstructor_Main.resx +++ b/app/DD-Record-Organizer/frmConstructor_Main.resx @@ -230,7 +230,7 @@ Knoten umbenennen - 216, 26 + 212, 22 Knotentext: @@ -242,7 +242,7 @@ 152, 23 - 213, 6 + 209, 6 @@ -253,7 +253,7 @@ - 216, 26 + 212, 22 Auf dieser Ebene @@ -268,7 +268,7 @@ - 216, 26 + 212, 22 Unterhalb @@ -322,7 +322,7 @@ Suche Knoten - 225, 257 + 225, 235 cmsTreeView @@ -496,7 +496,7 @@ 0, 0 - 908, 237 + 910, 237 2 @@ -592,7 +592,7 @@ 0, 0 - 699, 231 + 699, 223 4 @@ -634,7 +634,7 @@ 0, 0 - 486, 206 + 488, 198 5 @@ -681,10 +681,10 @@ Ansicht eingeschränkt - Klick Bearbeiten für Entsperren - 0, 206 + 0, 198 - 486, 25 + 488, 25 0 @@ -720,7 +720,7 @@ 1 - 1201, 235 + 1201, 227 1 @@ -896,7 +896,7 @@ 1 - 1201, 262 + 1201, 254 Detailansicht @@ -914,7 +914,7 @@ 0 - 1203, 290 + 1203, 282 3 @@ -926,7 +926,7 @@ 0, 27 - 1201, 227 + 1201, 237 0 @@ -1183,7 +1183,7 @@ - 1201, 254 + 1201, 264 Positionen @@ -1239,7 +1239,7 @@ 0, 0 - 1201, 254 + 1201, 264 7 @@ -1257,7 +1257,7 @@ 0 - 1201, 254 + 1201, 264 Dateien @@ -1688,7 +1688,7 @@ 2 - 1201, 254 + 1201, 264 Wiedervorlage @@ -1790,7 +1790,7 @@ 5 - 1201, 227 + 1201, 237 90 @@ -1862,7 +1862,7 @@ 1 - 1201, 254 + 1201, 264 Vorgängervarianten @@ -1963,7 +1963,7 @@ 1 - 1203, 539 + 1203, 529 2 @@ -1987,7 +1987,7 @@ Fill - 0, 147 + 0, 158 Panel1 @@ -2020,7 +2020,7 @@ 1 - 1203, 539 + 1203, 529 4 @@ -2289,7 +2289,7 @@ Ansicht zurücksetzen - 256, 520 + 256, 542 ContextMenuStripResultFiles @@ -3085,13 +3085,13 @@ Funktionen - 1203, 147 + 1203, 158 - 0, 686 + 0, 687 - 1203, 23 + 1203, 22 RibbonStatusBar1 diff --git a/app/DD-Record-Organizer/frmFileRename.vb b/app/DD-Record-Organizer/frmFileRename.vb index d85acd0..a03c4c7 100644 --- a/app/DD-Record-Organizer/frmFileRename.vb +++ b/app/DD-Record-Organizer/frmFileRename.vb @@ -1,8 +1,9 @@ Imports System.IO Public Class frmFileRename - Dim oRenameType As String - Public Sub New(DocID As Int32, oldName As String, pRenameType As String) + Private ReadOnly oRenameType As String + + Public Sub New(DocID As Integer, oldName As String, pRenameType As String) ' Dieser Aufruf ist für den Designer erforderlich. InitializeComponent() @@ -43,7 +44,7 @@ Public Class frmFileRename OnlyFilename = NewName Dim oFullFilename = ClassHelper.FORMAT_WM_PATH(ClassWindreamDocGrid.SELECTED_DOC_PATH) Dim name1 = Path.Combine(Path.GetDirectoryName(oFullFilename), NewName) - NewName = NewName & Path.GetExtension(oFullFilename) + NewName &= Path.GetExtension(oFullFilename) OnlyFilename &= Path.GetExtension(oFullFilename) ' Rename file. LOGGER.Info($"Renaming Old: [{OldName}]") @@ -59,9 +60,5 @@ Public Class frmFileRename End If End If End If - - - - End Sub End Class \ No newline at end of file