multiple lookup values for 1 field...memo field?

[hov333]

Re: multiple lookup values for 1 field...memo field?

this is where I am so far, just working on the format first (copied the additional action write-in from Mike's example)

'Create an XDialog dialog box to prompt for parameters.
DIM Actions as C
dim vwrite_in as C
dim vall_acts as C
DIM varC_result as C
auto_list_Actions = table.external_record_content_get("repair actions","Repair_Action","","")

temp_count = w_count(auto_list_Actions,crlf())
DELETE a_Actions
DIM a_Actions[temp_count] as c
a_Actions.initialize(auto_list_Actions)
ok_button_label = "&OK"
cancel_button_label = "&Cancel"
varC_result = ui_dlg_box("Actions",<<%dlg%
{region}
{Region}
;
{Endregion};
{Region}
Select Repair Actions: | [.100,10Actions^$$a_Actions];
{Endregion};
{region}
Additional Action: | [.99,vwrite_in];
{Endregion};
{line=1,0};
<*15=ok_button_label!OK> <15=cancel_button_label!CANCEL>;
{endregion};
%dlg%)

'combine the multiselect and the write in
vall_acts=crlf_to_comma(Actions)+","+alltrim(vwrite_in)

Could someone check to see if this is correct. It looks right to me when I run it but I still don't know how to get 'vall_acts' into my actions field

[hov333]

Re: multiple lookup values for 1 field...memo field?

OK so this is what I ended up with.

'Date Created: 21-Dec-2010 11:06:55 AM
'Last Updated: 21-Dec-2010 11:33:26 AM
'Created By : Administrator
'Updated By : Administrator
'Create an XDialog dialog box to prompt for parameters.
DIM global Actions as C
dim global vwrite_in as C
dim global vall_acts as C
DIM global varC_result as C
auto_list_Actions = table.external_record_content_get("repair actions","Repair_Action","","")

temp_count = w_count(auto_list_Actions,crlf())
DELETE a_Actions
DIM a_Actions[temp_count] as c
a_Actions.initialize(auto_list_Actions)
ok_button_label = "&OK"
cancel_button_label = "&Cancel"
varC_result = ui_dlg_box("Actions",<<%dlg%
{region}
{Region}
;
{Endregion};
{Region}
Select Repair Actions: | [.100,10Actions^$$a_Actions];
{Endregion};
{region}
Additional Action: | [.99,vwrite_in];
{Endregion};
{line=1,0};
<*15=ok_button_label!OK> <15=cancel_button_label!CANCEL>;
{endregion};
%dlg%)

'combine the multiselect and the write in
vall_acts=crlf_to_comma(Actions)+". "+alltrim(vwrite_in)+"."

'Set 'Value' property of 'Action' in Form 'Tech_Form' .
parentform:Action.value = vall_acts

"the crlf_to_comma()" command doesn't include a space after each comma, so looks like I will have to put a space in front of every record in my "actions" table where its pulling the choices from. Any ideas around this?

[Stan Mathews]

Re: multiple lookup values for 1 field...memo field?

"the crlf_to_comma()" command doesn't include a space after each comma, so looks like I will have to put a space in front of every record in my "actions" table where its pulling the choices from. Any ideas around this?

auto_list_Actions = table.external_record_content_get("repair actions","[COLOR="Red"]space(1)+[/COLOR]Repair_Action","","")

[hov333]

Re: multiple lookup values for 1 field...memo field?

thanks stan.
This is working great! The last thing is the cancel button. I can't get it to NOT set the field value to the variable value if I hit cancel.

I know this is wrong, but I know its a start. This is at the end of the xdialog code.

'Conditional code follows. Executes only if the condition expression is True.
IF a5_eval_expression("=",varC_result="ok") THEN
'Set 'Value' property of 'Action' in Form 'Tech_Form' .
parentform:Action.value = vall_acts
END if

[hov333]

Re: multiple lookup values for 1 field...memo field?

nevermind I got it! I didn't need the a5_eval... part. Thanks guys!

'Conditional code follows. Executes only if the condition expression is True.
IF varC_result="ok" THEN
'Set 'Value' property of 'Action' in Form 'Tech_Form' .
parentform:Action.value = vall_acts
END if