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

MS:02.11.2015

Browse Source
This commit is contained in:
SchreiberM
2015-11-03 09:54:39 +01:00
parent f26ba63935
commit 304df6b023
19 changed files with 182 additions and 198 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
app/DD-Record-Organiser/frmWD_Index_Dokart.vb
View File

@@ -24,7 +24,7 @@ Public Class frmWD_Index_Dokart
Dim streamresult = ClassWindream.Stream_File(Filepath, Targetpath)
'Dim type = streamresult.GetType
If streamresult = True Then
Dim sql = "SELECT * FROM TBDD_INDEX_AUTOM WHERE DOCTYPE_ID = " & vDokart_ID
Dim sql = "SELECT * FROM TBDD_INDEX_AUTOM WHERE ACTIVE = 1 AND UPPER(INDEXNAME) NOT LIKE UPPER('%ONLY %') AND DOCTYPE_ID = " & vDokart_ID
Dim dt As DataTable = ClassDatabase.Return_Datatable(sql)
Dim indexierung_erfolgreich As Boolean = False
If dt Is Nothing = False Then
@@ -210,6 +210,9 @@ Public Class frmWD_Index_Dokart
'End Function
Private Sub btnindex_Click(sender As Object, e As EventArgs) Handles btnindex.Click
Indexing_File()
End Sub
Sub Indexing_File()
Try
Me.Cursor = Cursors.WaitCursor
SaveMySettingsValue("WD_IndexDeleteDocs", WD_IndexDeleteDocs)
@@ -257,7 +260,7 @@ Public Class frmWD_Index_Dokart
Me.Cursor = Cursors.Default
End If
Catch ex As Exception
MsgBox("Error in Indexing:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
MsgBox("Error in Indexing_File:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub cmbDokumentart_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbDokumentart.SelectedIndexChanged
@@ -353,12 +356,6 @@ Public Class frmWD_Index_Dokart
TBPMO_FILES_USERTableAdapter.Connection.ConnectionString = MyConnectionString
VWPMO_DOKUMENTTYPESTableAdapter.Connection.ConnectionString = MyConnectionString
Me.VWPMO_DOKUMENTTYPESTableAdapter.Fill(Me.DD_DMSDataSet.VWPMO_DOKUMENTTYPES, CURRENT_FORMVIEW_ID)
If DD_DMSDataSet.VWPMO_DOKUMENTTYPES.Rows.Count = 1 Then
cmbDokumentart.SelectedIndex = 0
End If
Refresh_indices()
Catch ex As Exception
MsgBox("Error in frmWD_Index_Dokart_Load:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
@@ -372,6 +369,14 @@ Public Class frmWD_Index_Dokart
Private Sub frmWD_Index_Dokart_Shown(sender As Object, e As EventArgs) Handles Me.Shown
If My.Settings.WD_INDEXDOKART_SAVE <> String.Empty Then
cmbDokumentart.SelectedIndex = cmbDokumentart.FindStringExact(My.Settings.WD_INDEXDOKART_SAVE)
Else
If DD_DMSDataSet.VWPMO_DOKUMENTTYPES.Rows.Count = 1 Then
cmbDokumentart.SelectedIndex = 0
CURRENT_DOKARTID = cmbDokumentart.SelectedValue
CURRENT_DOKARTSTRING = cmbDokumentart.Text
Refresh_indices()
Indexing_File()
End If
End If
End Sub