refreshform Method
Object: frmemployee
Expand/Collapse source code of procedure refreshform Source Code
LOCAL lcFile

IF FILE(employee.photo_file)
	lcFile = employee.photo_file
ELSE
	lcFile = ''
ENDIF

this.pageframe1.page3.imgPhoto.Picture = lcFile
tsBaseForm::RefreshForm()