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

class MG_datesForm of FORM
   with (this)
      onOpen = class::FORM_ONOPEN
      height = 16.0
      left = 117.0
      top = 0.0
      width = 70.4286
      text = ""
   endwith

   this.ENTRYFIELD1 = new ENTRYFIELD(this)
   with (this.ENTRYFIELD1)
      height = 1.0
      left = 28.0
      top = 3.0
      width = 14.7143
      value = ""
   endwith


     
   function form_onOpen()
	clear
      this.entryfield1.value=date()		
		a=this.entryfield1.value
		cOld = set('date')
		set date to YMD
		b=this.entryfield1.value
		set date to &cOld
		msgbox("type of entryfield= "+type("this.entryfield1.value")+CHR(10)+;
						"Value before changing to YMD= "+a+CHR(10)+;
						"Value after changing to YMD= "+b)
      return

endclass