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
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 Try
Dim oSPlit = Split(oFormatString, ";") Dim oSPlit = Split(oFormatString, ";")
If oSPlit(0) = "Decimal" Then If oSPlit(0) = "Decimal" Then
LOGGER.Debug("FORMAT_STRING DECIMAL")
oFormattedValue = oValueFromSource oFormattedValue = oValueFromSource
LOGGER.Debug($"Unformatted String: {oFormattedValue}")
Dim oFormattedDec As Decimal = oValueFromSource Dim oFormattedDec As Decimal = oValueFromSource
If oSPlit.Length = 3 Then If oSPlit.Length = 3 Then
oFormattedValue = $"{oFormattedDec.ToString(oSPlit(1))} {oSPlit(2)}" oFormattedValue = $"{oFormattedDec.ToString(oSPlit(1))} {oSPlit(2)}"
@@ -3200,6 +3201,7 @@ Public Class frmValidator
Else Else
oFormatString = oFormatString.Replace("Decimal;", "") oFormatString = oFormatString.Replace("Decimal;", "")
End If End If
LOGGER.Debug($"Formatted String: {oFormattedValue}")
End If 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 oSQl = $"SELECT CASE WHEN {oExpression} THEN CONVERT(BIT,1) ELSE CONVERT(BIT,0) END "
Dim oColorName = IIf(DatabaseECM.GetScalarValue(oSQl), oSPlit(1), oSPlit(2)) Dim oColorName = IIf(DatabaseECM.GetScalarValue(oSQl), oSPlit(1), oSPlit(2))
oControl.BackColor = Color.FromName(oColorName) 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
End If End If
Catch ex As Exception Catch ex As Exception