Subject Re: Lookuprowset
From Lee Grant <camilee@nospam.comcast.net>
Date Thu, 4 May 2023 02:09:59 -0400
Newsgroups dbase.getting-started
Attachment(s) LOOKUPTEST3.wfm

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