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

MS Funktionsprüfungen, benennung Parameter, neue GDPictureVersion

Browse Source
This commit is contained in:
Developer01
2025-05-19 15:07:42 +02:00
parent e8f3b68041
commit c2f02bf262
64 changed files with 225 additions and 392589 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
app/DD-Record-Organizer/frmFileRename.vb
View File

@@ -2,9 +2,11 @@
Public Class frmFileRename
Private ReadOnly oRenameType As String
Private OldDisplayName As String
Private DisplayName As String
Private FullFilename As String
Private DocID As Int64
Public Sub New(DocID As Integer, oldName As String, pRenameType As String)
Public Sub New(pDocID As Integer, oldName As String, pRenameType As String, pFullFilename As String)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
@@ -14,6 +16,8 @@ Public Class frmFileRename
lblOldFilename.Text = oldName
txtNewName.Text = oldName
oRenameType = pRenameType
FullFilename = pFullFilename
DocID = pDocID
End Sub
Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles SimpleButton1.Click
@@ -50,26 +54,27 @@ Public Class frmFileRename
End Try
Else
Dim OldName, NewName, OnlyFilename As String
OldName = ClassDocGrid.SELECTED_DOC_PATH
OldName = FullFilename
' Define file names.
NewName = txtNewName.Text
OnlyFilename = NewName
Dim oFullFilename = ClassHelper.FORMAT_WM_PATH(ClassDocGrid.SELECTED_DOC_PATH)
Dim oFullFilename = ClassHelper.FORMAT_WM_PATH(FullFilename)
Dim name1 = Path.Combine(Path.GetDirectoryName(oFullFilename), NewName)
NewName &= Path.GetExtension(oFullFilename)
OnlyFilename &= Path.GetExtension(oFullFilename)
' Rename file.
LOGGER.Info($"Renaming Old: [{OldName}]")
LOGGER.Info($"Renaming Old: [{oFullFilename}]")
LOGGER.Info($"Renaming New: [{NewName}]")
My.Computer.FileSystem.RenameFile(OldName, NewName)
My.Computer.FileSystem.RenameFile(oFullFilename, NewName)
LOGGER.Info($"Renaming FileSystem done!")
Cursor = Cursors.WaitCursor
Dim oEXEC As String = $"EXEC PROF_DOC_CREATE_UPDATE {ClassDocGrid.SELECTED_DOC_ID}, {CURRENT_RECORD_ID},'{USER_USERNAME}',''"
Dim oEXEC As String = $"EXEC PROF_DOC_CREATE_UPDATE {DocID}, {CURRENT_RECORD_ID},'{USER_USERNAME}',''"
If MYDB_ECM.ExecuteNonQuery(oEXEC) Then
Me.Close()
Else
MsgBox("Not succesfull - Check log", MsgBoxStyle.Critical)
End If
End If
End If
End Sub