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

class test_browseForm of FORM
   with (this)
      onOpen = class::FORM_ONOPEN
      height = 16.0
      left = 41.2857
      top = 7.1818
      width = 60.4286
      text = ""
      view = ":DBASESAMPLES:employees.dbf"
   endwith

   this.BROWSE1 = new BROWSE(this)
   with (this.BROWSE1)
      onNavigate = class::BROWSE1_ONNAVIGATE
      height = 10.0
      left = 3.0
      top = 2.0
      width = 53.0
      alias = "EMPLOYEES"
      fields = 'EMPLOYEES->HireDate\H="Date"\13\P="@J"\R,EMPLOYEES->FirstName\H="First Name"\15\P="@J"\R,EMPLOYEES->LastName\H="Last Name"\15\P="@J"\R'
   endwith


   function BROWSE1_onNavigate(nWorkArea)
      ? 'OnNavigate record no ',recno()
      return

   function form_onOpen()
      clear
      return

endclass