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

MSKW41

Browse Source
This commit is contained in:
SchreiberM
2016-10-14 13:27:47 +02:00
parent 4548dc3abc
commit 353f161c57
30 changed files with 1400 additions and 607 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -326,24 +326,30 @@ Public Class frmWD_IndexFile
'End Function
Private Sub btnindex_Click(sender As Object, e As EventArgs) Handles btnindex.Click
If CURRENT_RECORD_ID = 0 Then
MsgBox("No Record chosen or the documenttype was not chosen!", MsgBoxStyle.Information)
Exit Sub
End If
If lvwIndices.Items.Count = 0 Then
MsgBox("Please choose a documenttxpe!", MsgBoxStyle.Information)
Exit Sub
End If
If CURRENT_TBPMO_INDEX_MAN.Rows.Count > 0 Then
If CheckWrite_IndexeMan() = False Then
Try
If CURRENT_RECORD_ID = 0 Then
MsgBox("No Record chosen or the documenttype was not chosen!", MsgBoxStyle.Information)
Exit Sub
End If
End If
If cmbDokumentart.SelectedIndex <> -1 Then
My.Settings.WD_INDEXDOKART_SAVE = cmbDokumentart.Text
My.Settings.Save()
Indexing_File(cmbDokumentart.SelectedValue)
End If
If lvwIndices.Items.Count = 0 Then
MsgBox("Please choose a documenttxpe!", MsgBoxStyle.Information)
Exit Sub
End If
If Not IsNothing(CURRENT_TBPMO_INDEX_MAN) Then
If CURRENT_TBPMO_INDEX_MAN.Rows.Count > 0 Then
If CheckWrite_IndexeMan() = False Then
Exit Sub
End If
End If
End If
If cmbDokumentart.SelectedIndex <> -1 Then
My.Settings.WD_INDEXDOKART_SAVE = cmbDokumentart.Text
My.Settings.Save()
Indexing_File(cmbDokumentart.SelectedValue)
End If
Catch ex As Exception
MsgBox("Unexpected Error in Prepare indexing: " & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Function Return_CURRENT_TBPMO_INDEX_MAN_VALUE(CONTROL_GUID As Integer, COL_NAME As String)
@@ -1123,7 +1129,8 @@ Public Class frmWD_IndexFile
Private Sub frmWD_Index_Dokart_Shown(sender As Object, e As EventArgs) Handles Me.Shown
Try
If My.Settings.WD_INDEXDOKART_SAVE <> String.Empty Then
cmbDokumentart.SelectedIndex = cmbDokumentart.FindStringExact(My.Settings.WD_INDEXDOKART_SAVE)
Me.cmbDokumentart.SelectedItem = Me.cmbDokumentart.Items.IndexOf(My.Settings.WD_INDEXDOKART_SAVE)
' cmbDokumentart.SelectedIndex = cmbDokumentart.FindStringExact(My.Settings.WD_INDEXDOKART_SAVE)
Else
If DD_DMSDataSet.VWPMO_DOKUMENTTYPES.Rows.Count = 1 Then
cmbDokumentart.SelectedIndex = 0