MSKW41
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user