DECLARE @TableName varchar (50) = 'Job Queue'
DECLARE @TableName2 varchar (50) = 'Job Queue Entry'

SELECT 
	'SELECT ''' + [Name] + ''' AS "NAV Company ('+ [Name] +')", * FROM [dbo].[' + REPLACE([Name], '.', '_') + '$' + @TableName + ']' AS "Generated Query 1", 
	'SELECT ''' + [Name] + ''' AS "NAV Company ('+ [Name] +')", * FROM [dbo].[' + REPLACE([Name], '.', '_') + '$' + @TableName2 + ']' AS "Generated Query 2"
FROM [dbo].[Company]

OBJECT Codeunit 50006 ADO.Net External Table
{
  OBJECT-PROPERTIES
  {
    Date=11/25/14;
    Time=[ 9:23:03 AM];
    Modified=Yes;
    Version List=;
  }
  PROPERTIES
  {
    OnRun=BEGIN
            SRSetup.GET;
            CLEAR(SQLReader);
            CLEAR(SQLCommand);
            CLEAR(SQLConnection);

            SQLConnection := SQLConnection.SqlConnection('Server=' + SRSetup."SQL Server Name" + ';'
                                                         + 'Database=' + SRSetup."SQL Database Name" + ';'
                                                         + 'User ID=' + SRSetup."SQL Login ID" + ';'
                                                         + 'Password=' + SRSetup."SQL Password" + ';');


            SQLString := 'SELECT * FROM tNavisionOrders WHERE ImportStatus = ' + '''' + 'Pending' + '''' + ';';
            SQLConnection.Open;
            SQLCommand := SQLConnection.CreateCommand();
            SQLCommand.CommandText := SQLString;
            SQLReader := SQLCommand.ExecuteReader;

            SQLReader.Read();
            DateStr := SQLReader.GetSqlValue(1);
            EVALUATE(TestDate,COPYSTR(DateStr,3,2) + '/' + COPYSTR(DateStr,1,2) + '/' + COPYSTR(DateStr,5,4));

            RemoteRefNo := SQLReader.GetSqlValue(0);

            ImportStatus := SQLReader.GetSqlValue(46);

            MESSAGE( 'Reading %1 || %2 || %3',RemoteRefNo,TestDate,ImportStatus);


            SQLString := 'UPDATE tNavisionOrders SET ImportStatus = ' + '''' + 'Imported' + ''''
                       + ' WHERE ImportStatus = ' + '''' + 'Pending' + ''''
                       + ' AND OrderNo = ' + '''' + RemoteRefNo + '''' + ';';

            // Need code to Update the above record (RemoteRefNo) with ImportStatus := 'Imported'

            SQLConnection.Close;
          END;

  }
  CODE
  {
    VAR
      SQLConnection@1000000009 : DotNet "'System.Data, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Data.SqlClient.SqlConnection";
      SQLCommand@1000000008 : DotNet "'System.Data, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Data.SqlClient.SqlCommand";
      SQLReader@1000000007 : DotNet "'System.Data, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Data.SqlClient.SqlDataReader";
      SQLString@1000000005 : Text[1000];
      SRSetup@1000000004 : Record 311;
      TestDate@1000000003 : Date;
      DateStr@1000000002 : Text[250];
      RemoteRefNo@1000000001 : Text[250];
      ImportStatus@1000000000 : Text[250];

    EVENT SQLCommand@1000000008::StatementCompleted@57(sender@1000000001 : Variant;e@1000000000 : DotNet "'System.Data, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Data.StatementCompletedEventArgs");
    BEGIN
    END;

    EVENT SQLCommand@1000000008::Disposed@58(sender@1000000001 : Variant;e@1000000000 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.EventArgs");
    BEGIN
    END;

    EVENT SQLConnection@1000000009::InfoMessage@48(sender@1000000001 : Variant;e@1000000000 : DotNet "'System.Data, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Data.SqlClient.SqlInfoMessageEventArgs");
    BEGIN
    END;

    EVENT SQLConnection@1000000009::StateChange@49(sender@1000000001 : Variant;e@1000000000 : DotNet "'System.Data, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Data.StateChangeEventArgs");
    BEGIN
    END;

    EVENT SQLConnection@1000000009::Disposed@50(sender@1000000001 : Variant;e@1000000000 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.EventArgs");
    BEGIN
    END;

    BEGIN
    END.
  }
}

GRANT CONTROL ON [dbo].[Object] TO [IFACTO\RC-NAV-TECHNICAL] 
GRANT SELECT ON [dbo].[Object] TO [IFACTO\RC-NAV-TECHNICAL] 
GRANT VIEW CHANGE TRACKING ON [dbo].[Object] TO [IFACTO\RC-NAV-TECHNICAL] 
GRANT VIEW DEFINITION ON [dbo].[Object] TO [IFACTO\RC-NAV-TECHNICAL] 
DENY ALTER ON [dbo].[Object] TO [IFACTO\RC-NAV-TECHNICAL] 
DENY DELETE ON [dbo].[Object] TO [IFACTO\RC-NAV-TECHNICAL] 
DENY INSERT ON [dbo].[Object] TO [IFACTO\RC-NAV-TECHNICAL] 
DENY REFERENCES ON [dbo].[Object] TO [IFACTO\RC-NAV-TECHNICAL] 
DENY TAKE OWNERSHIP ON [dbo].[Object] TO [IFACTO\RC-NAV-TECHNICAL] 
DENY UPDATE ON [dbo].[Object] TO [IFACTO\RC-NAV-TECHNICAL]

SELECT TOP 30 -- You can change number of lines
  st.text,
  qs.last_execution_time,
  SUBSTRING(st.text, (qs.statement_start_offset/2) + 1, ((CASE statement_end_offset 
                                                            WHEN -1 THEN DATALENGTH(st.text)
                                                            ELSE qs.statement_end_offset END 
                                                          - qs.statement_start_offset)/2) + 1) as statement_text,
  execution_count,
  case  
    when execution_count = 0 then null
    else total_logical_reads/execution_count 
  end as avg_logical_reads, 
  last_logical_reads,
  min_logical_reads,
  max_logical_reads,
  case  
    when execution_count = 0 then null
    else total_logical_writes/execution_count 
  end as avg_logical_writes, 
  last_logical_writes,
  min_logical_writes,
  max_logical_writes,
  max_elapsed_time  
FROM sys.dm_exec_query_stats as qs
  CROSS APPLY sys.dm_exec_sql_text(qs.sql_handle) as st
WHERE qs.last_execution_time >= dateadd(day, -1, getdate()) -- You can change the datepart and number
ORDER BY max_logical_reads DESC -- You can change to max_logical_writes

Name	                     DataType	        Subtype	        Length
ADOConnection	        Automation	        'Microsoft ActiveX Data Objects 2.8 Library'.Connection	
GLSetup	                     Record	        General Ledger Setup	
ADOCommand	        Automation	        'Microsoft ActiveX Data Objects 2.8 Library'.Command	
ADOParameter	        Automation	         'Microsoft ActiveX Data Objects 2.8 Library'.Parameter	
lvarActiveConnection      Variant		


OnRun()
IF ISCLEAR(ADOConnection) THEN;
  CREATE(ADOConnection);

ADOConnection.ConnectionString := GetConnectionString;
ADOConnection.Open;

IF ISCLEAR(ADOCommand) THEN
  CREATE(ADOCommand);

lvarActiveConnection := ADOConnection;
ADOCommand.ActiveConnection := lvarActiveConnection;

ADOCommand.CommandText := 'sp_start_job';
ADOCommand.CommandType := 4;
ADOCommand.CommandTimeout := 0;

ADOParameter := ADOCommand.CreateParameter('@job_name', 200, 1, 50, GLSetup."Index Job Name");
ADOCommand.Parameters.Append(ADOParameter);
ADOCommand.Execute;

ADOConnection.Close;
---------------------

GetConnectionString() : Text[1024]
GLSetup.GET;
GLSetup.TESTFIELD("Server Name");
GLSetup.TESTFIELD("Index Job Name");

ConnectString := 'Driver={SQL Native Client};'
      + 'Server=' + GLSetup."Server Name" + ';'
      + 'Database=msdb;Trusted_Connection=yes;';
EXIT(ConnectString);

-- recursive CTE to generate numbers like the NAV date table

DECLARE @from AS DATE;
DECLARE @to AS DATE;

SET @from = '2009-01-16';
SET @to = '2009-03-20';


WITH DateTable ([The Date]) AS
(SELECT @to

 UNION ALL
  
 SELECT DATEADD(DAY,-1,[The Date])
 FROM DateTable
 WHERE DATEADD(DAY,-1,[The Date]) >= @from
)
SELECT *
FROM DateTable
ORDER BY [The Date]
OPTION (MAXRECURSION 0)

-- recursive CTE to generate numbers like the NAV Integer table

DECLARE @from AS INTEGER;
DECLARE @to AS INTEGER;

SET @from = -100;
SET @to = 10;

WITH numbertable ([The Integer]) AS
(SELECT @to

 UNION ALL
  
 SELECT [The Integer] - 1
 FROM numbertable
 WHERE [The Integer] - 1 >= @from
)
SELECT *
FROM numbertable
ORDER BY [The Integer]
OPTION (MAXRECURSION 0)

SELECT TEXT, query_plan, requested_memory_kb,
granted_memory_kb,used_memory_kb, wait_order
FROM sys.dm_exec_query_memory_grants MG
CROSS APPLY sys.dm_exec_sql_text(sql_handle)
CROSS APPLY sys.dm_exec_query_plan(MG.plan_handle)

//we build us a temp. reultset
WITH IO_Stats_per_DB
AS
(
  SELECT
    DB_NAME(database_id) AS database_name,
    CAST(SUM(num_of_bytes_read + num_of_bytes_written) / 1048576.
         AS DECIMAL(12, 2)) AS io_in_mb
  FROM sys.dm_io_virtual_file_stats(NULL, NULL) AS DM_IO_Stats
  GROUP BY database_id
)

SELECT
  ROW_NUMBER() OVER(ORDER BY io_in_mb DESC) AS row_num, //we "create" a rowID
  database_name, io_in_mb, CAST(io_in_mb / SUM(io_in_mb) OVER() * 100  AS DECIMAL(5, 2)) AS pct //we create a percent coloumn
FROM IO_Stats_per_DB //we use the temp. reultset
ORDER BY row_num;

With IO_Stats_per_Drive as
(
  select db_name(mf.database_id) as database_name, mf.physical_name,
           left(mf.physical_name, 1) as drive_letter,
           vfs.num_of_writes,
           vfs.num_of_bytes_written as BYTESWRITTEN,
           vfs.io_stall_write_ms,
           mf.type_desc, 
           vfs.num_of_reads, 
           vfs.num_of_bytes_read, 
           vfs.io_stall_read_ms,
           vfs.io_stall, 
           vfs.size_on_disk_bytes
  from 
    sys.master_files mf
  join 
    sys.dm_io_virtual_file_stats(NULL, NULL) vfs
  on 
    mf.database_id=vfs.database_id and mf.file_id=vfs.file_id
)

select database_name,drive_letter, BYTESWRITTEN,
         Percentage = RTRIM(CONVERT(DECIMAL(5,2),
         BYTESWRITTEN*100.0/(SELECT SUM(BYTESWRITTEN) FROM IO_Stats_per_Drive))) + '%'
from 
  IO_Stats_per_Drive
order by 
  BYTESWRITTEN desc