From 9cfdacb6f88c307406d481755c9e0c5a34bc0f6b Mon Sep 17 00:00:00 2001
From: Jonathan Jenne <j.jenne@digitaldata.works>
Date: Tue, 5 Jan 2021 16:04:27 +0100
Subject: [PATCH] EDMIService: Fix missing table name

---
 Service.EDMIService/EDMIService.vb | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/Service.EDMIService/EDMIService.vb b/Service.EDMIService/EDMIService.vb
index a64eb0ca..19e6a493 100644
--- a/Service.EDMIService/EDMIService.vb
+++ b/Service.EDMIService/EDMIService.vb
@@ -127,6 +127,7 @@ Public Class EDMIService
         Try
             _Logger.Info($"ReturnDatatable_MSSQL_IDB, SQL: {SQL}")
             Dim oResult As DataTable = MSSQL_IDB.GetDatatable(SQL)
+            oResult.TableName = "DD_RESULT"
             Return New TableResult(oResult)
 
         Catch ex As FaultException
@@ -183,6 +184,7 @@ Public Class EDMIService
         Try
             _Logger.Info($"ReturnDatatable_MSSQL_ECM, SQL: {SQL}")
             Dim oResult As DataTable = MSSQL_ECM.GetDatatable(SQL)
+            oResult.TableName = "DD_RESULT"
             Return New TableResult(oResult)
 
         Catch ex As FaultException
@@ -239,6 +241,7 @@ Public Class EDMIService
         Try
             _Logger.Info($"ReturnDatatable, SQL: {SQL}")
             Dim oResult As DataTable = Firebird.GetDatatable(SQL)
+            oResult.TableName = "DD_RESULT"
             Return New TableResult(oResult)
 
         Catch ex As FaultException