The VBScript “DateAdd” allows you to add days to a date. The Syntax is:
DateAdd(interval,number,date)
For example, to add 4 days, you use:
DateAdd(d,4,Now())
The issue is, this doesn’t include weekends. However I fell across this solution thanks to Sholsinger:
Function BusinessDayAdd(delta, dt)
dim weeks, days, day
weeks = Fix(delta/5)
days = delta Mod 5
day = DatePart("w",dt)
If (day = 7) And days > -1 Then
If days = 0 Then
days = days - 2
day = day + 2
End If
days = days + 1
day = day - 7
End If
If day = 1 And days < 1 Then
If days = 0 Then
days = days + 2
day = day - 2
End If
days = days - 1
day = day + 6
End If
If day + days > 6 Then days = days + 2
If day + days < 2 Then days = days - 2
BusinessDayAdd = DateAdd("d", (weeks * 7 + days), dt)
End Function
An issue I’ve had a few times in the past with regards BPA (formerly “Taskcentre) is the following error message in a specific scenario. The error is caused when a webservice is called multiple times. Usually the first 2 calls are called correctly, however when called a 3rd time, the error message is thrown.
Oddly, when debugging the issue, if you set BPA to use Fiddler to debug the issue, then the error does not happen.
The error message thrown is:
The operation has timed out .
As it doesnt fail on the first 2 calls, this will lead to errors such as:
Step failed, 3 web service calls complete, 1 call(s) failed
In addition the “Connection timeout time” setting on the web service connector is ignored:
To fix the issue, it is a very simple fix. Simply edit the “iwtskrun.exe.config” file, adding the following just before the closing </configuration> tag.
Recently I’ve had an issue with the primary key on a Full Text Index. This SQL query was helpful in highlighting the primary key which was being used:
SELECT tblOrVw.[name] AS TableOrViewName
,tblOrVw.[type_desc] AS TypeDesc
,tblOrVw.[stoplist_id] AS StopListID
,c.name AS FTCatalogName
,cl.name AS ColumnName
,i.name AS UniqueIdxName
FROM (
SELECT idxs.[object_id]
,idxs.[stoplist_id]
,tbls.[name]
,tbls.[type_desc]
FROM sys.fulltext_indexes idxs
INNER JOIN sys.tables tbls ON tbls.[object_id] = idxs.[object_id]
UNION ALL
SELECT idxs.[object_id]
,idxs.[stoplist_id]
,[name]
,[type_desc]
FROM sys.fulltext_indexes idxs
INNER JOIN sys.VIEWS vws ON vws.[object_id] = idxs.[object_id]
) tblOrVw
INNER JOIN sys.fulltext_indexes fi ON tblOrVw.[object_id] = fi.[object_id]
INNER JOIN sys.fulltext_index_columns ic ON ic.[object_id] = tblOrVw.[object_id]
INNER JOIN sys.columns cl ON ic.column_id = cl.column_id
AND ic.[object_id] = cl.[object_id]
INNER JOIN sys.fulltext_catalogs c ON fi.fulltext_catalog_id = c.fulltext_catalog_id
INNER JOIN sys.indexes i ON fi.unique_index_id = i.index_id
AND fi.[object_id] = i.[object_id];
Code initially from here, but has been tweaked slightly.
Received the following error message with a Microsoft Dynamics Nav Client:
The client could not establish a connection to the Microsoft Dynamics NAV Server.
FaultCode = 'Invalid Security'
Reason = 'An error occurred when verifying the security for the message.'
The fix is a simple one. Make sure the date / time is correct both on the client, plus also the server.
Microsoft allow a time difference of up to 5 minutes between client/server. Over 5 minutes is typically not allowed as this can allow “replay attacks” (where credentials and authentication is replayed again at a later date).
A simple explanation of a “replay attack” is available here.
The setting can be changed in Group Policy, but I’d recommend keeping this to the 5 minutes by default.
I’ve recently had an issue installing legacy software on Server 2019. This legacy software uses IIS 7 or newer.
Server 2019 comes with IIS version 10.
Unfortunately the installer could not pick up that a version newer than 7 was installed. This is due to how it checked the registry to find the version installed.
For fix this, I amended the following Registry value using RegEdit:
Within BPA it is possible to add a custom message body. These are not in the documentation, but are very useful. These functions override the standard operation and allow you to modify the document before it is sent by POST.
(In the screenshot below, the word “TEST” appears before the XML generated as part of the input step.)
Operations need to be wrapped within Curly brackets.
A few examples:
{=ThisOperation.XML}
The XML created from the input data.
{=ThisOperation.JSON}
The JSON created from the input data
{=FunctionCall(ThisOperation.XML)}
Call the function “FunctionCall” passing in the XML Input Data.
{=ThisOperation.Parameters(“ParameterName”)}
The parameter “ParameterName”.
Multiple steps can be wrapped together too, for example:
This calls the “BuildRequest” function, passing in the XML, the text “CREATE” and the inputparameter “APIKEY”. The output is wrote into the body of the message.
The following handy script will show the size of tables, sorted by size.
SELECT schema_name(tab.schema_id) + '.' + tab.name AS [table]
,cast(sum(spc.used_pages * 8) / 1024.00 AS NUMERIC(36, 2)) AS used_mb
,cast(sum(spc.total_pages * 8) / 1024.00 AS NUMERIC(36, 2)) AS allocated_mb
FROM sys.tables tab
INNER JOIN sys.indexes ind ON tab.object_id = ind.object_id
INNER JOIN sys.partitions part ON ind.object_id = part.object_id
AND ind.index_id = part.index_id
INNER JOIN sys.allocation_units spc ON part.partition_id = spc.container_id
GROUP BY schema_name(tab.schema_id) + '.' + tab.name
ORDER BY sum(spc.used_pages) DESC
I use http://mockbin.org/ to test web service calls, and quite recently have been using it with BPA in order to test integrations when access to a live service is not available.
Recently I’ve had an issue with BPA not picking up MockBin correctly and completely ignoring the data which has been returned via the web service call.
After lots of head scratching, in order to fix this, I had to add the headers of “charset: utf-8”. After adding this, Mockbin works perfectly with BPA.
With Microsoft Teams, it is possible to create webhooks. A webhook is an URL which is opened up to the internet and allows other applications to interact with the application.
In the case of teams, these webhooks allow notifications to be shown in Microsoft Teams.
The document which is sent to Teams via the webhook is in JSON format, and teams then takes this JSON and displays accordingly.
{
"type": "AdaptiveCard",
"$schema": "https://adaptivecards.io/schemas/adaptive-card.json",
"version": "1.0",
"padding": "none",
"body": [
{
"type": "Container",
"style": "emphasis",
"items": [
{
"type": "ColumnSet",
"columns": [
{
"type": "Column",
"width": "stretch",
"items": [
{
"type": "TextBlock",
"text": "**SATISFACTION SURVEY**",
"weight": "bolder"
}
]
},
{
"type": "Column",
"items": [
{
"type": "Image",
"horizontalAlignment": "Right",
"verticalContentAlignment": "center",
"url": "https://qms3.blob.core.windows.net/test/servicenow.png",
"height": "20px",
"altText": "Service Now Logo"
}
]
}
]
}
]
},
{
"type": "Container",
"padding": {
"right": "padding",
"left": "padding"
},
"items": [
{
"type": "TextBlock",
"text": "Help us improve by taking our short satisfaction survey.",
"weight": "bolder",
"wrap": true
}
]
},
{
"type": "Container",
"padding": {
"right": "padding",
"left": "padding",
"bottom": "padding"
},
"items": [
{
"type": "TextBlock",
"text": "1\. How satisfied were you with the response time to your incident?",
"wrap": true
},
{
"type": "Input.ChoiceSet",
"id": "responseTime",
"isRequired": true,
"placeholder": "Select a rating",
"choices": [
{
"title": "Very Satisfied",
"value": "1"
},
{
"title": "Not Satisfied",
"value": "2"
}
]
},
{
"type": "TextBlock",
"text": "2\. How courteous and respectful was the technician who responded to your query?",
"wrap": true
},
{
"type": "Input.ChoiceSet",
"id": "technicianQuery",
"isRequired": true,
"placeholder": "Select a rating",
"choices": [
{
"title": "Excellent",
"value": "1"
},
{
"title": "Very Good",
"value": "2"
}
]
},
{
"type": "TextBlock",
"text": "3\. Was the technician able to resolve your issue during their first consultation?",
"wrap": true
},
{
"type": "Input.ChoiceSet",
"id": "firstConsultation",
"isRequired": true,
"isMultiSelect": false,
"style": "expanded",
"choices": [
{
"title": "Yes",
"value": "yes"
},
{
"title": "No",
"value": "no"
}
]
},
{
"type": "TextBlock",
"text": "4\. How satisfied are you with the overall service experience?",
"wrap": true
},
{
"type": "Input.ChoiceSet",
"id": "OverallRating",
"isRequired": true,
"placeholder": "Select a rating",
"choices": [
{
"title": "Excellent",
"value": "1"
},
{
"title": "Very Good",
"value": "2"
}
]
},
{
"type": "TextBlock",
"text": "5\. Is there any other comment you would like us to know?",
"wrap": true
},
{
"type": "Input.Text",
"id": "comment",
"isMultiline": true,
"placeholder": "Add a comment"
},
{
"type": "ActionSet",
"actions": [
{
"type": "Action.Http",
"method": "POST",
"title": "Submit",
"isPrimary": true,
"body": "{"responseTime": "{{responseTime.value}}", "technicianQuery":"{{technicianQuery.value}}", "firstConsultation":"{{firstConsultation.value}}", "OverallRating":"{{OverallRating.value}}" }",
"url": "https://actionsplayground.azurewebsites.net/workspaces/IREXSqpHRk-hkfa7y7CAAw"
}
]
}
]
}
]
}
Designing these cards can be quite complex and time consuming, however the following websites are very useful, as these allow you to experiment with the JSON and visually show the results:
Recently I’ve had an issue where some text was presented in a table, and I needed to normalise the text.
For example:
TESTiNG 123
Would need to become:
Testing 123
With thanks to Justin Cooney this was possible using the SQL below:
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE FUNCTION NormalizeCase (@InputString VARCHAR(8000))
RETURNS VARCHAR(8000)
AS
BEGIN
DECLARE @OutputString VARCHAR(500)
DECLARE @Location INT
SET @Location = 1
-- Pre-set to a character string if the input string exists and has a length. otherwise the out string remains a NULL
IF DATALENGTH(@InputString) &amp;amp;amp;gt; 0
BEGIN
SET @OutputString = ''
END
WHILE @Location &amp;amp;amp;lt;= DATALENGTH(@InputString)
BEGIN
DECLARE @CheckCharacter VARCHAR(1)
DECLARE @PrevCheckCharacter VARCHAR(1)
DECLARE @OutCharacter VARCHAR(1)
-- Set the current character to lower case in case a capitalization condition is not met.
SELECT @CheckCharacter = LOWER(SUBSTRING(@InputString, @Location, 1))
SELECT @PrevCheckCharacter = SUBSTRING(@InputString, @Location - 1, 1)
-- Set the current letter to uppercase if the preceeding letter is a non-letter character
-- and the current character is a letter
IF @PrevCheckCharacter NOT LIKE '[a-z]'
AND @CheckCharacter LIKE '[a-z]'
BEGIN
SELECT @OutCharacter = UPPER(@CheckCharacter)
END
ELSE
BEGIN
SELECT @OutCharacter = @CheckCharacter
END
SET @OutputString = @OutputString + @OutCharacter
SET @Location = @Location + 1
END
RETURN @OutputString
END
GO
The code can be used as follows:
SELECT dbo.NormalizeCase('THIS IS a reaLLY GooD example')
