Compare commits
3 Commits
540f9bcc12
...
0f518ec8e7
| Author | SHA1 | Date | |
|---|---|---|---|
|
|
0f518ec8e7 | ||
|
|
f2bb6d8380 | ||
|
|
21d045616e |
@@ -886,35 +886,6 @@ Namespace ControlCreator
|
||||
_Logger.Error(ex)
|
||||
End Try
|
||||
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)
|
||||
Dim oRow As DataRowView = pGridView.GetRow(pGridView.FocusedRowHandle)
|
||||
Dim oColumnName = pGridView.FocusedColumn.FieldName
|
||||
|
||||
@@ -3929,14 +3929,14 @@ Public Class frmValidator
|
||||
If COPY_WMFILE_2TEMP = True Then
|
||||
' Optionen konfigurieren
|
||||
Dim options As New DocumentPathHandler.DocumentPathOptions With {
|
||||
.EnableMapping = True,
|
||||
.WMSuffix = WMSUFFIX,
|
||||
.SpecificDrive = If(Len(MAP_SHARE_DRIVE) = 1, MAP_SHARE_DRIVE, ""),
|
||||
.DriveBlacklist = MAP_BLACKLIST,
|
||||
.CopyToTemp = True,
|
||||
.TempFolder = TEMP_DOCUMENT_FOLDER,
|
||||
.UnmapAfterCopy = True
|
||||
}
|
||||
.EnableMapping = True,
|
||||
.WMSuffix = WMSUFFIX,
|
||||
.SpecificDrive = If(Len(MAP_SHARE_DRIVE) = 1, MAP_SHARE_DRIVE, ""),
|
||||
.DriveBlacklist = MAP_BLACKLIST,
|
||||
.CopyToTemp = True,
|
||||
.TempFolder = TEMP_DOCUMENT_FOLDER,
|
||||
.UnmapAfterCopy = True
|
||||
}
|
||||
|
||||
' Verarbeiten
|
||||
Dim result = _documentPathHandler.ProcessDocumentPath(oFilePath_from_DB, options)
|
||||
@@ -3949,6 +3949,7 @@ Public Class frmValidator
|
||||
DocPathWindows = result.FinalPath
|
||||
WMDocPathWindows = oFilePath_from_DB
|
||||
MyValidationLogger.Info($"✓ Dokument verarbeitet: [{Path.GetFileName(result.FinalPath)}]")
|
||||
|
||||
Else
|
||||
MyValidationLogger.Warn($"⚠️ Dokumentpfad-Verarbeitung fehlgeschlagen: {result.ErrorMessage}")
|
||||
MyValidationLogger.Warn($"⚠️ Fallback auf Originalpfad: [{oFilePath_from_DB}]")
|
||||
@@ -3962,6 +3963,7 @@ Public Class frmValidator
|
||||
Return False
|
||||
End If
|
||||
End If
|
||||
CURRENT_DOC_PATH = WMDocPathWindows
|
||||
Else
|
||||
DocPathWindows = oFilePath_from_DB
|
||||
MyValidationLogger.Info($"📄 Verwende Originalpfad: [{oFilePath_from_DB}]")
|
||||
|
||||
Reference in New Issue
Block a user