Free Articles, Free Web Content, Reprint Articles
Tuesday, June 25, 2019
 
Free Articles, Free Web Content, Reprint ArticlesRegisterAll CategoriesTop AuthorsSubmit Article (Article Submission)ContactSubscribe Free Articles, Free Web Content, Reprint Articles
 

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. 

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

Source: Free Articles from ArticlesFactory.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.



Health
Business
Finance
Travel
Technology
Home Repair
Computers
Marketing
Autos
Family
Entertainment
Law
Education
Communication
Other
Sports
ECommerce
Home Business
Self Help
Internet
Partners


Page loaded in 0.109 seconds