clean up
This commit is contained in:
@@ -1,34 +0,0 @@
|
||||
Imports DigitalData.Modules.Base
|
||||
Imports DigitalData.Modules.Database
|
||||
Imports DigitalData.Modules.Logging
|
||||
|
||||
Public Class ClassNodeLoader
|
||||
Inherits BaseClass
|
||||
|
||||
Private ReadOnly Database As MSSQLServer
|
||||
|
||||
Public Sub New(pLogConfig As LogConfig, pDatabase As MSSQLServer)
|
||||
MyBase.New(pLogConfig)
|
||||
Database = pDatabase
|
||||
End Sub
|
||||
|
||||
Public Async Function LoadNodes(pEntityId As Integer) As Task(Of DataTable)
|
||||
Dim oStructureNodeSql = $"SELECT
|
||||
T.GUID,
|
||||
T.RECORD_ID,
|
||||
T.NODE_CONFIG_ID,
|
||||
T.NODE_CAPTION,
|
||||
T.ID1,
|
||||
T.BACK_COLOR,
|
||||
T.PARENT_GUID,
|
||||
T.SEQUENCE,
|
||||
T.TYPE_NODE
|
||||
FROM
|
||||
VWPMO_STRUCTURE_NODES T
|
||||
INNER JOIN VWPMO_CONSTRUCTOR_FORMS T1 ON T.ENTITY_ID = T1.FORM_ID
|
||||
WHERE T.ENTITY_ID = {pEntityId}"
|
||||
Dim oTable = Await Database.GetDatatableAsync(oStructureNodeSql)
|
||||
|
||||
Return oTable
|
||||
End Function
|
||||
End Class
|
||||
Reference in New Issue
Block a user