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

10.01.2016

Browse Source
This commit is contained in:
SchreiberM
2017-01-11 10:53:58 +01:00
parent 26812ffeb7
commit 03ae19ae3e
25 changed files with 666 additions and 390 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
app/DD-Record-Organiser/frmWD_IndexFile.vb
View File

@@ -27,7 +27,7 @@ Public Class frmWD_IndexFile
'#################################################################
If streamresult = True Then
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
Dim DT_AUTO_INDEXE As DataTable = ClassDatabase.Return_Datatable(sql)
Dim DT_AUTO_INDEXE As DataTable = ClassDatabase.Return_Datatable(sql, True)
Dim indexierung_erfolgreich As Boolean = False
'Einbauen dass auch Konfigurationen erlaubt sind wo der Doktyp und der Record fest gestzt sind
If DT_AUTO_INDEXE Is Nothing = False Then 'CHECK DD
@@ -877,7 +877,7 @@ Public Class frmWD_IndexFile
OBJECT_TYPETextBox.Text = ClassDatabase.Execute_Scalar(sql, True)
DOCTYPE_IDTextBox.Text = CURRENT_DOKARTID
sql = "SELECT * FROM TBDD_INDEX_AUTOM WHERE DOCTYPE_ID = " & CURRENT_DOKARTID
Dim dt As DataTable = ClassDatabase.Return_Datatable(sql)
Dim dt As DataTable = ClassDatabase.Return_Datatable(sql, True)
Dim Count As Integer = 0
lvwIndices.Items.Clear()
If dt.Rows.Count > 0 Then