This commit is contained in:
2021-08-27 14:23:01 +02:00
parent 54d57761ea
commit 9287630dfb
12 changed files with 105 additions and 43 deletions

View File

@@ -469,6 +469,9 @@ Public Class frmWM_IndexFile
End If
End If
End If
Dim oeditvalue = LookUpEdit1.EditValue
Dim otext = LookUpEdit1.Text
If cmbDokumentart.SelectedIndex <> -1 Then
My.Settings.WD_INDEXDOKART_SAVE = cmbDokumentart.Text
My.Settings.Save()
@@ -478,6 +481,7 @@ Public Class frmWM_IndexFile
MsgBox("Could not create a windream-session! Please contact Your admin!", MsgBoxStyle.Critical)
End If
End If
Catch ex As Exception
MsgBox("Unexpected Error in Prepare indexing: " & ex.Message, MsgBoxStyle.Critical)
End Try
@@ -1227,6 +1231,9 @@ Public Class frmWM_IndexFile
cmbDokumentart.DataSource = DTVWPMO_DOKUMENTTYPES
cmbDokumentart.DisplayMember = DTVWPMO_DOKUMENTTYPES.Columns(4).ColumnName
cmbDokumentart.ValueMember = DTVWPMO_DOKUMENTTYPES.Columns(3).ColumnName
LookUpEdit1.Properties.DataSource = DTVWPMO_DOKUMENTTYPES
LookUpEdit1.Properties.DisplayMember = DTVWPMO_DOKUMENTTYPES.Columns(4).ColumnName
LookUpEdit1.Properties.ValueMember = DTVWPMO_DOKUMENTTYPES.Columns(3).ColumnName
If DTVWPMO_DOKUMENTTYPES.Rows.Count = 1 Then
cmbDokumentart.SelectedIndex = 0
CURRENT_DOKARTID = cmbDokumentart.SelectedValue