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

DAtabase integriert

Browse Source
This commit is contained in:
SchreiberM
2023-05-22 16:55:44 +02:00
parent 2db575d944
commit c2deb54f11
114 changed files with 8526 additions and 14722 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -35,7 +35,7 @@ Public Class frmDocRecordLink
For Each row As DataRow In CURRENT_DT_SELECTED_FILES.Rows
Dim DOC_ID = row.Item("DOC_ID")
Dim sel = String.Format("select T.RECORD_ID FROM TBPMO_DOC_RECORD_LINK T, TBPMO_RECORD T1 WHERE T.RECORD_ID = T1.GUID AND T1.FORM_ID = {0} AND T.DOC_ID = {1}", CURRENT_LINK_ENTITY_ID, DOC_ID)
Dim DTRECS_LINKED As DataTable = clsDatabase.Return_Datatable(sel)
Dim DTRECS_LINKED As DataTable = MYDB_ECM.GetDatatable(sel)
For Each recrow As DataRow In DTRECS_LINKED.Rows
For Each rowrecsdisplay As DataRow In DT_RECORDS.Rows
If rowrecsdisplay.Item("Record-ID") = recrow.Item("RECORD_ID") Then
@@ -122,7 +122,7 @@ Public Class frmDocRecordLink
Try
Dim SQL As String = String.Format("SELECT DISTINCT FORM_ID,FORM_TITLE,SEQUENCE FROM VWPMO_CONSTRUCTOR_FORMS where CONSTRUCT_ID in " &
"(SELECT CONSTRUCT_ID FROM TBPMO_CONSTRUCTOR_USER WHERE USER_ID = {0}) ORDER BY SEQUENCE", USER_GUID)
Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL)
Dim dt As DataTable = MYDB_ECM.GetDatatable(sql)
Return dt
Catch ex As Exception
MsgBox("Entities could not be loaded in LinkToRecord: " & vbNewLine & ex.Message)
@@ -192,12 +192,12 @@ Public Class frmDocRecordLink
End Sub
Private Function ReturnDataforEntity(oEntityID As Integer) As DataTable
Dim ResultSQL, ResultViewName As String
LOGGER.Debug("GridType = Grid", False)
LOGGER.Debug("GridType = Grid")
ResultViewName = $"VWPMO_ENTITY_TABLE{oEntityID}"
ResultSQL = $"SELECT T.* FROM {ResultViewName} T"
LOGGER.Debug("ResultSQL: " & ResultSQL, False)
Return clsDatabase.Return_Datatable(ResultSQL, True)
LOGGER.Debug("ResultSQL: " & ResultSQL)
Return MYDB_ECM.GetDatatable(ResultSQL)
End Function
Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
@@ -213,7 +213,7 @@ Public Class frmDocRecordLink
If IsNothing(SELECTED_RECORDID) Then
Continue For
End If
LOGGER.Debug(">>> Doc will be linked with Record: " & SELECTED_RECORDID.ToString, False)
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")
@@ -222,12 +222,12 @@ Public Class frmDocRecordLink
clsWindream.MY_WDOBJECTTYPE = _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)
If ClassDatabase.Execute_non_Query(sql_Exec) = False Then
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)
ClassDatabase.Execute_non_Query(proc, True)
MYDB_ECM.ExecuteNonQuery(proc)
End If
Dim msg = String.Format("Der Datensatz wurde erfolgreich verknüpft!")
If USER_LANGUAGE <> "de-DE" Then
@@ -238,30 +238,16 @@ Public Class frmDocRecordLink
oLinkCount += 1
End If
Dim sql = String.Format("SELECT * FROM TBPMO_WD_OBJECTTYPE WHERE OBJECT_TYPE = '{0}'", _objecttype)
Dim DT_OBJTYPE As DataTable = ClassDatabase.Return_Datatable(sql, True)
Dim DT_OBJTYPE As DataTable = MYDB_ECM.GetDatatable(sql)
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 = ClassDatabase.Execute_Scalar(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}", SELECTED_RECORDID))
If ENT_ID > 1 And Entity_Index <> String.Empty Then
If clsWD_SET.IndexFile(DOC_PATH, Entity_Index, ENT_ID, _objecttype) = False Then
'Dim msg = "Die Entität-ID konnte nicht gesetzt werden! Bitte überprüfen Sie die Logfile"
'If USER_LANGUAGE <> "de-DE" Then
' msg = "Could not index Entity-ID! Please check logfile!"
'End If
'MsgBox(msg, MsgBoxStyle.Exclamation)
End If
clsWD_SET.IndexFile(DOC_PATH, Entity_Index, ENT_ID, _objecttype)
End If
If Record_Index <> String.Empty Then
If clsWD_SET.IndexFile(DOC_PATH, Record_Index, SELECTED_RECORDID, _objecttype) = False Then
'Dim msg = "Die Record-ID konnte nicht gesetzt werden! Bitte überprüfen Sie die Logfile"
'If USER_LANGUAGE <> "de-DE" Then
' msg = "Could not index Record-ID! Please check logfile!"
'End If
'MsgBox(msg, MsgBoxStyle.Exclamation)
End If
clsWD_SET.IndexFile(DOC_PATH, Record_Index, SELECTED_RECORDID, _objecttype)
End If
End If
Next