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

MS_1708

Browse Source
This commit is contained in:
SchreiberM
2016-08-17 11:32:45 +02:00
parent b811570870
commit 32192cf542
70 changed files with 7103 additions and 9527 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -175,12 +175,16 @@ Public Class frmWD_IndexFile
'Die temporäre Datei löschen
File.Delete(aktFiledropped)
End If
Class_DOC_SEARCH.REFRESH_DOC_TABLE_RESULTS()
ClassDOC_SEARCH.SET_WD_RIGHTS(CURRENT_FILEIN_WD)
ClassDOC_SEARCH.REFRESH_DOC_TABLE_RESULTS()
sql = String.Format("SELECT DocID FROM VWPMO_WD_DOC_SYNC WHERE UPPER(FULL_FILENAME) = UPPER('{0}') AND CONVERT(DATE,Change_DateTime) = CONVERT(DATE,GETDATE())", CURRENT_FILEIN_WD)
CURRENT_DOC_ID = ClassDatabase.Execute_Scalar(sql)
If Not IsNothing(CURRENT_DOC_ID) Then
ClassFileResult.DocID = CURRENT_DOC_ID
ClassFileResult.SET_DOCID_INDICES()
If ClassDOC_SEARCH.SET_RECORD_DOCID_LINK(CURRENT_DOC_ID, CURRENT_RECORD_ID) = True Then
End If
End If
Else
MsgBox("An unexpected error occured while indexing file. Please check the log!", MsgBoxStyle.Exclamation)
@@ -483,7 +487,7 @@ Public Class frmWD_IndexFile
stg = "All files were transferred via Multiindexing to windream"
stg1 = "Success:"
End If
Class_DOC_SEARCH.REFRESH_DOC_TABLE_RESULTS()
ClassDOC_SEARCH.REFRESH_DOC_TABLE_RESULTS()
MsgBox(stg, MsgBoxStyle.Information, stg1)
Me.Close()
End If
@@ -1072,23 +1076,27 @@ Public Class frmWD_IndexFile
End Sub
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()
Try
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()
End If
End If
End If
Me.Hide()
Me.Visible = True
Me.Activate()
Me.BringToFront()
If CURRENT_CONTROL_DOCTYPE_MATCH <> "" Then
cmbDokumentart.SelectedIndex = cmbDokumentart.FindStringExact(CURRENT_CONTROL_DOCTYPE_MATCH)
End If
Me.Hide()
Me.Visible = True
Me.Activate()
Me.BringToFront()
If CURRENT_CONTROL_DOCTYPE_MATCH <> "" Then
cmbDokumentart.SelectedIndex = cmbDokumentart.FindStringExact(CURRENT_CONTROL_DOCTYPE_MATCH)
End If
Catch ex As Exception
MsgBox("Error in Form Shown:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
formloaded = True
End Sub