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

Compare commits

base: AppStd:6e29c9f04ba49e7458cf6f4f23cd42dd6edef1a2
Branches Tags
AppStd:master AppStd:Design AppStd:Limilabs AppStd:Redesign
..
compare: AppStd:6ca755de12305dbe9917d0cfb5b46e0dfd1b515d
Branches Tags
AppStd:master AppStd:Design AppStd:Limilabs AppStd:Redesign

2 Commits
6e29c9f04b ... 6ca755de12

Author SHA1 Message Date
Jonathan Jenne
6ca755de12 Version 2.3.9.17 2021-05-10 11:36:12 +02:00
Jonathan Jenne
763e45ef33 clean up variables 2021-05-10 11:35:23 +02:00
2 changed files with 5 additions and 5 deletions
Expand all files Collapse all files

4
Global_Indexer/My Project/AssemblyInfo.vb
View File

@@ -15,7 +15,7 @@ Imports System.Runtime.InteropServices
<Assembly: AssemblyCompany("Digital Data")>
<Assembly: AssemblyProduct("Global Indexer")>
<Assembly: AssemblyCopyright("Copyright © 2021")>
<Assembly: AssemblyTrademark("23915")>
<Assembly: AssemblyTrademark("23917")>
<Assembly: ComVisible(False)>
@@ -33,7 +33,7 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.3.9.16")>
<Assembly: AssemblyVersion("2.3.9.17")>
<Assembly: AssemblyFileVersion("1.0.0.0")>
<Assembly: NeutralResourcesLanguageAttribute("")>

6
Global_Indexer/frmIndex.vb
View File

@@ -1299,11 +1299,11 @@ Public Class frmIndex
Dim Insert_String As String
Try
Dim tempCur_WF = CURRENT_WORKFILE.Replace("'", "''")
Dim tempCur_New_FN = CURRENT_NEWFILENAME.Replace("'", "''")
Dim oCurrentWorkfile = CURRENT_WORKFILE.Replace("'", "''")
Dim oCurrentNewFilename = CURRENT_NEWFILENAME.Replace("'", "''")
Dim oUser As String = $"{Environment.UserDomainName}\{Environment.UserName}"
Insert_String = sql_history_INSERT_INTO & $",ADDED_WHO, ADDED_WHERE, FILE_HASH) VALUES ('{tempCur_WF}','{tempCur_New_FN}'{sql_history_Index_Values},'{oUser}','{Environment.MachineName}','{CURRENT_WORKFILE_HASH}')"
Insert_String = sql_history_INSERT_INTO & $",ADDED_WHO, ADDED_WHERE, FILE_HASH) VALUES ('{oCurrentWorkfile}','{oCurrentNewFilename}'{sql_history_Index_Values},'{oUser}','{Environment.MachineName}','{CURRENT_WORKFILE_HASH}')"
If ClassDatabase.Execute_non_Query(Insert_String) = True Then
If CURRENT_MESSAGEID <> "" Then
Dim max As String = "SELECT MAX(GUID) FROM TBGI_HISTORY"