AppCustom/MultiTool
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Show Errors, Make grids usable when no mandator is selected, move completed files also when reloading

Browse Source
This commit is contained in:
Jonathan Jenne
2022-04-19 15:33:44 +02:00
parent 9be55f3709
commit 1bef72d65c
12 changed files with 453 additions and 294 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
MultiTool.Common/Documents/DocumentRow.vb
View File

@@ -39,7 +39,7 @@ Namespace Documents
Get
Return Fields.
Where(Function(f) f.Value.HasError).
Select(Function(f) f.Key).ToList()
Select(Function(f) $"{f.Key} has Error: {f.Value.Error}").ToList()
End Get
End Property
@@ -56,7 +56,7 @@ Namespace Documents
Private _External As String = ""
Private _Original As String = ""
Public Property DataType As Constants.ColumnType = Constants.ColumnType.String
Public Property DataType As ColumnType = ColumnType.String
Public Property [Error] As FieldError = FieldError.None
Public Sub New()
@@ -117,7 +117,7 @@ Namespace Documents
Return Final
End Function
Private Function FormatValue(pValue As String, pType As Constants.ColumnType) As String
Private Function FormatValue(pValue As String, pType As ColumnType) As String
Select Case pType
Case ColumnType.Decimal
Return FormatDecimalValue(pValue)
@@ -131,11 +131,11 @@ Namespace Documents
''' This function will capture values like below and format them according to winline format values
'''
''' 1000
''' 1.000.000
''' 1.000.000,00
''' 1.000
''' 1.000,00
''' </summary>
''' <param name="pValue">A string value that represents a number</param>
''' <returns>A string value which contains at dot (.) as the decimal divider</returns>
''' <returns>A string value which contains at dot (.) as the decimal divider, ex. 1000.00</returns>
Private Function FormatDecimalValue(pValue As String) As String
If Not pValue.Contains(","c) Then
Return pValue