** END HEADER -- do not remove this line
//
// Generated on 2018-04-19
//
parameter bModal
local f
f = new TEST_woForm()
if (bModal)
   f.mdi = false // ensure not MDI
   f.readModal()
else
   f.open()
endif

class TEST_woForm of FORM
   with (this)
      onOpen = class::FORM_ONOPEN
      height = 20.7273
      left = 42.4286
      top = 3.4545
      width = 59.7143
      text = ""
   endwith

   this.WO1 = new QUERY(this)
   with (this.WO1)
      left = 74.0
      top = 3.0
      sql = 'select * from "WOTEST.DBF"'
      active = true
   endwith

   this.ENTRYFIELD1 = new ENTRYFIELD(this)
   with (this.ENTRYFIELD1)
      height = 1.0
      left = 35.0
      top = 1.2727
      width = 13.0
      value = "Entryfield1"
   endwith

   this.TEXT1 = new TEXT(this)
   with (this.TEXT1)
      height = 2.2727
      left = 2.8571
      top = 0.5
      width = 29.2857
      text = "<p>By left double clicking, I want to move the Wono to the Entryfield1</p><p>It moves the Wono in top record!!!.</p>"
   endwith

   this.GRID1 = new GRID(this)
   with (this.GRID1)
      onLeftDblClick = class::GRID1_ONLEFTDBLCLICK1
      onLeftMouseUp = class::GRID1_ONLEFTMOUSEUP
      dataLink = form.wo1.rowset
      height = 11.7727
      left = 5.7143
      top = 3.5909
      width = 49.2857
   endwith

   this.TEXT2 = new TEXT(this)
   with (this.TEXT2)
      height = 3.0
      left = 11.0
      top = 16.5
      width = 37.0
      text = "Left click on record to select record then left double click to copy WONO to entryfield."
   endwith

   this.rowset = this.wo1.rowset

   function GRID1_onLeftDblClick1(flags, col, row)
       form.entryfield1.value = form.wo1.rowset.fields['wono'].value
//      DO DEBUGON
//      STORE WONO TO FORM.ENTRYFIELD1.VALUE
   return
   

   function GRID1_onLeftMouseUp(flags, col, row)
//      form.entryfield1.value = form.wo1.rowset.fields['wono'].value
      return

   function form_onOpen()
//      USE WO
//      GOTO TOP
   return

endclass