This commit is contained in:
Digital Data - Marlon Schreiber
2017-10-16 11:06:35 +02:00
parent 5a345bd658
commit 76796df71f
3 changed files with 7 additions and 2 deletions

View File

@@ -45,6 +45,7 @@ Public Class frmWD_IndexFile
End If
sw.Done()
sw = New SW("CheckFileExists")
If clsWD_GET.WDFile_exists(CURRENT_NEWFILENAME.Substring(2), clsDatabase.DB_PROXY_INITIALIZED, ClassProxy.MyLinkedServer) = True Then
sw.Done()
Dim msg = "Eine Datei mit identischem Namen existiert bereits! Wollen Sie die bestehende Datei ersetzen?"
@@ -72,6 +73,7 @@ Public Class frmWD_IndexFile
sw.Done()
'#################################################################
If streamresult = True Then
sw = New SW("File Indexing")
CURRENT_FILEIN_WD = CURRENT_NEWFILENAME
Dim sql = "SELECT * FROM TBDD_INDEX_AUTOM WHERE ACTIVE = 1 AND UPPER(INDEXNAME) NOT LIKE UPPER('%ONLY %') AND SQL_ACTIVE = 0 AND DOCTYPE_ID = " & vDokart_ID