Announcement

**Tom Cone Jr** · 07-11-2006, 05:03 AM

Re: Combo Box, creating range of choices

Mike, you've got several things going on at the same time.

suggest you set a default value field rule that retrieves the field value in the most recent transaction record for the same product.

suggest you use a table lookup field rule to retrieve the pricing options for each product. Each optional price would be a separate record.

populate the lookup table with a script that collects the input from the user (lowest price, highest price, increment value), and then enters the records one after the other using a loop. This same script will need to delete previous pricing records from the lookup table for the same product.

-- tom

**MikeC** · 07-11-2006, 08:52 PM

Re: Combo Box, creating range of choices

Hi Tom, thanks for the lead...I will check into doing it that way.

Mike

**MikeC** · 07-20-2006, 08:48 PM

Re: Combo Box, creating range of choices

Hi everyone.

As you can gather from how long it has been since my last post I am VERY much still learning as it has taken a few hours each night (mostly working on this) since then to finally come up with something that works! :-)
I ended up going with something a bit different. I have a Combo Box that shows all the prices available but it seems to auto-scroll most of the time to include the currently selected price--if I can get this to be more consistent then that would cure the problem of so many prices to look through. I can create or delete any range of prices that show up in the dropdown combo box list also.

I still would like someone to look at what I ended up with for script and let me know how to
use:

1. pointers to my tables/fields - received errors of no such table & no such field
2. "x" and "y" to equal something --errors of could not find "x", "y" and expected value

---see code below to see how I was trying to use this.

And If possible look at the "Range" code below and let me know why the commented out if....then could not be used instead of what I ended up having to use directly below it - it would cause a continuous loop that would crash Alpha.

I developed two different methods to create prices for the Combo Box. I first tried to figure out how to create them with a range of wanted prices--did not work (at first). So I created a way to add prices by using a Number of Prices field. Later on, after finally solving this I went back to see if I could do it by selecting a range and lo and behold I accomplished it in less than an hour---go figure!

The set is made as follows(both are one to one):
Lane(parent)
--> Prod (child)
--> Prices (child)

The Combo Box (based on the numeric field Price_Lane) is on a set based form (Chg_Lane). A button on this form opens another form (Enter_Prices--based on table Prices) in which prices can be created or deleted from the child table Prices. A screenshot of the latter form is attached.

This is the code that works for creating prices using Number of Prices:

Code:

if Enter_Prices:No_Prices.value <= 0 then
   end
end if

for i = 1 to 99

Enter_Prices:Price.value=Enter_Prices:Beg_Price.value+(Enter_Prices:No_Prices.value-1)*Enter_Prices:Incr_Price.valueEnter_Prices:No_Prices.value = Enter_Prices:No_Prices.value - 1
topparent.commit()
if Enter_Prices:No_Prices.value <= 0 then
   end
end if

next i
end

----------------------------------------------
Although I am not going to use this method (using Range method), the way to accomplish this can be applied to my other scripts.
The following does not work for creating prices using Number of Prices.

(just a thought--do I have to dim as Global, etc?):

Code:

dim x as n
dim y as n
x=Enter_Prices:no_prices.value
y=Enter_Prices:no_prices.value

for i = 1 to y

Enter_Prices:Price.value=Enter_Prices:Beg_Price.value+((x-1)*Enter_Prices:Incr_Price.value)'have tried with and without outer "( )"

topparent.commit()

x = x - 1

if x = 0 then'
   end
end if

next i

end

---------------------------------------------
The following is just for any other inexperienced person that may find it useful! :-)

Range Script:

Code:

for i = 1 to 99

Enter_Prices:Price.value=Enter_Prices:Beg_Price.value'+(Enter_Prices:No_Prices.value-1)*Enter_Prices:Incr_Price.value
Enter_Prices:Beg_Price.value = Enter_Prices:Beg_Price.value + Enter_Prices:Incr_Price.value
topparent.commit()
'if Enter_Prices:Price.value=Enter_Prices:End_Price.value then
if Enter_Prices:Beg_Price.value > Enter_Prices:End_Price.value then
   end
end if

next i
end

------------------------------------------------------------

'Delete Script - when using Action Script to set a variable to a constant or expression it ALWAYS uses C for character even if you designate it as N for numeric---have to change the action script into xbasic and change the C to N for it to work.

OnChange Event for dBeg_Price and dEnd_Price

Code:

'Update value in existing variable 'vc_Beg_Price' to '=dBeg_Price
vc_del_Beg_Price = convert_type(a5_eval_expression("=dBeg_Price"),"N")

'Update value in existing variable 'vcEnd_Price' to '=dEnd_Price
vc_del_End_Price = convert_type(a5_eval_expression("=dEnd_Price"),"N")

--------------------------

'OnPush Event for Delete Button--Operation which deletes a range of prices

Code:

'Prompt for confirmation before running the Operation.......
dim rec_count as n 
rec_count = a5_get_records_in_query("prices","between(Price,Var->vc_del_Beg_Price,Var->vc_del_End_Price)")
message_text = rec_count + " record(s) will be deleted from 'prices'."+crlf(2)+ "OK to proceed?"	

operation_result=ui_msg_box("Delete Selected Records Operation",message_text,UI_OK_CANCEL+ UI_FIRST_BUTTON_DEFAULT+ UI_INFORMATION_SYMBOL)
If operation_result <> ui_ok_selected then 
	end 
end if 


a_tbl = table.open("prices")
a_tbl.delete_range("between(Price,Var->vc_del_Beg_Price,Var->vc_del_End_Price)")
a_tbl.close()

'Display a dialog box showing the results of the Operation
a5_mark_op_result("prices","Delete Selected Records",a_records_processed, a_records_total)


'If the Operation is run from within a Form or Browse, then refresh the window
if is_object(topparent.this) then 
	if topparent.Class() = "form" .or. topparent.class() = "browse" then 
		topparent.Refresh_layout()
	end if 
end if

-------------------------------------------------------------

Operation script (from Action Scripting) for deleting duplicates
--used on the OnPush Event of the OK button which closes the form after running this operation.

Code:

'Run an Operation that was previously defined.
query.filter = ""
query.order = ""

DIM operation_name as c
operation_name = "Dupe_Del_Prices"
If operation_name <> "" then 
	mark.run(operation_name,query.filter)
End if

If needed I will get an example to post of the relevant tables and forms.

Thanks to anyone who has a bit of time to explain these things---I hope that the explanation will enable me to accomplish future tasks a bit quicker ( LOL hard to get any slower I think!)

Mike

Announcement

The Alpha Software Forum Participation Guidelines

Combo Box, creating range of choices

Combo Box, creating range of choices

Comment

Comment

Comment