** END HEADER -- do not remove this line
//
// Generated on 2016-12-01
//
parameter bModal
local f
f = new mbgolfers_scoresForm()
if (bModal)
   f.mdi = false // ensure not MDI
   f.readModal()
else
   f.open()
endif

class mbgolfers_scoresForm of FORM
   with (this)
      onOpen = class::FORM_ONOPEN
      height = 16.0
      left = 58.7143
      top = 14.6818
      width = 40.0
      text = "Print matches"
   endwith

   this.GOLFERS_SCORES1 = new QUERY(this)
   with (this.GOLFERS_SCORES1)
      left = 4.0
      sql = 'select distinct dbname,day_w,t_date from "golfers_scores.DBF"'
      active = true
   endwith

   this.COMBOBOX1 = new COMBOBOX(this)
   with (this.COMBOBOX1)
      onOpen = class::COMBOBOX1_ONOPEN
      height = 1.0
      left = 8.0
      top = 4.5
      width = 25.0
      dataSource = form.golfers_scores1.rowset.fields["dbname"]
      style = 1	// DropDown
   endwith

   this.PUSHBUTTON1 = new PUSHBUTTON(this)
   with (this.PUSHBUTTON1)
      onClick = class::PUSHBUTTON1_ONCLICK
      height = 1.0909
      left = 11.0
      top = 11.5
      width = 15.2857
      text = "Print report"
   endwith

   this.rowset = this.golfers_scores1.rowset

     function COMBOBOX1_onOpen()
          this.value = 'Select match'
          return

     function PUSHBUTTON1_onClick()
          form.rowset.applyLocate( "dbname = '" + form.combobox1.value + "'" )
          form.rep.pagetemplate1.text1.text = form.rowset.fields['day_w'].value
          form.rep.pagetemplate1.text2.text = form.rowset.fields['t_date'].value
          form.rep.temp_golfers_scores1.params['dbname'] = form.combobox1.value
          form.rep.temp_golfers_scores1.requery()
      //    form.rep.render()
          form.preview.open()
          return

     function form_onOpen()
          set procedure to mbgolfers_scores.rep
          form.rep = new mbgolfers_scoresReport()
          set procedure to :duflp:preview.wfm additive
          form.preview = new PreviewForm()
          form.preview.bClose = false
          form.preview.viewer.ref := form.rep 
          return

endclass