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

MS Structure Nodes

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2018-10-02 17:15:26 +02:00
parent 04ffe61b4d
commit 609df5b5c5
39 changed files with 2504 additions and 2023 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -227,9 +227,15 @@
Dim drarray() As DataRow = CURRENT_SQL_AUTO_VALUES_DT.Select("GUID = " & ControlId)
If drarray.Length > 0 Then
Dim ID = drarray(0)("CONNECTION_ID").ToString
Dim ID
Try
ID = drarray(0)("CONNECTION_ID_1").ToString
Catch ex As Exception
ID = drarray(0)("CONNECTION_ID").ToString
End Try
If Not IsNothing(ID) Then
Sql = drarray(0)("SQL_COMMAND").ToString
Sql = drarray(0)("SQL_COMMAND_1").ToString
Sql = ClassControlValues.ReplaceSqlCommandPlaceholders(Sql, recordId, parentRecordId, entity_ID)
autoValue = ClassDatabase.Execute_ScalarWithConnection(ID, Sql)
Else
@@ -258,8 +264,8 @@
End If
Catch ex As Exception
MsgBox("Unexpected Error in LoadValueMain:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
ClassLogger.Add("Unexpected Error in LoadValueMain: " & ex.Message, True)
ClassLogger.Add(String.Format("ControlID: {0}" & vbNewLine & "recordid: {1}" & vbNewLine & "parentRecordId: {2}" & vbNewLine & "value: {3}" & vbNewLine & "entity_ID: {4}" & vbNewLine & "VARIABLE_VALUE: {5}", ControlId, recordId, parentRecordId, value, entity_ID, VARIABLE_VALUE), False)
ClassLogger.Add("Unexpected Error in LoadValueMain: " & ex.Message, True)
ClassLogger.Add(String.Format("ControlID: {0}" & vbNewLine & "recordid: {1}" & vbNewLine & "parentRecordId: {2}" & vbNewLine & "value: {3}" & vbNewLine & "entity_ID: {4}" & vbNewLine & "VARIABLE_VALUE: {5}", ControlId, recordId, parentRecordId, value, entity_ID, VARIABLE_VALUE), False)
End Try
End Sub
@@ -323,7 +329,14 @@
Dim drarray() As DataRow = CURRENT_SQL_AUTO_VALUES_DT.Select("CONTROL_ID = " & ControlId)
If drarray.Length > 0 Then
Dim autoValue
Dim ID = drarray(0)("CONNECTION_ID").ToString
Dim ID
Try
ID = drarray(0)("CONNECTION_ID_1").ToString
Catch ex As Exception
ID = drarray(0)("CONNECTION_ID").ToString
End Try
Dim Sql = drarray(0)("SQL_COMMAND").ToString
If Not IsNothing(ID) Then
autoValue = ClassDatabase.Execute_ScalarWithConnection(ID, Sql)