Welcome to Michael's Article Collection
On this site you will find plenty of interesting articles to
many different topics.
Below you can read the following article:
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_Inquiry
to '(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 SB_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
|
About The Author Andrew Karasev is Great Plains developer in Alba Spectrum Technologies ( http://www.albaspectrum.com ), serving clients in Illinois, California, New York, Florida, Arizona, Georgia, Texas, Oregon, Washington, Virginia, Canada, Australia, UK, continental Europe. |
This article was posted on January 24, 2005