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

EDMIService: Fix missing table name

Browse Source
This commit is contained in:
Jonathan Jenne 2021-01-05 16:04:27 +01:00
parent 964958334b
commit 9cfdacb6f8
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Service.EDMIService/EDMIService.vb
View File

@ -127,6 +127,7 @@ Public Class EDMIService
Try Try
_Logger.Info($"ReturnDatatable_MSSQL_IDB, SQL: {SQL}") _Logger.Info($"ReturnDatatable_MSSQL_IDB, SQL: {SQL}")
Dim oResult As DataTable = MSSQL_IDB.GetDatatable(SQL) Dim oResult As DataTable = MSSQL_IDB.GetDatatable(SQL)
oResult.TableName = "DD_RESULT"
Return New TableResult(oResult) Return New TableResult(oResult)
Catch ex As FaultException Catch ex As FaultException
@ -183,6 +184,7 @@ Public Class EDMIService
Try Try
_Logger.Info($"ReturnDatatable_MSSQL_ECM, SQL: {SQL}") _Logger.Info($"ReturnDatatable_MSSQL_ECM, SQL: {SQL}")
Dim oResult As DataTable = MSSQL_ECM.GetDatatable(SQL) Dim oResult As DataTable = MSSQL_ECM.GetDatatable(SQL)
oResult.TableName = "DD_RESULT"
Return New TableResult(oResult) Return New TableResult(oResult)
Catch ex As FaultException Catch ex As FaultException
@ -239,6 +241,7 @@ Public Class EDMIService
Try Try
_Logger.Info($"ReturnDatatable, SQL: {SQL}") _Logger.Info($"ReturnDatatable, SQL: {SQL}")
Dim oResult As DataTable = Firebird.GetDatatable(SQL) Dim oResult As DataTable = Firebird.GetDatatable(SQL)
oResult.TableName = "DD_RESULT"
Return New TableResult(oResult) Return New TableResult(oResult)
Catch ex As FaultException Catch ex As FaultException