This commit is contained in:
SchreiberM
2016-06-27 17:11:16 +02:00
parent c5f276c37d
commit bed463ee54
11 changed files with 3652 additions and 2115 deletions

View File

@@ -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")