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

Personalakte

Browse Source
This commit is contained in:
Developer01
2025-06-18 09:33:52 +02:00
parent 0159fa79c4
commit cfe631a568
18 changed files with 561 additions and 345 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
app/DD-Record-Organizer/Classes/ClassDocGrid.vb
View File

@@ -16,6 +16,8 @@ Public Class ClassDocGrid
Public Property Filename As String
Public Property DisplayName As String
Public Property DocType As String
Public Property InWork As Boolean
Public Property InWorkUser As String
End Class
Private ReadOnly GridView As GridView
@@ -109,13 +111,16 @@ Public Class ClassDocGrid
Dim oDocPath = pGridView.GetRowCellValue(oRowHandle, "FULLPATH")
Dim oObjecttype = pGridView.GetRowCellValue(oRowHandle, "OBJECTTYPE")
Dim oFilename = pGridView.GetRowCellValue(oRowHandle, "Dateiname")
Dim oInWork = pGridView.GetRowCellValue(oRowHandle, "in work?")
Dim oInWorkUser = pGridView.GetRowCellValue(oRowHandle, "in work User")
oDocuments.Add(New clsWMDoc With {
.DocId = oDocId,
.DocPath = oDocPath,
.DocType = oObjecttype,
.DisplayName = oDisplayName,
.Filename = oFilename
.Filename = oFilename,
.InWork = oInWork,
.InWorkUser = oInWorkUser
})
Next

6
app/DD-Record-Organizer/Classes/ClassFileResult.vb
View File

@@ -14,9 +14,6 @@ Public Class ClassFileResult
upd = String.Format("UPDATE TBPMO_DOCRESULT_LIST SET Change_DateTime = GETDATE(), IN_WORK = {0}, IN_WORK_USER = '{1}', IN_WORK_COMMENT = '{2}' WHERE DocID = {3}", state, USER_USERNAME, comment, DocID)
End If
If MYDB_ECM.ExecuteNonQuery(upd) = True Then
'If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
' MYDB_ECM.ExecuteNonQuery(upd)
'End If
InWork = True
Return True
Else
@@ -32,9 +29,6 @@ Public Class ClassFileResult
Dim upd As String
upd = String.Format("UPDATE TBPMO_DOCRESULT_LIST SET DISPLAY_NAME = '{0}',CHANGED_WHO = '{2}',Change_DateTime = GETDATE() WHERE DocID = {1}", Displayname, DocID, USER_USERNAME)
If MYDB_ECM.ExecuteNonQuery(upd) = True Then
'If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
' MYDB_ECM.ExecuteNonQuery(upd)
'End If
Return True
Else
Return False

2
app/DD-Record-Organizer/Classes/ClassImport_Windream.vb
View File

@@ -108,7 +108,7 @@ Public Class ClassImport_Windream
myLogger = LOGCONFIG.GetLogger()
Dim FILE_DELIMITER, VERSION_DELIMITER, _WDOBJECTTYPE, _NewFileString As String
Dim sql As String = "select VERSION_DELIMITER, FILE_DELIMITER FROM TBDD_MODULES where NAME = 'Global-Indexer'"
Dim sql As String = "select TOP 1 VERSION_DELIMITER, FILE_DELIMITER FROM TBDD_MODULES where NAME In ('fileFLOW', 'Global-Indexer')"
Dim DT1 As DataTable = MYDB_ECM.GetDatatable(sql)
FILE_DELIMITER = DT1.Rows(0).Item("FILE_DELIMITER")
VERSION_DELIMITER = DT1.Rows(0).Item("VERSION_DELIMITER")

1
app/DD-Record-Organizer/Classes/ClassInit.vb
View File

@@ -315,6 +315,7 @@ Public Class ClassInit
Try
USERID_FK_INT_ECM = USER_DT.Rows(0).Item("USERID_FK_INT_ECM")
Catch ex As Exception
LOGGER.Warn("ACHTUNG - Spalte USERID_FK_INT_ECM nicht in FNDD_LOGIN_USER_MODULE enthalten ")
USERID_FK_INT_ECM = 0
End Try
LOGGER.Debug($"USERID_FK_INT_ECM: {USERID_FK_INT_ECM}")

6
app/DD-Record-Organizer/Classes/Controls/ClassControlCommandsUI.vb
View File

@@ -393,10 +393,10 @@ Public Class ClassControlCommandsUI
End Sub
Private Sub UpsertImage(ControlID As Integer, RecordID As Integer, image As Bitmap)
Dim existsSQL As String = "SELECT GUID FROM TBPMO_CONTROL_IMAGE WHERE CONTROL_ID = " & ControlID & " AND RECORD_ID = " & RecordID
Dim exists = MYDB_ECM.ExecuteNonQuery(existsSQL)
Dim existsSQL As String = "SELECT COALESCE(MAX(GUID),0) FROM TBPMO_CONTROL_IMAGE WHERE CONTROL_ID = " & ControlID & " AND RECORD_ID = " & RecordID
Dim exists = MYDB_ECM.GetScalarValue(existsSQL)
If IsNothing(exists) Then
If exists = 0 Then
InsertImage(ControlID, RecordID, image)
Else
UpdateImage(ControlID, RecordID, image)