** END HEADER -- do not remove this line
//
// Generated on 2023-10-31
//
parameter bModal
local f
f = new a_date_testForm()
if (bModal)
   f.mdi = false // ensure not MDI
   f.readModal()
else
   f.open()
endif

class a_date_testForm of FORM
   with (this)
      onOpen = class::FORM_ONOPEN
      height = 16.0
      left = 20.0
      top = 3.2273
      width = 40.0
      text = ""
   endwith

   this.PUSHBUTTON1 = new PUSHBUTTON(this)
   with (this.PUSHBUTTON1)
      onClick = class::PUSHBUTTON1_ONCLICK
      height = 1.6364
      left = 10.4286
      top = 10.8182
      width = 15.2857
      text = "Launch report in Preview"
   endwith

   this.ENTRYFIELD1 = new ENTRYFIELD(this)
   with (this.ENTRYFIELD1)
      height = 1.0
      left = 19.8571
      top = 2.3636
      width = 12.4286
      value = {2002-01-01}
   endwith

   this.ENTRYFIELD2 = new ENTRYFIELD(this)
   with (this.ENTRYFIELD2)
      height = 1.0
      left = 20.0
      top = 4.6818
      width = 11.5714
      value = {2002-03-31}
   endwith

   this.TEXTLABEL1 = new TEXTLABEL(this)
   with (this.TEXTLABEL1)
      height = 1.0
      left = 7.2857
      top = 2.3636
      width = 12.0
      text = "Start date"
   endwith

   this.TEXTLABEL2 = new TEXTLABEL(this)
   with (this.TEXTLABEL2)
      height = 1.0
      left = 7.4286
      top = 4.6818
      width = 12.0
      text = "End date"
   endwith

   function PUSHBUTTON1_onClick()
      form.oRep.orders1.params['fdat1'] = form.entryfield1.value
      form.oRep.orders1.params['tdat1'] = form.entryfield2.value
      form.oRep.orders1.requery()
      form.oRep.pagetemplate1.text1.text = class::heading_dates()
      form.oPreview.viewer.ref = form.oRep
      form.oPreview.open()
      return

    function heading_dates
      nStartY = form.entryfield1.value.getYear()
      nStartM = form.entryfield1.value.getMonth()+1
      cStartM = form.aMonths[nStartM] 
      nEndY = form.entryfield2.value.getYear()
      nEndM = form.entryfield2.value.getMonth()+1
      cEndM = form.aMonths[nEndM]      
      return cStartM+' '+nStartY+' to '+cEndM+' '+nEndY
       
   function form_onOpen()
      set procedure to preview.wfm
      form.oPreview = new previewForm()
      form.oPreview.bModal = true 
      form.oPreview.bClose = false  
      set procedure to a_date_test.rep
      form.oRep = new a_date_testReport()
      form.aMonths = new array()
      form.aMonths.add('January')
      form.aMonths.add('February')
      form.aMonths.add('March')
      form.aMonths.add('April')
      form.aMonths.add('May')
      form.aMonths.add('June')
      form.aMonths.add('July')
      form.aMonths.add('August')
      form.aMonths.add('September')
      form.aMonths.add('October')
      form.aMonths.add('November')
      form.aMonths.add('December')
      return

endclass