if file('test_date_filter.dbf')
//  drop table test_date_filter
endif  

if not file('test_date_filter.dbf')
   create table test_date_filter  (id autoinc,data character(15),ddate date)

   insert into test_date_filter  (data,ddate) values ("abel",'01/01/2016')
   insert into test_date_filter  (data,ddate) values ("charlie",'01/01/2018')
   insert into test_date_filter  (data,ddate) values ("baker",'01/01/2018')
   insert into test_date_filter  (data,ddate) values ("baker",'05/10/2017')
   insert into test_date_filter  (data,ddate) values ("charlie",'05/10/2017')
   insert into test_date_filter  (data,ddate) values ("able",'05/10/2018')
   // Note that here the date must be a literal in either American format 'mm/dd/yyyy'
   // or German format 'dd.mm.yyyy' irrespective of the date setting on the computer   
   
   use test_date_filter exclusive
   index on ddate tag ddate
   use
endif
** END HEADER -- do not remove this line
//
// Generated on 2018/03/20
//
parameter bModal
local f
f = new test_date_filterForm()
if (bModal)
   f.mdi = false // ensure not MDI
   f.readModal()
else
   f.open()
endif

class test_date_filterForm of FORM
   with (this)
      onOpen = class::FORM_ONOPEN
      height = 16.0
      left = 59.7143
      top = 5.5
      width = 75.4286
      text = ""
   endwith

   this.TEST_DATE_FILTER1 = new QUERY(this)
   with (this.TEST_DATE_FILTER1)
      left = 2.0
      width = 13.0
      height = 1.0
      sql = 'select * from "test_date_filter.DBF"'
      active = true
   endwith

   with (this.TEST_DATE_FILTER1.rowset)
      indexName = "DDATE"
   endwith

   this.GRID1 = new GRID(this)
   with (this.GRID1)
      dataLink = form.test_date_filter1.rowset
      height = 8.5
      left = 8.0
      top = 3.5
      width = 60.0
   endwith

   this.PUSHBUTTON1 = new PUSHBUTTON(this)
   with (this.PUSHBUTTON1)
      onClick = class::PUSHBUTTON1_ONCLICK
      height = 1.0909
      left = 20.0
      top = 13.5
      width = 15.2857
      text = "Set filter"
   endwith

   this.PUSHBUTTON2 = new PUSHBUTTON(this)
   with (this.PUSHBUTTON2)
      onClick = class::PUSHBUTTON2_ONCLICK
      height = 1.0909
      left = 39.0
      top = 13.5
      width = 15.2857
      text = "Clear filter"
   endwith

   this.rowset = this.test_date_filter1.rowset

   function PUSHBUTTON1_onClick()
      //for a filter the literal date must match the date setting on the compter
      //dtoc() will give the correct format. Note that the date must be wrapped in single quotes
      form.test_date_filter1.rowset.filter = "ddate >= '"+form.start+"' and ddate <= '"+form.end+"'"
      return

   function PUSHBUTTON2_onClick()
      form.test_date_filter1.rowset.filter = ''
      return


   function form_onOpen()
      form.start = dtoc((date()-365))
      form.end = dtoc((date()+1))
      return

endclass

<br />
<b>Warning</b>:  Unknown: write failed: No space left on device (28) in <b>Unknown</b> on line <b>0</b><br />
<br />
<b>Warning</b>:  Unknown: Failed to write session data (files). Please verify that the current setting of session.save_path is correct () in <b>Unknown</b> on line <b>0</b><br />