SQL Scripts for Microsoft Dynamics GP: Custom Purchase Order Email Notification to Originator on Workflow Final Approval

Microsoft Dynamics GPThis script is part of the SQL Scripts for Microsoft Dynamics GP where I will be posted the scripts I wrote against Microsoft Dynamics GP over the 19 years before I stopped working with Dynamics GP.

This script creates a custom notification to the originator of a workflow process when the document is final approved; this was created due to a bug in Dynamics GP whereby the notifications were being sent incorrectly. This bug may have been corrected in subsequent versions, but I am sharing the script in case it is useful to anyone else.

Due to needing the email address, which may not be accessible through any of the tables in the Dynamics GP database, a custom table is created in the system database (called DYNAMICS by default) and will need to be populated with the ADLogin and email address for all users who will be the originator for purchase orders.


/*
Created by Ian Grieve of azurecurve | Ramblings of an IT Professional (http://www.azurecurve.co.uk) This code is licensed under the Creative Commons Attribution-NonCommercial-ShareAlike 4.0 International (CC BY-NC-SA 4.0 Int). */
USE DYNAMICS GO CREATE TABLE ut_ARCCRV_WorflowOriginatorEmails ( ADLogin VARCHAR(200) ,EMail VARCHAR(200) ) GO

The main part of the script needs to be created in each database in which PO approval workflows are being used.

The email sent includes the lines of the PO in a table; you can customise these lines or the format of the email further, as shown in this series I did in 2017.

USE [TWO]
CREATE TRIGGER utr_AZRCRV_POP10100_WorkflowFinalApproved ON POP10100 AFTER UPDATE AS
/*
Created by Ian Grieve of azurecurve | Ramblings of an IT Professional (http://www.azurecurve.co.uk) This code is licensed under the Creative Commons Attribution-NonCommercial-ShareAlike 4.0 International (CC BY-NC-SA 4.0 Int). */
DECLARE @EmailRecipient VARCHAR(100) DECLARE @EmailSubject VARCHAR(1000) DECLARE @EmailBody VARCHAR(MAX) DECLARE @EmailBody_POLines VARCHAR(MAX) DECLARE @POLines VARCHAR(MAX) IF (SELECT CASE WHEN i.Workflow_Status = 6 AND d.Workflow_Status <> 6 THEN 1 ELSE 0 END FROM inserted as i INNER JOIN deleted AS d on d.PONUMBER = i.PONUMBER) = 1 BEGIN WITH ['Workflow Status'] AS ( SELECT i.PONUMBER ,['Workflow History'].Workflow_History_User ,['Originator Email Address'].EMail ,['Workflow History'].Workflow_Action ,['Workfow Users'].ADDisplayName ,ROW_NUMBER() OVER(PARTITION BY i.PONUMBER ORDER BY i.PONUMBER, ['Workflow History'].DEX_ROW_ID DESC) AS RowNumber FROM inserted AS i INNER JOIN WFI10002 AS ['Workflow Instance Master'] --Workflow Instance Master (WFI10002) ON ['Workflow Instance Master'].WfBusObjKey = i.PONUMBER INNER JOIN WF30100 AS ['Workflow History'] --Workflow History (WF30100) ON ['Workflow History'].WorkflowInstanceID = ['Workflow Instance Master'].WorkflowInstanceID INNER JOIN ut_ARCCRV_WorflowOriginatorEmails AS ['Originator Email Address'] ON ['Originator Email Address'].ADLogin = ['Workflow Instance Master'].Workflow_Originator INNER JOIN WF40200 AS ['Workfow Users'] --Workflow Users (WF40200) ON ['Workfow Users'].UsersListGuid = ['Workflow History'].Workflow_Step_Assign_To ) SELECT @EmailRecipient = RTRIM(CAST(['Workflow Status'].EMail AS VARCHAR(100))) ,@EmailSubject = 'Purchase Order ' + RTRIM(CAST(['Workflow Status'].PONUMBER AS VARCHAR(100))) + ' has been Final Approved' ,@EmailBody = 'Purchase Order ' + RTRIM(CAST(['Workflow Status'].PONUMBER AS VARCHAR(100))) + ' has been Final Approved by ' + RTRIM(CAST(['Workflow Status'].ADDisplayName AS VARCHAR(100))) + '.' + CHAR(10) + CHAR(10) FROM ['Workflow Status'] WHERE ['Workflow Status'].RowNumber = 1 -- add PO lines SELECT @POLines = COALESCE(@POLines + '', '') + '<tr><td width="91" style="width:68.25pt;border:solid #3B5E87 1.0pt;background:#C6D4E8;padding:1.5pt 1.5pt 1.5pt 1.5pt"> <p class="MsoNormal"><span style="font-size:8.0pt;font-family:"Verdana",sans-serif;color:black;letter-spacing:-1.0pt"></span><b><span style="font-size:8.0pt;font-family:"Verdana",sans-serif;letter-spacing:-1.0pt;mso-fareast-language:EN-GB"><o:p></o:p></span></b></p> <p class="MsoNormal"><b><span style="font-size:8.0pt;font-family:"Verdana",sans-serif;color:black;letter-spacing:-1.0pt">' + 'Item Number' + '</span></b><b><span style="font-size:8.0pt;font-family:"Verdana",sans-serif;letter-spacing:-1.0pt"><o:p></o:p></span></b></p></td><td width="188" style="width:141.0pt;border:solid #3B5E87 1.0pt;border-left:none;background:#C6D4E8;padding:1.5pt 1.5pt 1.5pt 1.5pt"> <p class="MsoNormal"><b><span style="font-size:8.0pt;font-family:"Verdana",sans-serif;color:black;letter-spacing:-1.0pt">' + 'Item Description' + '</span></b><b><span style="font-size:8.0pt;font-family:"Verdana",sans-serif;letter-spacing:-1.0pt"><o:p></o:p></span></b></p></td><td width="84" style="width:63.0pt;border:solid #3B5E87 1.0pt;border-left:none;background:#C6D4E8;padding:1.5pt 1.5pt 1.5pt 1.5pt"> <p class="MsoNormal"><b><span style="font-size:8.0pt;font-family:"Verdana",sans-serif;color:black;letter-spacing:-1.0pt">' + 'Extended Cost' + '</span></b><b><span style="font-size:8.0pt;font-family:"Verdana",sans-serif;letter-spacing:-1.0pt"><o:p></o:p></span></b></p></td></tr>' SELECT @POLines = COALESCE(@POLines + '', '') + '<tr><td width="91" style="width:68.25pt;border:solid #3B5E87 1.0pt;border-top:none;padding:1.5pt 1.5pt 1.5pt 1.5pt"> <p class="MsoNormal"><span style="font-size:8.0pt;font-family:"Verdana",sans-serif;letter-spacing:-1.0pt">' + CAST(RTRIM(['Purchase Order Lines'].ITEMNMBR) AS VARCHAR(100)) + '<o:p></o:p></span></p></td><td width="188" style="width:141.0pt;border-top:none;border-left:none;border-bottom:solid #3B5E87 1.0pt;border-right:solid #3B5E87 1.0pt;padding:1.5pt 1.5pt 1.5pt 1.5pt"> <p class="MsoNormal"><span style="font-size:8.0pt;font-family:"Verdana",sans-serif;letter-spacing:-1.0pt">' + CAST(RTRIM(['Purchase Order Lines'].ITEMDESC) AS VARCHAR(100)) + '<o:p></o:p></span></p></td><td width="84" style="width:63.0pt;border-top:none;border-left:none;border-bottom:solid #3B5E87 1.0pt;border-right:solid #3B5E87 1.0pt;padding:1.5pt 1.5pt 1.5pt 1.5pt"> <p class="MsoNormal"><span style="font-size:8.0pt;font-family:"Verdana",sans-serif;letter-spacing:-1.0pt">' + CAST(RTRIM(['Purchase Order Lines'].EXTDCOST) AS VARCHAR(100)) + '<o:p></o:p></span></p></td></tr>' FROM inserted AS i INNER JOIN POP10110 AS ['Purchase Order Lines'] --Purchase Order Line (POP10110) ON ['Purchase Order Lines'].PONUMBER = i.PONUMBER SELECT @EmailBody = @EmailBody + '<table class="MsoNormalTable" border="0" cellpadding="0"> <tbody> <tr> <td style="padding:.75pt .75pt .75pt .75pt"> <pre><span style="letter-spacing:-1.0pt"><o:p> </o:p></span></pre> <pre><span style="letter-spacing:-1.0pt">PO0002448<o:p></o:p></span></pre> <pre><span style="letter-spacing:-1.0pt"><o:p> </o:p></span></pre> <table class="MsoNormalTable" border="1" cellspacing="0" cellpadding="0" style="border-collapse:collapse;border:none"> <tbody>' + @POLines + '</tbody> </table>' /* https://msdn.microsoft.com/en-us/library/ms190307.aspx */ EXEC msdb.dbo.sp_send_dbmail @profile_name = 'Workflow Notification' ,@recipients = @EmailRecipient ,@subject = @EmailSubject ,@body = @EmailBody ,@body_format ='HTML' END GO

Click to show/hide the SQL Scripts for Microsoft Dynamics GP Series Index

SQL Scripts for Microsoft Dynamics GP
Verify PM Batches Exist
Update Accrued Purchases Distribution on History Receipts from Posting Account Setup
Insert Mfg BOMs from Text File
SQL Function To Return Approver
List of Active Fixed Assets
Insert Manufacturing Routings from Text File
Table Function to Split String on Delimiter
List of Open Payables Transactions
Insert Creditor Item Numbers
Return Top Level BOM for Manufacturing Orders
Custom Purchase Order Email Notification to Originator on Workflow Final Approval
list of Open Payables Distributions
Set New Vendor On Hold if EFT Exists
Set New Vendor On Hold if EFT Exists
Payment Run Apply Query
List GL Transactions
Simple RMA Audit
Change Vendor Change Approvals Joins and Fields
Insert National Accounts from CSV
List GL Accounts With Notes
Import Site Bins From CSV
Remove Multicurrency from Sales Transactions
Change Email Notification Assignment
List General Ledger Transactions (Excluding Year End Journals)
List Taxes Linked to GL Accounts
Allow Workflow Originator to be an Approver
Add Joins and Fields to PM Document Approval Notification Emails
Update Accounts and Distributions on Work Status Sales Transactions from Item Card, Tax Details or Posting Account Setup
Upload and Verify Tax Commodity Codes
Delete Corrupt Extended Pricing Data
Assign All Items to All Site Bins
Sales Transactions (Work) Against a Specific Site
Change Web Service URi
SQL View to Return Quantity Available
Verify Tax Detail Assigned to Vendor
Insert Extended Pricing Price Sheet Header
Prefix Companies Names with System Designator
SQL View to Return Category Linked to Segment 3 in COA
Update Site Descriptions From CSV
Copy Workflow from Source to Destination Database
Extract GL Period Balances
Sales by Customer By Year
Purchased Items With Serial Numbers and Linked Sales Transactions
SQL View to Return Purchase Orders
Select All Primary Keys and Generate ALTER Script
Copy Workflow Calendar from Source to Destination Database
SQL Trigger on PO invoice Insert to Change GL posted Date
Sales by Salesperson By Year
Script to Set Transactions as Included on VAT Daybook Return
SQL Script to Return PO Receipts
Insert Extended Pricing Price Sheet UofM Work
View for Payables Transactions Extract
Export Open/History PM Transactions After a Specified Date
Copy Email Messages from a Source to Destination Database
PO Receipt History View
Insert Extended Pricing Price Sheet Assignments
Extract Payables Transactions from All Companies
List Open Purchase Orders
SQL View to Create Division Tree for Management Reporter
Select Chart of Accounts
Activate Horizontal Scroll Bars for All Existing Users
Workflow Assignment Review
Update Item Replenishment Method for Manufacturing
Get Alpha Characters from an Alphanumeric String
Set Vendor On Hold If EFT Details Changed
List Open Purchase Order Lines
SQL View to Create Division, including UDF 3 and 4, Tree for Management Reporter
Delete Orphaned Vendor EFT Details
Sales Invoice Query
Round Extended Pricing Price Sheet Item Value
Get Numeric Characters from an Alphanumeric String
Trigger to Activate Horizontal Scroll Bars for New Users
View to Return List of Payments and Linked Invoices
Select Duplicate Extended Pricing Price Sheet Work Records
RM Aged Debt Report
Select Next Temporary Creditor ID
Select a List of Vendor Addresses
Set Vendor On Hold When Created
Assembly Transaction Quantities Required
Generate Standard Cost Update Macro from Text File Import
Check for Corrupt Extended Pricing Records
Sales Line Items
Compare Ship To Address on Work Sales Trx Against Customer
SQL View to Return PO Commitment Detail
List Bank Accounts with Linked GL Accounts
Validate and Insert/Update Vendor Emails from a Text File
Return Items with Incorrect Quantities
Set Account Categories To User-Defined Field 2
Check Posting Type for Account (Segment 2)/Account Category Combinations
Update Ship To Name on Work Sales Transactions to Match the Customer Name
List Tax Detail Transactions
Select Tax Details and Related G/L Accounts
Update Account Description by Adding 3rd Segment Description
Update Segment Descriptions from Other Database
Return Opening Balance for Period of Supplied Date
Update Min Order Qty and Average Lead Time on Vendor Item From Text File
List of PM Invoices for Vendors with POs
Select Debit, Credit and Net Change for All Accounts in Date Range
Select All Pending Prepayments
Available Stock for All Items
Item Report
Migrate Vendor Emails from Active Docs to Standard Email Fields
Update Mfg Cost Accounts from Mfg Item Class Setup
PO Commitment Detail
Update Inventory Accounts from Item Class
Create Macro to Delete Items
Update Accounts Payable Distribution on Work Status PM Transactions from Posting Account Setup
Update Item Resource Planning on Item Quantity Master from Text File
SQL View to Return List of Posted Vendor Document Numbers
Update Inventory Distribution on Work Status Purchase Orders from the Item Card
Update Item Engineering File from a Text File
List of Exchange Rates

What should we write about next?

If there is a topic which fits the typical ones of this site, which you would like to see me write about, please use the form, below, to submit your idea.

Your Name

Your Email

Suggested Topic

Suggestion Details

Looking for support or consultancy with Microsoft Dynamics GP?

I no longer work with Microsoft Dynamics GP, but the last company I worked for was ISC Software in the UK; if you’re looking for support or consultancy services with Microsoft Dynamics GP you can contact them here.

Leave a Reply

Your email address will not be published. Required fields are marked *