AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

jj 25.04 CURRENCY $$$

Browse Source
This commit is contained in:
Digital Data
2017-04-25 16:47:40 +02:00
parent 29692430d8
commit 5a00b63de1
5 changed files with 114 additions and 36 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
app/DD-Record-Organizer/ClassControlLoader.vb
View File

@@ -297,15 +297,23 @@
Public Shared Sub LoadValue(control As System.Windows.Forms.TextBox, recordId As Integer, parentRecordId As Integer, value As String, entity_ID As Integer, Optional VARIABLE_VALUE As Boolean = False)
Try
Dim ControlId As Integer = DirectCast(control.Tag, ClassControlMetadata).Id
If ControlId = 272 Then
Console.WriteLine("272")
End If
Dim ControlMeta As ClassControlMetadata = DirectCast(control.Tag, ClassControlMetadata)
Dim ControlId As Integer = ControlMeta.Id
Dim ControlFormat As String = ControlMeta.Format
If CURRENT_RECORD_ENABLED = False Then
control.Text = value
If ControlFormat = "Currency" Then
control.Text = ClassHelper.Format_Currency(value, USER_LANGUAGE)
Else
control.Text = value
End If
Else
If VARIABLE_VALUE = True Then
control.Text = value
If ControlFormat = "Currency" Then
control.Text = ClassHelper.Format_Currency(value, USER_LANGUAGE)
Else
control.Text = value
End If
Else
Dim drarray() As DataRow = CURRENT_SQL_AUTO_VALUES_DT.Select("CONTROL_ID = " & ControlId)
If drarray.Length > 0 Then