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

MS Logging, Import windream, Hash-wert

Browse Source
This commit is contained in:
Developer01
2025-05-07 14:57:07 +02:00
parent d2009b661c
commit e8f3b68041
18 changed files with 240 additions and 153 deletions
Download Patch File Download Diff File Expand all files Collapse all files

46
app/DD-Record-Organizer/frmDocRecordLink.vb
View File

@@ -271,8 +271,11 @@ Public Class frmDocRecordLink
txtcurrSichtData.Text = entity.title
Refresh_Grid_Data(False, DT_RESULT)
End If
Load_DocGrid_Layout()
Else
bsiInfo.Caption = "Bitte wöhlen Sie eine Sicht aus! " + Now.ToShortTimeString
End If
Load_DocGrid_Layout()
Me.Cursor = Cursors.Default
End Sub
Private Function ReturnDataforEntity(oEntityID As Integer) As DataTable
@@ -285,7 +288,7 @@ Public Class frmDocRecordLink
Return MYDB_ECM.GetDatatable(ResultSQL)
End Function
Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtnitmLinkRecords.ItemClick
If WMMOD.SessionLoggedin = False Then
MsgBox("No session to windream created! Check Your connection!", MsgBoxStyle.Critical)
Exit Sub
@@ -293,33 +296,25 @@ Public Class frmDocRecordLink
Dim selectedRows As Integer() = grvwGrid.GetSelectedRows()
Dim oLinkCount As Integer = 0
LOGGER.Info("Start der Verknüpfung - Es wurden [{0}] Datensätze ausgewählt!", selectedRows.Count)
For Each rowhandle As Integer In selectedRows
Dim SELECTED_RECORDID = grvwGrid.GetRowCellValue(rowhandle, "Record-ID")
If IsNothing(SELECTED_RECORDID) Then
Dim oSelectedRecordID = grvwGrid.GetRowCellValue(rowhandle, "Record-ID")
If IsNothing(oSelectedRecordID) Then
Continue For
End If
LOGGER.Debug(">>> Doc will be linked with Record: " & SELECTED_RECORDID.ToString)
Try
For Each row As DataRow In CURRENT_DT_SELECTED_FILES.Rows
CURRENT_DOC_ID = row.Item("DOC_ID")
LOGGER.Info("DocID {0} will be linked with Record {1} ", CURRENT_DOC_ID.ToString, oSelectedRecordID.ToString)
Dim DOC_PATH = row.Item("FILEPATH")
Dim _objecttype = row.Item("OBJECTTYPE")
WMOBJECTTYPE = _objecttype
Dim sql_Exec = String.Format("EXEC PRPMO_CHECK_DOC_RECORD_LINK {0},{1},'{2}','{3}'", SELECTED_RECORDID, CURRENT_DOC_ID, "MANUAL RECORD-LINK", USER_USERNAME)
'Dim ins = String.Format("INSERT INTO TBPMO_DOC_RECORD_LINK (RECORD_ID,DOC_ID,COMMENT,ADDED_WHO) VALUES ({0},{1},'{2}','{3}')", SELECTED_RECORDID, CURRENT_DOC_ID, "MANUAL RECORD-LINK", USER_USERNAME)
Dim sql_Exec = String.Format("EXEC PRPMO_CHECK_DOC_RECORD_LINK {0},{1},'{2}','{3}'", oSelectedRecordID, CURRENT_DOC_ID, "MANUAL RECORD-LINK", USER_USERNAME)
If MYDB_ECM.ExecuteNonQuery(sql_Exec) = False Then
MsgBox("Unexpected Error in Inserting Record-Doc Link. Please check logfile!", MsgBoxStyle.Critical)
Else
'If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
' Dim proc = String.Format("EXEC PRPROXY_DOC_CHECK_DOC_REC_LINK {0},{1}", CURRENT_DOC_ID, SELECTED_RECORDID)
' MYDB_ECM.ExecuteNonQuery(proc)
'End If
Dim msg = String.Format("Der Datensatz wurde erfolgreich verknüpft!")
If USER_LANGUAGE <> "de-DE" Then
msg = "The record was successfully linked"
End If
bsiInfo.Caption = msg
ClassHelper.InsertEssential_Log(CURRENT_DOC_ID, "DOC-ID", "FILE LINK CREATED FOR RECORD: " & SELECTED_RECORDID.ToString)
ClassHelper.InsertEssential_Log(CURRENT_DOC_ID, "DOC-ID", "FILE LINK CREATED FOR RECORD: " & oSelectedRecordID.ToString)
oLinkCount += 1
End If
Dim sql = String.Format("SELECT * FROM TBPMO_WD_OBJECTTYPE WHERE OBJECT_TYPE = '{0}'", _objecttype)
@@ -327,29 +322,34 @@ Public Class frmDocRecordLink
If DT_OBJTYPE.Rows.Count = 1 Then
Dim Entity_Index = DT_OBJTYPE.Rows(0).Item("IDXNAME_ENTITYID")
Dim Record_Index = DT_OBJTYPE.Rows(0).Item("IDXNAME_RECORDID")
Dim ENT_ID = MYDB_ECM.GetScalarValue(String.Format("SELECT FORM_ID FROM TBPMO_RECORD WHERE GUID = {0}", SELECTED_RECORDID))
Dim ENT_ID = MYDB_ECM.GetScalarValue(String.Format("SELECT FORM_ID FROM TBPMO_RECORD WHERE GUID = {0}", oSelectedRecordID))
If ENT_ID > 1 And Entity_Index <> String.Empty Then
WMMOD.SetFileIndex(DOC_PATH, Entity_Index, ENT_ID, _objecttype)
End If
If Record_Index <> String.Empty Then
WMMOD.SetFileIndex(DOC_PATH, Record_Index, SELECTED_RECORDID, _objecttype)
WMMOD.SetFileIndex(DOC_PATH, Record_Index, oSelectedRecordID, _objecttype)
End If
End If
Next
bsiInfo.Caption = $"[{oLinkCount}] records successfully linked - {Now.ToShortTimeString}"
Refresh_Grid_Data(True, Nothing)
Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error in Linking Record to file", ex.Message, ex.StackTrace)
End Try
Next
Dim omsg = $"[{oLinkCount}] Datensätze erfolgreich verknüpft! - {Now.ToShortTimeString}"
If USER_LANGUAGE <> "de-DE" Then
omsg = $"[{oLinkCount}] records successfully linked - {Now.ToShortTimeString}"
End If
MsgBox(omsg, MsgBoxStyle.Information, "orgFLOW")
Refresh_Grid_Data(True, Nothing)
Load_DocGrid_Layout()
grvwGrid.ClearSelection()
End Sub
Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtnitmsaveLayout.ItemClick
Save_DocGrid_Layout()
End Sub
Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick
Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtnitmresetlayout.ItemClick
Reset_View_layout()
End Sub
Sub Reset_View_layout()