0

Dexterity Trigger Microsoft Great Plains customization example

Written By: Andrew Karasev

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.

akarasev@albaspectrum.com

Previous post:

Next post: