3 Commits

Author SHA1 Message Date
Developer01
0f518ec8e7 Spalten in Grid die einen Dialog habenw erden nun nicht mehr grau angezeigt 2026-06-23 14:07:45 +02:00
Developer01
f2bb6d8380 log geleert 2026-06-19 12:46:31 +02:00
Developer01
21d045616e Verbesserung der Dokumentpfad-Verarbeitung
In der `frmValidator.vb`-Datei wurde die Formatierung des
`DocumentPathOptions`-Objekts zur besseren Lesbarkeit angepasst.
Ein neuer `Else`-Zweig protokolliert Warnungen bei
Dokumentpfad-Verarbeitungsfehlern und greift auf den Originalpfad
zurück. Eine neue Zeile setzt `CURRENT_DOC_PATH` bei erfolgreicher
Verarbeitung. Im `logtaskflow.txt`-Protokoll wurden detaillierte
Debug- und Info-Meldungen hinzugefügt, die den Prozess des
automatischen Mappens eines Netzlaufwerks und das Kopieren von
Dateien in einen temporären Ordner beschreiben.
2026-06-19 12:46:09 +02:00
2 changed files with 10 additions and 37 deletions

View File

@@ -886,35 +886,6 @@ Namespace ControlCreator
_Logger.Error(ex) _Logger.Error(ex)
End Try End Try
End Sub End Sub
' *** NEU: Visuelle Kennzeichnung für dynamische Editoren ***
AddHandler pGridView.CustomDrawCell,
Sub(sender As Object, e As RowCellCustomDrawEventArgs)
Try
' Nur für dynamische Editor-Spalten
If Not _DynamicEditorColumns.Contains(e.Column.FieldName) Then Return
' Zellwert abrufen
Dim cellValue = pGridView.GetRowCellValue(e.RowHandle, e.Column.FieldName)
' Wenn Zelle LEER ist → grau einfärben
If cellValue Is Nothing OrElse IsDBNull(cellValue) OrElse String.IsNullOrWhiteSpace(cellValue.ToString()) Then
' Helles Grau als Hintergrund
e.Appearance.BackColor = Color.FromArgb(240, 240, 240)
e.Appearance.ForeColor = Color.Gray
Else
' Wert vorhanden → Standardfarbe (nur bei Fokus-Wechsel)
' WICHTIG: Nicht überschreiben, wenn Zelle selektiert ist!
If Not e.Appearance.BackColor.Equals(SystemColors.Highlight) Then
e.Appearance.BackColor = Color.White
e.Appearance.ForeColor = Color.Black
End If
End If
Catch ex As Exception
_Logger.Error("[CustomDrawCell] Error: {0}", ex.Message)
_Logger.Error(ex)
End Try
End Sub
AddHandler pGridView.ValidatingEditor, Sub(sender As Object, e As BaseContainerValidateEditorEventArgs) AddHandler pGridView.ValidatingEditor, Sub(sender As Object, e As BaseContainerValidateEditorEventArgs)
Dim oRow As DataRowView = pGridView.GetRow(pGridView.FocusedRowHandle) Dim oRow As DataRowView = pGridView.GetRow(pGridView.FocusedRowHandle)
Dim oColumnName = pGridView.FocusedColumn.FieldName Dim oColumnName = pGridView.FocusedColumn.FieldName

View File

@@ -3929,14 +3929,14 @@ Public Class frmValidator
If COPY_WMFILE_2TEMP = True Then If COPY_WMFILE_2TEMP = True Then
' Optionen konfigurieren ' Optionen konfigurieren
Dim options As New DocumentPathHandler.DocumentPathOptions With { Dim options As New DocumentPathHandler.DocumentPathOptions With {
.EnableMapping = True, .EnableMapping = True,
.WMSuffix = WMSUFFIX, .WMSuffix = WMSUFFIX,
.SpecificDrive = If(Len(MAP_SHARE_DRIVE) = 1, MAP_SHARE_DRIVE, ""), .SpecificDrive = If(Len(MAP_SHARE_DRIVE) = 1, MAP_SHARE_DRIVE, ""),
.DriveBlacklist = MAP_BLACKLIST, .DriveBlacklist = MAP_BLACKLIST,
.CopyToTemp = True, .CopyToTemp = True,
.TempFolder = TEMP_DOCUMENT_FOLDER, .TempFolder = TEMP_DOCUMENT_FOLDER,
.UnmapAfterCopy = True .UnmapAfterCopy = True
} }
' Verarbeiten ' Verarbeiten
Dim result = _documentPathHandler.ProcessDocumentPath(oFilePath_from_DB, options) Dim result = _documentPathHandler.ProcessDocumentPath(oFilePath_from_DB, options)
@@ -3949,6 +3949,7 @@ Public Class frmValidator
DocPathWindows = result.FinalPath DocPathWindows = result.FinalPath
WMDocPathWindows = oFilePath_from_DB WMDocPathWindows = oFilePath_from_DB
MyValidationLogger.Info($"✓ Dokument verarbeitet: [{Path.GetFileName(result.FinalPath)}]") MyValidationLogger.Info($"✓ Dokument verarbeitet: [{Path.GetFileName(result.FinalPath)}]")
Else Else
MyValidationLogger.Warn($"⚠️ Dokumentpfad-Verarbeitung fehlgeschlagen: {result.ErrorMessage}") MyValidationLogger.Warn($"⚠️ Dokumentpfad-Verarbeitung fehlgeschlagen: {result.ErrorMessage}")
MyValidationLogger.Warn($"⚠️ Fallback auf Originalpfad: [{oFilePath_from_DB}]") MyValidationLogger.Warn($"⚠️ Fallback auf Originalpfad: [{oFilePath_from_DB}]")
@@ -3962,6 +3963,7 @@ Public Class frmValidator
Return False Return False
End If End If
End If End If
CURRENT_DOC_PATH = WMDocPathWindows
Else Else
DocPathWindows = oFilePath_from_DB DocPathWindows = oFilePath_from_DB
MyValidationLogger.Info($"📄 Verwende Originalpfad: [{oFilePath_from_DB}]") MyValidationLogger.Info($"📄 Verwende Originalpfad: [{oFilePath_from_DB}]")