Posting with xDialog and xBasic Field Rule events

[johnkoh]

Hi All,

I am studying with "Program your own Posting Rules" on the Learn A5. http://www.learn alpha.com/Posting/Posting.htm

The examples, I made and followed the direction was fine and working well as long as I entered the data from table's Form.

However, I created an xDialog form and I entered the data from this xDialog form, The Field Rules are firing at all. I think Something is still missing or I have to add on the other events to fire it.

Does any one know or have an experience on this xDialog form case?

I attached the zip files for your help.
I want to add the data on Inventory table then posting a QTY to Stock table.

*Using an xDailog form
(1) Open the "Inventory_Edit" then click on Inventory Button which will opens the xDialog form.
(2) Add some informations in the xDialog form then
(3) Open "Stock" check the item was posted or not. -- I cannot get the Posting nor found that changes of the On_hand value.

* Enter the data from table's Form
(1) same as above #1
(2) enter the data on the browse of Inventory form
(3) Open "Stock"check the item was posted or not.-- Yes, I can see the result of posting.

[Stan Mathews]

Re: Posting with xDialog and xBasic Field Rule events

inv_edit.gif

Using an xDailog form
(1) Open the "Inventory_Edit" then click on Inventory Button which will opens the xDialog form.
(2) Add some informations in the xDialog form then
(3) Open "Stock" check the item was posted or not. -- I cannot get the Posting nor found that changes of the On_hand value.

The action after the xdialog closes is to add a new record to the inventory table which it does for me.

[johnkoh]

Re: Posting with xDialog and xBasic Field Rule events

Stan,

I do not find the change from Stock even after close the Inventory form.

[Stan Mathews]

Re: Posting with xDialog and xBasic Field Rule events

Add debug(1) to your cansaverecord event script like this.

[COLOR="red"]debug(1)[/COLOR]
dim tbl as p
dim vItem as c
dim vOnHnd as n
dim tInvent as p
dim rInvent as n
dim shared voldval as n
dim shared entry_type as c
tbl=table.get("Inventory")
	vItem = tbl.ITEM
	vOnHnd = tbl.onstock
	
tInvent =table.open("stock")
tInvent.index_primary_put("item")
rInvent = tInvent.fetch_find(vitem)
if rInvent <0 then
	' no matching inventory item found
	ui_msg_box("No matching stock entry found for",vitem,UI_STOP_SYMBOL)
	tInvent.close()
	end 
end if
tInvent.change_begin()
	select
	    case entry_type ="enter"
	    	tInvent.on_hand = tInvent.on_hand + vOnHnd
	    case entry_type ="change"
	        tInvent.on_hand = tInvent.on_hand + vOnHnd-voldval	
	end select
	
tInvent.change_end(.t.)
tInvent.close()

You will see that the event does not fire when you use the xdialog but does fire if you enter the values manually in the browse.

[Stan Mathews]

Re: Posting with xDialog and xBasic Field Rule events

addition.gifYou can copy the script from the cansaverecord field rule event and add it as an inline xbasic script to the the inventory_dlg script.