Sub refreshForm
	Dim Doc As Object
	Dim Forms As Object
	Dim Form As Object
	Dim I as Integer

	Doc = ThisComponent
	Forms = Doc.Drawpage.Forms

	For I = 0 To Forms.Count - 1
  		Form = Forms.GetbyIndex(I)
  		Form.reload
	Next I

End Sub


Sub ClearForm

	dim oorder as Object

	oorder = grabElement("dateOrder")

	oorder.Text = ""

	refreshForm

End Sub