AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Format

Browse Source
This commit is contained in:
SchreiberM 2023-04-28 14:12:10 +02:00
parent d738b31b4f
commit 1e98e4a9ab
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
app/TaskFlow/frmValidator.vb
View File

@ -3190,8 +3190,9 @@ Public Class frmValidator
Try
Dim oSPlit = Split(oFormatString, ";")
If oSPlit(0) = "Decimal" Then
LOGGER.Debug("FORMAT_STRING DECIMAL")
oFormattedValue = oValueFromSource
LOGGER.Debug($"Unformatted String: {oFormattedValue}")
Dim oFormattedDec As Decimal = oValueFromSource
If oSPlit.Length = 3 Then
oFormattedValue = $"{oFormattedDec.ToString(oSPlit(1))} {oSPlit(2)}"
@ -3200,6 +3201,7 @@ Public Class frmValidator
Else
oFormatString = oFormatString.Replace("Decimal;", "")
End If
LOGGER.Debug($"Formatted String: {oFormattedValue}")
End If
@ -3231,6 +3233,11 @@ Public Class frmValidator
Dim oSQl = $"SELECT CASE WHEN {oExpression} THEN CONVERT(BIT,1) ELSE CONVERT(BIT,0) END "
Dim oColorName = IIf(DatabaseECM.GetScalarValue(oSQl), oSPlit(1), oSPlit(2))
oControl.BackColor = Color.FromName(oColorName)
If oColorName = "Green" Or oColorName = "Blue" Or oColorName = "Red" Then
oControl.ForeColor = Color.FromName("White")
Else
oControl.ForeColor = Color.FromName("Black")
End If
End If
End If
Catch ex As Exception