| Subject | Re: Lookuprowset |
| From | Peter <Phb2020@hotmail.com> |
| Date | Thu, 04 May 2023 11:19:18 -0400 |
| Newsgroups | dbase.getting-started |
Yes, Lee! I put ins_code in lower case and removed extra space between value and period. Works great. Always good to get second opinion with new eyes and fresh, wise ideas. So my other question relates to using this “onKey” function to put the ins_name in the entryfield2 when form first opens, ie before entryfield1 gets focus. I did same with duflp age() function to put patient age on the editable form in the form.onOpen(). Age() is used again as part of a validation function if date-of-birth is changed. Peter Lee Grant Wrote: > Peter, > > I've included a working version of the file you uploaded. > First change I did, was to remove the :MYDATA: and created by own IDE > internal reference to the database. > Secondly, I named the ins_info.dbf as a .dbf file, your's wasn't and > Mervyn's was. > Thirdly, later on you put a space between this and .value here: > > form.INS_LOOKUP1.params['INS_CODE'] = this .value > > and fourth, unsure if it matters, I put this param 'INS_CODE' in lower > case as it is later referred to and this works now, so you can ask the > next thing you wanted to ask of Mervyn. :) > > Lee > > > On 5/3/2023 4:18 PM, Peter wrote: > > Hi Mervin, > > I am able to use the form as you have shown below. > > I am trying to modify the form to do the same thing with > > Insurance Information, such as Ins_code (2 character field) and Ins_name (40 character field). User enters 2 letter code for Ins_code and OnKey function does a lookup in Ins_info file to show full length Insurance name and puts it in entryfield2. > > Something is wrong. Ins_code is not found. Entryfield2 shows \\\"Invalid Ins Name\\\". In addition when setfocus() goes back to entryfield1, there is only one space. > > Can you find my error? I have attached the lookuptest2.wfm, Ins_info.dbf. If no .MDX there, index on Ins_code > > Production MDX file: INS_INFO.MDX > > Index TAG: INS_CODE Key: INS_CODE > > > > I have another question, but I'll wait until this gets fixed. > > Again, thank you. > > > > Peter > > > > > > > ** END HEADER -- do not remove this line > // > // Generated on 05/03/2023 > // > parameter bModal > local f > f = new lookup_testForm() > if (bModal) > f.mdi = false // ensure not MDI > f.readModal() > else > f.open() > endif > > class lookup_testForm of FORM > with (this) > onOpen = class::FORM_ONOPEN > height = 22.3182 > left = 26.5714 > top = -0.8182 > width = 64.7143 > text = "" > endwith > > this.DATABASE1 = new DATABASE(this) > with (this.DATABASE1) > left = 36.0 > top = 3.0 > width = 7.0 > height = 1.0 > databaseName = "MYDATA" > active = true > endwith > > this.INS_LOOKUP1 = new QUERY(this) > with (this.INS_LOOKUP1) > left = 36.0 > width = 9.0 > height = 1.0 > sql = "select * from ins_info.dbf where ins_code=upper(:ins_code)" > params["ins_code"] = "" > active = true > endwith > > this.ENTRYFIELD2 = new ENTRYFIELD(this) > with (this.ENTRYFIELD2) > when = {||false} > height = 1.0 > left = 18.0 > top = 6.3636 > width = 40.0 > fontSize = 12.0 > value = "" > endwith > > this.TEXT1 = new TEXT(this) > with (this.TEXT1) > height = 0.7727 > left = 3.1429 > top = 4.9545 > width = 10.8571 > text = "Enter Ins ID " > endwith > > this.ENTRYFIELD1 = new ENTRYFIELD(this) > with (this.ENTRYFIELD1) > onKey = class::ENTRYFIELD1_ONKEY > height = 1.0 > left = 4.4286 > top = 6.4545 > width = 8.0 > picture = "!!" > fontSize = 12.0 > value = " " > maxLength = 2 > endwith > > this.ENTRYFIELD3 = new ENTRYFIELD(this) > with (this.ENTRYFIELD3) > height = 1.0 > left = 4.4286 > top = 9.0455 > width = 25.7143 > value = "dummy to accept focus" > endwith > > this.TEXT2 = new TEXT(this) > with (this.TEXT2) > height = 1.7273 > left = 5.0 > top = 11.1818 > width = 48.4286 > text = "Entering a valid two character stateID will look up the State name and dispay it in entryfield2." > endwith > > this.TEXT3 = new TEXT(this) > with (this.TEXT3) > height = 1.5 > left = 5.0 > top = 13.2727 > width = 48.1429 > text = "Entryfield2 can never receive focus as its WHEN event handler has been set {||false}" > endwith > > this.TEXT4 = new TEXT(this) > with (this.TEXT4) > height = 2.2727 > left = 5.0 > top = 16.1818 > width = 48.1429 > text = "A valid stateId will lookup the State name and display it in entryfield2. Focus will move to the next object in the z_order." > endwith > > this.TEXT5 = new TEXT(this) > with (this.TEXT5) > height = 1.5 > left = 5.0 > top = 19.2273 > width = 48.1429 > text = "An invalid stateID will blank the entry in entryfield1 and wait for a new value." > endwith > > this.TEXT6 = new TEXT(this) > with (this.TEXT6) > height = 1.5 > left = 4.2857 > top = 0.6818 > width = 30.7143 > text = "Mimic the DML LOOKUP() function in OODML" > endwith > > > function ENTRYFIELD1_OnKey(nChar, nPosition,bShift,bControl) > if len(TRIM(this.value)) >1 // Two characters entered > form.INS_LOOKUP1.params['ins_code'] = this.value //pass value in entryfield to query parameter > form.INS_LOOKUP1.requery() // fetch state name for the given stateID > > //Test to see if a valid stateID was entered > > if form.INS_lookup1.rowset.count() = 1 //found the state > form.entryfield2.value = form.Ins_lookup1.rowset.fields['ins_name'].value > this.before.setfocus() //Move focus to next object in z-order > else // stateId not found > form.entryfield2.value = 'Invalid INS Code' > form.entryfield1.value = '' //Empty entryfield > form.entryfield1.setfocus() //Back to entryfield to try again > endif > endif > return > > function form_onOpen() > form.entryfield1.setfocus() > return > > endclass > | |