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

126
app/DD-Record-Organiser/frmConstructor_Main.vb
View File

@@ -11,6 +11,7 @@ Imports System.IO
Imports DevExpress.XtraGrid
Imports WINDREAMLib
Imports System.Runtime.InteropServices
Imports DD_Rights
Public Class frmConstructor_Main
@@ -1851,8 +1852,8 @@ Public Class frmConstructor_Main
'LoadControls(thisFormId)
CtrlCommandUI = New ClassControlCommandsUI(CtrlBuilder,
ContextMenuDetails,
AddressOf NewEditAppointment,
AddressOf OpenFormData)
AddressOf NewEditAppointment) ',
'AddressOf OpenFormData)
CtrlCommandUI.LoadControls(ENTITY_ID)
Lock_RecordControls(True)
' pnlDetails.Enabled = False
@@ -1886,39 +1887,6 @@ Public Class frmConstructor_Main
End If
End Sub
Sub OpenFormData(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
Try
Dim Control As Control = sender
Dim ControlName As String = Control.Name
Dim ControlId As Integer = DirectCast(Control.Tag, ClassControlMetadata).Id ' GetControlID_for_Name(ControlName, FORM_ID)
Dim dr As DataRow = ClassFunctionCommands.LoadFunction(ControlId)
If IsDBNull(dr.Item("INTEGER1")) OrElse dr.Item("INTEGER1") = 0 Then
MsgBox("FormId ist nicht definiert für " & ControlName)
Exit Sub
End If
If IsDBNull(dr.Item("INTEGER2")) OrElse dr.Item("INTEGER2") = 0 Then
MsgBox("ScreenId ist nicht definiert für " & ControlName)
Exit Sub
End If
Dim FormId As Integer = dr.Item("INTEGER1")
Dim ScreenId As Integer = dr.Item("INTEGER2")
Cursor = Cursors.WaitCursor
OpenFormInputFor(FormId, ScreenId)
Cursor = Cursors.Default
Catch ex As Exception
MsgBox("Error in OpenFormData:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
#End Region
#Region "DetailView - Toolstrip"
@@ -1996,6 +1964,7 @@ Public Class frmConstructor_Main
RIGHT_ONLY_READ = False
tslblLocked.Visible = False
tslblFileslocked.Visible = False
tsButtonAdd.Enabled = False
End If
Catch ex As Exception
MsgBox("Unexpected Error in Insert: " & ex.Message)
@@ -4062,7 +4031,7 @@ Public Class frmConstructor_Main
Dim elapsed As Double
' Dim Basesearch As String
Try
Dim DT_RESULT As DataTable = Class_DOC_SEARCH.Get_DOC_RESULTTABLE(DT_RESULTLIST_OPTIONS, DT_WINDREAM_RESULTLIST, ENTITY_ID, RECORD_ID, "RECORD")
Dim DT_RESULT As DataTable = ClassDOC_SEARCH.Get_DOC_RESULTTABLE(DT_RESULTLIST_OPTIONS, DT_WINDREAM_RESULTLIST, ENTITY_ID, RECORD_ID, "RECORD")
If IsNothing(DT_RESULT) Then
Exit Sub
Else
@@ -4269,7 +4238,7 @@ Public Class frmConstructor_Main
Dim sw As New Stopwatch
sw.Start()
Dim elapsed As Double
Dim DT_RESULT As DataTable = Class_DOC_SEARCH.Get_DOC_RESULTTABLE(DT_RESULTLIST_OPTIONS, DT_WINDREAM_RESULTLIST, ENTITY_ID, RECORD_ID, Type)
Dim DT_RESULT As DataTable = ClassDOC_SEARCH.Get_DOC_RESULTTABLE(DT_RESULTLIST_OPTIONS, DT_WINDREAM_RESULTLIST, ENTITY_ID, RECORD_ID, Type)
If IsNothing(DT_RESULT) Then
Dim msg = "wrong DocSearch-Configuration - Check logfile and contact Digital Data"
tslblWindreamView.Text = msg
@@ -4609,7 +4578,7 @@ Public Class frmConstructor_Main
' RUN_WD_SEARCH(WD_Suche, "RECORD")
RUN_WDSEARCH_GRID("RECORD")
End If
Load_DocGrid_Layout()
Load_DocGrid_Layout()
End If
End If
If TCDetails.SelectedTabPage.Text.ToLower.StartsWith("wieder") Or TCDetails.SelectedTabPage.Text.ToLower.StartsWith("follo") Then
@@ -4712,7 +4681,7 @@ Public Class frmConstructor_Main
'Nur wenn neue Dateien abgelegt wurden muss die Prozedur zur aktualisierung der windream Dateien ausgeführt werden...ansonsten muss nichts passieren
If NEW_FILES_ADDED = True Then
Me.Cursor = Cursors.WaitCursor
If Class_DOC_SEARCH.REFRESH_DOC_TABLE_RESULTS = True Then
If ClassDOC_SEARCH.REFRESH_DOC_TABLE_RESULTS = True Then
RUN_WDSEARCH_GRID("RECORD")
End If
Else
@@ -5045,7 +5014,7 @@ Public Class frmConstructor_Main
Private Sub WindreamsucheNeuLadenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles WindreamsucheNeuLadenToolStripMenuItem.Click
Class_DOC_SEARCH.REFRESH_DOC_TABLE_RESULTS()
ClassDOC_SEARCH.REFRESH_DOC_TABLE_RESULTS()
RUN_WDSEARCH_GRID("RECORD")
' RUN_WD_SEARCH(WD_Suche, "RECORD")
End Sub
@@ -5642,25 +5611,57 @@ Public Class frmConstructor_Main
Private Sub LöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DeleteToolStripMenuItem.Click
If RESULT_DOC_PATH <> Nothing Then
Dim msg = "Sind Sie sicher, dass Sie die Datei " & vbNewLine & RESULT_DOC_PATH & vbNewLine & "löschen wollen?"
Dim msg = "Wollen Sie nur die Verknüpfung der Datei entfernen?" & vbNewLine & "Datei bleibt im DMS/Archiv/Explorer erhalten!"
If USER_LANGUAGE <> "de-DE" Then
msg = "Are You sure You want to delete this file?" & vbNewLine & RESULT_DOC_PATH
msg = "Would You like to delete only the references?" & vbNewLine & "File will stay in ECM/Archive/Explorer!"
End If
Dim result As MsgBoxResult
result = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
Try
If Not IsNothing(RESULT_DOC_ID) Then
If ClassWindream.Delete_WDFile(RESULT_DOC_PATH) = True Then
If ClassFileResult.Delete_ResultFile(RESULT_DOC_ID) = True Then
RUN_WDSEARCH_GRID("RECORD")
Dim DT_INDICES As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_WD_OBJECTTYPE WHERE OBJECT_TYPE = '" & RESULT_OBJECTTYPE & "'")
If Not IsNothing(DT_INDICES) Then
If DT_INDICES.Rows.Count = 1 Then
'Record-Links entfernen
If ClassWindream.REMOVE_VEKTOR_LINK(RESULT_DOC_PATH, DT_INDICES.Rows(0).Item("IDXNAME_RECORDID"), RECORD_ID) = True Then
'ENTITY-Links entfernen
If ClassWindream.REMOVE_VEKTOR_LINK(RESULT_DOC_PATH, DT_INDICES.Rows(0).Item("IDXNAME_ENTITYID"), ENTITY_ID) = True Then
Dim del = "DELETE FROM TBPMO_DOC_RECORD_LINK WHERE DocID = " & RESULT_DOC_ID
If ClassDatabase.Execute_non_Query(del) = True Then
del = "DELETE FROM TBPMO_DOCRESULT_LIST WHERE DocID = " & RESULT_DOC_ID
If ClassDatabase.Execute_non_Query(del) = True Then
RUN_WDSEARCH_GRID("RECORD")
End If
End If
End If
End If
End If
End If
Catch ex As Exception
MsgBox("Unexpected Error in Delete file:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
MsgBox("Unexpected Error in Removing links from file:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
Else
msg = "Sind Sie sicher, dass Sie die Datei " & vbNewLine & RESULT_DOC_PATH & vbNewLine & "endgültig löschen wollen?"
If USER_LANGUAGE <> "de-DE" Then
msg = "Are You sure You want to permanently delete this file?" & vbNewLine & RESULT_DOC_PATH
End If
Dim result1 As MsgBoxResult
result1 = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result1 = MsgBoxResult.Yes Then
Try
If Not IsNothing(RESULT_DOC_ID) Then
If ClassWindream.Delete_WDFile(RESULT_DOC_PATH) = True Then
If ClassFileResult.Delete_ResultFile(RESULT_DOC_ID) = True Then
RUN_WDSEARCH_GRID("RECORD")
End If
End If
End If
Catch ex As Exception
MsgBox("Unexpected Error in Delete file:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End If
End If
End If
End Sub
@@ -5983,7 +5984,7 @@ Public Class frmConstructor_Main
Private Sub DateiMitDatensatzVerknüpfenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TSMI_linkRecord.Click
Dim fileName As String = RESULT_DOC_PATH
CURRENT_DOC_ID = RESULT_DOC_ID
Dim frm As New frmWD_Link_to_Record(fileName, RESULT_OBJECTTYPE)
frm.Show()
End Sub
@@ -6011,17 +6012,16 @@ Public Class frmConstructor_Main
Exit Sub
End If
Try
If rowCellValue <> "" Then
Dim inwork = CBool(rowCellValue)
If inwork = True Then
e.Appearance.BackColor = Color.Orchid
e.HighPriority = True
End If
Dim inwork = rowCellValue
If inwork = True Then
e.Appearance.BackColor = Color.Orchid
e.HighPriority = True
End If
Catch ex As Exception
ClassLogger.Add(">> Unexpected Error in Checking Value In Work: " & ex.Message, False)
End Try
Catch ex As Exception
ClassLogger.Add(">> Unexpected Error in RowStyle GridViewDoc_Search: " & ex.Message, False)
End Try
@@ -6161,4 +6161,20 @@ Public Class frmConstructor_Main
End Try
End If
End Sub
Private Sub TestToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles tsmiRights.Click
Dim msg = "Die Rechte wurden erfolgreich überprüft und aktualisiert!"
If ClassDOC_SEARCH.SET_WD_RIGHTS(RESULT_DOC_PATH) = True Then
If USER_LANGUAGE <> "de-DE" Then
msg = "The rights were successfully renewed!"
End If
MsgBox(msg, MsgBoxStyle.Information)
Else
msg = "Unerwarteter Fehler im Rechtemodul. Bitte prüfen Sie die Logdatei!"
If USER_LANGUAGE <> "de-DE" Then
msg = "Unexpected error in rights-module. Please check the logfile!"
End If
MsgBox(msg, MsgBoxStyle.Exclamation)
End If
End Sub
End Class