Dexterity Trigger – Microsoft Great Plains customization example

Microsoft Great Plains has multiple customization options, you can use SQL programming from the back end, or VBA/Modifier to slightly improve end-user interface.  The most flexible mechanism is Great Plains Dexterity customization.  Dexterity is programming language and environment, the whole Great Plains is written on.  Dexterity, however requires some training or self preparation, before you do the coding itself.  In this small article we would like to give you Dexterity trigger example.  You can install Dexterity from Microsoft Great Plains CD#2.

The trigger calculates QTY quoted for the inventory item and places the result into “Quantity Quoted” custom field, plus it updates QTY available – subtracts QTY on orders, the trigger fires when we open IV_Item_Inquiry window.

Now lets look at the trigger body:

AST_Update_Qtys – this is the name of the trigger

{* Trigger for after Display Existing Record of IV_Item_Inquiry. *} 

{* Part 1 *}{* Used to calculate and display the qty quoted and subtract the *}{* qty on orders from the qty available. *}

local currency lc_qty_quoted.

clear field '(L) Quantity Quoted' of window IV_Item_Inquiry of form IV_Item_Inquiry.

set precision of '(L) Quantity Quoted' of window IV_Item_Inquiry of form IV_Item_Inquiry to 'Decimal Places QTYS' of file IV_Item_MSTR - 1.

{* If based on site and site blank, set quoted to 0. *}

if '(L) Display Options' of window IV_Item_Inquiry of form IV_Item_Inquiry = 1 and 'Location Code' of window IV_Item_Inquiry of form IV_Item_Inquiry = ""

then    set '(L) Quantity Quoted' of window IV_Item_Inquiry of form IV_Item_Inquiry to 0.    abort script.end if. 

lc_qty_quoted = rw_qty_quoted_site('Item Number' of window IV_Item_Inquiry of form IV_Item_Inquiry, 'Location Code' of window IV_Item_Inquiry of form IV_Item_Inquiry).

set '(L) Quantity Quoted' of window IV_Item_Inquiry of form IV_Item_Inquiry to lc_qty_quoted.

set '(L) Quantity Available' of window IV_Item_Inquiry of form IV_Item_Inquiryto '(L) Quantity Available' of window IV_Item_Inquiry of form IV_Item_Inquiry - lc_qty_quoted.   

{* Part 2 *}{* Used to populate the list price. *}

set 'List Price' of window IV_Item_Inquiry of form IV_Item_Inquiry to 'List Price' of table IV_Item_MSTR.

And this is how you do register the trigger:

Startup – script

local integer l_result.

l_result = Trigger_RegisterFocus(anonymous('Display Existing Record' of window IV_Item_Inquiry of form IV_Item_Inquiry), TRIGGER_FOCUS_CHANGE, TRIGGER_AFTER_ORIGINAL, script AST_Update_Qtys).

if l_result <> SY_NOERR then    warning "Focus trigger registration failed.".end if.

Let us know if you need help: 1-630-961-5918, 1-866-528-0577 or help@albaspectrum.com