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

DocLoading

Browse Source
This commit is contained in:
Developer01
2025-09-19 15:14:19 +02:00
parent 2f7a038023
commit 1cd1578608
8 changed files with 40 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
app/DD-Record-Organizer/frmWM_CreateVersion.vb
View File

@@ -13,7 +13,7 @@ Public Class frmWM_CreateVersion
'Dim odwVersionId = MYDB_ECM.GetScalarValue(oSql)
'Dim oInsert = $"INSERT INTO TBPMO_DOC_ID_CHANGED (USER_ID,PROCESS_ID,VERSION_ID,OLD_DOC_ID,DOC_PATH) VALUES ({USER_GUID},'{ProcID.ToString}',{odwVersionId},{BW_DocID},'{BW_DocPath}')"
'MYDB_ECM.ExecuteNonQuery(oInsert)
Dim sql = $"SELECT DocID from VWPMO_DOC_SYNC Where FULL_FILENAME = '{ClassFileResult.DocumentPath}'"
Dim sql = $"SELECT DocID from VWPMO_DOC_SYNC Where dwParentID = {ClassFileResult.ParentID} and Filename = '{ClassFileResult.FileName}'"
Dim VERSION = MYDB_ECM.GetScalarValue(sql)
If Not IsNothing(VERSION) Then
VERSION = VERSION + 1