I am using action scripting to fill a bunch of fields with data. Action Scripting allows multiple fields to be filled from one script. This is great but the apparent order of evaluation is the reverse of the order that they are entered. If some of the fields depend on values on others this will fail. There should be a way to move the selected fields to change the order. Also additional fields added should be at the bottom, rather than the top. I can get around this by either making multiple action scripts to accomplish this or doing it in xbasic. Action scripting for this is ideal as it saves time, so I'd prefer to stay with it. Here is an example of the code generated, which is the reverse of what was entered. I have also attached a jpg to show the AS for comparison.
Russ
DIM form_name as c
if is_object(topparent.this) then
form_name = topparent.name()+".this"
else
form_name = ""
end if
DELETE expression_result
expression_result = eval("if(Amtord_Wgt-((Invntory->Stock_Levl-Invntory->Alloc_Qant)*1.1)>0,'Y','N')",form_name)
parentform:Stock_y_n.value = expression_result
parentform:Wth_tol_su.value = "\"\""
parentform:Wth_tol_pl.value = "\"\""
parentform:Width.value = ""
parentform:Cut_tol_su.value = "\"\""
parentform:Cut_tol_pl.value = "\"\""
DELETE expression_result
expression_result = eval("Cust_Pricing->Length",form_name)
parentform:Cut_length.value = expression_result
parentform:Detail_no.value = "\"\""
parentform:Supp_prod.value = "\"\""
DELETE expression_result
expression_result = eval("Invntory->Location",form_name)
parentform:Location.value = expression_result
DELETE expression_result
expression_result = eval("Cust_Pricing->Size",form_name)
parentform:Size.value = expression_result
DELETE expression_result
expression_result = eval("Cust_Pricing->Type",form_name)
parentform:Type.value = expression_result
DELETE expression_result
expression_result = eval("Cust_Pricing->Grade",form_name)
parentform:Grade.value = expression_result
DELETE expression_result
expression_result = eval("Cust_Pricing->Finish",form_name)
parentform:Finish.value = expression_result
DELETE expression_result
expression_result = eval("Cust_Pricing->Cust_Pt_No",form_name)
parentform:Descrption.value = expression_result
DELETE expression_result
expression_result = eval("Invntory->Lbs_Per_Ft",form_name)
parentform:Lbs_per_ft.value = expression_result
Russ
DIM form_name as c
if is_object(topparent.this) then
form_name = topparent.name()+".this"
else
form_name = ""
end if
DELETE expression_result
expression_result = eval("if(Amtord_Wgt-((Invntory->Stock_Levl-Invntory->Alloc_Qant)*1.1)>0,'Y','N')",form_name)
parentform:Stock_y_n.value = expression_result
parentform:Wth_tol_su.value = "\"\""
parentform:Wth_tol_pl.value = "\"\""
parentform:Width.value = ""
parentform:Cut_tol_su.value = "\"\""
parentform:Cut_tol_pl.value = "\"\""
DELETE expression_result
expression_result = eval("Cust_Pricing->Length",form_name)
parentform:Cut_length.value = expression_result
parentform:Detail_no.value = "\"\""
parentform:Supp_prod.value = "\"\""
DELETE expression_result
expression_result = eval("Invntory->Location",form_name)
parentform:Location.value = expression_result
DELETE expression_result
expression_result = eval("Cust_Pricing->Size",form_name)
parentform:Size.value = expression_result
DELETE expression_result
expression_result = eval("Cust_Pricing->Type",form_name)
parentform:Type.value = expression_result
DELETE expression_result
expression_result = eval("Cust_Pricing->Grade",form_name)
parentform:Grade.value = expression_result
DELETE expression_result
expression_result = eval("Cust_Pricing->Finish",form_name)
parentform:Finish.value = expression_result
DELETE expression_result
expression_result = eval("Cust_Pricing->Cust_Pt_No",form_name)
parentform:Descrption.value = expression_result
DELETE expression_result
expression_result = eval("Invntory->Lbs_Per_Ft",form_name)
parentform:Lbs_per_ft.value = expression_result
Comment