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

Zu testen bei ewa

Browse Source
This commit is contained in:
Developer01
2026-03-18 15:31:59 +01:00
parent a50e7e3c55
commit 1469063ad7
7 changed files with 591 additions and 266 deletions
Download Patch File Download Diff File Expand all files Collapse all files

50
app/DD-Record-Organizer/frmNodeNavigation.vb
View File

@@ -2307,7 +2307,7 @@ Public Class frmNodeNavigation
End If
End If
If CURRENT_RECORD_ID = 0 Then
ClassHelper.MSGBOX_Handler("INFO", "Attention", "Input missing: ", "Please choose a record.")
ClassHelper.MSGBOX_Handler("INFO", "Achtung", "Fokus unklar: ", "Bitte wählen Sie erneut einen Knoten aus!")
Exit Sub
End If
If DROPPED_CHECKED = False Then
@@ -2349,30 +2349,44 @@ Public Class frmNodeNavigation
End If
ClassHelper.REMOVE_OLD_DROP_FILES()
ClassHelper.Create_USER_FILE_TABLE()
If Not IsNothing(CURRENT_TBPMO_FILES_USER) Then
If CURRENT_TBPMO_FILES_USER.Rows.Count > 0 Then
For Each Filerow As DataRow In CURRENT_TBPMO_FILES_USER.Rows
If CBool(Filerow.Item("WORKED")) = False Then
'Dim datei = Str.ToString.Replace("@DROPFROMFSYSTEM@", "")
CURRENT_FILEID = Filerow.Item("GUID")
' CURRENT_PARENT_ENTITY_ID = PARENT_ENTITYID
'CURRENT_RECORD_ID = RECORD_ID
'CURRENT_ENTITY_ID = ENTITY_ID
CURRENT_FORMVIEW_ID = FORMVIEW_ID
frmWM_IndexFile.ShowDialog()
Else
End If
Next
' ✅ ENDLOS-SCHLEIFE: Solange Dateien vorhanden sind, Formular öffnen
Do While True
' ✅ Prüfe, ob noch Dateien vorhanden sind
If CURRENT_TBPMO_FILES_USER Is Nothing OrElse CURRENT_TBPMO_FILES_USER.Rows.Count = 0 Then
NNLogger.Info("Keine weiteren Dateien zu verarbeiten - beende Check_Dropped_Files")
Exit Do
End If
End If
' ✅ Hole die ERSTE unverarbeitete Datei
Dim firstFile = CURRENT_TBPMO_FILES_USER.Rows.Cast(Of DataRow)() _
.Where(Function(r) CBool(r("WORKED")) = False) _
.FirstOrDefault()
If firstFile Is Nothing Then
NNLogger.Info("Alle Dateien wurden verarbeitet - beende Check_Dropped_Files")
Exit Do
End If
' ✅ Setze globale Variablen
CURRENT_FILEID = CInt(firstFile("GUID"))
CURRENT_FORMVIEW_ID = FORMVIEW_ID
NNLogger.Debug($"Öffne frmWM_IndexFile für FileId={CURRENT_FILEID}")
' ✅ Öffne Formular (kann Multi-Indexing ausführen!)
frmWM_IndexFile.ShowDialog()
' ✅ WICHTIG: Lade Dateiliste NEU aus Datenbank!
ClassHelper.Create_USER_FILE_TABLE()
' ✅ Schleife läuft weiter, prüft erneut ob Dateien vorhanden sind
Loop
Catch ex As Exception
NNLogger.Error(ex)
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Check_Dropped_Files: ", ex.Message)
End Try
End Sub
Private Async Sub GridControlDocSearch_DragDrop(sender As Object, e As DragEventArgs) Handles GridControlDocSearch.DragDrop
Await Drag_Drop(e)