MS2
This commit is contained in:
@@ -1130,6 +1130,7 @@ Public Class frmConstructor_Main
|
||||
Else
|
||||
USER_RESULTLIST_CONFIG_GUID = 0
|
||||
If USER_LANGUAGE <> "de-DE" Then
|
||||
'Grid wird in englisch dargestellt!
|
||||
gridGUID = 3
|
||||
End If
|
||||
Dim filteredDatatable = DT_WINDREAM_RESULTLIST_DEF.Copy()
|
||||
@@ -5330,7 +5331,7 @@ Public Class frmConstructor_Main
|
||||
' Define file names.
|
||||
NewName = ToolStripTextBox2.Text
|
||||
Dim name1 = Path.Combine(Path.GetDirectoryName(RESULT_DOC_PATH), NewName)
|
||||
NewName = name1 & Path.GetExtension(RESULT_DOC_PATH)
|
||||
NewName = NewName & Path.GetExtension(RESULT_DOC_PATH)
|
||||
' Rename file.
|
||||
My.Computer.FileSystem.RenameFile(OldName, NewName)
|
||||
RUN_WDSEARCH_GRID("RECORD")
|
||||
|
||||
Reference in New Issue
Block a user