Limit Textbox Lookup to an item in the lookup Window

[iviowa]

That attached zip file contains a 35 second recording of my lookup problem. I hope this is a quick, acceptable way to show my issue.

I want the Textbox with a Lookup to be limited to just items in the lookup window.

[Steve Wood]

Re: Limit Textbox Lookup to an item in the lookup Window

Hi Ken,

This question has been asked a lot without any real solution, but I just figured one out...

You can render any input field readonly with an HTML parameter or javascript. The HTML parameter is READONLY and the javascript is onFocus="this.blur()".

A normal rendering of a Grid input field in the browser looks like this:

<input id="V.R1.COMPANY" size="20" maxlength="20" class="SunsetInput" type="text" name="V.R1.COMPANY" value="ACME Construction" />
<input id="V.R1.COMPANY" size="20" maxlength="20" class="SunsetInput" type="text" name="V.R2.COMPANY" value="IDEAL Maintenance" />
etc.


To render it readonly, it should look like this:

<input id="V.R1.COMPANY" READONLY size="20" maxlength="20" class="SunsetInput" type="text" name="V.R1.COMPANY" value="ACME Construction" />

or

<input id="V.R1.COMPANY" onFocus="this.blur()" size="20" maxlength="20" class="SunsetInput" type="text" name="V.R1.COMPANY" value="ACME Construction" />

OK, how do you do that? There is nothing in the grid control properties to allow adding that READONLY or javascript parameter. So you do it at runtime with code in the A5W page.

Note that each line has an ID that looks like this: <Input id="V.R1.COMPANY", and that the value of Rx increments for each row and the word COMPANY is your control name. You need to modify that at runtime to say "<Input id="V.R1.COMPANY" READONLY.

In the A5W page there is a line similar to:

?x_componentname.Output.Body.Grid_HTML

Just above that put:

<%a5
x_componentname.Output.Body.Grid_HTML=stritran(x_componentname.Output.Body.Grid_HTML,".COMPANY\"",".COMPANY\" READONLY")
%>

And then repeat that for each field you want to render readonly.

Caution - the READONLY parameter is relatively new and requries a modern browser. Also, my example used COMPANY as the control name. For this you really should use obscure control names because the stritran() function will replace all occurances of whatever you specifiy.

[iviowa]

Re: Limit Textbox Lookup to an item in the lookup Window

Thank you Steve. That worked. I thought I would record what I did for anyone that might be having troubles implementing your solution. Recording length is 3:30.

[MikeC]

Re: Limit Textbox Lookup to an item in the lookup Window

Ken,
Thanks for the videos....they will be very helpful am sure for me and others ...hopefully will save Steve time in the future as well in not having to explain how to do what this thread shows.

And an even bigger thanks to Steve for taking the time in the first place!

[den1s]

Re: Limit Textbox Lookup to an item in the lookup Window

Guys,

I have tried to implement this within my dialog component and as a result changed some of the code.

<tr>
<td><p align=left><%A5 ?x_dlg_link_obj_In.Output.Body.Dialog_HTML=stritran(x_dlg_link_obj_In.Output.Body.Dialog_HTML,".FrObject\"",".FrObject\" READONLY") %></p></td>
</tr>

Unfortunately, the field is not getting disabled. I know this solution is for a Grid component, but should this also work using the same method within a dialog component?

Thanks,

Denis

[den1s]

Re: Limit Textbox Lookup to an item in the lookup Window

Hi,

I am having another go at making a field in a Dialog readonly. I have modified my code by replacing;

<p align=left><%A5 ?x_dlg_bl_add_new.Output.Body.Dialog_HTML %></p>

with

<p align=left><%A5 x_dlg_bl_add_new.Output.Body.Dialog_HTML=stritran(x_dlg_bl_add_new.Output.Body.Dialog_HTML,".ELLIPSE_CODE\"",".ELLIPSE_CODE\" READONLY") %></p>

It still does not work. It seems to stop the dialog showing up at all.

I then tried adding in the extra line between the existing;

<table>
<tbody>
<tr>
<td>
<p align=left><%A5 ?x_dlg_bl_add_new.Output.Body.Dialog_Echo %></p></td></tr>
<tr>
<td>
<p align=left><%A5 ?x_dlg_bl_add_new.Output.Body.Xbasic_Code_Errors %></p></td></tr>
<tr>
<td>
<p align=left><%A5 x_dlg_bl_add_new.Output.Body.Dialog_HTML=stritran(x_dlg_bl_add_new.Output.Body.Dialog_HTML,".ELLIPSE_CODE\"",".ELLIPSE_CODE\" READONLY") %></p></td></tr>
<tr>
<td>
<p align=left><%A5 ?x_dlg_bl_add_new.Output.Body.Dialog_HTML %></p></td></tr>
</tbody></table>

Still no good.

Is this solution not suitable for a Dialog?

Denis