DocLoading

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

View File

@@ -160,6 +160,7 @@ Public Class ClassDocGrid
End Function
Public Shared Sub GetDocItems(gridView As GridView)
_Helper = New ClassHelper
If Init_Table() = True Then
Console.WriteLine("gridView.SelectedRowsCount: " & gridView.SelectedRowsCount.ToString)

View File

@@ -1,6 +1,8 @@
'Imports DD_LIB_Standards
Public Class ClassFileResult
Public Shared Property DocID As Integer
Public Shared Property ParentID As Integer
Public Shared Property FileName As String
Public Shared Property OldDisplayName As String
Public Shared Property DocumentPath As String
Public Shared InWork As Boolean = False

View File

@@ -22,7 +22,7 @@ Public Class ClassImport_Windream
'Die Datei nach windream importieren
Dim streamresult = WMMOD.NewFileStream(QuellDatei_Path, Targetpath, WMOBJECTTYPE, True)
If streamresult = True Then
Dim sql As String = String.Format("SELECT DocID FROM VWPMO_DOC_SYNC WHERE FULL_FILENAME = '{0}' AND CONVERT(DATE,Change_DateTime) = CONVERT(DATE,GETDATE())", CURRENT_FILEIN_WD)
Dim sql As String = String.Format("SELECT DocID FROM VWPMO_DOC_SYNC WHERE CONVERT(DATE,Change_DateTime) = CONVERT(DATE,GETDATE()) AND FULL_FILENAME = '{0}'", CURRENT_FILEIN_WD)
CURRENT_DOC_ID = MYDB_ECM.GetScalarValue(sql)
sql = $"SELECT * FROM TBDD_INDEX_AUTOM WHERE DOCTYPE_ID = {DOCTYPE_ID} AND ENTITY_ID = {CURRENT_ENTITY_ID}"
Dim dt As DataTable = MYDB_ECM.GetDatatable(sql)