Conditional Table Lookup From selection?

[Ted Giles]

Re: Conditional Table Lookup From selection?

I will try tomorrow, Keith.

[johnkoh]

Re: Conditional Table Lookup From selection?

Keith,

After I made a new form, The "Sm_fab_code" field is working fine with v9. Check your code in the close button. I am not able to close this form after edit.

[Ray in Capetown]

Re: Conditional Table Lookup From selection?

Like that Ted. I'll borrow the idea (give it back when finished - promise). Simple, obvious and elegant.
Keith, Ted will probably be more helpful than I and give you an example.
It requires a trigger (a simple button even) on the form to open the modal enter new member form.

[Keith Hubert]

Re: Conditional Table Lookup From selection?

Here is updated sample to focus on problem. Which is, unable to save correct forms in field rules when using Conditional Table Lookup.

[johnkoh]

Re: Conditional Table Lookup From selection?

Keith,

The drop down boxes are working fine except "Other" class which did not set the lookup condition.

Just my idea, If you have an extra field for fabric type, then you may have one table instead of many product tables.

[Keith Hubert]

Re: Conditional Table Lookup From selection?

John,

Thanks for your input. I have heard back from Alpha and they tell me that you can't have a form for each table in Conditional Table Lookup.

This strikes me as odd, if the user needs to add a record on the fly the same as you can with a single table.

Because of this limitation, I have gone down the single table route and added in some cleaver xbasic to get values from another table and the user can update the table with Xdialog.

'Create an XDialog dialog box to prompt for parameters.
DIM SHARED vc_class as C
DIM SHARED vc_description as C
DIM SHARED varC_result as C
auto_list_vc_class = table.external_record_content_get("fabric_class","Classification","classification","")

temp_count = w_count(auto_list_vc_class,crlf())
DELETE a_vc_class
DIM a_vc_class[temp_count] as c
a_vc_class.initialize(auto_list_vc_class)
ok_button_label = "&OK"
cancel_button_label = "&Cancel"
varC_result = ui_dlg_box("Classifaction Selector",<<%dlg%
{region}
Select Clssification:| [.40,5vc_class^#a_vc_class];
Enter Description:| [.100vc_description];
{endregion};
{line=1,0};
{region}
<*15=ok_button_label!OK> <15=cancel_button_label!CANCEL>
{endregion};
%dlg%)

'Conditional code follows. Executes only if the condition expression is True.
IF a5_eval_expression("=Var->varC_result=\"Cancel\"",local_variables()) THEN 
'End the current script
END

END IF

'Execute inline Xbasic code.
dim vc_code as c
'debug(1)
dim global vc_class_no as n
vc_class_no=lookup("Fabric_Class","Classification= "+s_quote(vc_class) ,"Lastused")
'debug(1)
dim tblb as p
tblb = table.open("fabric_class",FILE_RW_EXCLUSIVE)
tblb.query_detach_all()
query.description = "Classificationn"
query.order = "Classification"
query.filter = "Classification= "+s_quote(vc_class)
query.options = "D"
tblb.query_create()
lastnum = vc_class_no
nextnum = lastnum+1
tblb.change_begin()
tblb.Lastused = nextnum
tblb.change_end(.t.)
tblb.close()
vc_code=nextnum
'nextnum=nextnum+vc_style_no
tbla = table.open("Fabric_codes")
tbla.enter_begin(.t.)
tbla.sm_fab_code = left(vc_class,1)+alltrim(str(var->vc_code))
tbla.fabric_description=vc_description
tbla.enter_end(.t.)

'Displays a message box (style:'OK Button', image: 'Information symbol', id: 'msg2').
DIM SHARED  msg2_result as N
DIM SHARED  msg2_OK_Button as L 
msg2_OK_Button = .F.

title_var = "SM Fabric Code"
'Message is an expression. Need to evaluate the expression in the context of the current form.
message_text_var = a5_eval_expression("=\"You have saved \"+left(Var->vc_class,1)+Var->vc_code+crlf(1)+Var->vc_description",local_variables())
msg2_result=ui_msg_box(title_var,message_text_var,UI_OK+ UI_FIRST_BUTTON_DEFAULT+ UI_INFORMATION_SYMBOL)
'Test to see which button on the message box was pressed....
SELECT
	CASE msg2_result = UI_OK_SELECTED
		msg2_OK_Button= .t.
END SELECT
f

[Ted Giles]

Re: Conditional Table Lookup From selection?

So are you sorted now Keith?

[Keith Hubert]

Re: Conditional Table Lookup From selection?

So are you sorted now Keith?

Yes thanks Ted, but in a way better than I was trying with multiple tables.

[john michaels]

Re: Conditional Table Lookup From selection?

Keith,
I looked at the code you posted. Looks like Action Scripting. The variable vc_code is dimmed as character in line 29 and it seems to be trying to acquire a numeric value in line 48. Not sure how that is working for you.

[Keith Hubert]

Re: Conditional Table Lookup From selection?

Hi John,

Thanks for noticing that difference, I will take another look at my code.